CoreLogic.php

<?php

include "CardSetters.php";
include "CardGetters.php";

function EvaluateCombatChain(&$totalPower, &$totalDefense, &$powerModifiers = [], $secondNeedleCheck = false)
{
  global $CombatChain, $mainPlayer, $currentTurnEffects, $combatChainState, $CCS_WeaponIndex, $CCS_NumPowerCounters, $combatChain, $defPlayer;
  BuildMainPlayerGameState();
  $attackType = CardType($CombatChain->AttackCard()->ID());
  $canGainAttack = CanGainAttack($CombatChain->AttackCard()->ID());
  $snagActive = SearchCurrentTurnEffects("snag_blue", $mainPlayer) && $attackType == "AA";

  for ($i = 0; $i < $CombatChain->NumCardsActiveLink(); ++$i) {
    $chainCard = $CombatChain->Card($i, true);
    if ($chainCard->PlayerID() == $mainPlayer) {
      if ($i == 0 && $attackType != "W") $power = LinkBasePower();
      else $power = $canGainAttack ? PowerValue($chainCard->ID(), $mainPlayer, "CC") : PowerValue($chainCard->ID(), $mainPlayer, "CC", base: true);
      if ($canGainAttack || $i == 0 || $power < 0) {
        $powerModifiers[] = $chainCard->ID();
        $powerModifiers[] = $power;
        if ($i == 0) $totalPower += $power;
        else AddPower($totalPower, $power);
      }
      $power = PowerModifier($chainCard->ID(), $chainCard->From(), $chainCard->ResourcesPaid(), $chainCard->RepriseActive()) + $chainCard->PowerValue();
      if ($canGainAttack && !$snagActive || $power < 0) {
        $powerModifiers[] = $chainCard->ID();
        $powerModifiers[] = $power;
        AddPower($totalPower, $power);
      }
    } else {
      $totalDefense += BlockingCardDefense($i * CombatChainPieces());
    }
  }
  // check +1 counters
  if ($canGainAttack && $combatChainState[$CCS_NumPowerCounters] > 0) $totalPower += $combatChainState[$CCS_NumPowerCounters];
  //Now check current turn effects
  $currentTurnEffectsCount = count($currentTurnEffects);
  for ($i = 0; $i < $currentTurnEffectsCount; $i += CurrentTurnEffectsPieces()) {
    if (IsCombatEffectActive($currentTurnEffects[$i]) && !IsCombatEffectLimited($i)) {
      if ($currentTurnEffects[$i + 1] == $mainPlayer) {
        $power = EffectPowerModifier($currentTurnEffects[$i]);
        $fromCurrentAttack = $currentTurnEffects[$i] == $CombatChain->AttackCard()->ID() || IsGrantedBuff($currentTurnEffects[$i]);
        if (($canGainAttack || $power < 0) && !($snagActive && ($fromCurrentAttack || CardType(EffectCardID($currentTurnEffects[$i])) == "AR"))) {
          $powerModifiers[] = $currentTurnEffects[$i];
          $powerModifiers[] = $power;
          AddPower($totalPower, $power);
        }
      }
    }
  }
  // check layer continuous buffs
  if(isset($combatChain[10])) {
    $buffs = explode(",", $combatChain[10]);
    foreach ($buffs as $buffSetID) {
      $buff = ConvertToCardID($buffSetID);
      $power = EffectPowerModifier($buff, attached: true);
      if (($canGainAttack || $power < 0) && !($snagActive && ($buff == $CombatChain->AttackCard()->ID() || CardType(EffectCardID($buff)) == "AR"))) {
        $powerModifiers[] = $buff;
        $powerModifiers[] = $power;
        AddPower($totalPower, $power);
      }
    }
  }
  if ($combatChainState[$CCS_WeaponIndex] != -1) {
    $power = 0;
    if (DelimStringContains($attackType, "W")) {
      if (SubtypeContains($CombatChain->AttackCard()->ID(), "Item")) {
        $ItemCard = new ItemCard($combatChainState[$CCS_WeaponIndex], $mainPlayer);
        // check buffs from subcards
        $subcards = $ItemCard->SubCards();
        if ($subcards != "-") {
          $subcards = explode(",", $subcards);
          foreach ($subcards as $subcard) {
            switch ($subcard) {
              case "galvanic_bender":
                ++$power;
                break;
              default:
                break;
            }
          }
        }
      }
      else {
        $CharacterCard = new CharacterCard($combatChainState[$CCS_WeaponIndex], $mainPlayer);
        $power += $CharacterCard->NumPowerCounters();
      }
      if (filter_var($power, FILTER_VALIDATE_INT) === false) $power = 0;
    } else if (DelimStringContains(CardSubtype($CombatChain->AttackCard()->ID()), "Aura")) {
      $auras = &GetAuras($mainPlayer);
      if (isset($auras[$combatChainState[$CCS_WeaponIndex]])) $power = $auras[$combatChainState[$CCS_WeaponIndex] + 3];
    } else if (DelimStringContains(CardSubtype($CombatChain->AttackCard()->ID()), "Ally")) {
      $allies = &GetAllies($mainPlayer);
      if (isset($allies[$combatChainState[$CCS_WeaponIndex]])) $power = $allies[$combatChainState[$CCS_WeaponIndex] + 9];
    }
    if ($canGainAttack || $power < 0) {
      $powerModifiers[] = "POWERCOUNTER"; //Power Counter image ID
      $powerModifiers[] = $power;
      AddPower($totalPower, $power, true);
    }
  }
  $power = MainCharacterPowerModifiers($powerModifiers);
  if ($canGainAttack || $power < 0) {
    AddPower($totalPower, $power);
  }
  $power = AuraPowerModifiers(0, $powerModifiers);
  if ($canGainAttack || $power < 0) {
    AddPower($totalPower, $power);
  }
  $power = ArsenalPowerModifier($powerModifiers);
  if ($canGainAttack || $power < 0) {
    AddPower($totalPower, $power);
  }
  $power = ItemPowerModifiers($powerModifiers);
  if ($canGainAttack || $power < 0) {
    AddPower($totalPower, $power);
  }
  CurrentEffectAfterPlayOrActivateAbility(false); //checking gauntlets of iron will
  if (!$secondNeedleCheck && isset($combatChain[0])) {
    switch ($combatChain[0]) {
      case "zephyr_needle":
      case "zephyr_needle_r":
        $combatChainCount = count($combatChain);
        for ($i = CombatChainPieces(); $i < $combatChainCount; $i += CombatChainPieces()) {
          $uid = $combatChain[$i + 2] == "EQUIP" ? $combatChain[$i + 8] : $combatChain[$i + 7];
          $blockVal = intval(ModifiedBlockValue($combatChain[$i], $defPlayer, "CC", "", $uid)) + BlockModifier($combatChain[$i], "CC", 0, $i) + $combatChain[$i + 6];
          if ($totalDefense > 0 && $blockVal > $totalPower && $combatChain[$i + 1] == $defPlayer) {
            $char = GetPlayerCharacter($mainPlayer);
            $charID = -1;
            for ($i = 0; $i < count($char); $i += CharacterPieces()) {
              if ($char[$i + 11] == $combatChain[8]) $charID = $i;
            }
            if ($charID == -1) WriteLog("something went wrong, please submit a bug report", highlight: true);
            if (SearchLayersForCardID($combatChain[0]) == -1 && $char[$charID + 7] != "1") {
              AddLayer("TRIGGER", $mainPlayer, $combatChain[0]);
            }
            break;
          }
        }
        break;
      default:
        break;
    }
  }
}

// function to recheck if things should trigger after gamestate change (like Lyath losing his ability)
function ReEvalCombatChain() {
  global $combatChain, $CombatChain, $combatChainState, $mainPlayer, $defPlayer;
  if ($CombatChain->HasCurrentLink()) {
    // checking if things should trigger/be modified with the power change
    for ($i = CombatChainPieces(); $i < count($combatChain); $i += CombatChainPieces()) {
      if ($combatChain[$i + 1] == $defPlayer) {
        ProcessPhantasmOnBlock($i);
        ProcessMirageOnBlock($i);
      }
    }
    ProcessAllMirage();
    $totalPower = 0;
    $totalBlock = 0;
    EvaluateCombatChain($totalPower, $totalBlock);
  }
}

function AddPower(&$totalPower, $amount, $sourceBuff=false): void
{
  global $CombatChain, $mainPlayer;
  $attackID = $CombatChain->AttackCard()->ID();
  if (PowerCantBeModified($attackID)) return;
  if ($amount > 0 && ($attackID == "amplifying_arrow_yellow" || $attackID == "doubling_season_red")) $amount += 1;
  if (!$sourceBuff && $amount > 0) { //thrive and flourish don't apply to buffs to the attack source
    if (SearchCurrentTurnEffects("thrive_yellow", $mainPlayer)) {
      $num_thrives_active = CountCurrentTurnEffects("thrive_yellow", $mainPlayer); //thrives stack so get all the active effects before applying bonus
      $amount += $num_thrives_active;
    }
    SearchCurrentTurnEffects("flourish_yellow-INACTIVE", $mainPlayer, false, false, true);
    SearchCurrentTurnEffects("flourish_blue-INACTIVE", $mainPlayer, false, false, true);
  }
  if ($amount > 0 && ($attackID == "back_heel_kick_red" || $attackID == "back_heel_kick_yellow" || $attackID == "back_heel_kick_blue") && ComboActive()) $amount += 1;
  $totalPower += $amount;
}

function BlockingCardDefense($index)
{
  global $combatChain, $defPlayer, $currentTurnEffects, $CombatChain;
  $BlockCard = $CombatChain->Card($index);
  $cardID = $BlockCard->ID();
  $canGainBlock = CanGainBlock($cardID);
  $from = $BlockCard->From();
  $baseCost = ($from == "PLAY" || $from == "EQUIP" ? AbilityCost($cardID) : (CardCost($cardID) + SelfCostModifier($cardID, $from)));
  $resourcesPaid = is_numeric($BlockCard->ResourcesPaid()) ? intval($BlockCard->ResourcesPaid()) : 0;
  $resourcesPaid = $resourcesPaid + intval($baseCost);
  $uid = ($from == "EQUIP" || $from == "PLAY") ? $BlockCard->OriginUniqueID() : $BlockCard->UniqueID();
  $defense = intval(ModifiedBlockValue($cardID, $defPlayer, "CC", "", $uid));
  if (!BlockCantBeModified($cardID)) {
    if (($BlockCard->DefenseModifier() < 0 || $canGainBlock)) $defense += $BlockCard->DefenseModifier();
    $blockModifier = intval(BlockModifier($cardID, $from, $resourcesPaid, $index));
    $defense += $blockModifier;
  }
  if (SubtypeContains($cardID, "Item", $defPlayer)) {
    $DefItems = new Items($defPlayer);
    $ItemCard = $DefItems->FindCardUID($BlockCard->OriginUniqueID());
    $counters = $ItemCard->NumDefCounters();
    if (!BlockCantBeModified($cardID) && ($canGainBlock || $counters < 0)) $defense += $counters;
  }
  elseif (TypeContains($cardID, "E", $defPlayer)) {
    $defCharacter = new PlayerCharacter($defPlayer);
    $CharCard = $defCharacter->FindCardUID($uid);
    $counters = $CharCard->NumDefenseCounters();
    if (!BlockCantBeModified($cardID) && ($canGainBlock || $counters < 0)) $defense += $counters;
  }
  if ($defense < 0) $defense = 0;
  return $defense;
}

function AddCombatChain($cardID, $player, $from, $resourcesPaid, $OriginUniqueID, $defending=false)
{
  global $combatChain, $turn, $ChainLinks;
  $index = count($combatChain);
  $combatChain[] = $cardID;
  $combatChain[] = $player;
  $combatChain[] = $from;
  $combatChain[] = $resourcesPaid;
  $combatChain[] = RepriseActive();
  $combatChain[] = 0;//Power Modifier
  $combatChain[] = 0;//Defense modifier
  $combatChain[] = GetUniqueId($cardID, $player);
  $combatChain[] = $OriginUniqueID;
  $combatChain[] = $cardID; //original cardID in case it becomes a copy
  $combatChain[] = "-"; //Added static buffs (comma separated list of SetIDs, see ConvertToSetID/ConvertToCardID)
  $combatChain[] = 0; //Number of times used
  if ($turn[0] == "B" || CardType($cardID) == "DR" || DefendingTerm($turn[0]) || $defending) OnBlockEffects($index, $from);
  CurrentEffectAttackAbility(count($combatChain) - CombatChainPieces());
  if ($index == 0) { // remove any attack proxies from the attacking card from previous chain links 1.4.3c
		for ($i = 0; $i < $ChainLinks->NumLinks(); ++$i) {
			$AttackCard = $ChainLinks->GetLink($i)->AttackCard();
			if ($AttackCard->OriginUniqueID() == $OriginUniqueID)
				$AttackCard->Remove();
		}
  }
  return $index;
}

function DefendingTerm($term)
{
  switch ($term) {
    case "ADDCARDTOCHAINASDEFENDINGCARD": // Pulsewave Harpoon, Pulsewave Protocol, etc.
    case "PROVOKE":
      return true;
    default:
      return false;
  }
}

function CombatChainPowerModifier($index, $amount)
{
  global $combatChain;
  if (str_contains($index, "COMBATCHAINLINK")) $index = explode("-", $index)[1];
  $combatChain[$index + 5] += $amount;
  ProcessPhantasmOnBlock($index);
  ProcessAllMirage();
}

function CombatChainDefenseModifier($index, $amount, $skipLog = "-")
{
  global $combatChain, $CombatChain;
  if (str_contains($index, "COMBATCHAINLINK")) $index = explode("-", $index)[1];
  if (isset($combatChain[$index])) {
    $CombatChain->Card($index)->ModifyDefense($amount);
    switch ($combatChain[0]) {
      case "zephyr_needle":
      case "zephyr_needle_r":
      EvaluateCombatChain($totalPower, $totalBlock);
    }
    if ($skipLog == "-") {
      if ($amount > 0) WriteLog(CardLink($combatChain[$index], $combatChain[$index]) . " gets +" . $amount . " defense");
      else if ($amount < 0) WriteLog(CardLink($combatChain[$index], $combatChain[$index]) . " gets " . $amount . " defense");
    }
  }
  return $index;
}

function StartTurnAbilities()
{
  global $mainPlayer, $defPlayer, $SET_ShortcutAttackThreshold, $SET_SkipARs, $SET_SkipDRs;
  ChangeSetting($mainPlayer, $SET_ShortcutAttackThreshold, "0");
  ChangeSetting($mainPlayer, $SET_SkipARs, "0");
  ChangeSetting($mainPlayer, $SET_SkipDRs, "0");
  $mainCharacter = &GetPlayerCharacter($mainPlayer);
  $defCharacter = &GetPlayerCharacter($defPlayer);
  if($mainCharacter[13]) AddCurrentTurnEffect("marked", $mainPlayer);  //Marked stays between turns
  if($defCharacter[13]) AddCurrentTurnEffect("marked", $defPlayer); //Marked stays between turns
  CurrentEffectStartTurnAbilities();
  for ($i = count($mainCharacter) - CharacterPieces(); $i >= 0; $i -= CharacterPieces()) {
    CharacterStartTurnAbility($i);
  }
  ArsenalStartTurnAbilities();
  DefCharacterStartTurnAbilities();
  AuraStartTurnAbilities();
  AllyStartTurnAbilities($mainPlayer); 
  LandmarkStartTurnAbilities();

  $mainItems = &GetItems($mainPlayer);
  for ($i = count($mainItems) - ItemPieces(); $i >= 0; $i -= ItemPieces()) {
    $mainItems[$i + 2] = "2";
    $mainItems[$i + 3] = ItemUses($mainItems[$i]);
    ItemStartTurnAbility($i);
  }
  $mainBanish = &GetBanish($mainPlayer);
  for ($i = count($mainBanish) - BanishPieces(); $i >= 0; $i -= BanishPieces()) {
    if($mainBanish[$i + 1] == "RETURNFIRE"){
      if (!ArsenalFull($mainPlayer) ) {
        $arsenal = &GetArsenal($mainPlayer);
        AddArsenal($mainBanish[$i], $mainPlayer, "BANISH", "UP");
        RemoveBanish($mainPlayer, $i);
        AddCurrentTurnEffect("return_fire_red", $mainPlayer, uniqueID:$arsenal[count($arsenal) - ArsenalPieces() + 5]);
      }
      else {
        $mainBanish[$i + 1] = "-";
      }
    }
  }
  $defItems = &GetItems($defPlayer);
  $defItemsCount = count($defItems);
  for ($i = 0; $i < $defItemsCount; $i += ItemPieces()) {
    $defItems[$i + 2] = "2";
    $defItems[$i + 3] = ItemUses($defItems[$i]);
    if ($defItems[$i + 7] == "1" && !SuperFrozen($mainPlayer, "THEIRITEMS-$i") && !SuperFrozen($defPlayer, "MYITEMS-$i"))
      $defItems[$i + 7] = "0";//Reset Frozen
  }
  $defCharacter = &GetPlayerCharacter($defPlayer);
  $defCharacterCount = count($defCharacter);
  for ($i = 0; $i < $defCharacterCount; $i += CharacterPieces()) {
    if ($defCharacter[$i+8] == "1" && !SuperFrozen($mainPlayer, "THEIRCHAR-$i") && !SuperFrozen($defPlayer, "MYCHAR-$i")) {
      $defCharacter[$i + 8] = "0";//Reset Frozen
    }
  }
  $defAllies = &GetAllies($defPlayer);
  $defAlliesCount = count($defAllies);
  for ($i = 0; $i < $defAlliesCount; $i += AllyPieces()) {
    if ($defAllies[$i+3] == "1" && !SuperFrozen($mainPlayer, "THEIRALLY-$i") && !SuperFrozen($defPlayer, "MYALLY-$i"))
      $defAllies[$i + 3] = "0";//Reset Frozen
  }
  $defAuras = &GetAuras($defPlayer);
  $defAuraCount = count($defAuras);
  for ($i = 0; $i < $defAuraCount; $i += AuraPieces()) {
    if ($defAuras[$i+11] == "1" && !SuperFrozen($mainPlayer, "THEIRAURAS-$i") && !SuperFrozen($defPlayer, "MYAURAS-$i"))
      $defAuras[$i + 11] = "0";//Reset Frozen
  }
  $defArsenal = &GetArsenal($defPlayer);
  $defArsenalCount = count($defArsenal);
  for ($i = 0; $i < $defArsenalCount; $i += ArsenalPieces()) {
    $defArsenal[$i + 4] = "0";//Reset Frozen
  }
  MZStartTurnMayAbilities();
}

function StartActionPhaseAbilities() {
  CurrentEffectBeginningActionPhaseAbilities();
  AuraBeginningActionPhaseAbilities();
  ItemBeginningActionPhaseAbilities();
}

function MZStartTurnMayAbilities()
{
  global $mainPlayer;
  AddDecisionQueue("FINDINDICES", $mainPlayer, "MZSTARTTURN");
  AddDecisionQueue("SETDQCONTEXT", $mainPlayer, "Choose a start of turn ability to activate (or pass)", 1);
  AddDecisionQueue("MAYCHOOSEMULTIZONE", $mainPlayer, "<-", 1);
  AddDecisionQueue("MZSTARTTURNABILITY", $mainPlayer, "-", 1);
}

function MZStartTurnIndices()
{
  global $mainPlayer;
  $graveyard = &GetDiscard($mainPlayer);
  $cards = "";
  for ($i = count($graveyard) - DiscardPieces(); $i >= 0; $i -= DiscardPieces()) {
    $card = GetClass($graveyard[$i], $mainPlayer);
    if ($card != "-") $card->DiscardStartTurnTrigger($i);
    switch ($graveyard[$i]) {
      case "thaw_red":
        if (ThawIndices($mainPlayer) != "") $cards = CombineSearches($cards, SearchMultiZoneFormat($i, "MYDISCARD"));
        break;
      case "blacktek_whisperers":
      case "mask_of_perdition":
      case "redback_shroud":
      case "shriek_razors":
        SilverBuyback($mainPlayer, $i);
        break;
      case "loyalty_beyond_the_grave_red":
        $foundLoyalties = SearchDiscard($mainPlayer, nameIncludes:"Loyalty,Beyond,the,Grave");
        if (count(explode(",", $foundLoyalties)) >= 2) $cards = CombineSearches($cards, SearchMultiZoneFormat($i, "MYDISCARD"));
        break;
      default:
        break;
    }
  }
  return $cards;
}

function FindEmptyEquipmentSlots($player)
{
  $character = &GetPlayerCharacter($player);
  $available = array_filter(["Head", "Chest", "Arms", "Legs"], function ($slot) use ($character) {
    for ($i = 0; $i < count($character); $i += CharacterPieces()) {
      $subtype = CardSubType($character[$i], $character[$i + 11]);
      $status = $character[$i + 1];
      if (DelimStringContains($subtype, $slot) && $status != 0) return false;
    }
    return true;
  });
  return empty($available) ? "" : implode(",", $available);
}

function ArsenalStartTurnAbilities()
{
  global $mainPlayer;
  $arsenal = &GetArsenal($mainPlayer);
  for ($i = 0; $i < count($arsenal); $i += ArsenalPieces()) {
    switch ($arsenal[$i]) {
      case "the_librarian":
      case "minerva_themis":
      case "lady_barthimont":
      case "lord_sutcliffe":
      case "hala_goldenhelm":
      case "chief_rukutan":
        if ($arsenal[$i + 1] == "DOWN") {
          AddDecisionQueue("YESNO", $mainPlayer, "if_you_want_to_turn_".CardLink($arsenal[$i], $arsenal[$i])."_face_up");
          AddDecisionQueue("NOPASS", $mainPlayer, "-");
          AddDecisionQueue("TURNARSENALFACEUP", $mainPlayer, $i, 1);
        }
        break;
      case "the_hand_that_pulls_the_strings":
        if ($arsenal[$i + 1] == "UP") {
          AddCurrentTurnEffect("the_hand_that_pulls_the_strings", $mainPlayer);
        }
      default:
        break;
    }
  }
}

function ArsenalBeginEndPhaseAbilities()
{
  global $mainPlayer;
  $arsenal = &GetArsenal($mainPlayer);
  for ($i = count($arsenal) - ArsenalPieces(); $i >= 0; $i -= ArsenalPieces()) {
    switch ($arsenal[$i]) {
      case "the_hand_that_pulls_the_strings":
        if ($arsenal[$i + 1] == "UP") {
          if(CountItem("silver", $mainPlayer) >= 1) {
            AddDecisionQueue("YESNO", $mainPlayer, "destroy_a_".Cardlink("silver", "silver")."_to_keep_".CardLink($arsenal[$i], $arsenal[$i]), 1);
            AddDecisionQueue("NOPASS", $mainPlayer, "-", 1);
            AddDecisionQueue("PASSPARAMETER", $mainPlayer, "silver-1", 1);
            AddDecisionQueue("FINDANDDESTROYITEM", $mainPlayer, "<-", 1);
            AddDecisionQueue("ELSE", $mainPlayer, "-");
          }
          AddDecisionQueue("PASSPARAMETER", $mainPlayer, "MYARS-" . $i, 1);
          AddDecisionQueue("MZADDZONE", $mainPlayer, "MYBOTDECK", 1);
          AddDecisionQueue("MZREMOVE", $mainPlayer, "-", 1);
          AddDecisionQueue("DRAW", $mainPlayer, "-", 1);
        }
        break;
      default:
        break;
    }
  }
}


function ArsenalAttackAbilities()
{
  global $CombatChain, $mainPlayer;
  $attackID = $CombatChain->AttackCard()->ID();
  $arsenal = GetArsenal($mainPlayer);
  for ($i = 0; $i < count($arsenal); $i += ArsenalPieces()) {
    switch ($arsenal[$i]) {
      case "lady_barthimont":
        if (CardType($attackID) == "AA" && $arsenal[$i + 1] == "UP") LadyBarthimontAbility($mainPlayer, $i);
        break;
      case "chief_rukutan":
        if (CardType($attackID) == "AA" && ModifiedPowerValue($attackID, $mainPlayer, "CC", source: $arsenal[$i]) >= 6 && $arsenal[$i + 1] == "UP") ChiefRukutanAbility($mainPlayer, $i);
        break;
      default:
        break;
    }
  }
}

function ArsenalPowerModifier(&$powerModifiers)
{
  global $CombatChain, $mainPlayer;
  $attackID = $CombatChain->AttackCard()->ID();
  $attackType = CardType($attackID);
  $arsenal = GetArsenal($mainPlayer);
  $modifier = 0;
  $arsenalCount = count($arsenal);
  for ($i = 0; $i < $arsenalCount; $i += ArsenalPieces()) {
    switch ($arsenal[$i]) {
      case "minerva_themis":
        $modifier += ($arsenal[$i + 1] == "UP" && TypeContains($attackID, "W", $mainPlayer) && Is1H($attackID) ? 1 : 0);
        $powerModifiers[] = $arsenal[$i];
        $powerModifiers[] = $modifier;
        break;
      default:
        break;
    }
  }
  return $modifier;
}

function ArsenalHitEffects()
{
  global $CombatChain, $mainPlayer;
  $attackID = $CombatChain->AttackCard()->ID();
  $arsenal = GetArsenal($mainPlayer);
  $modifier = 0;
  for ($i = 0; $i < count($arsenal); $i += ArsenalPieces()) {
    switch ($arsenal[$i]) {
      case "minerva_themis":
        if ($arsenal[$i + 1] == "UP" && TypeContains($attackID, "W", $mainPlayer)) {
          MinervaThemisAbility($mainPlayer, $i);
          break;
        }
      case "hala_goldenhelm":
        if ($arsenal[$i + 1] == "UP" && TypeContains($attackID, "W", $mainPlayer) && CardSubType($attackID) == "Sword") {
          HalaGoldenhelmAbility($mainPlayer, $i);
          break;
        }
      default:
        break;
    }
  }
  return $modifier;
}

