Collectible Card Game Headquarters

Xander9009 wrote:I tested it against Krufa (for a turn 6 win, even) in a deck of white/colorless creatures that cost 1 or 0. The only I noticed that seemed a little off was that when I tap an artifact creature (and I assume this would be true for creature that don't share a color), it asks which color to produce. For creatures that don't share a color, I don't imagine a red creature would be allowed to reduce a white convoke creature's cost by , but technically as it's worded, that's not an impossibility (you'd just be tapping the creature but it would do nothing). I would suggest making it a bit more streamlined and making it only allowed to produce colors it shares with the convoke creature (which might be the case already, like I said, I didn't test it with other colored creatures), and if there's only one possibility (colorless), then don't ask, just produce the color.

However, that's all for ease of use and has nothing to do with whether or not it worked. I saw nothing behaving strangely. Nicely done

As for Jade Leech and the like, the function for obtaining the colorless cost could be converted to obtain a specific color's cost (except possibly with dual mana costs like with Slippery Bogle), couldn't it? If you think it could and would want to try it, I'll throw together the base of the code like I did for the colorless version if you want.

COLOUR COST CHANGE FUNCTIONS | Open

Code: Select all

UpdateWhiteCostValue = function(oTarget)
local filter = ClearFilter()
      local subfilter = filter:AddSubFilter_Or()
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_ARTIFACT )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_CREATURE )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_ENCHANTMENT )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_LAND )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_PLANESWALKER )
      local Count =  filter:EvaluateObjects()
      local iMod = 0
      for i=0,(Count-1) do
         local Card = filter:GetNthEvaluatedObject(i)
         if Card ~= nil and RSN_Characteristics_GetInt( Card, NEO_ABILITIES_ACTIVE ) == 1 then
            iMod = iMod + GetWhiteCostModification(oTarget, Card)
         end
      end
      return iMod
end

GetWhiteCostModification = function(oTarget, oModifier)
-- Returns an integer number for how much oModifier modifies oTarget's colorless mana most
if oModifier ~= nil then
   local sName = oModifier:GetCardName()
   local CostChange = 0
   if oModifier:GetController() == oTarget:GetController() then
      if ( sName == "ALABASTER_LEECH" and oTarget:GetColour():Test(COLOUR_WHITE) ) then
         return 1
      end
   end
end
return 0
end

UpdateBlueCostValue = function(oTarget)
local filter = ClearFilter()
      local subfilter = filter:AddSubFilter_Or()
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_ARTIFACT )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_CREATURE )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_ENCHANTMENT )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_LAND )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_PLANESWALKER )
      local Count =  filter:EvaluateObjects()
      local iMod = 0
      for i=0,(Count-1) do
         local Card = filter:GetNthEvaluatedObject(i)
         if Card ~= nil and RSN_Characteristics_GetInt( Card, NEO_ABILITIES_ACTIVE ) == 1 then
            iMod = iMod + GetBlueCostModification(oTarget, Card)
         end
      end
      return iMod
end

GetBlueCostModification = function(oTarget, oModifier)
-- Returns an integer number for how much oModifier modifies oTarget's colorless mana most
if oModifier ~= nil then
   local sName = oModifier:GetCardName()
   local CostChange = 0
   if oModifier:GetController() == oTarget:GetController() then
      if ( sName == "SAPPHIRE_LEECH" and oTarget:GetColour():Test(COLOUR_BLUE) ) then
         return 1
      end
   end
end
return 0
end

UpdateBlackCostValue = function(oTarget)
local filter = ClearFilter()
      local subfilter = filter:AddSubFilter_Or()
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_ARTIFACT )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_CREATURE )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_ENCHANTMENT )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_LAND )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_PLANESWALKER )
      local Count =  filter:EvaluateObjects()
      local iMod = 0
      for i=0,(Count-1) do
         local Card = filter:GetNthEvaluatedObject(i)
         if Card ~= nil and RSN_Characteristics_GetInt( Card, NEO_ABILITIES_ACTIVE ) == 1 then
            iMod = iMod + GetBlackCostModification(oTarget, Card)
         end
      end
      return iMod
end

