Here is what I came up with for
Winter Orb (though I blatantly stole most of it from Neo's Dampening Field). Though I will say I'm not sure if it works correctly.
I read somewhere that
Winter Orb does not stack with each other. With this version you will only be able to untap one land regardless of the number of Winter Orbs on the battlefield. I'm afraid to say it still probably not correct due to cards like
Static Orb. To do this properly I'd probably need to have an untap trigger that considers all of the orb-like effects simultaneously. Then again, I don't think my current implementation would work correctly if a
Dryad Arbor is hit by a
Frost Breath. Probably should go back to the drawing board.
- Winter Orb | Open
- Code: Select all
<?xml version="1.0"?>
<CARD_V2 ExportVersion="1">
<FILENAME text="WINTER_ORB_867159277" />
<CARDNAME text="WINTER_ORB" />
<TITLE>
<LOCALISED_TEXT LanguageCode="en-US"><![CDATA[Winter Orb]]></LOCALISED_TEXT>
<LOCALISED_TEXT LanguageCode="fr-FR"><![CDATA[Winter Orb]]></LOCALISED_TEXT>
<LOCALISED_TEXT LanguageCode="es-ES"><![CDATA[Winter Orb]]></LOCALISED_TEXT>
<LOCALISED_TEXT LanguageCode="de-DE"><![CDATA[Winter Orb]]></LOCALISED_TEXT>
<LOCALISED_TEXT LanguageCode="it-IT"><![CDATA[Winter Orb]]></LOCALISED_TEXT>
<LOCALISED_TEXT LanguageCode="jp-JA"><![CDATA[Winter Orb]]></LOCALISED_TEXT>
<LOCALISED_TEXT LanguageCode="ko-KR"><![CDATA[Winter Orb]]></LOCALISED_TEXT>
<LOCALISED_TEXT LanguageCode="ru-RU"><![CDATA[Winter Orb]]></LOCALISED_TEXT>
<LOCALISED_TEXT LanguageCode="pt-BR"><![CDATA[Winter Orb]]></LOCALISED_TEXT>
<LOCALISED_TEXT LanguageCode="zh-CN"><![CDATA[Winter Orb]]></LOCALISED_TEXT>
<LOCALISED_TEXT LanguageCode="zh-HK"><![CDATA[Winter Orb]]></LOCALISED_TEXT>
</TITLE>
<MULTIVERSEID value="867159277" />
<ARTID value="867159277" />
<ARTIST name="Mark Tedin" />
<CASTING_COST cost="{2}" />
<TYPE metaname="Artifact" />
<EXPANSION value="MED" />
<RARITY metaname="R" />
<TRIGGERED_ABILITY replacement_effect="1">
<TRIGGER value="BEGINNING_OF_STEP">
return MTG():GetStep() == STEP_UNTAP
</TRIGGER>
<RESOLUTION_TIME_ACTION>
local chest = MTG():DuelDataChest():Get_Chest(461)
if chest == nil then
chest = MTG():DuelDataChest():Make_Chest(461)
end
chest:Set_Int(1,1)
</RESOLUTION_TIME_ACTION>
</TRIGGERED_ABILITY>
<STATIC_ABILITY>
<LOCALISED_TEXT LanguageCode="en-US"><![CDATA[Players can’t untap more than one land during their untap steps.]]></LOCALISED_TEXT>
<LOCALISED_TEXT LanguageCode="fr-FR"><![CDATA[Players can’t untap more than one land during their untap steps.]]></LOCALISED_TEXT>
<LOCALISED_TEXT LanguageCode="es-ES"><![CDATA[Players can’t untap more than one land during their untap steps.]]></LOCALISED_TEXT>
<LOCALISED_TEXT LanguageCode="de-DE"><![CDATA[Players can’t untap more than one land during their untap steps.]]></LOCALISED_TEXT>
<LOCALISED_TEXT LanguageCode="it-IT"><![CDATA[Players can’t untap more than one land during their untap steps.]]></LOCALISED_TEXT>
<LOCALISED_TEXT LanguageCode="jp-JA"><![CDATA[Players can’t untap more than one land during their untap steps.]]></LOCALISED_TEXT>
<LOCALISED_TEXT LanguageCode="ko-KR"><![CDATA[Players can’t untap more than one land during their untap steps.]]></LOCALISED_TEXT>
<LOCALISED_TEXT LanguageCode="ru-RU"><![CDATA[Players can’t untap more than one land during their untap steps.]]></LOCALISED_TEXT>
<LOCALISED_TEXT LanguageCode="pt-BR"><![CDATA[Players can’t untap more than one land during their untap steps.]]></LOCALISED_TEXT>
<LOCALISED_TEXT LanguageCode="zh-CN"><![CDATA[Players can’t untap more than one land during their untap steps.]]></LOCALISED_TEXT>
<LOCALISED_TEXT LanguageCode="zh-HK"><![CDATA[Players can’t untap more than one land during their untap steps.]]></LOCALISED_TEXT>
<FILTER filter_id="0">
local filter = ClearFilter()
filter:Add( FE_TYPE, OP_IS, CARD_TYPE_LAND )
</FILTER>
<CONTINUOUS_ACTION layer="8" filter_id="0">
if FilteredCard() ~= nil then
local characteristics = FilteredCard():GetCurrentCharacteristics()
characteristics:Bool_Set( CHARACTERISTIC_DOESNT_UNTAP, 1 )
end
</CONTINUOUS_ACTION>
</STATIC_ABILITY>
<TRIGGERED_ABILITY replacement_query="1">
<TRIGGER value="BEGINNING_OF_PLAYERS_STEP">
local filter = ClearFilter()
filter:Add( FE_TYPE, OP_IS, CARD_TYPE_LAND )
filter:Add( FE_CONTROLLER, OP_IS, TriggerPlayer())
local Targets = filter:EvaluateObjects()
if Targets > 0 and MTG():GetStep() == STEP_UNTAP then
return true
end
</TRIGGER>
<RESOLUTION_TIME_ACTION>
local chest = MTG():DuelDataChest():Get_Chest(461)
if chest ~= nil and chest:Get_Int(1) == 1 then
chest:Set_Int(1,0)
local player = TriggerPlayer()
local filter = ClearFilter()
filter:Add( FE_TYPE, OP_IS, CARD_TYPE_LAND )
filter:Add( FE_CONTROLLER, OP_IS, player)
if player ~= nil then
player:SetItemCount( 1 )
for i = 0, (1 - 1) do
player:SetItemPrompt(i, "CARD_QUERY_CHOOSE_LAND_UNTAP" )
end
player:ChooseItems( EffectDC():Make_Targets(0), QUERY_FLAG_UP_TO )
end
end
</RESOLUTION_TIME_ACTION>
<RESOLUTION_TIME_ACTION>
local target = EffectDC():Get_Targets(0) and EffectDC():Get_Targets(0):Get_CardPtr(0)
if target ~= nil then
target:Untap()
end
</RESOLUTION_TIME_ACTION>
</TRIGGERED_ABILITY>
<AI_BASE_SCORE score="600" zone="ZONE_BATTLEFIELD" />
</CARD_V2>
Thanks Xander I was getting ready to find that after I
finished Winter Orb.