function ArsenalPlayCardAbilities($cardID)
{
  global $currentPlayer;
  $cardType = CardType($cardID);
  $arsenal = GetArsenal($currentPlayer);
  for ($i = 0; $i < count($arsenal); $i += ArsenalPieces()) {
    switch ($arsenal[$i]) {
      case "lord_sutcliffe":
        if ($arsenal[$i + 1] == "UP" && DelimStringContains($cardType, "A")) LordSutcliffeAbility($currentPlayer, $i);
        break;
      default:
        break;
    }
  }
}

function HasIncreasedAttack()
{
  global $CombatChain, $combatChainState, $mainPlayer, $combatChain;
  if ($CombatChain->HasCurrentLink()) {
    $power = CachedTotalPower();
    if (SearchCharacterActive($mainPlayer, "cosmo_scroll_of_ancestral_tapestry") && HasWard($combatChain[0], $mainPlayer) && SubtypeContains($combatChain[0], "Aura", $mainPlayer)) {
      if ($power > WardAmount($combatChain[0], $mainPlayer)) return true;
      else return false;
    }
    if ($power > LinkBasePower()) return true;
  }
  return false;
}

function HasDecreasedAttack()
{
  global $CombatChain, $combatChainState, $mainPlayer, $combatChain;
  if ($CombatChain->HasCurrentLink()) {
    $power = CachedTotalPower();
    if (SearchCharacterActive($mainPlayer, "cosmo_scroll_of_ancestral_tapestry") && HasWard($combatChain[0], $mainPlayer) && SubtypeContains($combatChain[0], "Aura", $mainPlayer)) {
      if ($power < WardAmount($combatChain[0], $mainPlayer)) return true;
      else return false;
    }
    if ($power < LinkBasePower()) return true;
  }
  return false;
}

function DamageTrigger($player, $damage, $type, $source, $playerSource)
{
  PrependDecisionQueue("DEALDAMAGE", $player, "MYCHAR-0", 1);
  PrependDecisionQueue("PASSPARAMETER", $player, $damage . "-" . $source . "-" . $type . "-" . $playerSource);
  return $damage;
}

function CanDamageBePrevented($player, $damage, $type, $source = "-")
{
  global $mainPlayer;
  $otherPlayer = $player == 1 ? 2 : 1;
  // $foundHorrors = SearchCurrentTurnEffects("horrors_of_the_past_yellow", $mainPlayer, returnUniqueID:true);
  // $extraText = $foundHorrors != -1 ? $foundHorrors : "-";
  $extraText = GetHorrorsBuff();
  if ($type == "ARCANE" && SearchCurrentTurnEffects("swarming_gloomveil_red", $player)) return false;
  if ($type == "ARCANE" && $source == "deny_redemption_red") return false;
  if ($source == "runechant" && (SearchCurrentTurnEffects("vynnset", $otherPlayer) || SearchCurrentTurnEffects("vynnset_iron_maiden", $otherPlayer))) return false;
  if (SearchCurrentTurnEffects("beat_of_the_ironsong_blue-PREVENT", $otherPlayer)) return false;
  if (SearchCurrentTurnEffects("tiger_stripe_shuko", $otherPlayer)) return false;
  if ($type == "COMBAT" && SearchCurrentTurnEffects("chorus_of_ironsong_yellow", $mainPlayer)) return false;
  if ($type == "COMBAT" && SearchCurrentTurnEffects("jagged_edge_red", $mainPlayer)) return false;
  $sourceUnpreventable = ["rok", "malign_red", "malign_yellow", "malign_blue", "murkmire_grapnel_red", "murkmire_grapnel_yellow", "murkmire_grapnel_blue"];
  if (in_array($source, $sourceUnpreventable) || in_array($extraText, $sourceUnpreventable)) return false;
  if (($source == "pick_to_pieces_red" || $source == "pick_to_pieces_yellow" || $source == "pick_to_pieces_blue" || $extraText == "pick_to_pieces_red" || $extraText == "pick_to_pieces_yellow" || $extraText == "pick_to_pieces_blue") && NumAttackReactionsPlayed() > 0) return false;
  if ($source == "war_cry_of_bellona_yellow") return false;
  if ($damage >= 4 && $source == "batter_to_a_pulp_red") return false;
  return true;
}

function DealDamageAsync($player, $damage, $type, $source, $playerSource)
{
  global $combatChain, $CS_ArcaneDamagePrevention, $dqVars, $dqState, $mainPlayer;
  $classState = &GetPlayerClassState($player);
  if ($type == "COMBAT" || $type == "ATTACKHIT") $source = $combatChain[0];
  $otherPlayer = $player == 1 ? 2 : 1;
  $damage = $damage > 0 ? $damage : 0;
  $origDamage = $damage;
  $preventable = CanDamageBePrevented($player, $damage, $type, $source);
  if ($damage > 0) $damage += CurrentEffectDamageModifiers($player, $source, $type);
  if ($damage > 0) $damage += CombatChainDamageModifiers($player, $source, $type);
  if ($preventable) {
    if (ConsumeDamagePrevention($player)) return 0;//I damage can be prevented outright, don't use up your limited damage prevention
    if ($type == "ARCANE") {
      if ($damage <= $classState[$CS_ArcaneDamagePrevention]) {
        $classState[$CS_ArcaneDamagePrevention] -= $damage;
        $damage = 0;
      } else {
        $damage -= $classState[$CS_ArcaneDamagePrevention];
        $classState[$CS_ArcaneDamagePrevention] = 0;
      }
      SearchCurrentTurnEffects("enchanted_quiver", $player, remove:true);
    }
  }
  //else: CR 2.0 6.4.10h If damage is not prevented, damage prevention effects are not consumed
  $damage = $damage > 0 ? $damage : 0;
  //Prevention always checked and happens without user selection
  $damage = AuraTakeDamageAbilities($player, $damage, $type, $source);

  $dqVars[0] = $damage;
  if ($type == "COMBAT") {
    $dqState[6] = $damage;
    $playerSource = $mainPlayer;
  }
  PrependDecisionQueue("FINALIZEDAMAGE", $player, "$damage,$type,$source,$playerSource");
  //Prevention happens with user selection
  if ($damage > 0) AddDamagePreventionSelection($player, $damage, $type, $preventable, $source);
  if ($source == "runechant") {
    SearchCurrentTurnEffects("vynnset", $otherPlayer, true);
    SearchCurrentTurnEffects("vynnset_iron_maiden", $otherPlayer, true);
  }
  ResetAuraStatus($player);
  if($damage < $origDamage) LogDamagePreventedStats($player, $origDamage - $damage);
  return $damage;
}

function ResetAuraStatus($player)
{
  $auras = &GetAuras($player);
  for ($i = 0; $i < count($auras); $i += AuraPieces()) {
    switch ($auras[$i]) {
      case "runeblood_barrier_yellow":
        $auras[$i + 1] = 2;
        break;
      default:
        break;
    }
  }
}

function AddDamagePreventionSelection($player, $damage, $type, $preventable, $source)
{
  PrependDecisionQueue("PROCESSDAMAGEPREVENTION", $player, $damage . "-" . $preventable . "-" . $type . "-" . $source, 1);
  PrependDecisionQueue("CHOOSEMULTIZONE", $player, "<-", 1);
  PrependDecisionQueue("SETDQCONTEXT", $player, "Choose a card to prevent damage: " . $damage . " damage left", 1);
  PrependDecisionQueue("FINDINDICES", $player, "DAMAGEPREVENTION,$type,$damage,$preventable,$source");
}

function FinalizeDamage($player, $damage, $damageThreatened, $type, $source, $playerSource)
{
  global $otherPlayer, $CS_DamageTaken, $combatChainState, $CCS_AttackTotalDamage, $CS_ArcaneDamageTaken, $defPlayer, $mainPlayer;
  global $CS_DamageDealt, $CS_PowDamageDealt, $CS_DamageDealtToOpponent, $combatChain, $CS_ArcaneDamageDealtToOpponent;
  global $CurrentTurnEffects;
  $classState = &GetPlayerClassState($player);
  $otherPlayer = $player == 1 ? 2 : 1;
  if ($damage > 0) {
    if ($source != "NA") {
      $otherCharacter = &GetPlayerCharacter($otherPlayer);
      $characterID = ShiyanaCharacter($otherCharacter[0]);
      DamageDealtAbilities($player, $damage, $type, $source);
      if ($source == "dread_scythe" && !SearchNextTurnEffects("dread_scythe", $player)) AddNextTurnEffect("dread_scythe", $player);
      if (($characterID == "briar_warden_of_thorns" || $characterID == "briar") && $otherCharacter[1] == "2" && CardType($source) == "AA") {
        $otherCharacter[1] = 1;
        AddLayer("TRIGGER", $otherPlayer, $characterID, "-", "DAMAGE");
      }
      if ($source == "cryptic_crossing_yellow" && SearchCurrentTurnEffects("cryptic_crossing_yellow", $mainPlayer, true)) {
        WriteLog("Player " . $mainPlayer . " drew a card and Player " . $otherPlayer . " must discard a card");
        Draw($mainPlayer);
        PummelHit();
      }
    }
    AuraDamageTakenAbilities($player, $damage, $source, $playerSource);
    ItemDamageTakenAbilities($player, $damage);
    AuraDamageDealtAbilities($otherPlayer, $damage, $playerSource);
    if (SearchAuras("ode_to_wrath_yellow", $otherPlayer)) {
      LoseHealth(CountAura("ode_to_wrath_yellow", $otherPlayer), $player);
      WriteLog("Lost life from " . CardLink("ode_to_wrath_yellow", "ode_to_wrath_yellow"));
    }
    $classState[$CS_DamageTaken] += $damage;
    if (!IsAllyAttacking()) {
      if ($playerSource == $otherPlayer) IncrementClassState($otherPlayer, $CS_DamageDealtToOpponent, $damage);
    }
    else {
      $allyInd = SearchAlliesForUniqueID($combatChain[8], $otherPlayer);
      $allies = &GetAllies($otherPlayer);
      if($allyInd != -1) $allies[$allyInd + 10] += $damage;
    }
    // add ally tracking  here
    if ($type !== "COMBAT") SetClassState($otherPlayer, $CS_DamageDealt, GetClassState($otherPlayer, $CS_DamageDealt) + $damage);
    else SetClassState($otherPlayer, $CS_PowDamageDealt, GetClassState($otherPlayer, $CS_PowDamageDealt) + $damage);
    if ($player == $defPlayer && $type == "COMBAT" || $type == "ATTACKHIT") $combatChainState[$CCS_AttackTotalDamage] += $damage;
    if ($type == "ARCANE") $classState[$CS_ArcaneDamageTaken] += $damage;
    CurrentEffectDamageEffects($player, $source, $type, $damage);
  }
  if ($damage > 0 && ($type == "COMBAT" || $type == "ATTACKHIT") && SearchCurrentTurnEffects("ice_storm_red-2", $otherPlayer) && IsHeroAttackTarget()) {
    for ($i = 0; $i < $damage; ++$i) PlayAura("frostbite", $player, effectController:$otherPlayer);
  }
  if ($playerSource != $player) LogDamageStats($player, $damageThreatened, $damage);
  else LogLifeLossStats($player, $damage); //Self inflicting damage e.g. Flick Knives, Hexagore, etc.
  if ($type == "ARCANE" && $player != $playerSource) IncrementClassState($playerSource, $CS_ArcaneDamageDealtToOpponent, $damage);
  WriteLog("Player $player took $damage damage");
  PlayerLoseHealth($damage, $player);
  // mark once per damage instance effects as usable again
  for ($i = 0; $i < $CurrentTurnEffects->NumEffects(); ++$i) {
    $Effect = $CurrentTurnEffects->Effect($i, true);
    if ($Effect->PlayerID() != $player) continue;
    $effectArr = explode("-", $Effect->EffectID());
    switch ($effectArr[0]) {
      case "shelter_from_the_storm_red":
      case "calming_breeze_red":
        if ($effectArr[1] == $Effect->NumUses() + 1)
          $Effect->Replace("$effectArr[0]-" . $Effect->NumUses());
        break;
      default:
        break;
    }
  }
  return $damage;
}

function DamageDealtAbilities($player, $damage, $type, $source)
{
  global $mainPlayer, $combatChainState, $CCS_AttackFused;
  if (($source == "explosive_growth_red" || $source == "explosive_growth_yellow" || $source == "explosive_growth_blue") && $combatChainState[$CCS_AttackFused]) AddCurrentTurnEffect($source, $mainPlayer);
  if ($source == "suraya_archangel_of_knowledge") GainHealth($damage, $mainPlayer);
}

function DoQuell($targetPlayer, $damage)
{
  $quellChoices = QuellChoices($targetPlayer, $damage);
  if ($quellChoices != "0") {
    PrependDecisionQueue("PAYRESOURCES", $targetPlayer, "<-", 1);
    PrependDecisionQueue("AFTERQUELL", $targetPlayer, "-", 1);
    PrependDecisionQueue("BUTTONINPUT", $targetPlayer, $quellChoices);
    PrependDecisionQueue("SETDQCONTEXT", $targetPlayer, "Choose an amount to pay for Quell");
  } else {
    PrependDecisionQueue("PASSPARAMETER", $targetPlayer, "0"); //If no quell, we need to discard the previous last result
  }
}

function DoMbrioBaseVizier($player, $damage)
{
  if ($damage > 0) {
    PrependDecisionQueue("ADDTOLASTRESULT", $player, "{0}", 1);
    PrependDecisionQueue("PASSPARAMETER", $player, 1, 1); //prevent 1 damage
    PrependDecisionQueue("MZREMOVECOUNTER", $player, "<-", 1);
    PrependDecisionQueue("MAYCHOOSEMULTIZONE", $player, "<-", 1);
    PrependDecisionQueue("SETDQCONTEXT", $player, "Choose a ". Cardlink("hyper_driver", "hyper_driver")." to remove a steam counter to prevent one arcane", 1);
    PrependDecisionQueue("MULTIZONEINDICES", $player, "MYITEMS:isSameName=hyper_driver_red");
    PrependDecisionQueue("SETDQVAR", $player, "0", 1); // current damage prevention
  }
}

function PreventLethal($targetPlayer, $damage)
{
  global $CS_NextDamagePrevented;
  if (SearchHandForCard($targetPlayer, "minerva_themis") != "") {
    MZMoveCard($targetPlayer, "MYHAND", "MYBANISH,HAND'-");
    SetClassState($targetPlayer, $CS_NextDamagePrevented, $damage);
  }
  if (SearchArsenalForCard($targetPlayer, "minerva_themis") != "") {
    MZMoveCard($targetPlayer, "MYARS", "MYBANISH,ARS,-");
    SetClassState($targetPlayer, $CS_NextDamagePrevented, $damage);
  }
}

function ProcessDealDamageEffect($cardID)
{
  $set = CardSet($cardID);
  if ($set == "UPR") {
    return UPRDealDamageEffect($cardID);
  }
}

function ArcaneDamagePrevented($player, $cardMZIndex)
{
  $prevented = 0;
  $params = explode("-", $cardMZIndex);
  $zone = $params[0];
  if (!isset($params[1])) return $prevented;
  $index = $params[1];
  switch ($zone) {
    case "MYCHAR":
      $source = &GetPlayerCharacter($player);
      break;
    case "MYITEMS":
      $source = &GetItems($player);
      break;
    case "MYAURAS":
      $source = &GetAuras($player);
      break;
    case "MYALLY":
      $source = &GetAllies($player);
      break;
    default:
      $source = [];
      break;
  }
  if ($zone == "MYCHAR" && $source[$index + 1] == 0) return;
  if (!isset($source[$index])) WriteLog("Please report this bug to the developers. " . $zone . " " . $index, highlight:true);
    $cardID = $source[$index];
    $spellVoidAmount = SpellVoidAmount($cardID, $player, $index);
  if ($spellVoidAmount > 0) {
    if ($zone == "MYCHAR") DestroyCharacter($player, $index);
    else if ($zone == "MYITEMS") DestroyItemForPlayer($player, $index);
    else if ($zone == "MYAURAS") DestroyAura($player, $index);
    else if ($zone == "MYALLY") DestroyAlly($player, $index);
    $prevented += $spellVoidAmount;
    WriteLog(CardLink($cardID, $cardID) . " was destroyed and prevented " . $spellVoidAmount . " arcane damage.");
  }
  return $prevented;
}

function CurrentEffectDamageModifiers($player, $source, $type)
{
  global $currentTurnEffects, $mainPlayer;
  $modifier = 0;
  if($type == "ARCANE") return $modifier; //It's already checked upfront for Arcane
  for ($i = count($currentTurnEffects) - CurrentTurnEffectsPieces(); $i >= 0; $i -= CurrentTurnEffectsPieces()) {
    $remove = 0;
    switch ($currentTurnEffects[$i]) {
      case "frazzle_red":
      case "frazzle_yellow":
      case "frazzle_blue":
        if ($type == "COMBAT" || $type == "ATTACKHIT") ++$modifier;
        break;
      default:
        break;
    }
    if ($remove == 1) RemoveCurrentTurnEffect($i);
  }
  return $modifier;
}

function CombatChainDamageModifiers($player, $source, $type)
{
  global $chainLinks, $CombatChain, $mainPlayer, $CurrentTurnEffects;
  $modifier = 0;
  if($type == "ARCANE") return $modifier; //It's already checked upfront for Arcane
  if ($CombatChain->HasCurrentLink()) {
    switch ($CombatChain->AttackCard()->ID()) {
      case "ball_lightning_red":
      case "ball_lightning_yellow":
      case "ball_lightning_blue":
        if (TalentContainsAny($source, "LIGHTNING,ELEMENTAL", $mainPlayer) && (TypeContains($source, "A") || TypeContains($source, "AA"))) ++$modifier;
        break;
      default:
        break;
    }
  }
  for ($i = 0; $i < count($chainLinks); ++$i) {
    if ($chainLinks[$i][2] == 1) {
      switch ($chainLinks[$i][0]) {
        case "ball_lightning_red":
        case "ball_lightning_yellow":
        case "ball_lightning_blue":
          if (TalentContainsAny($source, "LIGHTNING,ELEMENTAL", $mainPlayer) && (TypeContains($source, "A") || TypeContains($source, "AA"))) ++$modifier;
          break;
        default:
          break;
      }
    }
  }
  for ($i = 0; $i < $CurrentTurnEffects->NumEffects(); ++$i) {
    $Effect = $CurrentTurnEffects->Effect($i, true);
    if ($Effect->PlayerID() == $mainPlayer) {
      switch ($Effect->EffectID()) {
        case "arc_bending_red":
          if (TalentContainsAny($source, "LIGHTNING,ELEMENTAL", $mainPlayer) && (TypeContains($source, "A") || TypeContains($source, "AA"))) ++$modifier;
          break;
        default:
          break;
      }
    }
  }
  return $modifier;
}

function CurrentEffectDamageEffects($target, $source, $type, $damage)
{
  global $currentTurnEffects, $EffectContext;
  $otherPlayer = ($target == 1 ? 2 : 1);
  if (CardType($source) == "AA" && (SearchAuras("stamp_authority_blue", 1) || SearchAuras("stamp_authority_blue", 2))) return;
  for ($i = count($currentTurnEffects) - CurrentTurnEffectsPieces(); $i >= 0; $i -= CurrentTurnEffectsPieces()) {
    if ($currentTurnEffects[$i + 1] == $target) {
      continue;
    }
    if ($type == "COMBAT" && HitEffectsArePrevented($source)) continue;
    $remove = 0;
    $EffectContext = $currentTurnEffects[$i];
    switch ($currentTurnEffects[$i]) {
      case "blizzard_bolt_red":
      case "blizzard_bolt_yellow":
      case "blizzard_bolt_blue":
        if (IsHeroAttackTarget() && CardType($source) == "AA")
          AddLayer("TRIGGER", $otherPlayer, $currentTurnEffects[$i], $target);
        break;
      case "chilling_icevein_red":
      case "chilling_icevein_yellow":
      case "chilling_icevein_blue":
        if (IsHeroAttackTarget() && CardType($source) == "AA")
          AddLayer("TRIGGER", $otherPlayer, $currentTurnEffects[$i], $target);
        break;
      case "blossoming_spellblade_red":
        if ($source == "blossoming_spellblade_red" && (IsHeroAttackTarget() || $type != "COMBAT"))
          MZMoveCard($target == 1 ? 2 : 1, "MYDISCARD:type=A", "MYBANISH,GY,blossoming_spellblade_red", may: true);
        break;
      case "sigil_of_permafrost_red":
      case "sigil_of_permafrost_yellow":
      case "sigil_of_permafrost_blue":
        if ((IsHeroAttackTarget() || IsHeroAttackTarget() == "" && $source != "frostbite") && $type == "ARCANE") {
          PlayAura("frostbite", $target, $damage, effectController:$otherPlayer);
          $remove = 1;
        }
        break;
      case "shift_the_tide_of_battle_yellow":
        if (IsHeroAttackTarget()) {
          PlayAura("agility", $otherPlayer); 
          $remove = 1;
        }
        break;
      case "staff_of_verdant_shoots": // So technically this procks if you deal damage to yourself but this would need to be refactored in order to make that work. Until someone has this happen, lets just leave it as so.
        if ($source != "frostbite" && $type == "ARCANE") {
          PlayAura("embodiment_of_earth", $currentTurnEffects[$i + 1], 1);
          $remove = 1;
        }
        break;
      default:
        break;
    }
    if ($remove == 1) RemoveCurrentTurnEffect($i);
  }
}

function AttackDamageAbilitiesTrigger($damageDone)
{
  global $combatChain, $defPlayer, $mainPlayer;
  $attackID = $combatChain[0];
  switch ($attackID) {
    case "light_it_up_yellow":
      if (IsHeroAttackTarget() && $damageDone >= NumEquipment($defPlayer)) {
        AddLayer("TRIGGER", $defPlayer, $attackID, $damageDone, "COMBAT");
      }
      break;
    case "jolly_bludger_yellow":
      if (IsHeroAttackTarget() && $damageDone > 0) {
        AddLayer("TRIGGER", $mainPlayer, $attackID, $damageDone, "COMBAT");
      }
      break;
    default:
      break;
  }
}

// The only difference between LoseHealth and PlayerLoseHealth is that LoseHealth logs the life lost as damage for the end games stats. 
// For effects like Toxicity, Remorseless, Arakni Tarantula, etc
function LoseHealth($amount, $player)
{
  LogDamageStats($player, $amount, $amount);
  PlayerLoseHealth($amount, $player);
}

function GainHealth($amount, $player, $silent = false, $preventable = true)
{
  global $mainPlayer, $CS_HealthGained;
  $otherPlayer = $player == 1 ? 2 : 1;
  $health = &GetHealth($player);
  $otherHealth = &GetHealth($otherPlayer);
  $p2Char = &GetPlayerCharacter($otherPlayer);
  if (SearchCurrentTurnEffects("dread_scythe", $player) && $preventable) {
    WriteLog(CardLink("dread_scythe", "dread_scythe") . " prevented you from gaining life");
    return false;
  }
  if ((SearchCurrentTurnEffects("deny_redemption_red", $player) || SearchCurrentTurnEffects("deny_redemption_red", $otherPlayer)) && $preventable) {
    WriteLog(CardLink("deny_redemption_red", "deny_redemption_red") . " prevented you from gaining life");
    return false;
  }
  if ((SearchCharacterForCard($player, "reaping_blade") || SearchCharacterForCard($otherPlayer, "reaping_blade") && $preventable) && $health > $otherHealth) {
    WriteLog("<span style='color:red;'>🗡️ " . CardLink("reaping_blade", "reaping_blade") . " prevented Player " . $player . " from gaining " . $amount . " life</span>");
    return false;
  }
  if ((SearchAurasForCard("parched_terrain_red", 1) != "" || SearchAurasForCard("parched_terrain_red", 2) != "") && $preventable) {
    WriteLog(CardLink("parched_terrain_red", "parched_terrain_red") . " prevents heroes from gaining " . ($amount == 1 ? "health" : $amount . " health"));
    return false;
  }
  if ((SearchCurrentTurnEffects("poison_the_well_blue", 1, remove: true) || SearchCurrentTurnEffects("poison_the_well_blue", 2, remove: true)) && $preventable) {
    WriteLog("<span style='color:green;'>🧪 Somebody poisoned the water hole.</span>");
    LoseHealth($amount, $player);
    return false;
  }
  if ((SearchCharacterActive($otherPlayer, "vestige_of_flagellation", setInactive:true)) && $preventable) {
    WriteLog("<span style='color:red;'>🩸 My pain gives me vigor!</span>");
    LoseHealth($amount, $otherPlayer);
    PlayAura("vigor", $otherPlayer, $amount);
    return false;
  }
  if (!$silent) WriteLog("Player " . $player . " gained " . $amount . " life");
  IncrementClassState($player, $CS_HealthGained, $amount);
  if($p2Char[0] != "DUMMY" || $player == 1) $health += $amount;
  LogLifeGainedStats($player, $amount);

  if ($player == $mainPlayer) {
    $char = &GetPlayerCharacter($player);
    for ($i = 0; $i < count($char); $i += CharacterPieces()) {
      if (intval($char[$i + 1]) != 2) continue;
      switch ($char[$i]) {
        case "verdance_thorn_of_the_rose":
          // Now we need to check that we banished 8 earth cards.
          $results = SearchCount(SearchMultiZone($player, "MYBANISH:talent=EARTH"));
          if ($results >= 8) {
            SetArcaneTarget($mainPlayer, $char[$i], 3);
            AddDecisionQueue("SHOWSELECTEDTARGET", $mainPlayer, "<-", 1);
            AddDecisionQueue("ADDTRIGGER", $mainPlayer, $char[$i], 1);
            // AddLayer("TRIGGER", $mainPlayer, $char[$i], 3);
          }
          break;
        case "verdance":
          // Now we need to check that we banished 4 earth cards.
          $results = SearchCount(SearchMultiZone($player, "MYBANISH:talent=EARTH"));
          if ($results >= 4) {
            SetArcaneTarget($mainPlayer, $char[$i], 3);
            AddDecisionQueue("SHOWSELECTEDTARGET", $mainPlayer, "<-", 1);
            AddDecisionQueue("ADDTRIGGER", $mainPlayer, $char[$i], 1);
            // AddLayer("TRIGGER", $mainPlayer, $char[$i], 3);
          }
          break;
        default:
          break;
      }
    }
  }
  return true;
}