GetBlackCostModification = function(oTarget, oModifier)
-- Returns an integer number for how much oModifier modifies oTarget's colorless mana most
if oModifier ~= nil then
   local sName = oModifier:GetCardName()
   local CostChange = 0
   if oModifier:GetController() == oTarget:GetController() then
      if ( sName == "ANDRADITE_LEECH" and oTarget:GetColour():Test(COLOUR_BLACK) ) then
         return 1
      elseif ( sName == "DERELOR" and oTarget:GetColour():Test(COLOUR_BLACK) ) then
         return 1
      elseif ( sName == "RAGEMONGER" and oTarget:GetSubType():Test(CREATURE_TYPE_MINOTAUR) ) then
         return -1
      elseif ( sName == "EDGEWALKER" and oTarget:GetSubType():Test(CREATURE_TYPE_CLERIC) ) then
         return -1     
      end
   end
end
return 0
end


UpdateRedCostValue = function(oTarget)
local filter = ClearFilter()
      local subfilter = filter:AddSubFilter_Or()
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_ARTIFACT )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_CREATURE )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_ENCHANTMENT )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_LAND )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_PLANESWALKER )
      local Count =  filter:EvaluateObjects()
      local iMod = 0
      for i=0,(Count-1) do
         local Card = filter:GetNthEvaluatedObject(i)
         if Card ~= nil and RSN_Characteristics_GetInt( Card, NEO_ABILITIES_ACTIVE ) == 1 then
            iMod = iMod + GetRedCostModification(oTarget, Card)
         end
      end
      return iMod
end

GetRedCostModification = function(oTarget, oModifier)
-- Returns an integer number for how much oModifier modifies oTarget's colorless mana most
if oModifier ~= nil then
   local sName = oModifier:GetCardName()
   local CostChange = 0
   if oModifier:GetController() == oTarget:GetController() then
      if ( sName == "RUBY_LEECH" and oTarget:GetColour():Test(COLOUR_RED) ) then
         return 1
      elseif ( sName == "RAGEMONGER" and oTarget:GetSubType():Test(CREATURE_TYPE_MINOTAUR) ) then
         return -1
      elseif ( sName == "EDGEWALKER" and oTarget:GetSubType():Test(CREATURE_TYPE_CLERIC) ) then
         return -1   
      end
   end
end
return 0
end


UpdateGreenCostValue = function(oTarget)
local filter = ClearFilter()
      local subfilter = filter:AddSubFilter_Or()
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_ARTIFACT )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_CREATURE )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_ENCHANTMENT )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_LAND )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_PLANESWALKER )
      local Count =  filter:EvaluateObjects()
      local iMod = 0
      for i=0,(Count-1) do
         local Card = filter:GetNthEvaluatedObject(i)
         if Card ~= nil and RSN_Characteristics_GetInt( Card, NEO_ABILITIES_ACTIVE ) == 1 then
            iMod = iMod + GetGreenCostModification(oTarget, Card)
         end
      end
      return iMod
end

GetGreenCostModification = function(oTarget, oModifier)
-- Returns an integer number for how much oModifier modifies oTarget's colorless mana most
if oModifier ~= nil then
   local sName = oModifier:GetCardName()
   local CostChange = 0
   if oModifier:GetController() == oTarget:GetController() then
      if ( sName == "JADE_LEECH" and oTarget:GetColour():Test(COLOUR_GREEN) ) then
         return 1
      end
   end
end
return 0
end

NeoAnderson wrote:Xander my friend,
1. About the colour production, the card is allowed as by rules to produce one of its colour or colouless mana, anyway inside the convoke card code there is a check if the color produced is not inside the cost it will be used to reduce colourless cost.

NeoAnderson wrote:2. About the function for colour cost change i already made it and i am also using, i started from our colourless function!
Anyway i found only few cards that can change colour cost.
here you can see that functions :

COLOUR COST CHANGE FUNCTIONS | Open

Code: Select all

UpdateWhiteCostValue = function(oTarget)
local filter = ClearFilter()
      local subfilter = filter:AddSubFilter_Or()
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_ARTIFACT )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_CREATURE )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_ENCHANTMENT )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_LAND )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_PLANESWALKER )
      local Count =  filter:EvaluateObjects()
      local iMod = 0
      for i=0,(Count-1) do
         local Card = filter:GetNthEvaluatedObject(i)
         if Card ~= nil and RSN_Characteristics_GetInt( Card, NEO_ABILITIES_ACTIVE ) == 1 then
            iMod = iMod + GetWhiteCostModification(oTarget, Card)
         end
      end
      return iMod