// The only difference between LoseHealth and PlayerLoseHealth is that LoseHealth logs the life lost as damage for the end games stats.
function PlayerLoseHealth($amount, $player, $logStats = false)
{
  global $CS_HealthLost, $AIHasInfiniteHP;
  $health = &GetHealth($player);
  $amount = AuraLoseHealthAbilities($player, $amount);
  if($logStats) LogLifeLossStats($player, $amount); //Log the life lost in stats for effects that remove your own life like Beast Within, Flail of Agony, Blooddebt, etc
  if(!$AIHasInfiniteHP) $health -= $amount;
  IncrementClassState($player, $CS_HealthLost, $amount);
}

function IsGameOver()
{
  global $inGameStatus, $GameStatus_Over;
  return $inGameStatus == $GameStatus_Over;
}

function PlayerWon($playerID, $conceded = false)
{
  //NOTE: These globals might appear to be unused. It's because they're written by ParseGamefile.
  global $winner, $turn, $gameName, $p1id, $p2id, $p1uid, $p2uid, $p1IsChallengeActive, $p2IsChallengeActive, $currentTurn;
  global $p1DeckLink, $p2DeckLink, $inGameStatus, $GameStatus_Over, $firstPlayer, $p1deckbuilderID, $p2deckbuilderID, $CS_SkipAllRunechants, $gameGUID;
  if (IsGameOver()) return;
  include_once "./MenuFiles/ParseGamefile.php";
  SetClassState(1, $CS_SkipAllRunechants, 0);
  SetClassState(2, $CS_SkipAllRunechants, 0);
  SetCachePiece($gameName, 14, 99);//$MGS_GameOver
  $inGameStatus = $GameStatus_Over;
  $turn[0] = "OVER";
  $winner = $playerID;
  if ($playerID == 1 && $p1uid != "") WriteLog("Player 1 (" . $p1uid . ") won! 🎉", $playerID);
  else if ($playerID == 2 && $p2uid != "") WriteLog("Player 2 (" . $p2uid . ") won! 🎉", $playerID);
  elseif ($playerID == 0) {
    WriteLog("The game is a draw! no match stats reported");
  }
  else WriteLog("Player " . $winner . " won! 🎉");
  if (isPlayerAI(2)) return;
  try {
    logCompletedGameStats($conceded);
  } catch (Exception $e) {
  }
}

function UnsetChainLinkBanish()
{
  $p1Banish = new Banish(1);
  $p1Banish->UnsetBanishModifier("TCL");
  $p2Banish = new Banish(2);
  $p2Banish->UnsetBanishModifier("TCL");
}

function UnsetCombatChainBanish()
{
  $p1Banish = new Banish(1);
  $p1Banish->UnsetBanishModifier("TCL");
  $p1Banish->UnsetBanishModifier("TCC");
  $p1Banish->UnsetBanishModifier("TCCGorgonsGaze");
  $p2Banish = new Banish(2);
  $p2Banish->UnsetBanishModifier("TCL");
  $p2Banish->UnsetBanishModifier("TCC");
  $p2Banish->UnsetBanishModifier("TCCGorgonsGaze");
}

function ReplaceBanishModifier($player, $oldMod, $newMod)
{
  $banish = new Banish($player);
  $banish->UnsetBanishModifier($oldMod, $newMod);
}

//TT = This Turn
//NT = Next Turn
//INT = Intimidated
function UnsetTurnBanish()
{
  global $defPlayer, $mainPlayer;
  $p1Banish = new Banish(1);
  $p1Banish->UnsetBanishModifier("TT");
  $p1Banish->UnsetBanishModifier("INST");
  $p1Banish->UnsetBanishModifier("sonic_boom_yellow");
  $p1Banish->UnsetBanishModifier("blossoming_spellblade_red");
  $p1Banish->UnsetBanishModifier("TTFromOtherPlayer");
  $p1Banish->UnsetBanishModifier("shadowrealm_horror_red");
  $p1Banish->UnsetBanishModifier("REMOVEGRAVEYARD");
  $p1Banish->UnsetBanishModifier("BOOST");
  $p2Banish = new Banish(2);
  $p2Banish->UnsetBanishModifier("TT");
  $p2Banish->UnsetBanishModifier("INST");
  $p2Banish->UnsetBanishModifier("sonic_boom_yellow");
  $p2Banish->UnsetBanishModifier("blossoming_spellblade_red");
  $p2Banish->UnsetBanishModifier("TTFromOtherPlayer");
  $p2Banish->UnsetBanishModifier("shadowrealm_horror_red");
  $p2Banish->UnsetBanishModifier("REMOVEGRAVEYARD");
  $p2Banish->UnsetBanishModifier("BOOST");
  UnsetCombatChainBanish();
  ReplaceBanishModifier($defPlayer, "NT", "TT");
  ReplaceBanishModifier($defPlayer, "NTSTONERAIN", "STONERAIN");
  ReplaceBanishModifier($defPlayer, "TRAPDOOR", "DOWN");
  ReplaceBanishModifier($mainPlayer, "NTFromOtherPlayer", "TTFromOtherPlayer");
}

function ResetStolenCards()
{
  global $mainPlayer;
  UnsetItemModifier($mainPlayer, "Temporary");
  UnsetAllyModifier($mainPlayer, "Temporary");
}


function UnsetItemModifier($player, $modifier, $newMod = "-") {
  $Items = new Items($player);
  $otherPlayer = $player == 1 ? 2 : 1;
    for($i = $Items->NumItems() - 1; $i >= 0; --$i) {
      $ItemCard = $Items->Card($i, true);
      $cardModifier = $ItemCard->Modalities();
      if(DelimStringContains($cardModifier, $modifier)) {
        if ($cardModifier == $modifier) $ItemCard->SetModalities("-");
        else {
          $mods = explode(",", $cardModifier);
          $newMods = [];
          foreach ($mods as $mod) {
            if ($mod != $modifier) $newMods[] = $mod;
          }
          $ItemCard->SetModalities(implode(",", $newMods));
        }
        StealItem($player, $ItemCard->Index(), $otherPlayer, "THEIRITEM");
      }
    }
}

function UnsetAllyModifier($player, $modifier, $newMod = "-") {
  $allies = &GetAllies($player);
  $otherPlayer = $player == 1 ? 2 : 1;
    for($i=0; $i<count($allies); $i+=AllyPieces()) {
      $cardModifier = $allies[$i+14];
      if($cardModifier == $modifier) {
        $allies[$i+14] = "-";
        StealAlly($player, $i, $otherPlayer, "THEIRALLY", tapState:"-");
      }
    }
}

function GetChainLinkCards($playerID = "", $cardType = "", $exclCardTypes = "", $nameContains = "", $subType = "", $exclCardSubTypes = "", $asMZInd = false, $color = "")
{
  global $combatChain;
  $pieces = "";
  $exclCardTypeArray = explode(",", $exclCardTypes);
  $exclCardSubTypeArray = explode(",", $exclCardSubTypes);

  for ($i = 0; $i < count($combatChain); $i += CombatChainPieces()) {
    $thisType = CardType($combatChain[$i]);
    $thisSubType = CardSubType($combatChain[$i]);
    if ($color != "" && !ColorContains($combatChain[$i], $color, $combatChain[$i+1])) continue;
    if (($playerID == "" || $combatChain[$i + 1] == $playerID) && ($cardType == "" || TypeContains($combatChain[$i], $cardType, $playerID)) && ($subType == "" || $thisSubType == $subType) && ($nameContains == "" || CardNameContains($combatChain[$i], $nameContains, $playerID, partial: true))) {
      $excluded = false;
      for ($j = 0; $j < count($exclCardTypeArray); ++$j) {
        if ($thisType == $exclCardTypeArray[$j]) $excluded = true;
      }
      for ($k = 0; $k < count($exclCardSubTypeArray); ++$k) {
        if ($thisSubType != "" && DelimStringContains($thisSubType, $exclCardSubTypeArray[$k])) $excluded = true;
      }
      if ($excluded) continue;
      if ($pieces != "") $pieces .= ",";
      if (!$asMZInd) $pieces .= $i;
      else $pieces .= "COMBATCHAINLINK-$i";
    }
  }
  return $pieces;
}

function GetPastChainLinkCards($playerID = "", $cardType = "", $exclCardTypes = "", $nameContains = "", $subType = "", $exclCardSubTypes = "", $asMZInd = false, $blockingClass = "", $color = "") {
  global $chainLinks, $defPlayer, $mainPlayer;
  $ret = [];
  $exclCardTypeArray = explode(",", $exclCardTypes);
  $exclCardSubTypeArray = explode(",", $exclCardSubTypes);
  for ($i = 0; $i < count($chainLinks); ++$i) {
    if ($blockingClass != "" && !ClassContains($chainLinks[$i][0], $blockingClass, $mainPlayer)) continue;
    for ($j = 0; $j < count($chainLinks[$i]); $j += ChainLinksPieces()) {
      $cardID = $chainLinks[$i][$j];
      $thisType = CardType($cardID);
      $thisSubType = CardSubType($cardID);
      if ($color != "" && !ColorContains($cardID, $color, $chainLinks[$i][$j + 1])) continue;
      if (($playerID == "" || $chainLinks[$i][$j + 1] == $playerID) && ($cardType == "" || $thisType == $cardType) && ($subType == "" || $thisSubType == $subType) && ($nameContains == "" || CardNameContains($cardID, $nameContains, $playerID, partial: true))) {
        $excluded = false;
        for ($k = 0; $k < count($exclCardTypeArray); ++$k) {
          if ($thisType == $exclCardTypeArray[$k]) $excluded = true;
        }
        for ($k = 0; $k < count($exclCardSubTypeArray); ++$k) {
          if ($thisSubType != "" && DelimStringContains($thisSubType, $exclCardSubTypeArray[$k])) $excluded = true;
        }
        if ($excluded) continue;
        if (!$asMZInd) $ret[] = "$j-$i";
        else $ret[] = "PASTCHAINLINK-$j-$i";
      }
    }
  }
  return implode(",", $ret);
}

function GetChainLinkCardIDs($playerID = "", $cardType = "", $exclCardTypes = "", $nameContains = "", $subType = "", $exclCardSubTypes = "")
{
  global $combatChain;
  $cardIDs = "";
  $exclCardTypeArray = explode(",", $exclCardTypes);
  $exclCardSubTypeArray = explode(",", $exclCardSubTypes);
  for ($i = 0; $i < count($combatChain); $i += CombatChainPieces()) {
    $thisType = CardType($combatChain[$i]);
    $thisSubType = CardSubType($combatChain[$i]);
    if (($playerID == "" || $combatChain[$i + 1] == $playerID) && ($cardType == "" || $thisType == $cardType) && ($subType == "" || $thisSubType == $subType) && ($nameContains == "" || CardNameContains($combatChain[$i], $nameContains, $playerID, partial: true))) {
      $excluded = false;
      for ($j = 0; $j < count($exclCardTypeArray); ++$j) {
        if ($thisType == $exclCardTypeArray[$j]) $excluded = true;
      }
      for ($k = 0; $k < count($exclCardSubTypeArray); ++$k) {
        if ($thisSubType != "" && DelimStringContains($thisSubType, $exclCardSubTypeArray[$k])) $excluded = true;
      }
      if ($excluded) continue;
      if ($cardIDs != "") $cardIDs .= ",";
      $cardIDs .= $combatChain[$i];
    }
  }
  return $cardIDs;
}

function ChainLinkResolvedEffects()
{
  global $combatChain, $mainPlayer, $currentTurnEffects, $combatChainState, $CCS_WeaponIndex, $CombatChain, $CCS_GoesWhereAfterLinkResolves, $defPlayer;
  $allies = GetAllies($mainPlayer);
  if ($CombatChain->HasCurrentLink()) {
    if ($combatChain[0] == "exude_confidence_red" && !ExudeConfidenceReactionsPlayable()) AddCurrentTurnEffect($combatChain[0], $mainPlayer, "CC");
  }
  if (IsAllyAttacking() && isset($allies[$combatChainState[$CCS_WeaponIndex] + 2]) && $allies[$combatChainState[$CCS_WeaponIndex] + 2] <= 0) {
    DestroyAlly($mainPlayer, $combatChainState[$CCS_WeaponIndex]);
  }
}

function ResolutionStepEffectTriggers()
{
  global $currentTurnEffects, $chainLinks, $combatChain, $turn, $mainPlayer;
  for ($i = count($currentTurnEffects) - CurrentTurnEffectsPieces(); $i >= 0; $i -= CurrentTurnEffectsPieces()) {
    $currentEffect = explode("-", $currentTurnEffects[$i]);
    $parameter = $currentEffect[1] ?? "-";
    if (class_exists($currentEffect[0])) {
      $card = new $currentEffect[0]($currentTurnEffects[$i + 1]);
      if ($card->ResolutionStepEffectTriggers($parameter, $i)) RemoveCurrentTurnEffect($i);
    }
  }
}

function ResolutionStepCharacterTriggers()
{
  global $mainPlayer, $combatChain, $CombatChain;
  $character = &GetPlayerCharacter($mainPlayer);
  for ($i = 0; $i < count($character); $i += CharacterPieces()) {
    $charID = $character[$i];
    switch ($charID) {
      case "nuu_alluring_desire":
      case "nuu":
        if ($CombatChain->HasCurrentLink() && HasStealth($combatChain[0]) && $character[$i + 1] < 3) {
          AddLayer("TRIGGER", $mainPlayer, $charID, $combatChain[0]);
        }
        break;
      default:
        break;
    }
  }
}

function ResolutionStepAttackTriggers()
{
  global $mainPlayer, $defPlayer, $combatChain, $CombatChain, $CS_Transcended;
  if ($CombatChain->HasCurrentLink()) {
    $card = GetClass($combatChain[0], $mainPlayer);
    if ($card != "-") return $card->ResolutionStepAttackTriggers();
    switch ($combatChain[0]) {
      case "virulent_touch_red":
      case "virulent_touch_yellow":
      case "virulent_touch_blue":
        for ($i = CombatChainPieces(); $i < count($combatChain); $i += CombatChainPieces()) {
          if ($combatChain[$i + 1] != $defPlayer || $combatChain[$i + 2] != "HAND") continue;
          AddLayer("TRIGGER", $mainPlayer, $combatChain[0]);
          break;
        }
        break;
      case "second_tenet_of_chi_moon_blue":
        if (GetClassState($mainPlayer, $CS_Transcended) > 0) {
          AddLayer("TRIGGER", $mainPlayer, $combatChain[0]);
        }
        break;
      default:
        break;  
    }
  }
}

function ResolutionStepBlockTriggers() {
  global $defPlayer, $CombatChain;
  if ($CombatChain->HasCurrentLink()) {
    for ($i = $CombatChain->NumCardsActiveLink() - 1; $i > 0 ; --$i) {
      $ChainCard = $CombatChain->Card($i, true);
      if ($ChainCard->PlayerID() != $defPlayer) continue;
      $card = GetClass($ChainCard->ID(), $defPlayer);
      if ($card != "-") $card->ResolutionStepBlockTrigger($i);
    }
  }
}

function CombatChainClosedMainCharacterEffects()
{
  global $chainLinks, $mainPlayer;
  $character = &GetPlayerCharacter($mainPlayer);
  for ($i = 0; $i < count($chainLinks); ++$i) {
    for ($j = 0; $j < count($chainLinks[$i]); $j += ChainLinksPieces()) {
      if ($chainLinks[$i][$j + 1] != $mainPlayer) continue;
      $charIndex = FindCharacterIndex($mainPlayer, $chainLinks[$i][$j]);
      if ($charIndex == -1) continue;
      switch ($chainLinks[$i][$j]) {
        case "zephyr_needle":
        case "zephyr_needle_r":
          if ($character[$charIndex + 7] == "1") DestroyCharacter($mainPlayer, $charIndex);
          break;
        default:
          break;
      }
    }
  }
}

function CombatChainClosedItemEffects() {
  global $ChainLinks, $defPlayer, $chainLinkSummary, $mainPlayer;
  
  for ($i = 0; $i < $ChainLinks->NumLinks(); ++$i) {
    $nervesOfSteelActive = $chainLinkSummary[$i * ChainLinkSummaryPieces() + 1] <= 2 && SearchAuras("nerves_of_steel_blue", $defPlayer);
    $Link = $ChainLinks->GetLink($i);
    for ($j = 0; $j < $Link->NumCards(); ++$j) {
      $LinkCard = $Link->GetLinkCard($j, true);
      if ($LinkCard->PlayerID() != $defPlayer) continue;
      if (!$nervesOfSteelActive) {
        if (HasTemper($LinkCard->ID())) {
          // there will be issues if nitromechanoid is blocking on the combat chain and gets stolen
          $defItems = new Items($defPlayer);
          $blockingItem = $defItems->FindCardUID($LinkCard->OriginUniqueID());
          $blockingItem->AddDefCounters(-1);
          $blockingItem->ToggleOnChain(0);
          if (ModifiedBlockValue($blockingItem->CardID(), $defPlayer, "CC", "", $blockingItem->UniqueID()) + $blockingItem->NumDefCounters() + BlockModifier($blockingItem->CardID(), "CC", 0, "$i,$j") + $LinkCard->DefenseModifier() <= 0) {
            $blockingItem->Destroy();
          }
        }
      }
    }
  }
}

function CombatChainClosedCharacterEffects()
{
  global $chainLinks, $defPlayer, $chainLinkSummary, $mainPlayer;
  $character = &GetPlayerCharacter($defPlayer);
  $mainChar = &GetPlayerCharacter($mainPlayer);
  for ($i = 0; $i < count($chainLinks); ++$i) {
    $nervesOfSteelActive = $chainLinkSummary[$i * ChainLinkSummaryPieces() + 1] <= 2 && SearchAuras("nerves_of_steel_blue", $defPlayer);
    for ($j = 0; $j < count($chainLinks[$i]); $j += ChainLinksPieces()) {
      if ($chainLinks[$i][$j + 1] != $defPlayer) continue;
      $charIndex = FindCharacterIndexUniqueID($defPlayer, $chainLinks[$i][$j + 8]);
      if ($charIndex == -1) {
        $charIndex = SearchCharacterForUniqueID($chainLinks[$i][$j + 8], $mainPlayer);
        if ($charIndex == -1) continue;
        $equipCharacter = &$mainChar;
        $equipPlayer = $mainPlayer;
      }
      else {
        $equipCharacter = &$character;
        $equipPlayer = $defPlayer;
      }
      // Looks like sometimes the origin unique ID of cards blocking from hand can get mixed up
      if ($equipCharacter[$charIndex] != $chainLinks[$i][$j]) continue;
      if ($chainLinks[$i][$j] == "carrion_husk") {
        $character[$charIndex + 1] = 0;
        BanishCardForPlayer($chainLinks[$i][$j], $defPlayer, "EQUIP", "NA");
      }
      if (!$nervesOfSteelActive) {
        if (HasTemper($chainLinks[$i][$j])) {
          if (SubtypeContains($chainLinks[$i][$j], "Item")) {
            // there will be issues if nitromechanoid is blocking on the combat chain and gets stolen
            $defItems = new Items($defPlayer);
            $blockingItem = $defItems->FindCardUID($chainLinks[$i][$j + 8]);
            $blockingItem->AddDefCounters(-1);
            $blockingItem->ToggleOnChain(0);
            if (ModifiedBlockValue($blockingItem->CardID(), $defPlayer, "CC", "", $blockingItem->UniqueID()) + $blockingItem->NumDefCounters() + BlockModifier($blockingItem->CardID(), "CC", 0, "$i,$j") + $chainLinks[$i][$j + 5] <= 0) {
              $blockingItem->Destroy();
            }
          }
          else {
            if ($equipCharacter[$charIndex + 1] != 0 && $equipCharacter[$charIndex + 6] != 0) {
              $equipCharacter[$charIndex + 4] -= 1; //Add -1 block counter
              $equipCharacter[$charIndex + 6] = 0;
            }
            if (ModifiedBlockValue($equipCharacter[$charIndex], $defPlayer, "CC", "", $chainLinks[$i][$j + 8]) + $equipCharacter[$charIndex + 4] + BlockModifier($equipCharacter[$charIndex], "CC", 0, "$i,$j") + $chainLinks[$i][$j + 5] <= 0) {
              DestroyCharacter($equipPlayer, $charIndex);
            }
          }
        }
        elseif (HasBattleworn($chainLinks[$i][$j]) && $equipCharacter[$charIndex + 1] != 0) {
          $equipCharacter[$charIndex + 4] -= 1;//Add -1 block counter
        }
      }
      if (HasGuardwell($chainLinks[$i][$j]) && $equipCharacter[$charIndex + 1] != 0) {

        $blockModifier = ModifiedBlockValue($equipCharacter[$charIndex], $defPlayer, "CC", "", $chainLinks[$i][$j + 8]) + $equipCharacter[$charIndex + 4] + BlockModifier($equipCharacter[$charIndex], "CC", 0, "$i,$j") + $chainLinks[$i][$j + 5];//Add -block value counter
        $bladeBeckoner = ["blade_beckoner_helm", "blade_beckoner_plating", "blade_beckoner_gauntlets", "blade_beckoner_boots"];
        if (IsWeapon($chainLinks[$i][0], "PLAY") && in_array($chainLinks[$i][$j], $bladeBeckoner)) {
          $blockModifier += 1;
        }
        $blockModifier = $blockModifier < 0 ? 0 : $blockModifier;
        $equipCharacter[$charIndex + 4] -= $blockModifier;
      } 
      elseif (HasBladeBreak($chainLinks[$i][$j]) && $equipCharacter[$charIndex + 1] != 0) {
        DestroyCharacter($equipPlayer, $charIndex);
      }
      switch ($chainLinks[$i][$j]) {
        case "phantasmal_footsteps":
          if (!DelimStringContains($chainLinkSummary[$i * ChainLinkSummaryPieces() + 3], "ILLUSIONIST") && $chainLinkSummary[$i * ChainLinkSummaryPieces() + 1] >= 6) {
            DestroyCharacter($defPlayer, FindCharacterIndex($defPlayer, "phantasmal_footsteps"));
          }
          break;
        case "ironhide_helm":
        case "ironhide_plate":
        case "ironhide_gauntlet":
        case "ironhide_legs":
          $charIndex = FindCharacterIndex($defPlayer, $chainLinks[$i][$j]);
          if (SearchCurrentTurnEffects($chainLinks[$i][$j], $defPlayer, true)) DestroyCharacter($defPlayer, $charIndex); //Ironhide
          break;
        case "bone_vizier":
          $deck = new Deck($defPlayer);
          if ($deck->Reveal() && ModifiedPowerValue($deck->Top(), $defPlayer, "DECK", source: "bone_vizier") < 6) {
            $card = $deck->AddBottom($deck->Top(remove: true), "DECK");
            WriteLog("⬇️ " . CardLink("bone_vizier", "bone_vizier") . " put " . CardLink($card, $card) . " on the bottom of your deck");
          }
          break;
        default:
          break;
      }
    }
  }
}

function NumDefendedFromHand()
{
  global $CombatChain, $defPlayer;
  $num = 0;
  for ($i = 0; $i < $CombatChain->NumCardsActiveLink(); ++$i) {
    $chainCard = $CombatChain->Card($i, cardNumber: true);
    if ($chainCard->PlayerID() == $defPlayer) {
      // this used to explicitly exclude instant cards and I don't know why, removing for now
      if ($chainCard->From() == "HAND") ++$num;
    }
  }
  return $num;
}

function NumCardsBlocking()
{
  global $CombatChain, $defPlayer;
  $num = 0;
  for ($i = 0; $i < $CombatChain->NumCardsActiveLink(); ++$i) {
    $chainCard = $CombatChain->Card($i, cardNumber: true);
    if ($chainCard->PlayerID() == $defPlayer) {
      $type = CardType($chainCard->ID());
      // for some reason this explicitly excluded instants, not sure why, removing for now
      if ($type != "C") ++$num;
    }
  }
  return $num;
}

function NumCardsNonEquipBlocking()
{
  global $CombatChain, $defPlayer;
  $num = 0;
  for ($i = 0; $i < $CombatChain->NumCardsActiveLink(); ++$i) {
    $chainCard = $CombatChain->Card($i, cardNumber: true);
    if ($chainCard->PlayerID() == $defPlayer) {
      $type = CardType($chainCard->ID());
      // the following line specifically skipped Instants, and I don't know why. Teklo evos?
      if ($type != "E" && $type != "C") ++$num;
      if (DelimStringContains(CardSubType($chainCard->ID()), "Evo")) --$num;
    }
  }
  return $num;
}

function NumAttacksBlocking()
{
  global $CombatChain, $defPlayer;
  $num = 0;
  for ($i = 0; $i < $CombatChain->NumCardsActiveLink(); ++$i) {
    $chainCard = $CombatChain->Card($i, cardNumber: true);
    if ($chainCard->PlayerID() == $defPlayer && CardType($chainCard->ID()) == "AA") ++$num;
  }
  return $num;
}