end

GetWhiteCostModification = function(oTarget, oModifier)
-- Returns an integer number for how much oModifier modifies oTarget's colorless mana most
if oModifier ~= nil then
   local sName = oModifier:GetCardName()
   local CostChange = 0
   if oModifier:GetController() == oTarget:GetController() then
      if ( sName == "ALABASTER_LEECH" and oTarget:GetColour():Test(COLOUR_WHITE) ) then
         return 1
      end
   end
end
return 0
end

UpdateBlueCostValue = function(oTarget)
local filter = ClearFilter()
      local subfilter = filter:AddSubFilter_Or()
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_ARTIFACT )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_CREATURE )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_ENCHANTMENT )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_LAND )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_PLANESWALKER )
      local Count =  filter:EvaluateObjects()
      local iMod = 0
      for i=0,(Count-1) do
         local Card = filter:GetNthEvaluatedObject(i)
         if Card ~= nil and RSN_Characteristics_GetInt( Card, NEO_ABILITIES_ACTIVE ) == 1 then
            iMod = iMod + GetBlueCostModification(oTarget, Card)
         end
      end
      return iMod
end

GetBlueCostModification = function(oTarget, oModifier)
-- Returns an integer number for how much oModifier modifies oTarget's colorless mana most
if oModifier ~= nil then
   local sName = oModifier:GetCardName()
   local CostChange = 0
   if oModifier:GetController() == oTarget:GetController() then
      if ( sName == "SAPPHIRE_LEECH" and oTarget:GetColour():Test(COLOUR_BLUE) ) then
         return 1
      end
   end
end
return 0
end

UpdateBlackCostValue = function(oTarget)
local filter = ClearFilter()
      local subfilter = filter:AddSubFilter_Or()
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_ARTIFACT )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_CREATURE )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_ENCHANTMENT )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_LAND )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_PLANESWALKER )
      local Count =  filter:EvaluateObjects()
      local iMod = 0
      for i=0,(Count-1) do
         local Card = filter:GetNthEvaluatedObject(i)
         if Card ~= nil and RSN_Characteristics_GetInt( Card, NEO_ABILITIES_ACTIVE ) == 1 then
            iMod = iMod + GetBlackCostModification(oTarget, Card)
         end
      end
      return iMod
end

GetBlackCostModification = function(oTarget, oModifier)
-- Returns an integer number for how much oModifier modifies oTarget's colorless mana most
if oModifier ~= nil then
   local sName = oModifier:GetCardName()
   local CostChange = 0
   if oModifier:GetController() == oTarget:GetController() then
      if ( sName == "ANDRADITE_LEECH" and oTarget:GetColour():Test(COLOUR_BLACK) ) then
         return 1
      elseif ( sName == "DERELOR" and oTarget:GetColour():Test(COLOUR_BLACK) ) then
         return 1
      elseif ( sName == "RAGEMONGER" and oTarget:GetSubType():Test(CREATURE_TYPE_MINOTAUR) ) then
         return -1
      elseif ( sName == "EDGEWALKER" and oTarget:GetSubType():Test(CREATURE_TYPE_CLERIC) ) then
         return -1     
      end
   end
end
return 0
end


UpdateRedCostValue = function(oTarget)
local filter = ClearFilter()
      local subfilter = filter:AddSubFilter_Or()
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_ARTIFACT )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_CREATURE )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_ENCHANTMENT )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_LAND )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_PLANESWALKER )
      local Count =  filter:EvaluateObjects()
      local iMod = 0
      for i=0,(Count-1) do
         local Card = filter:GetNthEvaluatedObject(i)
         if Card ~= nil and RSN_Characteristics_GetInt( Card, NEO_ABILITIES_ACTIVE ) == 1 then
            iMod = iMod + GetRedCostModification(oTarget, Card)
         end
      end
      return iMod
end

GetRedCostModification = function(oTarget, oModifier)
-- Returns an integer number for how much oModifier modifies oTarget's colorless mana most
if oModifier ~= nil then
   local sName = oModifier:GetCardName()
   local CostChange = 0
   if oModifier:GetController() == oTarget:GetController() then
      if ( sName == "RUBY_LEECH" and oTarget:GetColour():Test(COLOUR_RED) ) then
         return 1
      elseif ( sName == "RAGEMONGER" and oTarget:GetSubType():Test(CREATURE_TYPE_MINOTAUR) ) then
         return -1
      elseif ( sName == "EDGEWALKER" and oTarget:GetSubType():Test(CREATURE_TYPE_CLERIC) ) then
         return -1   
      end
   end
end
return 0
end


UpdateGreenCostValue = function(oTarget)
local filter = ClearFilter()
      local subfilter = filter:AddSubFilter_Or()
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_ARTIFACT )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_CREATURE )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_ENCHANTMENT )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_LAND )
            subfilter:Add( FE_TYPE, OP_IS, CARD_TYPE_PLANESWALKER )
      local Count =  filter:EvaluateObjects()
      local iMod = 0
      for i=0,(Count-1) do
         local Card = filter:GetNthEvaluatedObject(i)
         if Card ~= nil and RSN_Characteristics_GetInt( Card, NEO_ABILITIES_ACTIVE ) == 1 then
            iMod = iMod + GetGreenCostModification(oTarget, Card)
         end
      end
      return iMod
end

GetGreenCostModification = function(oTarget, oModifier)
-- Returns an integer number for how much oModifier modifies oTarget's colorless mana most
if oModifier ~= nil then
   local sName = oModifier:GetCardName()
   local CostChange = 0
   if oModifier:GetController() == oTarget:GetController() then
      if ( sName == "JADE_LEECH" and oTarget:GetColour():Test(COLOUR_GREEN) ) then
         return 1
      end
   end
end
return 0
end

Code: Select all

local CreatureAssignedColors = AssignConvokePayment(Targets, Costs)

Code: Select all

CreatureAssignedColors[1] = 1
CreatureAssignedColors[2] = 3
CreatureAssignedColors[3] = 6
CreatureAssignedColors[4] = 6

| Open

Code: Select all