function NumActionsBlocking()
{
  global $CombatChain, $defPlayer;
  $num = 0;
  for ($i = 0; $i < $CombatChain->NumCardsActiveLink(); ++$i) {
    $chainCard = $CombatChain->Card($i, cardNumber: true);
    if ($chainCard->PlayerID() == $defPlayer) {
      $type = CardType($chainCard->ID());
      if (DelimStringContains($type, "A") || $type == "AA") ++$num;
      if (DelimStringContains($type, "E")) {
        if (SubtypeContains($chainCard->ID(), "Evo" && $chainCard->ID() != "teklovossen_the_mechropotentb" && $chainCard->ID() != "nitro_mechanoidb")) {
          if (CardType(GetCardIDBeforeTransform($chainCard->ID())) == "A") ++$num;
        }
      }
    }
  }
  return $num;
}

function NumNonBlocksDefending()
{
  global $CombatChain, $defPlayer;
  $num = 0;
  for ($i = 0; $i < $CombatChain->NumCardsActiveLink(); ++$i) {
    $chainCard = $CombatChain->Card($i, cardNumber: true);
    if ($chainCard->PlayerID() == $defPlayer) {
      if (!TypeContains($chainCard->ID(), "B")) ++$num;
    }
  }
  return $num;
}

function GetCardIDBeforeTransform($cardID)
{
  $splitCard = explode("_", $cardID);
  return implode("_", array_slice($splitCard, 0, count($splitCard) - 1));
}

function PlayerHasLessHealth($player)
{
  $otherPlayer = $player == 1 ? 2 : 1;
  $playerHealth = GetHealth($player);
  $otherPlayerHealth = GetHealth($otherPlayer);
  $playerHasLineCrossers = FindCharacterIndex($player, "line_crossers") != -1;
  $otherPlayerHasLineCrossers = FindCharacterIndex($otherPlayer, "line_crossers") != -1;
  if ($playerHealth == $otherPlayerHealth) {
    if ($playerHasLineCrossers && $otherPlayerHasLineCrossers) return true;
    if ($playerHasLineCrossers && !$otherPlayerHasLineCrossers) return false;
    if (!$playerHasLineCrossers && $otherPlayerHasLineCrossers) return true;
  }
  return GetHealth($player) < GetHealth($otherPlayer);
}

function GetIndices($count, $add = 0, $pieces = 1, $zone="")
{
  $indices = [];
  for ($i = 0; $i < $count; $i += $pieces) {
    $ind = $zone == "" ? $i + $add : "$zone-" . $i + $add;
    array_push($indices, $ind);
  }
  return implode(",", $indices);
}

function RollDie($player, $fromDQ = false, $subsequent = false, $reroll = false)
{
  global $CS_DieRoll;
  $otherPlayer = $player == 1 ? 2 : 1;
  $numRolls = 1 + CountCurrentTurnEffects("ready_to_roll_blue", $player);
  $highRoll = 0;
  for ($i = 0; $i < $numRolls; ++$i) {
    $roll = GetRandom(1, 6, $reroll);
    WriteLog("🎲<b>" . $roll . "</b> was rolled.");
    if ($roll > $highRoll) $highRoll = $roll;
  }
  AddEvent("ROLL", $highRoll);
  SetClassState($player, $CS_DieRoll, $highRoll);
  $playerHasGamblersGloves = HasGamblersGloves($player);
  $otherPlayerHasGamblersGloves = HasGamblersGloves($otherPlayer);
  if (($playerHasGamblersGloves || $otherPlayerHasGamblersGloves) && !$reroll) {
    if ($fromDQ && !$subsequent) PrependDecisionQueue("AFTERDIEROLL", $player, "-");
    if ($playerHasGamblersGloves) GamblersGlovesReroll($player, $player); // reroll your own
    if ($otherPlayerHasGamblersGloves) GamblersGlovesReroll($otherPlayer, $player); //reroll ops
    if (!$fromDQ && !$subsequent) AddDecisionQueue("AFTERDIEROLL", $player, "-");
  } else {
    AfterDieRoll($player);
  }
}

function AfterDieRoll($player)
{
  global $CS_DieRoll, $CS_HighestRoll;
  $roll = GetClassState($player, $CS_DieRoll);
  $skullCrusherIndex = FindCharacterIndex($player, "skull_crushers");
  if ($skullCrusherIndex > -1 && IsCharacterAbilityActive($player, $skullCrusherIndex)) {
    if ($roll == 1) {
      WriteLog(CardLink("skull_crushers", "skull_crushers") . " was destroyed");
      DestroyCharacter($player, $skullCrusherIndex);
    }
    if ($roll == 5 || $roll == 6) {
      WriteLog(CardLink("skull_crushers", "skull_crushers") . " gives +1 this turn");
      AddCurrentTurnEffect("skull_crushers", $player);
    }
  }
  if ($roll > GetClassState($player, $CS_HighestRoll)) SetClassState($player, $CS_HighestRoll, $roll);
}

function HasGamblersGloves($player)
{
  $gamblersGlovesIndex = FindCharacterIndex($player, "gamblers_gloves");
  return $gamblersGlovesIndex != -1 && IsCharacterAbilityActive($player, $gamblersGlovesIndex);
}

function IsCharacterAbilityActive($player, $index, $checkGem = false)
{
  $character = &GetPlayerCharacter($player);
  if (!isset($character[$index])) return false;
  if ($checkGem && ($character[$index + 9] ?? 0) == 0) return false;
  if (($character[$index + 12] ?? "DOWN") == "DOWN") return false;
  return $character[$index + 1] == 2;
}

function GetDieRoll($player)
{
  global $CS_DieRoll;
  return GetClassState($player, $CS_DieRoll);
}

function ClearDieRoll($player)
{
  global $CS_DieRoll;
  return SetClassState($player, $CS_DieRoll, 0);
}


function GetBanishModifier($index)
{
  global $currentPlayer;
    $banish = GetBanish($currentPlayer);
    if ($index < count($banish)) {
      return explode("-", $banish[$index + 1])[0];
    }
  return "";
}

function CanPlayAsInstant($cardID, $index = -1, $from = "", $secondCheck = false)
{
  global $currentPlayer, $CS_NextWizardNAAInstant, $CS_NextNAAInstant, $CS_CharacterIndex, $CS_ArcaneDamageTaken, $CS_NumWizardNonAttack;
  global $mainPlayer, $CS_PlayedAsInstant, $CS_HealthLost, $CS_NumAddedToSoul, $layers, $CombatChain;
  global $combatChainState, $CCS_EclecticMag, $CS_ArcaneDamageDealt;
  $otherPlayer = $currentPlayer == 1 ? 2 : 1;
  $cardType = CardType($cardID);
  $subtype = CardSubType($cardID);
  $otherCharacter = &GetPlayerCharacter($otherPlayer);

  // cards whose ability lets you play them at instant speed
  $card = GetClass($cardID, $currentPlayer);
  if ($card != "-") if ($card->CanPlayAsInstant($index, $from)) return true;
  switch ($cardID) {
    case "snapback_red":
    case "snapback_yellow":
    case "snapback_blue":
      if (GetClassState($currentPlayer, $CS_NumWizardNonAttack)) return true;
      break;
    case "cindering_foresight_red":
    case "cindering_foresight_yellow":
    case "cindering_foresight_blue":
      if ($currentPlayer != $mainPlayer) return true;
      break;
    case "rejuvenate_red":
    case "rejuvenate_yellow":
    case "rejuvenate_blue":
      if (PlayerHasFused($currentPlayer)) return true;
      break;
    case "blessing_of_salvation_red":
    case "blessing_of_salvation_yellow":
    case "blessing_of_salvation_blue":
    case "cleansing_light_red":
    case "cleansing_light_yellow":
    case "cleansing_light_blue":
      if (GetClassState($currentPlayer, $CS_NumAddedToSoul) > 0) return true;
      break;
    case "rattle_bones_red":
      if (GetClassState($otherPlayer, $CS_ArcaneDamageTaken) > 0) return true;
      break;
    case "funeral_moon_red":
    case "requiem_for_the_damned_red":
    case "cull_red":
      if (GetClassState($currentPlayer, $CS_HealthLost) > 0 || GetClassState($otherPlayer, $CS_HealthLost) > 0) return true;
      break;
    case "astral_etchings_red":
    case "astral_etchings_yellow":
    case "astral_etchings_blue":
      if (SearchAuras("spectral_shield", $currentPlayer)) return true;
      break;
    case "succumb_to_temptation_yellow":
      if (GetClassState($currentPlayer, $CS_ArcaneDamageDealt) > 0) return true;
      break;
    default:
      break;
  }

  if (CardNameContains($cardID, "Lumina Ascension", $currentPlayer) && SearchItemsForCard("spirit_of_eirina_yellow", $currentPlayer) != "") return true;
  if (DelimStringContains($cardType, "A") && GetClassState($currentPlayer, $CS_NextWizardNAAInstant) && ClassContains($cardID, "WIZARD", $currentPlayer)) return true;
  if (!IsStaticType($cardType, $from, $cardID) && DelimStringContains($cardType, "A") && GetClassState($currentPlayer, $CS_NextNAAInstant)) return true;
  if (DelimStringContains($cardType, "A") && $currentPlayer == $mainPlayer && $combatChainState[$CCS_EclecticMag]) return true;
  if ($cardType == "C" || $cardType == "E" || $cardType == "W") {
    if ($index == -1) $index = GetClassState($currentPlayer, $CS_CharacterIndex);
    if (SearchCharacterEffects($currentPlayer, $index, "INSTANT")) return true;
  }
  if ($from == "BANISH") {
    $banish = GetBanish($currentPlayer);
    if ($index > -1 && $index < count($banish)) {
      if ($banish[$index + 1] !== null) {
        $mod = explode("-", $banish[$index + 1])[0];
        if (DelimStringContains($cardType, "I") && ($mod == "TCL" || $mod == "TT" || $mod == "TCC" || $mod == "NT" || $mod == "spew_shadow_red" || str_contains($mod, "shadowrealm_horror_red")) || $mod == "INST" || $mod == "sonic_boom_yellow" || $mod == "blossoming_spellblade_red") return true;
      }
    }
  }
  if (GetClassState($currentPlayer, $CS_PlayedAsInstant) == "1") return true;
  if (SearchCurrentTurnEffects("meridian_pathway", $currentPlayer) && SubtypeContains($cardID, "Aura", $currentPlayer) && $from != "PLAY") return true;
  if (SubtypeContains($cardID, "Evo") && GetResolvedAbilityType($cardID, $from, $currentPlayer) != "AA") {
    if (SearchCurrentTurnEffects("teklovossen_esteemed_magnate", $currentPlayer) || SearchCurrentTurnEffects("teklovossen", $currentPlayer)) return true;
    if (SearchCurrentTurnEffects("scrap_compactor_red", $currentPlayer) || SearchCurrentTurnEffects("scrap_compactor_yellow", $currentPlayer) || SearchCurrentTurnEffects("scrap_compactor_blue", $currentPlayer)) return true;
  }
  if ($from == "ARS" && DelimStringContains($cardType, "A") && $currentPlayer != $mainPlayer && ColorContains($cardID, 3, $currentPlayer) && (SearchCharacterActive($currentPlayer, "iyslander") || SearchCharacterActive($currentPlayer, "iyslander_stormbind") || SearchCharacterActive($currentPlayer, "iyslander") || SearchCharacterActive($currentPlayer, "shiyana_diamond_gemini") && SearchCurrentTurnEffects($otherCharacter[0] . "-SHIYANA", $currentPlayer) && IsIyslander($otherCharacter[0]))) return true;
  if ($from == "ARS" && DelimStringContains($cardType, "A") && $currentPlayer != $mainPlayer ) {
    $crArsenal = &GetArsenal($currentPlayer);
    for ($i = 0; $i < count($crArsenal); $i += ArsenalPieces()) {
      if (SearchCurrentTurnEffects("chain_reaction_yellow" . "-" . $crArsenal[$i + 5], $currentPlayer)) return true;
    }
    for ($i = 0; $i < count($layers); $i += LayerPieces()) {
      if (SearchCurrentTurnEffects("chain_reaction_yellow" . "-" . $layers[$i + 5], $currentPlayer)) return true;
    }
  }
  if (ClassContains($cardID, "ILLUSIONIST", $currentPlayer) && DelimStringContains($subtype, "Aura") && SearchCurrentTurnEffects("vengeful_apparition_red-INST", $currentPlayer) && CardCost($cardID, $from) <= 2) return true;
  if (ClassContains($cardID, "ILLUSIONIST", $currentPlayer) && DelimStringContains($subtype, "Aura") && SearchCurrentTurnEffects("vengeful_apparition_yellow-INST", $currentPlayer) && CardCost($cardID, $from) <= 1) return true;
  if (ClassContains($cardID, "ILLUSIONIST", $currentPlayer) && DelimStringContains($subtype, "Aura") && SearchCurrentTurnEffects("vengeful_apparition_blue-INST", $currentPlayer) && CardCost($cardID, $from) <= 0) return true;
  if (DelimStringContains($subtype, "Aura") && SearchCurrentTurnEffects("fluttersteps", $currentPlayer)) return true;
  $isStaticType = IsStaticType($cardType, $from, $cardID);
  $abilityType = "-";
  if ($isStaticType) $abilityType = GetAbilityType($cardID, $index, $from);
  if (($cardType == "AR" || $abilityType == "AR" && $isStaticType) && IsReactionPhase() && $currentPlayer == $mainPlayer) return true;
  if (($cardType == "DR" || $abilityType == "DR" && $isStaticType) && IsReactionPhase() && $currentPlayer != $mainPlayer && IsDefenseReactionPlayable($cardID, $from)) return true;
  if ($from == "DECK" && (SearchCharacterActive($currentPlayer, "dash_io") || SearchCharacterActive($currentPlayer, "dash_database"))) return true;

  if (!$secondCheck || $layers[0] == "ABILITY") { // when checking if something *was* played at instant speed, this check only makes sense if the ability was used
    $card = GetClass($cardID, $currentPlayer);
    if ($card != "-") return $card->CanActivateAsInstant($index, $from); //rename this function to "CanActivateAsInstant"
    switch ($cardID) { // cards that can be *activated* at instant speed
      case "mighty_windup_red":
      case "mighty_windup_yellow":
      case "mighty_windup_blue":
      case "agile_windup_red":
      case "agile_windup_yellow":
      case "agile_windup_blue":
      case "vigorous_windup_red":
      case "vigorous_windup_yellow":
      case "vigorous_windup_blue":
      case "ripple_away_blue":
      case "fruits_of_the_forest_red":
      case "fruits_of_the_forest_yellow":
      case "fruits_of_the_forest_blue":
      case "trip_the_light_fantastic_red":
      case "trip_the_light_fantastic_yellow":
      case "trip_the_light_fantastic_blue":
      case "haunting_rendition_red":
      case "mental_block_blue":
      case "chorus_of_the_amphitheater_red":
      case "chorus_of_the_amphitheater_yellow":
      case "chorus_of_the_amphitheater_blue":
      case "arcane_twining_red":
      case "arcane_twining_yellow":
      case "arcane_twining_blue":
      case "photon_splicing_red":
      case "photon_splicing_yellow":
      case "photon_splicing_blue":
      case "reapers_call_red":
      case "reapers_call_yellow":
      case "reapers_call_blue":
      case "shelter_from_the_storm_red":
      case "tip_off_red":
      case "tip_off_yellow":
      case "tip_off_blue":
      case "war_cry_of_themis_yellow":
      case "war_cry_of_bellona_yellow":
      case "deny_redemption_red":
      case "bam_bam_yellow":
      case "outside_interference_blue":
        return $from == "HAND";
      case "light_up_the_leaves_red":
        return $from == "HAND" && SearchCount(SearchHand($currentPlayer, talent: "EARTH")) > 1;
      case "under_the_trap_door_blue":
        return $from == "HAND" && SearchDiscard($currentPlayer, subtype: "Trap") != "";
      case "burn_bare":
        if ($from != "HAND") return false;
        return IsPhantasmActive();
      case "fearless_confrontation_blue":
        if ($from != "HAND") return false;
        if ($CombatChain->HasCurrentLink()) return true;
        if (IsLayerStep()) return true;
        if (IsResolutionStep()) return true;
        return false;
      default:
        break;
    }
  }
  return false;
}

function ClassOverride($cardID, $player)
{
  global $currentTurnEffects;
  $cardClass = "";
  $otherPlayer = $player == 1 ? 2 : 1;
  $otherCharacter = &GetPlayerCharacter($otherPlayer);
  $mainCharacter = &GetPlayerCharacter($player);

  // With the rules as of today it's correct. HVY Release Notes Disclaimer. CR2.6 - 6.3.6. Continuous effects that remove a property, or part of a property, from an object do not removeproperties, or parts of properties, that were added by another effect.
  if (HasUniversal($cardID)) { //Universal
    $cardClass = CardClass($mainCharacter[0]);
  }
  if (SearchCurrentTurnEffects("phantasmal_symbiosis_yellow-" . GamestateSanitize(CardName($cardID)), $player)) { //Phantasmal Symbiosis
    if ($cardClass != "") $cardClass .= ",";
    $cardClass .= "ILLUSIONIST";
  }
  for ($i = 0; $i < count($currentTurnEffects); $i += CurrentTurnEffectPieces()) {
    if (!isset($currentTurnEffects[$i + 1])) continue;
    if ($currentTurnEffects[$i + 1] != $player) continue;
    $classToAdd = "";
    switch ($currentTurnEffects[$i]) {
      case "phantasmify_red":
      case "phantasmify_yellow":
      case "phantasmify_blue":
        $classToAdd = "ILLUSIONIST";
        break; //Phantasmify
      case "veiled_intentions_red":
      case "veiled_intentions_yellow":
      case "veiled_intentions_blue":
        $classToAdd = "ILLUSIONIST";
        break; //Veiled Intentions
      case "transmogrify_red":
      case "transmogrify_yellow":
      case "transmogrify_blue":
        $classToAdd = "ILLUSIONIST";
        break; //Transmogrify
      default:
        break;
    }
    if ($classToAdd != "") {
      if ($cardClass != "") $cardClass .= ",";
      $cardClass .= $classToAdd;
    }
  }
  if (SearchCurrentTurnEffects($otherCharacter[0] . "-SHIYANA", $player)) {
    if ($cardClass != "") $cardClass .= ",";
    $cardClass .= CardClass($otherCharacter[0]) . ",SHAPESHIFTER";
  }
  if (!SearchCurrentTurnEffects("erase_face_red", $player)) {
    if ($cardClass != "") $cardClass .= ",";
    $cardClass .= CardClass($cardID);
  }
  if ($cardClass == "") return "NONE";
  return $cardClass;
}

function NameOverride($cardID, $player = "")
{
  $name = CardName($cardID);
  if (SearchCurrentTurnEffects("amnesia_red", $player)) $name = "";
  return $name;
}

function ColorOverride($cardID, $player = "")
{
  global $CurrentTurnEffects;
  $pitch = PitchValue($cardID);
  if ($cardID == "goldfin_harpoon_yellow") $pitch = 2;
  if (SearchCurrentTurnEffects("blanch_red", $player)) $pitch = 0;
  if (SearchCurrentTurnEffects("blanch_yellow", $player)) $pitch = 0;
  if (SearchCurrentTurnEffects("blanch_blue", $player)) $pitch = 0;
  for ($i = 0; $i < $CurrentTurnEffects->NumEffects(); ++$i) {
    $Effect = $CurrentTurnEffects->Effect($i, true);
    $effectParams = explode("-", $Effect->EffectID());
    switch ($effectParams[0]) {
      case "become_the_cup_red":
      case "become_the_cup_yellow":
      case "become_the_cup_blue":
        $pitchToAdd = match ($effectParams[1] ?? "-") {
        "Red" => 1, "Yellow" => 2, "Blue" => 3, default => 0
        };
        if ($pitchToAdd != 0) {
          if ($pitch == 0) $pitch = $pitchToAdd;
          else $pitch = "$pitch,$pitchToAdd";
        }
        break;
      default:
      break;  
    }
  }
  return $pitch;
}

function ClassContains($cardID, $class, $player)
{
  $cardClass = ClassOverride($cardID, $player);
  if ($cardClass != "GENERIC" && $player != "" && SearchPermanentsForCard($player, "shapeshifter") != "") return true;
  return DelimStringContains($cardClass, $class);
}

function ColorContains($cardID, $color, $player)
{
  switch ($color) {
    case "Red":
      $pitchValue = 1;
      break;
    case "Yellow":
      $pitchValue = 2;
      break;
    case "Blue":
      $color = 3;
      break;
    default:
      $pitchValue = $color;
  }
  $cardColor = ColorOverride($cardID, $player);
  return DelimStringContains($cardColor, $pitchValue);
}

function ArsenalHasColor($player, $color)
{
  $arsenal = &GetArsenal($player);
  for ($i = 0; $i < count($arsenal); $i += ArsenalPieces()) {
    if ($arsenal[$i + 1] == "UP" && ColorContains($arsenal[$i], $color, $player)) return true;
  }
  return false;
}

function PitchContains($cardID, $pitch)
{
  $cardPitch = PitchValue($cardID);
  return $cardPitch == $pitch;
}

function TypeContains($cardID, $type, $player = "", $partial = false, $from = "-", $index = -1)
{
  $cardType = CardTypeExtended($cardID, $from, $index);
  return DelimStringContains($cardType, $type, $partial);
}

function SubtypeContains($cardID, $subtype, $player = "", $uniqueID = "")
{
  global $currentTurnEffects;
  $cardSubtype = CardSubtype($cardID);
  if ($cardID == "adaptive_plating") {
    for ($i = 0; $i < count($currentTurnEffects); $i += CurrentTurnEffectsPieces()) {
      $effect = explode(",", $currentTurnEffects[$i]);
      if ($effect[0] == "adaptive_plating-" . $uniqueID) return DelimStringContains($currentTurnEffects[$i], $subtype, true);
    }
  }
  if ($cardID == "adaptive_dissolver") {
    if($subtype == "Base") return true;
    for ($i = 0; $i < count($currentTurnEffects); $i += CurrentTurnEffectsPieces()) {
      $effect = explode(",", $currentTurnEffects[$i]);
      if ($effect[0] == "adaptive_dissolver-" . $uniqueID) return DelimStringContains($currentTurnEffects[$i], $subtype, true);
    }
  }
  if ($cardID == "adaptive_alpha_mold") {
    if($subtype == "Base") return true;
    for ($i = 0; $i < count($currentTurnEffects); $i += CurrentTurnEffectsPieces()) {
      $effect = explode(",", $currentTurnEffects[$i]);
      if ($effect[0] == "adaptive_alpha_mold-" . $uniqueID) return DelimStringContains($currentTurnEffects[$i], $subtype, true);
    }
  }
  return DelimStringContains($cardSubtype, $subtype);
}

function CardNameContains($cardID, $name, $player = "", $partial = false) // This isn't actually a contains operation. It's an equals unless you turn partial to true.
{
  global $currentTurnEffects;
  $cardName = NameOverride($cardID, $player);
  for ($i = 0; $i < count($currentTurnEffects); $i += CurrentTurnEffectPieces()) {
    $effectArr = explode("-", $currentTurnEffects[$i]);
    $modName = CurrentEffectNameModifier($effectArr[0], count($effectArr) > 1 ? GamestateUnsanitize($effectArr[1]) : "N/A", $player, $cardID);
    if ($partial) {
      $modName = explode(" ", $modName);
      $modName = implode(",", $modName);
    }
    //You have to do this at the end, or you might have a recursive loop -- e.g. with head_leads_the_tail_red
    if ($modName != "" && $currentTurnEffects[$i + 1] == $player && DelimStringContains($modName, $name, $partial)) return true;
  }
  if ($partial) {
    $cardName = explode(" ", $cardName);
    $cardName = implode(",", $cardName);
  }
  if ($cardName == $name) return true; //Card is breaking due to comma
  return DelimStringContains($cardName, $name, $partial);
}

function TalentOverride($cardID, $player = "", $zone="-")
{
  global $currentTurnEffects;
  $cardTalent = "";
  for ($i = 0; $i < count($currentTurnEffects); $i += CurrentTurnEffectPieces()) {
    $talentToAdd = "";
    if (!isset($currentTurnEffects[$i + 1])) continue;
    if ($currentTurnEffects[$i + 1] != $player) continue;
    switch ($currentTurnEffects[$i]) {
      case "brand_with_cinderclaw_red":
      case "brand_with_cinderclaw_yellow":
      case "brand_with_cinderclaw_blue":
      case "enflame_the_firebrand_red":
        if (TypeContains($cardID, "AA") || TypeContains($cardID, "W") || SubtypeContains($cardID, "Ally")) {
          $talentToAdd = "DRACONIC"; //Brand of Cinderclaw
        }
        break;
      case "blessing_of_vynserakai_red":
        $talentToAdd = "DRACONIC";
        break;
      case "fealty": //Fealty
        $cardType = CardType($cardID);
        if (!TypeContains($cardID, "W") && !TypeContains($cardID, "AA") && !IsStaticType($cardType)) { // We'll need to add cases for Allies and Emperor Attacking
          $talentToAdd = "DRACONIC";
        }
        break;
      case "fealty-ATTACK":
        if (!TypeContains($cardID, "W") && TypeContains($cardID, "AA")) {
          $talentToAdd = "DRACONIC";
        }
        break;
      default:
        break;
    }
    if ($talentToAdd != "") {
      if ($cardTalent == "NONE") $cardTalent = "";
      if ($cardTalent != "") $cardTalent .= ",";
      $cardTalent .= $talentToAdd;
    }
  }
  if (!SearchCurrentTurnEffects("erase_face_red", $player)) {
    if ($cardTalent != "") $cardTalent .= ",";
    $cardTalent .= CardTalent($cardID, $zone);
  }
  if ($cardID == "colors_of_aria_red" && ($zone == "HAND"|| $zone == "DECK")) {
    return "ELEMENTAL";
  }
  if ($cardTalent == "") return "NONE";
  return $cardTalent;
}