AssignConvokePayment = function(oCreaturesChosen, iCardCost) --Provide list of creatures chosen and list of colored costs needed, both starting at index 1
  --Make globals so we can void passing parameters everywhere.
  oCreatures = oCreaturesChosen
  iCost = iCardCost
  bCreatureContributions = {{}, {}, {}, {}, {}}
  iCreatureContributesOnly = {}
  iAssignedPayment = {}
  iMulticolorCreatures = {}
  iColors = {COLOUR_WHITE, COLOUR_BLUE, COLOUR_BLACK, COLOUR_RED, COLOUR_GREEN, COLOUR_COLOURLESS}

  --Check that enough creatures are tapped.
  if ( table.getn(oCreatures) = ( iCost[1] + iCost[2] + iCost[3] + iCost[4] + iCost[5] + iCost[6]) then
    --Initialize payment.
    for iCreatureIndex, oCreature in pairs(oCreatures) do
      iAssignedPayment[iCreatureIndex] = 0
    end
    --Determine initial useful colors of creatures, then assign any that can only assist with one color.
    DetermineColorContributions()
    AssignSingleContributionCosts()
    DetermineMulticolorCreatures()  --Set up multicolor array so we can start the loop.
    while ( iMulticolorCreatures[1] ~= nil ) do
      AssignNextMulticolorCreature()  --As long as there's at least one unassigned multicolor creature, assign it to its first useful color.
    end
    return iAssignedPayment
  end
  return
end

DetermineColorContributions = function()
  --For each creature, determine which useful colors it can produce.
  --To do this, iterate through each creature.
  --For each creature, iterate through each color.
  --For each color, check if creature provides that color and the color is needed.
  --If so and creature has not yet provided another needed color, set color as 'only contribution'.
  --Otherwise, set 'only contribution' to -1 (produces multiple needed colors)
  for iCreatureIndex, oCreature in pairs(oCreatures) do
    -- Check if creature has been assigned to a color already. Once assigned, do not operate on it again.
    if ( iAssignedPayment[iCreatureIndex] == 0 ) then
      iCreatureContributesOnly[iCreatureIndex] = 6
      for iColorIndex, bCreatureContributionsColor in pairs(bCreatureContributions) do
        bCreatureContributionsColor[iCreatureIndex] = ( oCreature:GetColour():Test( iColors[iColorIndex] ) and iCost[iColorIndex] ~= 0 )
        if ( bCreatureContributionsColor[iCreatureIndex] and iCreatureContributesOnly[iCreatureIndex] == 6 ) then
          iCreatureContributesOnly[iCreatureIndex] = iColorIndex
        elseif ( bCreatureContributionsColor[iCreatureIndex] and iCreatureContributesOnly[iCreatureIndex] > 0 ) then
          iCreatureContributesOnly[iCreatureIndex] = -1
        end
      end
    end
  end
end

AssignSingleContributionCosts = function()
  --For each creature, check if it only contributes one useful color.
  for iCreatureIndex, oCreature in pairs(oCreatures) do
    if ( iCreatureContributesOnly[iCreatureIndex] > 0 ) then
      --If so, assign creature to that color.
      if ( iCost[iCreatureContributesOnly[iCreatureIndex]] > 0 ) then
        iAssignedPayment[iCreatureIndex] = iCreatureContributesOnly[iCreatureIndex]
        iCost[iCreatureContributesOnly[iCreatureIndex]] -= 1
      --If that color has been paid, assign creature to colorless.
      else
        iAssignedPayment[iCreatureIndex] = 6
        iCost[6] -= 1
      end
    end
  end
  DetermineColorContributions() --Refresh useful contributions.
end

DetermineMulticolorCreatures = function()
  --Empty the multicolor creature array.
  for iIndex, oCreature in pairs(oCreatures) do
    iMulticolorCreatures[iIndex] = nil
  end
  --Ensure contributions are current.
  DetermineColorContributions()
  --Now fill it back up.
  for iCreatureIndex, iCreatureContribution in pairs(iCreatureContributesOnly) do
    if ( iCreatureContribution == -1 ) then --iCreatureContributesOnly[n] is set to -1 when a creature constributes multiple colors.
      iMulticolorCreatures[table.getn(oCreatures) + 1] = iCreatureIndex
    end
  end
  DetermineColorContributions() --Refresh useful contributions.
end

AssignNextMulticolorCreature = function()
  --Assign the first creature which produces multiple useful colors to the first useful color it produces.
  --This works because the maximum number of colored mana symbols in a card with convoke is 2.
  local bPaid = false
  for iColorIndex, bCreatureContributionsColor in pairs(bCreatureContributions) do
    if ( bCreatureContributionsColor[iMulticolorCreatures[1]] ) then
      if ( ~bPaid ) then
        iAssignedPayment[iMulticolorCreatures[1]] = iColorIndex --Assign the creature.
        iCost[iColorIndex] -= 1 --Reduce the cost it helped pay.
      else
        bCreatureContributionsColor[iMulticolorCreatures[1]] = false  --Set creature to no longer be multicolored.
    end
  end
  DetermineColorContributions() --Refresh useful contributions.
  AssignSingleContributionCosts() --Attempt automated assignment again.
end

Xander9009 wrote:Holy wow. I think I might have gotten it. I mean, it's almost definitely not going to work right away, but it should be close enough that you can get it the rest of the way. The code is actually rather short for how complex it really is. Lots of nesting of arrays within arrays. It's all commented though (101 lines, and 20 are just comments and another 5 are just empty spacing for readability. Anyway, here, try this and let me know if it works at all. Just makes sure that you feed in am array of creatures that starts at 1, not 0, and an array of costs with white first and colorless last, also starting at 1, not 0. It returns an array of numbers relating to colors. Each element lines up with an element from the array of creature passed in. So, the goal is that you could pass in two creatures like this.
Unfortunately, this uses multiple things in LUA that I'm unfamiliar with. I wouldn't be very surprised if they were done incorrectly. Global variables, arrays, and of course NESTED arrays are all new to me. The main structure should be useful, though.

sumomole wrote:if my understanding is correct, you will decide the creatures to be tapped and the change of mana cost in the activated ability, but those creatures will be tapped after the convoke card is cast, so can I use the same creatures to pay two or more activated abilities? and I can't see any difference in these activated abilities except active zone, I think they should be merged.