function TalentContains($cardID, $talent, $player = "")
{
  $cardTalent = TalentOverride($cardID, $player);
  if ($cardTalent != "NONE" && $player != "" && SearchPermanentsForCard($player, "shapeshifter") != "") return true;
  return DelimStringContains($cardTalent, $talent);
}

//talents = comma delimited list of talents to check
function TalentContainsAny($cardID, $talents, $player = "", $zone="-")
{
  $cardTalent = TalentOverride($cardID, $player, $zone);
  //Loop over current turn effects to find modifiers
  $talentArr = explode(",", $talents);
  for ($i = 0; $i < count($talentArr); ++$i) {
    if (DelimStringContains($cardTalent, $talentArr[$i])) return true;
  }
  return false;
}

function RevealCards($cards, $player = "", $look=false)
{
  global $currentPlayer;
  if ($player == "") $player = $currentPlayer;
  if (!$look && !CanRevealCards($player)) return false;
  if ($cards == "") return true;
  $cardArray = explode(",", $cards);
  $string = "👁️‍🗨️";
  for ($i = 0; $i < count($cardArray); ++$i) {
    if ($string != "👁️‍🗨️") $string .= ", ";
    if (CardName($cardArray[$i]) == "") { //in case the card gets passed as an MZIndex
      $card = GetMZCard($player, $cardArray[$i]);
    }
    else $card = $cardArray[$i];
    $string .= CardLink($card, $card);
    AddEvent("REVEAL", $card);
  }
  $string .= (count($cardArray) == 1 ? " is" : " are");
  $string .= " revealed";
  WriteLog($string);
  if ($player != "" && SearchLandmark("korshem_crossroad_of_elements") && !$look) {
    KorshemRevealAbility($player);
  }
  return true;
}

function RevealHand($player) {
  $hand = &GetHand($player);
  $cards = "";
  if (empty($hand)) return true;
  for ($i = 0; $i < count($hand); $i += HandPieces()) {
    if (isset($hand[$i])) { 
      if ($cards != "") $cards .= ",";
      $cards .= $hand[$i];
    } 
  }
  $revealed = RevealCards($cards, $player);
  return $revealed;
}

function DoesAttackHaveGoAgain()
{
  global $CombatChain, $combatChainState, $CCS_CurrentAttackGainedGoAgain, $mainPlayer, $defPlayer, $CS_Num6PowDisc;
  global $CS_NumAuras, $CS_ArcaneDamageTaken, $CS_AnotherWeaponGainedGoAgain, $CS_NumRedPlayed, $CS_NumNonAttackCards;
  global $CS_NumItemsDestroyed, $CCS_WeaponIndex, $CS_NumCharged, $CS_NumCardsDrawn, $CS_Transcended;
  global $CS_NumLightningPlayed, $CCS_NumInstantsPlayedByAttackingPlayer, $CS_ActionsPlayed, $CS_FealtyCreated;
  global $chainLinks, $chainLinkSummary, $CCS_FlickedDamage, $defPlayer, $CS_NumStealthAttacks, $combatChain;
  global $CS_ArcaneDamageDealt, $CurrentTurnEffects;
  $attackID = $CombatChain->AttackCard()->ID();
  $from = $combatChain[2] ?? "CC";
  $attackType = CardType($attackID);
  $attackSubtype = CardSubType($attackID);
  $isAura = DelimStringContains(CardSubtype($attackID), "Aura");

  //Prevention Natural Go Again
  if (CurrentEffectPreventsGoAgain($attackID, $from)) return false;
  if (SearchCurrentTurnEffects("blizzard_blue", $mainPlayer)) return false;
  if (SearchCurrentTurnEffects("rainbow_goo_trap_red", $mainPlayer)) return false;

  //Natural Go Again
  if (!$isAura && HasGoAgain($attackID, "ATTACK")) return true;

  //Prevention Grant Go Again
  if (SearchAuras("hypothermia_blue", $mainPlayer)) return false;

  //Grant go Again
  $auras = &GetAuras($mainPlayer);
  $actionsPlayed = explode(",", GetClassState($mainPlayer, $CS_ActionsPlayed));
  $numActions = count($actionsPlayed);
  if (ClassContains($attackID, "ILLUSIONIST", $mainPlayer)) {
    if (SearchCharacterForCard($mainPlayer, "luminaris") && SearchPitchForColor($mainPlayer, 2) > 0) return true;
    if ($isAura && SearchCharacterForCard($mainPlayer, "iris_of_reality")) return true;
  }
  if ($isAura && SearchCharacterForCard($mainPlayer, "cosmo_scroll_of_ancestral_tapestry") && isset($auras[$combatChainState[$CCS_WeaponIndex] + 3]) ? $auras[$combatChainState[$CCS_WeaponIndex] + 3] > 0 : false) return true;
  if ($combatChainState[$CCS_CurrentAttackGainedGoAgain] == 1 || CurrentEffectGrantsGoAgain() || MainCharacterGrantsGoAgain()) {
    $combatChainState[$CCS_CurrentAttackGainedGoAgain] = 1;
    return true;
  }

  if ($attackType == "AA" && ClassContains($attackID, "ILLUSIONIST", $mainPlayer) && SearchAuras("ode_to_wrath_yellow", $mainPlayer)) return true;
  if (DelimStringContains($attackSubtype, "Dragon") && GetClassState($mainPlayer, $CS_NumRedPlayed) > 0 && (SearchCharacterActive($mainPlayer, "dromai_ash_artist") || SearchCharacterActive($mainPlayer, "dromai") || SearchCurrentTurnEffects("dromai_ash_artist-SHIYANA", $mainPlayer) || SearchCurrentTurnEffects("dromai-SHIYANA", $mainPlayer))) return true;
  if (SearchItemsForCard("mhz_script_yellow", $mainPlayer) != "" && $attackType == "AA" && ClassContains($CombatChain->AttackCard()->ID(), "MECHANOLOGIST", $mainPlayer)) return true;
  if (SearchCurrentTurnEffectsForCycle("engaged_swiftblade_red", "engaged_swiftblade_yellow", "engaged_swiftblade_blue", $mainPlayer) && ClassContains($CombatChain->AttackCard()->ID(), "WARRIOR", $mainPlayer) && NumAttacksBlocking() > 0) return true;
  
  if (SearchCurrentTurnEffects("first_tenet_of_chi_wind_blue", $mainPlayer) && PitchValue($CombatChain->AttackCard()->ID()) == 3 && $CombatChain->AttackCard()->From() != "PLAY") return true;
  if (SearchCurrentTurnEffects("spreading_mist_blue-GOAGAIN", $mainPlayer) && $CombatChain->AttackCard()->From() != "PLAY") return true;

  if ((SearchCurrentTurnEffects("arc_lightning_yellow-GOAGAIN", $mainPlayer)) && $CombatChain->AttackCard()->From() != "PLAY" && $attackType == "AA") return true;
  if (IsWeaponGreaterThanTwiceBasePower() && SearchAuras("sharpened_senses_yellow", $mainPlayer) && IsWeaponAttack()) return true;
  if (SearchCurrentTurnEffects("goldkiss_rum", $mainPlayer)) return true;
  //the last action in numActions is going to be the current chain link
  //so we want the second to last to be current funnel, and 3rd to last to be lightning
  $character = &GetPlayerCharacter($mainPlayer);
  for ($i = 0; $i < count($character); $i += CharacterPieces()) {
    if ($character[$i + 1] != 2) continue;
    $characterID = ShiyanaCharacter($character[$i]);
    switch ($characterID) {
      case "arakni_solitary_confinement": case "arakni_5lp3d_7hru_7h3_cr4x":
        if (HasStealth($attackID) && GetClassState($mainPlayer, piece: $CS_NumStealthAttacks) == 1) {
          return true;
        }
        break;
      default:
        break;
    }
  }
  $otherPlayerCharacter = &GetPlayerCharacter($defPlayer);
  for ($j = 0; $j < count($otherPlayerCharacter); $j += CharacterPieces()) {
    if ($otherPlayerCharacter[$j + 1] != 2) continue;
    switch ($otherPlayerCharacter[$j]) {
      case "arakni_5lp3d_7hru_7h3_cr4x":
        if (HasStealth($attackID) && GetClassState($mainPlayer, $CS_NumStealthAttacks) == 1) {
          return true;
        }
        break;
      default:
        break;
    }
  }
  $mainPitch = &GetPitch($mainPlayer);
   if (HasHighTide($attackID) && HighTideConditionMet($mainPlayer)) {
    switch ($attackID) {
      case "conqueror_of_the_high_seas_red":
      case "swiftwater_sloop_red":
      case "swiftwater_sloop_yellow":
      case "swiftwater_sloop_blue":
        return true;
      default:
        return false;
    }
  }
  $card = GetClass($attackID, $mainPlayer);
  if ($card != "-") return $card->DoesAttackHaveGoAgain();
  switch ($attackID) {
    case "harmonized_kodachi":
    case "harmonized_kodachi_r":
      return SearchCount(SearchPitch($mainPlayer, minCost: 0, maxCost: 0)) > 0;
    case "mugenshi_release_yellow":
    case "hurricane_technique_yellow":
      return ComboActive($attackID);
    case "open_the_center_red":
    case "open_the_center_yellow":
    case "open_the_center_blue":
      return ComboActive($attackID);
    case "rising_knee_thrust_red":
    case "rising_knee_thrust_yellow":
    case "rising_knee_thrust_blue":
      return ComboActive($attackID);
    case "whelming_gustwave_red":
    case "whelming_gustwave_yellow":
    case "whelming_gustwave_blue":
      return ComboActive($attackID);
    case "last_ditch_effort_blue":
      $deck = new Deck($mainPlayer);
      return $deck->Empty();
    case "vigor_rush_red":
    case "vigor_rush_yellow":
    case "vigor_rush_blue":
      return GetClassState($mainPlayer, $CS_NumNonAttackCards) > 0;
    case "mandible_claw":
    case "mandible_claw_r":
      return GetClassState($mainPlayer, $CS_Num6PowDisc) > 0;
    case "barraging_big_horn_red":
    case "barraging_big_horn_yellow":
    case "barraging_big_horn_blue":
      if (NumCardsNonEquipBlocking() < 2) return true;
    case "crane_dance_red":
    case "crane_dance_yellow":
    case "crane_dance_blue":
      return ComboActive($attackID);
    case "rushing_river_red":
    case "rushing_river_yellow":
    case "rushing_river_blue":
      return ComboActive($attackID);
    case "meat_and_greet_red":
    case "meat_and_greet_yellow":
    case "meat_and_greet_blue":
      return GetClassState($defPlayer, $CS_ArcaneDamageTaken) > 0;
    case "battlefield_blitz_red":
    case "battlefield_blitz_yellow":
    case "battlefield_blitz_blue":
      return GetClassState($mainPlayer, $CS_NumCharged) > 0;
    case "take_flight_red":
    case "take_flight_yellow":
    case "take_flight_blue":
      return GetClassState($mainPlayer, $CS_NumCharged) > 0;
    case "rip_through_reality_red":
    case "rip_through_reality_yellow":
    case "rip_through_reality_blue":
      return GetClassState($defPlayer, $CS_ArcaneDamageTaken) > 0;
    case "soul_reaping_red":
    case "ursur_the_soul_reaper":
      return count(GetSoul($defPlayer)) > 0 && IsHeroAttackTarget();
    case "pulping_red":
    case "pulping_yellow":
    case "pulping_blue":
      return NumCardsNonEquipBlocking() < 2;
    case "out_muscle_red":
    case "out_muscle_yellow":
    case "out_muscle_blue":
      return SearchHighestAttackDefended() < CachedTotalPower();
    case "zealous_belting_red":
    case "zealous_belting_yellow":
    case "zealous_belting_blue":
      return SearchPitchHighestAttack($mainPitch) > PowerValue($attackID, $mainPlayer, "CC");
    case "rites_of_lightning_red":
    case "rites_of_lightning_yellow":
    case "rites_of_lightning_blue":
      return GetClassState($mainPlayer, $CS_ArcaneDamageDealt) > 0;
    case "boltn_shot_red":
    case "boltn_shot_yellow":
    case "boltn_shot_blue":
      return CachedTotalPower() > PowerValue($attackID, $mainPlayer, "CC");
    case "swarming_gloomveil_red":
      return GetClassState($mainPlayer, $CS_NumAuras) > 0;
    case "searing_emberblade":
      return NumDraconicChainLinks() >= 2;
    case "cinderskin_devotion_red":
    case "cinderskin_devotion_yellow":
    case "cinderskin_devotion_blue":
      return NumDraconicChainLinks() >= 2;
    case "lava_vein_loyalty_red":
    case "lava_vein_loyalty_yellow":
    case "lava_vein_loyalty_blue":
      return NumDraconicChainLinks() >= 2;
    case "phoenix_form_red":
      return NumChainLinksWithName("Phoenix Flame") >= 1;
    case "blaze_headlong_red":
      return GetClassState($mainPlayer, $CS_NumRedPlayed) > 1;
    case "tiger_swipe_red":
      return ComboActive($attackID);
    case "pouncing_qi_red":
    case "pouncing_qi_yellow":
    case "pouncing_qi_blue":
      return ComboActive($attackID);
    case "quicksilver_dagger":
    case "quicksilver_dagger_r":
      return GetClassState($mainPlayer, $CS_AnotherWeaponGainedGoAgain) != "-";
    case "teklo_leveler":
      return EvoUpgradeAmount($mainPlayer) >= 3;
    case "soup_up_red":
    case "soup_up_yellow":
    case "soup_up_blue":
      return GetClassState($mainPlayer, $CS_NumItemsDestroyed) > 0;
    case "hot_streak":
      $attackUID = $CombatChain->AttackCard()->OriginUniqueID();
      $FoundEffect = $CurrentTurnEffects->FindSpecificEffect($attackID, $attackUID);
      return $FoundEffect->Index() != -1;
    case "cintari_sellsword":
      return true;
    case "second_tenet_of_chi_wind_blue":
      return GetClassState($mainPlayer, $CS_Transcended) > 0;
    case "chase_the_tail_red":
      return ComboActive($attackID);
    case "aspect_of_tiger_body_red":
    case "aspect_of_tiger_soul_yellow":
    case "aspect_of_tiger_mind_blue":
      return ComboActive($attackID);
    case "rising_speed_red":
    case "rising_speed_yellow":
    case "rising_speed_blue":
      return GetClassState($mainPlayer, $CS_NumCardsDrawn) > 0;
    case "breed_anger_red":
    case "breed_anger_yellow":
    case "breed_anger_blue":
      return ComboActive($attackID);
    case "photon_rush_red":
    case "photon_rush_blue":
    case "star_fall":
      return GetClassState($mainPlayer, $CS_NumLightningPlayed) > 0;
    case "current_funnel_blue":
      //the last action in numActions is going to be the current chain link
      //so we want the second to last
      return count($actionsPlayed) > 1 && TalentContains($actionsPlayed[$numActions-2], "LIGHTNING", $mainPlayer);
    case "flittering_charge_red":
    case "flittering_charge_yellow":
    case "flittering_charge_blue":
      if (isset($combatChainState[$CCS_NumInstantsPlayedByAttackingPlayer])) { // the first time this is checked in a chain it isn't set but the rest of the time it can be checked.
        return $combatChainState[$CCS_NumInstantsPlayedByAttackingPlayer] > 0;
      } else return false;
    case "runerager_swarm_red":
    case "runerager_swarm_yellow":
    case "runerager_swarm_blue":
      return GetClassState($mainPlayer, $CS_NumAuras) > 0;
    case "gustwave_of_the_second_wind_red":
      return ComboActive($attackID);
    case "burning_blade_dance_red":
      return NumDraconicChainLinks() > 1;
    case "hot_on_their_heels_red":
    case "mark_with_magma_red":
      return NumDraconicChainLinks() >= 2;
    case "art_of_the_dragon_blood_red":
      $attackUniqueID = $CombatChain->AttackCard()->UniqueID();
      return SearchCurrentTurnEffects("art_of_the_dragon_blood_red-$attackUniqueID", $mainPlayer);
    case "grow_wings_red":
    case "grow_wings_yellow":
    case "grow_wings_blue":
      return isPreviousLinkDraconic();
    case "march_of_loyalty_red":
      return GetClassState($mainPlayer, $CS_FealtyCreated) > 0;
    case "cut_through_red":
    case "cut_through_yellow":
    case "cut_through_blue":
      $numDaggerHits = 0;
        for($i=0; $i<count($chainLinks); ++$i)
        {
          if(SubtypeContains($chainLinks[$i][0], "Dagger") && $chainLinkSummary[$i*ChainLinkSummaryPieces()] > 0) ++$numDaggerHits;
        }
        $numDaggerHits += $combatChainState[$CCS_FlickedDamage];
      return $numDaggerHits > 0;
    case "retrace_the_past_blue":
      return SearchCurrentTurnEffectsForIndex("retrace_the_past_blue", $mainPlayer) != -1;
    case "seek_vengeance_red":
    case "seek_vengeance_blue":
    case "vengeance_never_rests_blue":
      return ComboActive($attackID);
    default:
      return false;
  }
}

function DestroyCurrentWeapon()
{
  global $combatChainState, $CCS_WeaponIndex, $mainPlayer;
  $index =  $combatChainState[$CCS_WeaponIndex];
  $char = &GetPlayerCharacter($mainPlayer);
  $char[$index + 7] = "1";
}

function BlockCardDestroyed($cardID, $player)
{
  global $defPlayer;
  $card = GetClass($cardID, $player);
  if ($card != "-") $card->BlockCardDestroyed();
  switch ($cardID) {
    default:
      break;
  }
  MercifulTriggers($defPlayer, $cardID);
}

function AttackDestroyed($attackID)
{
  global $mainPlayer, $combatChainState, $CCS_GoesWhereAfterLinkResolves;
  switch ($attackID) {
    case "miraging_metamorph_red":
      MirragingMetamorphDestroyed();
      break;
    case "coalescence_mirage_red":
    case "coalescence_mirage_yellow":
    case "coalescence_mirage_blue":
      CoalescentMirageDestroyed();
      break;
    case "phantasmal_haze_red":
    case "phantasmal_haze_yellow":
    case "phantasmal_haze_blue":
      PlayAura("spectral_shield", $mainPlayer);
      break;
    case "dunebreaker_cenipai_red":
    case "dunebreaker_cenipai_yellow":
    case "dunebreaker_cenipai_blue":
      PutPermanentIntoPlay($mainPlayer, "ash");
      break;
    case "embermaw_cenipai_red":
    case "embermaw_cenipai_yellow":
    case "embermaw_cenipai_blue":
      PutPermanentIntoPlay($mainPlayer, "ash");
      break;
    default:
      break;
  }
  AttackDestroyedEffects($attackID);
  CharacterAttackDestroyedAbilities($attackID);
  MercifulTriggers($mainPlayer, $attackID);
}

function AttackDestroyedEffects($attackID)
{
  global $currentTurnEffects, $mainPlayer;
  for ($i = 0; $i < count($currentTurnEffects); $i += CurrentTurnEffectPieces()) {
    switch ($currentTurnEffects[$i]) {
      case "veiled_intentions_red":
      case "veiled_intentions_yellow":
      case "veiled_intentions_blue":
        Draw($mainPlayer);
        break;
      default:
        break;
    }
  }
}

function CloseCombatChain($chainClosed = true)
{
  global $turn, $currentPlayer, $mainPlayer, $combatChainState, $CCS_AttackTarget, $layers, $Stack;

  if (count($layers) <= LayerPieces() && isset($layers[0]) && isPriorityStep($layers[0])) $layers = [];//In case there's another combat chain related layer like defense step
  $steps = ["ATTACKSTEP", "DEFENDSTEP"];
  foreach ($steps as $step) {
    $Step = $Stack->FindCardID($step);
    if ($Step != "") $Step->Negate();
  }
  for ($i = 0; $i < $Stack->NumLayers(); $i++) { //7.7.3
    $Layer = $Stack->Card($i, true);
    if (TypeContains($Layer->ID(), "DR") || TypeContains($Layer->ID(), "AR")) {
      $Layer->Negate("GY");
    }
  }
  $resolutionStep = $Stack->FindCardID("FINALIZECHAINLINK");
  $closeStep = $Stack->FindCardID("CLOSESTEP");
  if(!$chainClosed) FinalizeChainLink(!$chainClosed);
  elseif ($resolutionStep == "" && $closeStep == "") PrependLayer("CLOSESTEP", $mainPlayer, $chainClosed);
  $turn[0] = "M";
  $currentPlayer = $mainPlayer;
  $combatChainState[$CCS_AttackTarget] = "NA";
}

function UndestroyCharacter($player, $index, $resetCounters=true)
{
  $char = &GetPlayerCharacter($player);
  $char[$index + 1] = 2;
  if ($resetCounters) $char[$index + 4] = 0;
}

function DestroyCharacter($player, $index, $skipDestroy = false, $wasBanished = false)
{
  if ($index == -1) return "";
  global $CombatChain;
  $char = &GetPlayerCharacter($player);
  $linkedEffect = $char[$index] . "-" . $char[$index + 11];
  SearchCurrentTurnEffects($linkedEffect, $player, true);
  $char[$index + 1] = 0;
  $char[$index + 2] = 0;
  $char[$index + 3] = 0;
  $char[$index + 4] = 0;
  $char[$index + 7] = "0"; //avoid it getting double destroyed
  $cardID = $char[$index];
  if ($char[$index + 6] == 1) $CombatChain->Remove(GetCombatChainIndex($cardID, $player));
  $char[$index + 6] = 0;
  if (!isSubcardEmpty($char, $index) && !$skipDestroy) {
    $subcards = explode(',', $char[$index + 10]);
    $subcardsCount = count($subcards);
    for ($i = 0; $i < $subcardsCount; $i++) {
      if ($wasBanished)
        BanishCardForPlayer($subcards[$i], $player, "CHAR");
      else
        AddGraveyard($subcards[$i], $player, "CHAR");
    }
  }
  $char[$index + 10] = "-";
  if (!$skipDestroy) {
    if (HasWard($cardID, $player)) WardPoppedAbility($player, $char[$index]);
    if (HasWard($cardID, $player) && ClassContains($cardID, "ILLUSIONIST", $player)) PhantomTidemawDestroy($player);
    if (!$wasBanished) AddGraveyard($cardID, $player, "CHAR");
    CharacterDestroyEffect($cardID, $player);
  }
  RemoveCharacter($player, $index);
  return $cardID;
}

function RemoveCharacter($player, $index)
{
  global $combatChainState, $CCS_WeaponIndex;
  if ($index == -1) return "";
  if ($combatChainState[$CCS_WeaponIndex] > $index) { //account for shifting down
    $combatChainState[$CCS_WeaponIndex] -= CharacterPieces();
  }
  $char = &GetPlayerCharacter($player);
  $ret = $char[$index];
  $card = GetClass($ret, $player);
  if ($card != "-") $card->LeavesPlayAbility($index, $char[$index+11], "CHAR", true);
  for ($i = 0; $i < CharacterPieces(); ++$i) {
    unset($char[$index + $i]);
  }
  $char = array_values($char);
  return $ret;
}

function RemoveCharacterAndAddAsSubcardToCharacter($player, $index, &$newCharactersSubcardIndex)
{
  global $CombatChain;
  $char = &GetPlayerCharacter($player);
  $cardID = $char[$index];
  if ($cardID != "NONE00") { //bit of a bandaid fix
    if ($char[0] == "teklovossen_the_mechropotent") AddSoul($cardID, $player, "-");
    if ($char[$index + 6] == 1) $CombatChain->Remove(GetCombatChainIndex($cardID, $player));
    if (!isSubcardEmpty($char, $index)) {
      $subcards = explode(',', $char[$index + 10]);
      $subcardsCount = count($subcards);
      for ($i = 0; $i < $subcardsCount; $i++) {
        if ($char[0] == "teklovossen_the_mechropotent") AddSoul($subcards[$i], $player, "-");
        if (isSubcardEmpty($char, $newCharactersSubcardIndex)) $char[$newCharactersSubcardIndex + 10] = $subcards[$i];
        else $char[$newCharactersSubcardIndex + 10] = $char[$newCharactersSubcardIndex + 10] . "," . $subcards[$i];
      }
    }
    CharacterDestroyEffect($cardID, $player);
    if (isSubcardEmpty($char, $newCharactersSubcardIndex)) $char[$newCharactersSubcardIndex + 10] = $cardID;
    else $char[$newCharactersSubcardIndex + 10] = $char[$newCharactersSubcardIndex + 10] . "," . $cardID;
    $characterPieces = CharacterPieces();
    if ($newCharactersSubcardIndex > $index) $newCharactersSubcardIndex -= $characterPieces;
    for ($i = 0; $i < $characterPieces; $i++) array_splice($char, $index, 1);
    UpdateSubcardCounterCount($player, $newCharactersSubcardIndex);
  }
}

function RemoveItemAndAddAsSubcardToCharacter($player, $itemIndex, $newCharactersSubcardIndex)
{
  $items = &GetItems($player);
  $char = &GetPlayerCharacter($player);
  $itemPieces = ItemPieces();
  $cardID = $items[$itemIndex];
  if (isSubcardEmpty($char, $newCharactersSubcardIndex)) $char[$newCharactersSubcardIndex + 10] = $cardID;
  else $char[$newCharactersSubcardIndex + 10] = $char[$newCharactersSubcardIndex + 10] . "," . $cardID;
  for ($i = 0; $i < $itemPieces; $i++) array_splice($items, $itemIndex, 1);
  if ($char[$newCharactersSubcardIndex] == "nitro_mechanoida") UpdateSubcardCounterCount($player, $newCharactersSubcardIndex);
}

function UpdateSubcardCounterCount($player, $index)
{
  $char = &GetPlayerCharacter($player);

  if (empty($char[$index + 10])) $char[$index + 2] = 0;
  else $char[$index + 2] = count(explode(",", $char[$index + 10]));
}

function RemoveArsenalEffects($player, $cardToReturn, $uniqueID)
{
  $otherPlayer = $player == 1 ? 2 : 1;
  if ($uniqueID == SearchCurrentTurnEffects("dreadbore", $player, returnUniqueID: true)) SearchCurrentTurnEffects("dreadbore", $player, true);
  if ($uniqueID == SearchCurrentTurnEffects("bulls_eye_bracers", $player, returnUniqueID: true)) SearchCurrentTurnEffects("bulls_eye_bracers", $player, true);
  if ($uniqueID == SearchCurrentTurnEffects("glidewell_fins", $player, returnUniqueID: true)) SearchCurrentTurnEffects("glidewell_fins", $player, true);
  if ($uniqueID == SearchCurrentTurnEffects("remorseless_red", $otherPlayer, returnUniqueID: true)) SearchCurrentTurnEffects("remorseless_red", $otherPlayer, true); 
  $arrowWithEffects = ["head_shot_red", "head_shot_yellow", "head_shot_blue", "dry_powder_shot_red", "swift_shot_red"];
  if (in_array($cardToReturn, $arrowWithEffects)) {
    $index = SearchCurrentTurnEffectsForUniqueID($uniqueID);
    if ($index != -1) RemoveCurrentTurnEffect($index);
  }
}

function LookAtHand($player, $look=true)
{
  $hand = &GetHand($player);
  $cards = "";
  for ($i = 0; $i < count($hand); $i += HandPieces()) {
    if ($cards != "") $cards .= ",";
    $cards .= $hand[$i];
  }
  RevealCards($cards, $player, look:$look);
}

function LookAtArsenal($player, $look=true)
{
  $arsenal = &GetArsenal($player);
  for ($i = 0; $i < count($arsenal); $i += ArsenalPieces()) {
    if ($arsenal[$i + 1] == "DOWN") {
      RevealCards($arsenal[$i], $player, look:$look);
    }
  }
}

function GainActionPoints($amount = 1, $player = 0)
{
  global $actionPoints, $mainPlayer, $currentPlayer;
  if ($player == 0) $player = $currentPlayer;
  if ($player == $mainPlayer) $actionPoints += $amount;
}

function AddCharacterUses($player, $index, $numToAdd)
{
  $character = &GetPlayerCharacter($player);
  if ($character[$index + 1] == 0) return;
  $character[$index + 1] = 2;
  $character[$index + 5] += $numToAdd;
}

function HaveUnblockedEquip($player)
{
  $restriction = ""; // This just needs to exist cause IsBlockRestricted uses a reference op on it.
  $char = &GetPlayerCharacter($player);
  $mechanoidIndex = SearchItemForIndex("nitro_mechanoidc", $player);
  if ($mechanoidIndex != -1) {
    $items = &GetItems($player);
    if ($items[$mechanoidIndex + 13] == 0) return true;
  }
  for ($i = CharacterPieces(); $i < count($char); $i += CharacterPieces()) {
    if ($char[$i + 1] == 0) continue;//If broken
    if ($char[$i + 6] == 1) continue;//On combat chain
    if ($char[$i + 12] == "DOWN") continue; //Face-down
    if (!TypeContains($char[$i], "E", $player)) continue;
    if (BlockValue($char[$i]) == -1) continue;
    if (IsBlockRestricted($char[$i], $restriction, $player)) continue; //If restricted via something like stasis cell
    return true;
  }
  return false;
}

function NumEquipBlock($from="-")
{
  global $combatChain, $defPlayer, $combatChainState, $CCS_RequiredEquipmentBlock;
  $numEquipBlock = 0;
  for ($i = CombatChainPieces(); $i < count($combatChain); $i += CombatChainPieces()) {
    $Card = new ChainCard($i);
    if ($from != "-" && $Card->From() != $from) continue;
    if (DelimStringContains(CardSubType($combatChain[$i]), "Evo") && $combatChain[$i + 1] == $defPlayer && $combatChainState[$CCS_RequiredEquipmentBlock] < 1) ++$numEquipBlock; // Working, but technically wrong until we get CardTypeContains
    else if (TypeContains($combatChain[$i], "E", $defPlayer) && $combatChain[$i + 1] == $defPlayer) ++$numEquipBlock;
  }
  return $numEquipBlock;
}

function HaveUnblockedNegCounterEquip($player)
{
  $char = &GetPlayerCharacter($player);
  for ($i = CharacterPieces(); $i < count($char); $i += CharacterPieces()) {
    if ($char[$i + 1] == 0) continue;//If broken
    if ($char[$i + 4] == 0) continue;//No negative counters
    if ($char[$i + 6] == 1) continue;//On combat chain
    if ($char[$i + 12] == "DOWN") continue; //Face-down
    if (!TypeContains($char[$i], "E", $player)) continue;
    if (BlockValue($char[$i]) == -1) continue;
    return true;
  }
  return false;
}

function NumNegCounterEquipBlock()
{
  global $combatChain, $defPlayer, $combatChainState, $CCS_RequiredNegCounterEquipmentBlock;
  $numNegCounterEquipBlock = 0;
  $defChar = GetPlayerCharacter($defPlayer);
  for ($i = CombatChainPieces(); $i < count($combatChain); $i += CombatChainPieces()) {
    if ($combatChain[$i + 2] == "EQUIP" && TypeContains($combatChain[$i], "E", $defPlayer) && $combatChain[$i+1] == $defPlayer) {
      $uid = $combatChain[$i + 8];
      $charIndex = SearchCharacterForUniqueID($uid, $defPlayer);
      if ($charIndex != -1 && $defChar[$charIndex + 4] < 0) ++$numNegCounterEquipBlock;
    }
  }
  return $numNegCounterEquipBlock;
}

function CanPassPhase($phase)
{
  global $combatChainState, $CCS_RequiredEquipmentBlock, $currentPlayer, $CCS_RequiredNegCounterEquipmentBlock;
  if ($phase == "B" && HaveUnblockedEquip($currentPlayer) && NumEquipBlock("EQUIP") < $combatChainState[$CCS_RequiredEquipmentBlock]) {
    return false;
  }
  if ($phase == "B" && HaveUnblockedNegCounterEquip($currentPlayer) && NumNegCounterEquipBlock() < $combatChainState[$CCS_RequiredNegCounterEquipmentBlock]) {
    return false;
  }
  switch ($phase) {
    case "P":
    case "CHOOSEDECK":
    case "CHOOSETHEIRDECK":
    case "HANDTOPBOTTOM":
    case "CHOOSECOMBATCHAIN":
    case "CHOOSECHARACTER":
    case "CHOOSEHAND":
    case "CHOOSEHANDCANCEL":
    case "MULTICHOOSEDISCARD":
    case "CHOOSEDISCARDCANCEL":
    case "CHOOSEARSENAL":
    case "CHOOSEDISCARD":
    case "MULTICHOOSEHAND":
    case "CHOOSEMULTIZONE":
    case "CHOOSEBANISH":
    case "MULTICHOOSEBANISH":
    case "BUTTONINPUTNOPASS":
    case "CHOOSEFIRSTPLAYER":
    case "MULTICHOOSEDECK":
    case "CHOOSEPERMANENT":
    case "MULTICHOOSETEXT":
    case "CHOOSEMYSOUL":
    case "CHOOSEMYAURA":
    case "CHOOSECARD":
    case "CHOOSECARDID":
    case "OVER":
    case "BUTTONINPUT":
    case "MULTICHOOSETHEIRDISCARD":
      return 0;
    default:
      return 1;
  }
}

//Returns true if done for that player
function EndTurnPitchHandling($player)
{
  global $currentPlayer, $turn;
  $pitch = &GetPitch($player);
  if (count($pitch) == 0) return true;
  else if (count($pitch) == 1) {
    PitchDeck($player, 0);
    return true;
  } else {
    $currentPlayer = $player;
    $turn[0] = "PDECK";
    return false;
  }
}

function ResolveGoAgain($cardID, $player, $from="", $additionalCosts="-", $uniqueID="-")
{
  global $CS_NextNAACardGoAgain, $actionPoints, $mainPlayer, $CS_ActionsPlayed, $CS_AdditionalCosts, $CS_NumWateryGrave;
  $actionsPlayed = explode(",", GetClassState($player, $CS_ActionsPlayed));
  $cardType = CardType($cardID, additionalCosts:$additionalCosts);
  $goAgainPrevented = CurrentEffectPreventsGoAgain($cardID, $from, $additionalCosts);
  if (IsStaticType($cardType, $from, $cardID)) {
    $hasGoAgain = AbilityHasGoAgain($cardID, $from);
    if (GetResolvedAbilityType($cardID, $from) == "A") $hasGoAgain = CurrentEffectGrantsNonAttackActionGoAgain($cardID, $from, $uniqueID) || $hasGoAgain;
  } else {
    $hasGoAgain = HasMeld($cardID) ? 0 : HasGoAgain($cardID, $from);
    if (GetClassState($player, $CS_NextNAACardGoAgain) && (DelimStringContains($cardType, "A") || $from == "MELD")) {
      $hasGoAgain = true;
      SetClassState($player, $CS_NextNAACardGoAgain, 0);
      SearchCurrentTurnEffects("mage_master_boots", $player, true);
    }
    $character = GetPlayerCharacter($player);
    for ($i = 0; $i < count($character); $i += CharacterPieces()) {
      if ($character[$i + 1] != 2) continue;
      switch ($character[$i]) {
        case "silversheen_needle":
          if (CardNameContains($cardID, "Fabric", $player, true)) $hasGoAgain = true;
          break;
        case "compass_of_sunken_depths":
          if (GetClassState($player, $CS_NumWateryGrave) == 1 && HasWateryGrave($cardID) && $from=="GY") {
            $hasGoAgain = true;
          }
          break;
        case "shield_beater":
          if (CardNameContains($cardID, "Visit Anvilheim", $player)) $hasGoAgain = true;
          break;
        default:
          break;
      }
    }
    $numActionsPlayed = count($actionsPlayed);
    if ($numActionsPlayed > 2 && TalentContains($actionsPlayed[$numActionsPlayed-3], "LIGHTNING", $mainPlayer) && $actionsPlayed[$numActionsPlayed-2] == "current_funnel_blue" && DelimStringContains($cardType, "A")) {
      if (SearchCurrentTurnEffects("current_funnel_blue", $mainPlayer, remove: true)) $hasGoAgain = true;
    }
    if ($cardType == "AA" && SearchCurrentTurnEffects("blizzard_blue", $player)) $hasGoAgain = false;
    if ($cardType == "AA" && SearchCurrentTurnEffects("rainbow_goo_trap_red", $player)) $hasGoAgain = false;
    if (DelimStringContains($cardType, "A")) $hasGoAgain = CurrentEffectGrantsNonAttackActionGoAgain($cardID, $from, $uniqueID) || $hasGoAgain;
    if (DelimStringContains($cardType, "A") && $hasGoAgain && (SearchAuras("fog_down_yellow", 1) || SearchAuras("fog_down_yellow", 2))) $hasGoAgain = false;
    if (DelimStringContains($cardType, "I") && !HasMeld($cardID)){
      $hasGoAgain = CurrentEffectGrantsInstantGoAgain($cardID, $from) || $hasGoAgain;
    }
    elseif (DelimStringContains($cardType, "I") && $from != "MELD" && IsMeldInstantName($additionalCosts)){
      // handles case of only right side
      $hasGoAgain = CurrentEffectGrantsInstantGoAgain($cardID, $from) || $hasGoAgain;
    }
    elseif ($from == "MELD" && $additionalCosts == "MELD"){
      // handles case of left side resolving after melding
      $hasGoAgain = CurrentEffectGrantsInstantGoAgain($cardID, $from) || $hasGoAgain || HasGoAgain($cardID);
    }
    elseif ($from == "MELD"){
      // handles case of only left side
      $hasGoAgain = $hasGoAgain || HasGoAgain($cardID);
    }
  }
  if ($player == $mainPlayer && $hasGoAgain && !$goAgainPrevented) {
    if(SearchCurrentTurnEffects("arc_lightning_yellow", $player) && !IsMeldInstantName(GetClassState($player, $CS_AdditionalCosts)) && (GetClassState($player, $CS_AdditionalCosts) != "Both" || $from == "MELD")) {
      $count = CountCurrentTurnEffects("arc_lightning_yellow", $player);
      for ($i=0; $i < $count; $i++) {
        AddLayer("TRIGGER", $player, "arc_lightning_yellow");
      }
    }
    ++$actionPoints;
  }}

function PitchDeck($player, $index)
{
  $deck = new Deck($player);
  $cardID = RemovePitch($player, $index);
  $deck->AddBottom($cardID, "PITCH");
}

function GetUniqueId($cardID = "", $player = "")
{
  global $permanentUniqueIDCounter;
  ++$permanentUniqueIDCounter;
  return $player . ";" . $cardID . ";" . $permanentUniqueIDCounter;
}

function IsHeroAttackTarget()
{
  foreach(explode(",", GetAttackTarget()) as $target) {
    if (explode("-", $target)[0] == "THEIRCHAR") return true;
  }
  return false;
}

function IsSpecificAllyAttackTarget($player, $index, $uniqueID)
{
  global $combatChainState, $CCS_AttackTargetUID;
  $mzTarget = GetAttackTarget();
  foreach(explode(",", $mzTarget) as $target) {
    $mzArr = explode("-", $target);
    if ($mzArr[0] == "ALLY" || $mzArr[0] == "MYALLY" || $mzArr[0] == "THEIRALLY") {
      if ($index == intval($mzArr[1]) && $uniqueID == $combatChainState[$CCS_AttackTargetUID]) return true;
    }
  }
  return false;
}

function IsSpecificAuraAttackTarget($player, $index, $uniqueID)
{
  global $combatChainState, $CCS_AttackTargetUID;
  $mzTarget = GetAttackTarget();
  foreach(explode(",", $mzTarget) as $target) {
    $mzArr = explode("-", $target);
    if ($mzArr[0] == "AURAS" || $mzArr[0] == "MYAURAS" || $mzArr[0] == "THEIRALLYAURAS") {
      if ($index == intval($mzArr[1]) && $uniqueID == $combatChainState[$CCS_AttackTargetUID]) return true;
    }
  }
  return false;
}

function IsAllyAttacking()
{
  global $combatChain;
  if (count($combatChain) == 0) return false;
  return DelimStringContains(CardSubtype($combatChain[0]), "Ally");
}

function IsSpecificAllyAttacking($player, $index)
{
  global $combatChain, $combatChainState, $CCS_WeaponIndex, $mainPlayer;
  if (count($combatChain) == 0) return false;
  if ($mainPlayer != $player) return false;
  $weaponIndex = intval($combatChainState[$CCS_WeaponIndex]);
  if ($weaponIndex == -1) return false;
  if ($weaponIndex != $index) return false;
  if (!DelimStringContains(CardSubtype($combatChain[0]), "Ally")) return false;
  return true;
}

function IsSpecificAuraAttacking($player, $index)
{
  global $combatChain, $combatChainState, $CCS_WeaponIndex, $mainPlayer;
  if (count($combatChain) == 0) return false;
  if ($mainPlayer != $player) return false;
  $weaponIndex = intval($combatChainState[$CCS_WeaponIndex]);
  if ($weaponIndex == -1) return false;
  if ($weaponIndex != $index) return false;
  if (!DelimStringContains(CardSubtype($combatChain[0]), "Aura")) return false;
  return true;
}

function CanRevealCards($player)
{
  $otherPlayer = $player == 1 ? 2 : 1;
  if (SearchAurasForCard("channel_the_bleak_expanse_blue", $player) != "" || SearchAurasForCard("channel_the_bleak_expanse_blue", $otherPlayer) != "") {
    WriteLog("Reveal prevented by " . CardLink("channel_the_bleak_expanse_blue", "channel_the_bleak_expanse_blue"));
    return false;
  }
  return true;
}

function GetDamagePreventionIndices($player, $type, $damage, $preventable=true, $source = "")
{
  global $currentTurnEffects;
  $rv = "";
  $auras = &GetAuras($player);
  $indices = "";

  //TODO: Move Runeblood Barrier in AuraDamagePreventionAmount
  for ($i = 0; $i < count($auras); $i += AuraPieces()) {
    if (AuraDamagePreventionAmount($player, $i, $type, check: true) > 0 || HasWard($auras[$i], $player)) {
      if ($indices != "") $indices .= ",";
      $indices .= $i;
    }
  }
  $mzIndices = SearchMultiZoneFormat($indices, "MYAURAS");

  $permanents = &GetPermanents($player);
  $indices = "";
  for ($i = 0; $i < count($permanents); $i += PermanentPieces()) {
    if (PermanentDamagePreventionAmount($player, $i, $damage) > 0) {
      if ($indices != "") $indices .= ",";
      $indices .= $i;
    }
  }
  $indices = SearchMultiZoneFormat($indices, "MYPERM");
  $mzIndices = CombineSearches($mzIndices, $indices);

  $char = &GetPlayerCharacter($player); 
  $indices = "";
  for ($i = 0; $i < count($char); $i += CharacterPieces()) {
    if ($char[$i + 1] != 0 && (WardAmount($char[$i], $player) > 0 || CharacterDamagePreventionAmount($player, $i, $damage, $preventable) > 0) && $char[$i + 12] == "UP") {
      if ($indices != "") $indices .= ",";
      $indices .= $i;
    }
  }
  $indices = SearchMultiZoneFormat($indices, "MYCHAR");
  $mzIndices = CombineSearches($mzIndices, $indices);

  $items = &GetItems($player);
  $itemCount = count($items);
  $indices = "";
  for ($i = 0; $i < $itemCount; $i += ItemPieces()) {
    if (ItemDamagePreventionAmount($player, $i, $damage, $preventable) > 0) {
      if ($indices != "") $indices .= ",";
      $indices .= $i;
    }
  }
  $indices = SearchMultizoneFormat($indices, "MYITEMS");
  $mzIndices = CombineSearches($mzIndices, $indices);

  $ally = &GetAllies($player);
  $Allies = new Allies($player);
  $indices = [];
  for ($i = 0; $i < $Allies->NumAllies(); ++$i) {
    $Ally = $Allies->Card($i, true);
    if ($Ally->Status() != 0 && WardAmount($Ally->CardID(), $player) > 0)
      $indices[] = $Ally->Index();
  }
  $indices = SearchMultiZoneFormat(implode(",", $indices), "MYALLY");
  $mzIndices = CombineSearches($mzIndices, $indices);

  $indices = "";
  for($i = 0; $i < count($currentTurnEffects); $i += CurrentTurnEffectsPieces()) {
    if ($currentTurnEffects[$i + 1] == $player && CurrentTurnEffectDamagePreventionAmount($player, $i, $damage, $type, $source, $preventable) > 0) {
      if ($indices != "") $indices .= ",";
      $indices .= $i;
    }
  }
  $indices = SearchMultiZoneFormat($indices, "CURRENTTURNEFFECTS");
  $mzIndices = CombineSearches($mzIndices, $indices);

  $rv = $mzIndices;
  return $rv;
}

function GetDamagePreventionTargetIndices()
{
  global $combatChain, $currentPlayer;
  $otherPlayer = $currentPlayer == 1 ? 2 : 1;
  $rv = "";
  $rv = SearchMultizone($otherPlayer, "LAYER");
  if (count($combatChain) > 0 && CardType($combatChain[0]) != "W") {
    //don't find weapons here, they're handled in SearchCharacter
    $rv = CombineSearches($rv, "CC-0");
  }
  $rv = CombineSearches($rv, SearchMultiZoneFormat(SearchCharacter($otherPlayer, type: "W"), "THEIRCHAR"));
  $rv = CombineSearches($rv, SearchMultiZoneFormat(SearchAllies($otherPlayer), "THEIRALLY"));
  $rv = CombineSearches($rv, SearchMultiZoneFormat(SearchAura($otherPlayer), "THEIRAURAS"));
  $rv = CombineSearches($rv, SearchMultiZoneFormat(SearchAura($currentPlayer), "MYAURAS"));
  $rv = CombineSearches($rv, SearchMultiZoneFormat(SearchItems($otherPlayer), "THEIRITEMS"));
  if (ArsenalHasFaceUpCard($otherPlayer)) $rv = CombineSearches($rv, SearchMultiZoneFormat(SearchArsenal($otherPlayer), "THEIRARS"));
  $rv = CombineSearches($rv, SearchMultiZoneFormat(SearchCharacter($otherPlayer, type: "C"), "THEIRCHAR"));
  $rv = CombineSearches($rv, SearchMultiZoneFormat(SearchCombatChainAttacks($otherPlayer), "COMBATCHAINATTACKS"));
  return $rv;
}

function SelfCostModifier($cardID, $from)
{
  global $CS_NumCharged, $currentPlayer, $combatChain, $layers, $CS_NumVigorDestroyed, $CS_NumCardsDrawn;
  global $CS_CheeredThisTurn, $mainPlayer;
  $otherPlayer = ($currentPlayer == 1) ? 2 : 1;
  if (class_exists($cardID)) {
    $card = new $cardID($currentPlayer);
    return $card->SelfCostModifier($from);
  }
  switch ($cardID) {
    case "arknight_ascendancy_red":
    case "ninth_blade_of_the_blood_oath_yellow":
    case "reduce_to_runechant_red":
    case "reduce_to_runechant_yellow":
    case "reduce_to_runechant_blue":
    case "amplify_the_arknight_red":
    case "amplify_the_arknight_yellow":
    case "amplify_the_arknight_blue":
    case "drawn_to_the_dark_dimension_red":
    case "drawn_to_the_dark_dimension_yellow":
    case "drawn_to_the_dark_dimension_blue":
    case "rune_flash_red":
    case "rune_flash_yellow":
    case "rune_flash_blue":
      return -1 * NumRunechants($currentPlayer);
    case "bolting_blade_yellow":
      return -1 * (2 * GetClassState($currentPlayer, $CS_NumCharged));
    case "blinding_beam_red":
    case "blinding_beam_yellow":
    case "blinding_beam_blue":
      return TalentContains($combatChain[$layers[3]], "SHADOW") ? -1 : 0;
    case "jump_start_red":
    case "jump_start_yellow":
    case "jump_start_blue":
      return SearchMultizone($currentPlayer, "MYITEMS:isSameName=hyper_driver_red") != "" ? -1 : 0;
    case "bonds_of_ancestry_red":
    case "bonds_of_ancestry_yellow":
    case "bonds_of_ancestry_blue":
      return ComboActive($cardID) ? -2 : 0;
    case "descendent_gustwave_red":
    case "descendent_gustwave_yellow":
    case "descendent_gustwave_blue":
      return ComboActive($cardID) ? -1 : 0;
    case "bleed_out_red":
    case "bleed_out_yellow":
    case "bleed_out_blue":
      return -1 * DamageDealtBySubtype("Dagger");
    case "dimenxxional_vortex":
      return $from == "BANISH" ? -2 : 0;
    case "grim_feast_red":
    case "grim_feast_yellow":
    case "grim_feast_blue":
      return $from == "BANISH" ? -2 : 0;
    case "vile_inquisition_red":
    case "vile_inquisition_yellow":
    case "vile_inquisition_blue":
      return $from == "BANISH" ? -2 : 0;
    case "runic_reckoning_red":
      return -1 * NumRunechants($currentPlayer);
    case "liquid_cooled_mayhem_red":
    case "liquid_cooled_mayhem_yellow":
    case "liquid_cooled_mayhem_blue":
      return EvoUpgradeAmount($currentPlayer) * -1;
    case "annihilator_engine_red":
    case "terminator_tank_red":
    case "war_machine_red":
      return EvoUpgradeAmount($currentPlayer) >= 2 ? -3 : 0;
    case "rev_up_red":
    case "rev_up_yellow":
    case "rev_up_blue":
      return SearchMultizone($currentPlayer, "MYITEMS:isSameName=hyper_driver_red") != "" ? -1 : 0;
    case "quickfire_red":
    case "quickfire_yellow":
    case "quickfire_blue":
      return SearchCount(SearchMultizone($currentPlayer, "MYITEMS:isSameName=hyper_driver_red")) * -1;
    case "primed_to_fight_red":
      if (GetClassState($currentPlayer, $CS_NumVigorDestroyed) > 0 || CountAura("vigor", $currentPlayer) > 0) return -1;
      else return 0;
    case "stains_of_the_redback_red":
    case "stains_of_the_redback_yellow":
    case "stains_of_the_redback_blue":
      return (CheckMarked(player: $otherPlayer)) ? -1 : 0;
    case "rising_energy_red":
    case "rising_energy_yellow":
    case "rising_energy_blue":
      return GetClassState($currentPlayer, $CS_NumCardsDrawn) > 0 ? -1 : 0;
    case "sonata_galaxia_red":
      return -1 * NumRunechants($currentPlayer);
    case "wrath_of_retribution_red":
    case "blood_drop_red":
    case "blood_line_red":
    case "blood_runs_deep_red":
      return -1 * NumDraconicChainLinks();
    case "fire_and_brimstone_red":
    case "dynastic_dedication_red":
    case "imperial_intent_red":
      return -1 * NumDraconicChainLinks();
    case "compounding_anger_red":
    case "bubble_to_the_surface_red":
    case "drop_of_dragon_blood_red":
      return $currentPlayer == $mainPlayer ? (-1 * NumDraconicChainLinks()) : 0;
    case "solid_ground_blue":
      return -1 * NumSeismicSurge($currentPlayer);
    case "gold_hunter_ketch_yellow":
      $myNumGold = CountItem("gold", $currentPlayer);
      $theirNumGold = CountItem("gold", $otherPlayer);
      return $myNumGold < $theirNumGold ? -2 : 0;
    default:
      return 0;
  }
}

function IsAlternativeCostPaid($cardID, $from)
{
  global $currentTurnEffects, $currentPlayer, $combatChainState, $CCS_WasRuneGate;
  $isAlternativeCostPaid = false;
  for ($i = count($currentTurnEffects) - CurrentTurnEffectsPieces(); $i >= 0; $i -= CurrentTurnEffectsPieces()) {
    $remove = false;
    if ($currentTurnEffects[$i + 1] == $currentPlayer) {
      switch ($currentTurnEffects[$i]) {
        case "moon_wish_red":
        case "cash_in_yellow":
        case "soul_reaping_red":
        case "rise_above_red":
        case "life_of_the_party_red":
        case "life_of_the_party_yellow":
        case "life_of_the_party_blue":
        case "double_down_red-PAID":
        case "10000_year_reunion_red":
          $isAlternativeCostPaid = true;
          $remove = true;
          break;
        default:
          break;
      }
      if ($remove) RemoveCurrentTurnEffect($i);
    }
  }
  if ($from == "BANISH" && SearchAuras("runechant", $currentPlayer) > 0 && HasRunegate($cardID) && SearchCount(SearchAurasForCard("runechant", $currentPlayer)) >= CardCost($cardID, $from)) {
    $combatChainState[$CCS_WasRuneGate] = 1;
    return true;
  }
  return $isAlternativeCostPaid;
}

function BanishCostModifier($from, $index, $cost)
{
  global $currentPlayer;
  $otherPlayer = ($currentPlayer == 1 ? 2 : 1);
  if ($from != "BANISH" && $from != "THEIRBANISH") return 0;
  $from == "BANISH" ? $banish = GetBanish($currentPlayer) : $banish = GetBanish($otherPlayer);
  $mod = explode("-", $banish[$index + 1]);
  switch ($mod[0]) {
    case "sonic_boom_yellow":
      return -1 * intval($mod[1]);
    case "TCCGorgonsGaze":
      return -1 * intval($cost);
    default:
      return 0;
  }
}

function IsCurrentAttackName($name)
{
  $names = GetCurrentAttackNames();
  for ($i = 0; $i < count($names); ++$i) {
    if ($name == $names[$i]) return true;
  }
  return false;
}

function IsCardNamed($player, $cardID, $name)
{
  global $currentTurnEffects;
  if (CardName($cardID) == $name) return true;
  for ($i = 0; $i < count($currentTurnEffects); $i += CurrentTurnEffectPieces()) {
    $effectArr = explode("-", $currentTurnEffects[$i]);
    $givenNames = CurrentEffectNameModifier($effectArr[0], count($effectArr) > 1 ? GamestateUnsanitize($effectArr[1]) : "N/A", $player, $cardID);
    $givenNames = explode(",", $givenNames);
    //You have to do this at the end, or you might have a recursive loop -- e.g. with head_leads_the_tail_red
    foreach($givenNames as $givenName)
      if ($name == $givenName && $currentTurnEffects[$i + 1] == $player) return true;
  }
  return false;
}

function GetCurrentAttackNames()
{
  global $combatChain, $currentTurnEffects, $mainPlayer;
  $names = [];
  if (count($combatChain) == 0) return $names;
  $names[] = CardName($combatChain[0]);
  $currentTurnEffectsCount = count($currentTurnEffects);
  for ($i = 0; $i < $currentTurnEffectsCount; $i += CurrentTurnEffectPieces()) {
    $effectArr = explode("-", $currentTurnEffects[$i]);
    $name = CurrentEffectNameModifier($effectArr[0], count($effectArr) > 1 ? GamestateUnsanitize($effectArr[1]) : "N/A", $mainPlayer, $combatChain[0]);
    //You have to do this at the end, or you might have a recursive loop -- e.g. with head_leads_the_tail_red
    if ($name != "" && $currentTurnEffects[$i + 1] == $mainPlayer && IsCombatEffectActive($effectArr[0]) && !IsCombatEffectLimited($i)) {
      if (str_contains($name, ","))
        $names = array_merge($names, explode(",", $name));
      else $names[] = $name;
    }
  }
  return $names;
}

function SerializeCurrentAttackNames()
{
  $names = GetCurrentAttackNames();
  $serializedNames = "";
  for ($i = 0; $i < count($names); ++$i) {
    if ($serializedNames != "") $serializedNames .= ",";
    $serializedNames .= GamestateSanitize($names[$i]);
  }
  return $serializedNames;
}

function HasAttackName($name)
{
  global $chainLinkSummary;
  for ($i = 0; $i < count($chainLinkSummary); $i += ChainLinkSummaryPieces()) {
    $names = explode(",", $chainLinkSummary[$i + 4]);
    for ($j = 0; $j < count($names); ++$j) {
      if ($name == GamestateUnsanitize($names[$j])) return true;
    }
  }
  return false;
}

function HitEffectsArePrevented($cardID)
{
  global $combatChainState, $CCS_ChainLinkHitEffectsPrevented, $mainPlayer, $defPlayer;
  // if (CardType($cardID) == "AA" && (SearchAuras("stamp_authority_blue", 1) || SearchAuras("stamp_authority_blue", 2))) return true;
  if (SearchCurrentTurnEffects("gallow_end_of_the_line_yellow", $mainPlayer)) return true;
  if (SearchCurrentTurnEffects("dense_blue_mist_blue-HITPREVENTION", $defPlayer)) return true;
  if ($combatChainState[$CCS_ChainLinkHitEffectsPrevented]) SearchCurrentTurnEffects("tarpit_trap_yellow", $mainPlayer, true);
  return $combatChainState[$CCS_ChainLinkHitEffectsPrevented];
}

function HitEffectsPreventedThisLink()
{
  global $combatChainState, $CCS_ChainLinkHitEffectsPrevented;
  $combatChainState[$CCS_ChainLinkHitEffectsPrevented] = 1;
}

function HitsInRow()
{
  global $chainLinkSummary;
  $numHits = 0;
  for ($i = count($chainLinkSummary) - ChainLinkSummaryPieces(); $i >= 0 && intval($chainLinkSummary[$i + 5]) > 0; $i -= ChainLinkSummaryPieces()) {
    ++$numHits;
  }
  return $numHits;
}

function HitsInCombatChain()
{
  global $chainLinkSummary, $combatChainState, $CCS_HitThisLink, $CCS_DamageDealt;
  $numHits = intval($combatChainState[$CCS_HitThisLink]); //track flicks
  if ($combatChainState[$CCS_DamageDealt] > 0) $numHits += 1; //tracks during thhe damage step
  for ($i = count($chainLinkSummary) - ChainLinkSummaryPieces(); $i >= 0; $i -= ChainLinkSummaryPieces()) {
    $numHits += intval($chainLinkSummary[$i + 5]);
  }
  return $numHits;
}

function NumAttacksHit()
{
  global $chainLinkSummary;
  $numHits = 0;
  for ($i = count($chainLinkSummary) - ChainLinkSummaryPieces(); $i >= 0; $i -= ChainLinkSummaryPieces()) {
    if ($chainLinkSummary[$i] > 0) ++$numHits;
  }
  return $numHits;
}

function NumChainLinks()
{
  global $chainLinkSummary, $combatChain;
  $numLinks = count($chainLinkSummary) / ChainLinkSummaryPieces();
  if (count($combatChain) > 0) ++$numLinks;
  return $numLinks;
}

function ClearGameFiles($gameName, $isRematch = false)
{
  if ($isRematch) {
    // For rematch, reset the undo backups with beginTurnGamestate
    global $filepath;
    $filepath = "./Games/" . $gameName . "/";
    include_once "ParseGamestate.php";
    ResetUndoBackupsForRematch();
  } else {
    // For normal cleanup, just unlink the files
    @unlink("./Games/" . $gameName . "/gamestateBackup.txt");
    @unlink("./Games/" . $gameName . "/beginTurnGamestate.txt");
    @unlink("./Games/" . $gameName . "/lastTurnGamestate.txt");
  }
}

function PlayAbility($cardID, $from, $resourcesPaid, $target = "-", $additionalCosts = "-")
{
  global $currentPlayer, $CS_NumCrouchingTigerPlayedThisTurn, $currentTurnEffects, $CombatChain;
  $cardID = ShiyanaCharacter($cardID);
  $set = CardSet($cardID);
  $class = CardClass($cardID);
  // clean up targets. Make this its own function?
  if ($target != "-") {
    $targets = explode(",", $target);
    $cleanedTargets = [];
    foreach ($targets as $targ) {
      $targetArr = explode("-", $targ);
      switch ($targetArr[0]) {
        case "LAYERUID":
          if (!HasMeld($cardID)) { // skip this for null//shock
            $targetArr[0] = "LAYER";
            $targetArr[1] = SearchLayersForUniqueID($targetArr[1]);
          }
          break;
        case "COMBATCHAINLINK":
          if (!is_numeric($targetArr[1])) {
            $targetCard = $CombatChain->FindCardUID($targetArr[1]);
            $targetArr[1] = $targetCard != "" ? $targetCard->Index() : -1;
          }
          break;
      }
      if ($targetArr[0] == "PASTCHAINLINK") {
        $cleanedTarget = implode("-", $targetArr);
      }
      elseif (isset($targetArr[1])) $cleanedTarget = $targetArr[0] . "-" . $targetArr[1];
      else $cleanedTarget = $targetArr[0];
      $cleanedTargets[] = $cleanedTarget;
    }
    $target = implode(",", $cleanedTargets);
  }
  if (($set == "ELE" || $set == "UPR") && $additionalCosts != "-" && HasFusion($cardID)) {
    FuseAbility($cardID, $currentPlayer, $additionalCosts);
  }
  if (IsCardNamed($currentPlayer, $cardID, "Crouching Tiger")) IncrementClassState($currentPlayer, $CS_NumCrouchingTigerPlayedThisTurn);
  if (HasMeld($cardID)) {
    AddDecisionQueue("PASSPARAMETER", $currentPlayer, $additionalCosts, 1);
    AddDecisionQueue("APPENDLASTRESULT", $currentPlayer, "|$target", 1);
    AddDecisionQueue("MELD", $currentPlayer, $cardID, 1);
    return "";
  }
  $card = GetClass($cardID, $currentPlayer);
  if ($card != "-") return $card->PlayAbility($from, $resourcesPaid, $target, $additionalCosts);
  if ($set == "WTR") return WTRPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "ARC") {
    switch ($class) {
      case "MECHANOLOGIST":
        return ARCMechanologistPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
      case "RANGER":
        return ARCRangerPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
      case "RUNEBLADE":
        return ARCRunebladePlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
      case "WIZARD":
        return ARCWizardPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
      case "GENERIC":
        return ARCGenericPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
      default:
        return "";
    }
  } else if ($set == "CRU") return CRUPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "MON") {
    switch ($class) {
      case "BRUTE":
        return MONBrutePlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
      case "ILLUSIONIST":
        return MONIllusionistPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
      case "RUNEBLADE":
        return MONRunebladePlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
      case "WARRIOR":
        return MONWarriorPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
      case "GENERIC":
        return MONGenericPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
      case "NONE":
        return MONTalentPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
      default:
        return "";
    }
  } else if ($set == "ELE") {
    switch ($class) {
      case "GUARDIAN":
        return ELEGuardianPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
      case "RANGER":
        return ELERangerPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
      case "RUNEBLADE":
        return ELERunebladePlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
      default:
        return ELETalentPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
    }
  } else if ($set == "EVR") return EVRPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "UPR") return UPRPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "DVR") return DVRPlayAbility($cardID);
  else if ($set == "RVD") return RVDPlayAbility($cardID);
  else if ($set == "DYN") return DYNPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "OUT") return OUTPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "DTD") return DTDPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "TCC") return TCCPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "EVO") return EVOPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "HVY") return HVYPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "AKO") return AKOPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "MST") return MSTPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "ASB") return ASBPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "AAZ") return AAZPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "ROS") return ROSPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "TER") return TERPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "AUR") return AURPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "AIO") return AIOPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "AJV") return AJVPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "HNT") return HNTPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "AST") return ASTPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "AMX") return AMXPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "SEA") return SEAPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "MPG") return MPGPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "ASR") return ASRPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "AGB") return AGBPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "SUP") return SUPPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "APS") return APSPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "ARR") return ARRPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "AAC") return AACPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else if ($set == "PEN") return PENPlayAbility($cardID, $from, $resourcesPaid, $target, $additionalCosts);
  else {
    switch ($cardID) {
      case "jack_o_lantern_red":
      case "jack_o_lantern_yellow":
      case "jack_o_lantern_blue":
        $deck = new Deck($currentPlayer);
        if (!$deck->Empty()) if (ColorContains($deck->BanishTop(), PitchValue($cardID), $currentPlayer)) PlayAura("runechant", $currentPlayer, 1, true);
        return "";
      case "blaze_firemind":
        $index = SearchCurrentTurnEffectsForIndex("blaze_firemind", $currentPlayer);
        $dynCost = explode("-", $currentTurnEffects[$index]);
        MZMoveCard($currentPlayer, "MYHAND:type=A;class=WIZARD;arcaneDamage=" . $dynCost[1], "MYBANISH,HAND,INST," . $cardID . "," . $currentPlayer);
        return "";
      case "magrar";
          PlayAura("zen_state", $currentPlayer);
          PlayAura("inertia", $currentPlayer);
        return "";
      case "fabric_of_spring_yellow":
        if (!SearchCharacterAliveSubtype($currentPlayer, "Chest")) {
          //I'm not bothering with the double sided stuff
          EquipEquipment($currentPlayer, "fyendals_spring_tunic", "Chest");
        }
        return "";
      case "venomback_fabric_yellow":
        if (!SearchCharacterAliveSubtype($currentPlayer, "Legs")) {
          //I'm not bothering with the double sided stuff
          EquipEquipment($currentPlayer, "scabskin_leathers", "Legs");
        }
        return "";
      case "bravo_flattering_showman":
        $arsenalCardID = "";
        $arsenal = &GetArsenal($currentPlayer);
        if(ArsenalHasFaceDownCard($currentPlayer)) $arsenalCardID = SetArsenalFacing("UP", $currentPlayer);
        if(HasCrush($arsenalCardID)) {
          AddCurrentTurnEffect($cardID, $currentPlayer, uniqueID:$arsenal[SearchArsenalForCard($currentPlayer, $arsenalCardID)+5]);
        }
        return "";
      default:
        break;
    }
  }
  return "";
}

function PitchAbility($cardID, $from="HAND")
{
  global $currentPlayer, $CS_NumAddedToSoul, $actionPoints, $mainPlayer;

  $pitchValue = PitchValue($cardID);
  if (GetClassState($currentPlayer, $CS_NumAddedToSoul) > 0 && SearchCharacterActive($currentPlayer, "vestige_of_sol") && TalentContains($cardID, "LIGHT", $currentPlayer)) {
    $resources = &GetResources($currentPlayer);
    $resources[0] += 1;
  }
  if ($pitchValue == 1) {
    $talismanOfRecompenseIndex = GetItemIndex("talisman_of_recompense_yellow", $currentPlayer);
    if ($talismanOfRecompenseIndex > -1) {
      WriteLog(CardLink("talisman_of_recompense_yellow", "talisman_of_recompense_yellow") . " gained 3 instead of 1 and destroyed itself");
      DestroyItemForPlayer($currentPlayer, $talismanOfRecompenseIndex);
      GainResources($currentPlayer, 2);
    }
    if (ColorContains($cardID, 1, $currentPlayer)) {
      $char = GetPlayerCharacter($currentPlayer);
      if ($char[1] < 3) {
        switch ($char[0]) {
          case "dromai_ash_artist":
          case "dromai":
            AddLayer("TRIGGER", $currentPlayer, $char[0]);
            break;
          default:
            break;
        }
      } 
    }
  }
  if (SubtypeContains($cardID, "Chi", $currentPlayer)
    && SearchCharacterAlive($currentPlayer, "meridian_pathway")
    && SearchCharacterForCard($currentPlayer, "meridian_pathway")
    && GetCharacterGemState($currentPlayer, "meridian_pathway") == 1
    && !SearchCurrentTurnEffects("MERIDIANWARD", $currentPlayer)) {
    AddLayer("TRIGGER", $currentPlayer, "meridian_pathway");
  }
  $card = GetClass($cardID, $currentPlayer);
  if ($card != "-") $card->PitchAbility($from);
  switch ($cardID) {
    case "heart_of_fyendal_blue":
    case "eye_of_ophidia_blue":
    case "arknight_shard_blue":
    case "plague_hive_yellow":
    case "light_of_sol_yellow":
    case "schism_of_chaos_blue":
    case "riches_of_tropal_dhani_yellow":
    case "master_cog_yellow":
      AddLayer("TRIGGER", $currentPlayer, $cardID);
      break;
    case "grandeur_of_valahai_blue":
      PlayAura("seismic_surge", $currentPlayer);
      break;
    case "blood_of_the_dracai_red":
      AddCurrentTurnEffect($cardID, $currentPlayer);
      break;
    case "will_of_arcana_blue":
      AddCurrentTurnEffect($cardID, $currentPlayer);
      WriteLog(CardLink($cardID, $cardID) . " Amp 1");
      break;
    case "back_alley_breakline_red":
    case "back_alley_breakline_yellow":
    case "back_alley_breakline_blue":
      if ($from == "DECK" && $currentPlayer == $mainPlayer) {
        WriteLog("Player ". $currentPlayer ." gained 1 action point from " . CardLink($cardID, $cardID).".");
        ++$actionPoints;
      }
      break;
    default:
      break;
  }
}

function UnityEffect($cardID)
{
  global $defPlayer;
  $card = GetClass($cardID, $defPlayer);
  if ($card != "-") $card->UnityEffect();
  switch ($cardID) {
    case "united_we_stand_yellow"://United We Stand
      $char = &GetPlayerCharacter($defPlayer);
      if ($char[0] == "ser_boltyn_breaker_of_dawn" || $char[0] == "boltyn") PlayAura("courage", $defPlayer);
      else if ($char[0] == "bravo_showstopper" || $char[0] == "bravo") PlayAura("seismic_surge", $defPlayer);
      else if ($char[0] == "briar_warden_of_thorns" || $char[0] == "briar") PlayAura("embodiment_of_earth", $defPlayer);
      else if ($char[0] == "briar_warden_of_thorns" || $char[0] == "briar") PlayAura("embodiment_of_earth", $defPlayer);
      else if ($char[0] == "dorinthea_ironsong" || $char[0] == "dorinthea") PlayAura("courage", $defPlayer);
      else if ($char[0] == "lexi_livewire" || $char[0] == "lexi") PlayAura("embodiment_of_lightning", $defPlayer);
      else if ($char[0] == "oldhim_grandfather_of_eternity" || $char[0] == "oldhim") PlayAura("spellbane_aegis", $defPlayer);
      else if ($char[0] == "prism_sculptor_of_arc_light" || $char[0] == "prism" || $char[0] == "prism_awakener_of_sol" || $char[0] == "prism_advent_of_thrones") PlayAura("spectral_shield", $defPlayer);
      else if ($char[0] == "shiyana_diamond_gemini") PlayAura("eloquence", $defPlayer);
      break;
    case "anthem_of_spring_blue"://Anthem of Spring
      PlayAura("embodiment_of_earth", $defPlayer);
      break;
    case "northern_winds_blue"://Northern Winds
      PlayAura("spellbane_aegis", $defPlayer);
      break;
    case "call_down_the_lightning_yellow":
      PlayAura("embodiment_of_lightning", $defPlayer);
      break;
    case "star_struck_yellow":
      PlayAura("seismic_surge", $defPlayer);
      break;
    case "bastion_of_unity":
      AddCurrentTurnEffect("bastion_of_unity", $defPlayer);
      break;
    case "chorus_of_ironsong_yellow":
      PlayAura("courage", $defPlayer);
      break;
    case "alluring_inducement_yellow":
      PlayAura("eloquence", $defPlayer);
      break;
    default:
      break;
  }
}

function Draw($player, $mainPhase = true, $fromCardEffect = true, $effectSource = "-", $num=1)
{
  global $EffectContext, $mainPlayer, $CS_NumCardsDrawn, $currentTurnEffects;
  //main phase argument is deprecated
  if ($mainPhase == true) $mainPhase = SearchLayersForPhase("STARTTURN") == -1 && SearchLayersForPhase("ENDPHASE") == -1;
  $otherPlayer = $player == 1 ? 2 : 1;
  if ($mainPhase && $player != $mainPlayer) {
    $talismanOfTithes = SearchItemsForCard("talisman_of_tithes_blue", $otherPlayer);
    if ($talismanOfTithes != "") {
      $indices = explode(",", $talismanOfTithes);
      DestroyItemForPlayer($otherPlayer, $indices[0]);
      WriteLog(CardLink("talisman_of_tithes_blue", "talisman_of_tithes_blue") . " prevented a draw and was destroyed");
      --$num;
    }
  }
  if ($num == 0) return "";
  if ($fromCardEffect && (SearchAurasForCard("channel_the_bleak_expanse_blue", $otherPlayer) != "" || SearchAurasForCard("channel_the_bleak_expanse_blue", $player) != "")) {
    WriteLog("Draw prevented by " . CardLink("channel_the_bleak_expanse_blue", "channel_the_bleak_expanse_blue"));
    return "";
  }
  if ($mainPhase && (SearchAurasForCard("by_the_book_blue", $otherPlayer) != "" || SearchAurasForCard("by_the_book_blue", $player) != "")) {
    WriteLog("Draw prevented by " . CardLink("by_the_book_blue"));
    return "";
  }
  if ($effectSource == "gold" && SearchCurrentTurnEffects("not_so_fast_yellow", $player, true)){
    $player = $otherPlayer;
  }
  $deck = new Deck($player);
  $hand = &GetHand($player);
  if ($deck->Empty()) return -1;
  if (CurrentEffectPreventsDraw($player, $mainPhase)) return -1;

  for ($j = 0; $j < $num; ++$j) {
    $cardID = $deck->Top(remove: true);
    if ($mainPhase && (SearchAurasForCard("chains_of_mephetis_blue", 1) != "" || SearchAurasForCard("chains_of_mephetis_blue", 2) != "")) {
      WriteLog("⛓️ Your draw was banished by " . CardLink("chains_of_mephetis_blue", "chains_of_mephetis_blue"));
      BanishCardForPlayer($cardID, $player, "DECK", "TT", $player);
      continue;
      //It's unclear whether chains of mephetis should skip draw triggerrs. 8.5.6c suggests it should not, but the rules team
      //thinks it does due do specific wording of the effect
    } 
    else {
      $hand[] = $cardID;
      IncrementClassState($player, $CS_NumCardsDrawn, $num);
    }
    $hand = array_values($hand);
    // triggers for whenever you "draw a card"
    if ($mainPhase && $player == $mainPlayer && (SearchCharacterActive($player, "marlynn_treasure_hunter"))) AddLayer("TRIGGER", $player, "marlynn_treasure_hunter");
    if ($mainPhase && $player == $mainPlayer && (SearchCharacterActive($player, "marlynn"))) AddLayer("TRIGGER", $player, "marlynn");
    if ($mainPhase) {
      $numBrainstorm = CountCurrentTurnEffects("brainstorm_blue", $player);
      if ($numBrainstorm > 0) {
        $character = &GetPlayerCharacter($player);
        for ($i = 0; $i < $numBrainstorm; ++$i) {
          DealArcane(1, 2, "TRIGGER", $character[0]);
        }
      }
    }
  }

  for ($i = count($currentTurnEffects) - CurrentTurnEffectPieces(); $i >= 0; $i -= CurrentTurnEffectPieces()) {
    if ($currentTurnEffects[$i + 1] != $player) continue;
    switch ($currentTurnEffects[$i]) {
      case "anka_drag_under_yellow":
        if ($mainPhase){
          WriteLog("🦈 You are being dragged under by " . CardLink($currentTurnEffects[$i], $currentTurnEffects[$i]));
          AddLayer("TRIGGER", $player, $currentTurnEffects[$i]);
          RemoveCurrentTurnEffect($i);
        }
        break;
      default:
        break;
    }
  }
  //triggers for whenever you draw "one or more cards"
  if ($mainPhase && (SearchCharacterActive($otherPlayer, "valda_brightaxe") || SearchCurrentTurnEffects("valda_brightaxe-SHIYANA", $otherPlayer) && SearchCharacterActive($otherPlayer, "shiyana_diamond_gemini"))) {
    AddLayer("TRIGGER", $otherPlayer, "valda_brightaxe", additionalCosts:$num);
  }
  if ($mainPhase && (SearchCharacterActive($otherPlayer, "valda_seismic_impact") || SearchCurrentTurnEffects("valda_seismic_impact-SHIYANA", $otherPlayer) && SearchCharacterActive($otherPlayer, "shiyana_diamond_gemini"))) {
    AddLayer("TRIGGER", $otherPlayer, "valda_seismic_impact", additionalCosts:$num);
  }
  if (SearchCharacterActive($player, "earthlore_bounty")) {
    $context = $effectSource != "-" ? $effectSource : $EffectContext;
    if ($context != "-") {
      $cardType = CardType($context);
      if (DelimStringContains($cardType, "A") || $cardType == "AA") PlayAura("seismic_surge", $player, $num, effectSource:"earthlore_bounty");
    }
  }
  $myAuras = GetAuras($player);
  for ($i = count($myAuras) - AuraPieces(); $i >= 0; $i -= AuraPieces()) {
    switch ($myAuras[$i]) {
      case "escalate_bloodshed_red":
        if ($mainPhase) {
          //TODO rework this to be a respondable trigger
          WriteLog("🩸 You bleed from " . CardLink("escalate_bloodshed_red", "escalate_bloodshed_red"));
          PlayerLoseHealth($num, $player, true);
        }
        break;
      default:
        break;
    }
  }
  $theirAuras = GetAuras($otherPlayer);
  for ($i = count($theirAuras) - AuraPieces(); $i >= 0; $i -= AuraPieces()) {
    switch ($theirAuras[$i]) {
      case "escalate_bloodshed_red":
        if ($mainPhase) {
          //TODO rework this to be a respondable trigger
          WriteLog("🩸 You bleed from " . CardLink("escalate_bloodshed_red", "escalate_bloodshed_red"));
          LoseHealth($num, $player);
        }
        break;
      default:
        break;
    }
  }
  $index = count($hand) - 1 ;
  if ($effectSource == "tectonic_instability_blue") {
    //indicates that the draw resolved without getting replaced or prevented
    return 1;
  }
  return $index >= 0 ? $hand[$index] : -1;
}

function ChooseToPay($player, $cardID, $amounts)
{
  AddDecisionQueue("SETDQCONTEXT", $player, "Choose how much to pay for " . CardLink($cardID, $cardID));
  AddDecisionQueue("BUTTONINPUT", $player, $amounts);
  AddDecisionQueue("PAYRESOURCES", $player, "<-", 1);
  AddDecisionQueue("LESSTHANPASS", $player, "1", 1);
}

function WardPoppedAbility($player, $cardID)
{
  if (SearchCharacterActive($player, "celestial_kimono", setInactive: true)) {
    GainResources($player, 1);
    WriteLog("Player " . $player . " gained 1 resource from " . CardLink("celestial_kimono", "celestial_kimono"));
  }
  if (SearchCharacterActive($player, "diadem_of_dreamstate", setInactive: true) || $cardID == "diadem_of_dreamstate") {
    AddDecisionQueue("YESNO", $player, "if_you_want_to_pay_1_to_create_a_".CardLink("ponder", "ponder"));
    AddDecisionQueue("NOPASS", $player, "-");
    AddDecisionQueue("PAYRESOURCES", $player, "1", 1);
    AddDecisionQueue("PLAYAURA", $player, "ponder-1", 1);
  }
  if ($cardID == "fluttersteps") {
    AddCurrentTurnEffect("fluttersteps", $player);
  }
}

function BanishHand($player)
{
  $hand = &GetHand($player);
  $banishedCards = "";
  for ($i = 0; $i < count($hand); ++$i) {
    if ($banishedCards != "") $banishedCards .= ",";
    $banishedCards .= $hand[$i];
    BanishCardForPlayer($hand[$i], $player, "HAND", "-", $player);
  }
  $hand = [];
  return $banishedCards;
}

function EvoOnPlayHandling($player)
{
  $Hero = new CharacterCard(0, $player);
  if (SearchCurrentTurnEffects("teklovossen_esteemed_magnate", $player, true) || SearchCurrentTurnEffects("teklovossen", $player, true)) {
    AddLayer("TRIGGER", $player, $Hero->CardID());
  }
}

function EvoHandling($cardID, $player, $from)
{
  global $dqVars, $CombatChain, $ChainLinks;
  $char = &GetPlayerCharacter($player);
  $slot = "";
  $otherPlayer = $player == 1 ? 2 : 1;
  if (SubtypeContains($cardID, "Head")) $slot = "Head";
  else if (SubtypeContains($cardID, "Chest")) $slot = "Chest";
  else if (SubtypeContains($cardID, "Arms")) $slot = "Arms";
  else if (SubtypeContains($cardID, "Legs")) $slot = "Legs";
  $replaced = 0;
  for ($i = 0; $i < count($char); $i += CharacterPieces()) {
    if (!$replaced && SubtypeContains($char[$i], $slot, uniqueID:$char[$i + 11])) {
      if (SubtypeContains($char[$i], "Base") && $char[$i + 1] != 0) {
        $CombatChain->Remove(GetCombatChainIndex($char[$i], $player));
        $ChainLinks->RemoveOriginUID($char[$i + 11]);
        CharacterAddSubcard($player, $i, $char[$i]);
        $fromCardID = $char[$i];
        $char[$i + 2] = 0;//Reset counters
        $char[$i + 4] = 0;//Reset defense counters
        $char[$i + 6] = 0;//Not on chain anymore
        $char[$i] = $cardID . "_equip";
        $char[$i + 7] = 0;//Should not be flagged for destruction
        $char[$i + 8] = 0;//Should not be frozen
        $char[$i + 9] = CharacterDefaultActiveState($char[$i]);
        $char[$i + 11] = GetUniqueId($char[$i], $player);//new object, so old effects shouldn't track it
        $char[$i + 12] = "UP"; // should be faceup
        $char[$i + 13] = 0; // removes mark
        $char[$i + 14] = 0; // untaps
        $dqVars[1] = $i;
        EvoTransformAbility($char[$i], $fromCardID, $player);
        $replaced = 1;
      }
    }
  }
  if (!$replaced) {
    if (substr($from, 0, 5) != "THEIR") AddGraveyard($cardID, $player, "HAND", $player);
    else AddGraveyard($cardID, $otherPlayer, "GRAVEYARD", $player);
    WriteLog("<b>🚫 *ERR0R* // No base of that type equipped //</b>");
  }
}

function CharacterAddSubcard($player, $index, $card)
{
  $char = &GetPlayerCharacter($player);
  if (isSubcardEmpty($char, $index)) $char[$index + 10] = $card;
  else $char[$index + 10] = $char[$index + 10] . "," . $card;
}

function CharacterChooseSubcard($player, $index, $fromDQ = false, $count = 1, $isMandatory = true, $actionName = "banish", $isSubsequent=false)
{
  $character = &GetPlayerCharacter($player);
  $subcards = explode(",", $character[$index + 10]);
  $subcardsCount = count($subcards);
  $chooseMultizoneData = "";
  for ($i = 0; $i < $subcardsCount; $i++) {
    if ($chooseMultizoneData == "") $chooseMultizoneData = "CARDID-" . $subcards[$i];
    else $chooseMultizoneData = $chooseMultizoneData . ",CARDID-" . $subcards[$i];
  }
  if ($chooseMultizoneData != "") {
    if ($count == 1) {
      AddDecisionQueue("SETDQCONTEXT", $player, "Choose a subcard to $actionName from " . CardName($character[$index]), $isSubsequent);
      if ($isMandatory) AddDecisionQueue("CHOOSEMULTIZONE", $player, $chooseMultizoneData, $isSubsequent);
      else AddDecisionQueue("MAYCHOOSEMULTIZONE", $player, $chooseMultizoneData, $isSubsequent);
      AddDecisionQueue("MZOP", $player, "GETCARDINDEX", 1);
      if ($character[0] == "teklovossen_the_mechropotent") AddDecisionQueue("REMOVESOUL", $player, $index, 1);
      AddDecisionQueue("REMOVESUBCARD", $player, $index, 1);
    } else {
      AddDecisionQueue("SETDQCONTEXT", $player, "Choose " . $count . " subcards to $actionName from " . CardName($character[$index]));
      AddDecisionQueue("MULTICHOOSESUBCARDS", $player, $count . "-" . str_replace("CARDID-", "", $chooseMultizoneData) . "-" . $count);
      if ($character[0] == "teklovossen_the_mechropotent") AddDecisionQueue("REMOVESOUL", $player, $index);
      AddDecisionQueue("REMOVESUBCARD", $player, $index);
    }
  }
}

function ItemChooseaAndRemoveSubcard($player, $index, $fromDQ = false, $count = 1, $isMandatory = true, $actionName = "banish", $isSubsequent=false) {
  $ItemCard = new ItemCard($index, $player);
  $subcards = explode(",", $ItemCard->SubCards());
  $subcardsCount = count($subcards);
  $chooseMultizoneData = "";
  for ($i = 0; $i < $subcardsCount; $i++) {
    if ($chooseMultizoneData == "") $chooseMultizoneData = "CARDID-" . $subcards[$i];
    else $chooseMultizoneData = $chooseMultizoneData . ",CARDID-" . $subcards[$i];
  }
  if ($chooseMultizoneData != "") {
    if ($count == 1) {
      AddDecisionQueue("SETDQCONTEXT", $player, "Choose a subcard to $actionName from " . CardName($ItemCard->CardID()), $isSubsequent);
      if ($isMandatory) AddDecisionQueue("CHOOSEMULTIZONE", $player, $chooseMultizoneData, $isSubsequent);
      else AddDecisionQueue("MAYCHOOSEMULTIZONE", $player, $chooseMultizoneData, $isSubsequent);
      AddDecisionQueue("MZOP", $player, "GETCARDINDEX", 1);
      AddDecisionQueue("REMOVEITEMSUBCARD", $player, $index, 1);
    } else {
      AddDecisionQueue("SETDQCONTEXT", $player, "Choose " . $count . " subcards to $actionName from " . CardName($ItemCard->CardID()));
      AddDecisionQueue("MULTICHOOSESUBCARDS", $player, $count . "-" . str_replace("CARDID-", "", $chooseMultizoneData) . "-" . $count);
      AddDecisionQueue("REMOVEITEMSUBCARD", $player, $index);
    }
  }
}

function EvoHasUnderCard($player, $index)
{
  $char = &GetPlayerCharacter($player);
  return $char[$index + 10] != "" && $char[$index + 10] != "-";
}

function EvoTransformAbility($toCardID, $fromCardID, $player = "")
{
  global $CombatChain;

  $otherPlayer = $player == 1 ? 2 : 1;
  switch ($toCardID) {
    case "evo_steel_soul_memory_blue":
    case "evo_steel_soul_memory_blue_equip":
      if (SubtypeContains($fromCardID, "Evo", $player) && CardName($fromCardID) != CardName($toCardID))
        AddCurrentTurnEffect($toCardID, $player);
      break;
    case "evo_steel_soul_processor_blue":
    case "evo_steel_soul_processor_blue_equip":
      if (SubtypeContains($fromCardID, "Evo", $player) && CardName($fromCardID) != CardName($toCardID))
        GainResources($player, 3);
      break;
    case "evo_steel_soul_controller_blue":
    case "evo_steel_soul_controller_blue_equip":
      if (SubtypeContains($fromCardID, "Evo", $player) && CardName($fromCardID) != CardName($toCardID)) {
        MZMoveCard($player, "MYDISCARD:type=AA;maxAttack=6;minAttack=6", "MYTOPDECK-4", true);
      }
      break;
    case "evo_steel_soul_tower_blue":
    case "evo_steel_soul_tower_blue_equip":
      if (SubtypeContains($fromCardID, "Evo", $player) && CardName($fromCardID) != CardName($toCardID))
        GainActionPoints(1, $player);
      break;
    case "evo_zoom_call_yellow":
    case "evo_zoom_call_yellow_equip":
      MZChooseAndBanish($player, "MYHAND", "HAND,-", may: true);
      AddDecisionQueue("DRAW", $player, "-", 1);
      break;
    case "evo_buzz_hive_yellow":
    case "evo_buzz_hive_yellow_equip":
      GainResources($player, 1);
      break;
    case "evo_whizz_bang_yellow":
    case "evo_whizz_bang_yellow_equip":
      if ($CombatChain->HasCurrentLink() || IsLayerStep()) {
        AddCurrentTurnEffect("evo_whizz_bang_yellow", $player);
      }
      break;
    case "evo_zip_line_yellow":
    case "evo_zip_line_yellow_equip":
      if ($CombatChain->HasCurrentLink() || IsLayerStep()) {
        AddDecisionQueue("YESNO", $player, "if you want to give the current attack go again");
        AddDecisionQueue("NOPASS", $player, "-");
        AddDecisionQueue("GIVEACTIONGOAGAIN", $player, "AA", 1);
      }
      break;
    case "evo_recall_blue":
    case "evo_recall_blue_equip":
      MZMoveCard($player, "MYBANISH:type=AA;class=MECHANOLOGIST&MYBANISH:type=A;class=MECHANOLOGIST", "MYTOPDECK", true, true);
      break;
    case "evo_heartdrive_blue":
    case "evo_heartdrive_blue_equip":
      AddCurrentTurnEffect("evo_heartdrive_blue", $player);
      break;
    case "evo_shortcircuit_blue":
    case "evo_shortcircuit_blue_equip":
      AddDecisionQueue("MULTIZONEINDICES", $player, "MYCHAR:type=C&THEIRCHAR:type=C&MYALLY&THEIRALLY", 1);
      AddDecisionQueue("SETDQCONTEXT", $player, "Choose a target to deal 1 damage");
      AddDecisionQueue("CHOOSEMULTIZONE", $player, "<-", 1);
      AddDecisionQueue("MZDAMAGE", $player, "1,DAMAGE," . $toCardID, 1);
      break;
    case "evo_speedslip_blue":
    case "evo_speedslip_blue_equip":
      AddCurrentTurnEffect("evo_speedslip_blue", $player);
      break;
    default:
      break;
  }
  switch ($fromCardID) {
    case "evo_steel_soul_memory_blue_equip":
      if (TypeContains($toCardID, "C", $player)) {
        AddCurrentTurnEffect($fromCardID, $player);
        AddCurrentTurnEffect($fromCardID, $player);
      } else if (SubtypeContains($toCardID, "Evo", $player) && CardName($fromCardID) != CardName($toCardID)) {
        AddCurrentTurnEffect($fromCardID, $player);
      }
      break;
    case "evo_steel_soul_processor_blue_equip":
      if (TypeContains($toCardID, "C", $player)) {
        GainResources($player, 6);
      } else if (SubtypeContains($toCardID, "Evo", $player) && CardName($fromCardID) != CardName($toCardID)) {
        GainResources($player, 3);
      }
      break;
    case "evo_steel_soul_controller_blue_equip":
      if (TypeContains($toCardID, "C", $player)) {
        MZMoveCard($player, "MYDISCARD:type=AA;minAttack=6;maxAttack=6", "MYTOPDECK-4", true);
        MZMoveCard($player, "MYDISCARD:type=AA;minAttack=6;maxAttack=6", "MYTOPDECK-4", true);
      } else if (SubtypeContains($toCardID, "Evo", $player) && CardName($fromCardID) != CardName($toCardID)) {
        MZMoveCard($player, "MYDISCARD:type=AA;minAttack=6;maxAttack=6", "MYTOPDECK-4", true);
      }
      break;
    case "evo_steel_soul_tower_blue_equip":
      if (TypeContains($toCardID, "C", $player)) {
        GainActionPoints(2, $player);
      } else if (SubtypeContains($toCardID, "Evo", $player) && CardName($fromCardID) != CardName($toCardID)) {
        GainActionPoints(1, $player);
      }
      break;
    default:
      break;
  }
}

function EvoUpgradeAmount($player)
{
  $amount = 0;
  $amount += SearchCount(SearchCharacter($player, subtype: "Evo"));
  if (FindCharacterIndex($player, "teklovossen_the_mechropotent") != -1) $amount += 2; //Only +2 as we already find teklovossen_the_mechropotent and teklovossen_the_mechropotentb counted in the search SearchCount(SearchCharacter($player, subtype:"Evo"))
  return $amount;
}

function EquipmentsUsingSteamCounter($charID)
{
  switch ($charID) {
    case "cogwerx_base_head":
    case "cogwerx_base_chest":
    case "cogwerx_base_arms":
    case "cogwerx_base_legs":
      return true;
    default:
      return false;
  }
}

function CheckIfConstructNitroMechanoidConditionsAreMet($currentPlayer)
{
  $hasHead = false;
  $hasChest = false;
  $hasArms = false;
  $hasLegs = false;
  $hasWeapon = false;
  $char = &GetPlayerCharacter($currentPlayer);
  for ($i = 0; $i < count($char); $i += CharacterPieces()) {
    $characterCardID = $char[$i];
    if ($char[$i + 1] == 0) continue;
    if (!ClassContains($characterCardID, "MECHANOLOGIST", $currentPlayer)) continue;
    if (CardType($characterCardID) == "W") $hasWeapon = true;
    else {
      if (SubtypeContains($characterCardID, "Head", $currentPlayer, $char[$i + 11])) $hasHead = true;
      if (SubtypeContains($characterCardID, "Chest", $currentPlayer, $char[$i + 11])) $hasChest = true;
      if (SubtypeContains($characterCardID, "Arms", $currentPlayer, $char[$i + 11])) $hasArms = true;
      if (SubtypeContains($characterCardID, "Legs", $currentPlayer, $char[$i + 11])) $hasLegs = true;
    }
  }
  if (!$hasHead || !$hasChest || !$hasArms || !$hasLegs || !$hasWeapon) return "You do not meet the equipment requirement";
  if (SearchCount(SearchMultizone($currentPlayer, "MYITEMS:isSameName=hyper_driver")) < 3) return "You don't meet the ".CardLink("hyper_driver", "hyper_driver_red")." requirement";
  return "";
}

function CheckIfSingularityConditionsAreMet($currentPlayer)
{
  $hasWeapon = false;
  $evoCount = 0;
  $char = &GetPlayerCharacter($currentPlayer);
  $charCount = count($char);
  $charPieces = CharacterPieces();
  for ($i = 0; $i < $charCount; $i += $charPieces) {
    if ($char[$i + 1] == 0) continue;
    if (CardType($char[$i]) == "W") $hasWeapon = true;
    if (SubtypeContains($char[$i], "Evo")) $evoCount++;
  }
  if (!$hasWeapon) return "You do not meet the weapon requirement";
  if ($evoCount < 4) return "You do not meet the Evo requirement";
  return "";
}

function CanOnlyTargetHeroes($cardID)
{
  switch ($cardID) {
    case "apocalypse_automaton_red":
      return true;
    default:
      return false;
  }
}

function NonHitEffects($cardID)
{
  global $mainPlayer, $defPlayer, $currentTurnEffects;
  for ($i = 0; $i < count($currentTurnEffects); $i += CurrentTurnEffectsPieces()) {
    if ($currentTurnEffects[$i] == $cardID && $currentTurnEffects[$i + 1] == $mainPlayer) {
      switch ($currentTurnEffects[$i]) {
        case "send_packing_yellow":
          RemoveCurrentTurnEffect($i);
          $banish = new Banish($defPlayer);
          $banishedCard = $banish->FirstCardWithModifier($cardID);
          if ($banishedCard == null) break;
          $banishIndex = $banishedCard->Index();
          if ($banishIndex > -1) AddPlayerHand($banish->Remove($banishIndex), $defPlayer, "BANISH");
          break;
        default:
          break;
      }
    }
  }
}

function MentorTrigger($player, $index, $specificCard = "")
{
  $cardID = RemoveArsenal($player, $index);
  BanishCardForPlayer($cardID, $player, "ARS", "-");
  if ($specificCard != "") AddDecisionQueue("MULTIZONEINDICES", $player, "MYDECK:cardID=$specificCard");
  else AddDecisionQueue("MULTIZONEINDICES", $player, "MYDECK:specOnly=true");
  AddDecisionQueue("MAYCHOOSEMULTIZONE", $player, "<-", 1);
  AddDecisionQueue("MZADDZONE", $player, "MYARS,DECK,UP", 1);
  AddDecisionQueue("MZREMOVE", $player, "-", 1);
  AddDecisionQueue("SHUFFLEDECK", $player, "-");
}

//handles moving a card to where it's supposed to go *after* it resolves
function ResolveCard($cardID, $from, $definedCardType, $additionalCosts) {
  global $currentPlayer, $turn;
  if (!GoesOnCombatChain($turn[0], $cardID, $from, $currentPlayer) && $from != "PLAY" && $from != "EQUIP" && $from != "COMBATCHAINATTACKS" && $cardID != "quickdodge_flexors") {
    $cardSubtype = CardSubType($cardID);
    if (DelimStringContains($cardSubtype, "Aura")) PlayAura($cardID, $currentPlayer, from: $from, additionalCosts: $additionalCosts);
    else if (DelimStringContains($cardSubtype, "Ally")) PlayAlly($cardID, $currentPlayer, from: $from);
    else if (DelimStringContains($cardSubtype, "Item")) PutItemIntoPlayForPlayer($cardID, $currentPlayer, from: $from);
    else if ($cardSubtype == "Landmark") PlayLandmark($cardID, $currentPlayer, $from);
    else if (DelimStringContains($cardSubtype, "Figment")) PutPermanentIntoPlay($currentPlayer, $cardID, from: $from);
    else if (DelimStringContains($cardSubtype, "Evo")); //evos handled elsewhere
    else if ($definedCardType != "C" && $definedCardType != "E" && $definedCardType != "W" && $definedCardType != "Macro") {
      $goesWhere = GoesWhereAfterResolving($cardID, $from, $currentPlayer, additionalCosts: $additionalCosts);
      // make sure the card goes to the graveyard after it resolves
      Await($currentPlayer, "ResolveGoesWhere", cardID:$cardID, goesWhere:$goesWhere, from:$from, final:true, subsequent:false);
    }
  }
}

function ResolveGoesWhere($goesWhere, $cardID, $player, $from, $effectController = "", $modifier = "NA")
{
  if($effectController == "") $effectController = $player;
  $otherPlayer = $player == 1 ? 2 : 1;
  switch ($goesWhere) {
    case "BOTDECK":
      AddBottomDeck($cardID, $player, $from);
      break;
    case "HAND":
      AddPlayerHand($cardID, $player, $from);
      break;
    case "GY":
      if ($from == "CC") break; //Things that would go to the GY stay on till the chain is closing and the close step.
      if ($from == "CHAINCLOSING") $from = "CC";
      if (DelimStringContains(CardSubType($cardID), "Affliction") && $from != "CC") $player = $otherPlayer;
      return AddGraveyard($cardID, $player, $from, $effectController);
    case "SOUL":
      AddSoul($cardID, $player, $from);
      break;
    case "BANISH":
      BanishCardForPlayer($cardID, $player, $from, $modifier);
      break;
    case "THEIRHAND":
      AddPlayerHand($cardID, $otherPlayer, $from);
      break;
    case "THEIRBANISH":
      BanishCardForPlayer($cardID, $otherPlayer, $from, $modifier);
      break;
    case "THEIRDISCARD":
      return AddGraveyard($cardID, $otherPlayer, $from, $effectController);
    case "THEIRBOTDECK":
      AddBottomDeck($cardID, $otherPlayer, $from);
      break;
    default:
      break;
  }
  return "-";
}

function isPreviousLinkDraconic()
{
  global $chainLinkSummary;
  $isDraconic = false;
  if (count($chainLinkSummary) == 0) return $isDraconic; # No previous links so nothing happens if this is true
  $talents = explode(",", $chainLinkSummary[count($chainLinkSummary) - ChainLinkSummaryPieces() + 2]); # Search through the talent types logged on the previous link
  for ($i = 0; $i < count($talents); ++$i) { # Cycle through talents to see if that previous link was Draconic
    if ($talents[$i] == "DRACONIC") $isDraconic = true;
  }
  return $isDraconic;
}

function NumSeismicSurge($player)
{
  $auras = &GetAuras($player);
  $count = 0;
  for($i=0; $i<count($auras); $i+=AuraPieces())
  {
    if(CardNameContains($auras[$i], "Seismic Surge", $player)) ++$count;
  }
  return $count;
}

function Pitch($cardID, $player)
{
  $pitch = &GetPitch($player);
  WriteLog("Player " . $player . " pitched " . CardLink($cardID, $cardID));
  $pitch[] = $cardID;
  PitchAbility($cardID, "DECK");
  $resources = &GetResources($player);
  $resources[0] += PitchValue($cardID);
}

function IsPlayed($cardID, $from="", $player=-1, $index=0) {
  global $layers;

  $cardType = CardType($cardID, $from, $player);
  if (IsStaticType($cardType, $from, $cardID)) return false;
  if (isset($layers[$index])) {
    if ($layers[$index] != $cardID) return false;
    else return true;
  }
  else {
    // below is an alternate implementation. The two should be equivalent, but for now above is simpler.
    // use this as a fallback in case something goes wrong with the above
    $abilityTypes = GetAbilityTypes($cardID, $index, $from);
    if ($abilityTypes == "") return true;
    $resolvedAbilityType = GetResolvedAbilityType($cardID, $from, $player);
    if ($resolvedAbilityType != $cardType) return false;
    return true;
  }
}

function TurnArsenalFaceUp($player) {
  $arsenal = &GetArsenal($player);
  for ($i = 0; $i < count($arsenal); $i += ArsenalPieces()) {
    if ($arsenal[$i + 1] == "DOWN") {
      $arsenal[$i + 1] = "UP";
      ArsenalTurnFaceUpAbility($arsenal[$i], $player);
    }
  }
}

function SetTargets($player, $cardID, $search, $N=1, $may=false) {
  for ($i = 0; $i < $N; ++$i) {
    $nLeft = $N - $i;
    if ($N == 1) {
      $message = "Choose a target";
      if ($may) $message .= " or pass";
    }
    elseif ($nLeft == 1) {
      if ($may) $message = "Choose up to one more target";
      else $message = "Choose one more target";
    }
    else {
      if ($may) $message = "Choose up to $nLeft more targets";
      else $message = "Choose $nLeft more targets";
    }
    Await($player, "MultiTargetIndices", "indices", search:$search, subsequent:$i != 0);
    Await($player, "ChooseMultiZone", "index", may:$may, context:$message);
    Await($player, "SetLayerTarget", "currentTargets", layerID:$cardID, final:$nLeft == 1);
  }
}