[Tyrant Unleashed] Download your cards into a ownedcards.txt file, and your decks into a currentdecks.txt, for use with the optimiser. From your browser, get the response from the api.php?message=init request into a file named json.txt in the /data/ directory of the optimiser, along with this script. Reqs Powershell 7. Will create two files in t…

download_owned_cards.ps1

$stopwatch = [Diagnostics.Stopwatch]::StartNew()

if (-not (Test-Path "json.txt")) {
    Write-Host "[-] To update owned cards, supply the response to api.php?message=init in json.txt"
    exit 1
}
$account_details = Get-Content "json.txt" | ConvertFrom-JSON -AsHashtable

if (-not (Test-Path "cards_section*.xml")) {
    Write-Host "[-] Run this script inside the optimiser's /data/ directory"
    exit 2
}
$card_definition_XMLs = Get-ChildItem "cards_section*.xml"

# Hash the XMLs
$checksums = @()
$card_definition_XMLs | ForEach-Object -Begin { $counter = 0 } -Process {
    $fname = $_
    $checksums += (Get-FileHash -Path $fname.Name -Algorithm SHA256).Hash
    $counter += 1
    Write-Progress -Activity "Updating" -Status "Verifying card definitions" -PercentComplete ($counter / $card_definition_XMLs.Count * 100)
}
# Compare hashes of cards_section*.xml - only update if modifications exist:
if ((Test-Path "xml-checksums.txt") -and ((Compare-Object -ReferenceObject (Import-Clixml -Path "xml-checksums.txt") -DifferenceObject $checksums) -eq $null)) {
    Write-Host "[+] cards_section*.xml are identical, not reparsing.."
    $are_cards_updated = false
} else {
    Write-Host "[!] cards_section*.xml have changed. Reparsing.."
    $checksums | Export-Clixml -Path "xml-checksums.txt"
    $are_cards_updated = true
}

# Import card data:
$carddata = Import-Clixml -Path all-card-data.xml
if ($are_cards_updated -or $carddata -eq $null) {
    $xmlcardslist = @()
    $card_definition_XMLs | ForEach-Object -Begin { $counter = 0 } -Process {
        $xmlcardslist += [xml](Get-Content -ReadCount 0 $_)
        $counter += 1
        Write-Progress -Activity "Updating" -Status "Loading card definitions" -PercentComplete ($counter / $card_definition_XMLs.Count * 100)
    }

    $carddata = @{}
    $xmlcardslist | ForEach-Object -Begin { $counter = 0 } -Process {
        $list = $_
        foreach ($card in $list.root.unit) {
            $name = $card.name
            $carddata.add([int]$card.id, $name + "-1")
            if (($card.selectnodes("upgrade") | measure).count -gt 0) {
                foreach ($upg in $card.upgrade) {
                    $carddata.add([int]$upg.card_id, ($name + "-" + $upg.level))
                }
            }
        }
        $counter += 1
        Write-Progress -Activity "Updating" -Status "Generating cards" -PercentComplete ($counter / $xmlcardslist.Count * 100)
    }
    # Store card data:
    $carddata | Export-Clixml -Path all-card-data.xml
}

# Build & make a request:
$request = $account_details.request
$fields = New-Object System.Collections.Specialized.NameValueCollection
$fields.Add("password", $request.password)
$fields.Add("user_id", $request.user_id)
$fields.Add("hash", $request.hash)
$fields.Add("syncode", $request.syncode)
$fields.Add("kong_id", $request.kong_id)
$fields.Add("kong_token", $request.kong_token)
$fields.Add("kong_name", $request.kong_name)
############################################################
# If you are behind a proxy, un-comment the following lines:
# $proxy = new-object System.Net.WebProxy "myproxy:port"
# $webclient.UseDefaultCredentials = $true
# $proxy.Credentials = $webclient.Credentials
# $webclient.proxy=$proxy
############################################################
$url = "https://mobile.tyrantonline.com/api.php?message=init&user_id=" + $request.user_id
$webclient = New-Object System.Net.WebClient
try {
    $req_stopwatch  = [Diagnostics.Stopwatch]::StartNew()
    $req = $webclient.UploadValues($url, $fields)
    $req_stopwatch.stop()
    Write-Host $([string]::Format("[?] Request finished in {0:ss\.fff} sec", $req_stopwatch.elapsed))
}
catch [system.net.WebException] {
    Write-Host "[-] Unable to open stream or no response."
    exit 3
}
$x = (New-Object Text.UTF8Encoding).GetString($req)
$x | Out-File -Encoding "ASCII" "json.txt"

# Create a temporary file, mark it with date in case it needs to be debugged:
Set-Content -Path "./_ownedcards.txt" -Value "// $(Get-Date)"

$response_dict = ConvertFrom-JSON -AsHashtable -InputObject $x
$cards = $response_dict.user_cards
Write-Host "[?] Response has $($cards.Count) cards"
$text = ""
$cards.GetEnumerator() | ForEach-Object -Begin { $counter = 0 } -Process {
    $id = $_.name
    if ($cards[$id].num_owned -lt 1) {
        $counter += 1
        Write-Progress -Activity "Updating" -Status "Saving cards" -PercentComplete ($counter / $cards.Count * 100)
        return
    }
    # The card definitions are keyed with int instead of string:
    $text += $carddata.get_item([int]$id)
    # The optimiser accepts multiples of a card in a deck as #N,
    # but in ownedcards.txt as (N) ...
    if ($cards[$id].num_owned -gt 1) {
        $text += " (" + $cards[$id].num_owned + ")"
    }
    # The game XML uses "-N" for maxed cards,
    # but the optimiser wants no suffix...
    $text = $text.replace("-6", "")
    $text += "`r`n"
    $counter += 1
    Write-Progress -Activity "Updating" -Status "Saving cards" -PercentComplete ($counter / $cards.Count * 100)
} -End {
    Write-Host -NoNewline "[+] Ready to write $($counter) cards..."
}
Out-File -Encoding "ASCII" -InputObject $text -Append "_ownedcards.txt"
# Create or replace the content of ownedcards.txt if it exists:
Get-Content _ownedcards.txt | Set-Content ownedcards.txt
Remove-Item "_ownedcards.txt"
Write-Host "done."

# Create a file for decks, mark it with date in case it needs to be debugged:
Set-Content -Path "./currentdecks.txt" -Value "// $(Get-Date)"
Write-Host "[?] Response has $($response_dict.user_decks.Count) decks"
$decks = $response_dict.user_decks
$text = ""
$decks.GetEnumerator() | ForEach-Object -Begin { $counter = 0 } -Process {
    $id = $_.name
    $deck = $decks[$id]
    # Commander:
    $text += $carddata.get_item([int]$deck.commander_id)
    # Dominion:
    $text += ","
    $text += $carddata.get_item([int]$deck.dominion_id)
    foreach ($card_id in $deck.cards.Keys) {
        # Card
        $text += ","
        $text += $carddata.get_item([int]$card_id)
        if ($deck.cards[$card_id] -gt 1) {
            $text += " #$($deck.cards[$card_id])"
        }
    }
    $text += "`r`n"
    $counter += 1
    Write-Progress -Activity "Updating" -Status "Saving decks" -PercentComplete ($counter / $response_dict.user_decks.Count * 100)
} -End {
    Write-Host -NoNewline "[+] Ready to write $($counter) decks..."
}
Out-File -Encoding "ASCII" -InputObject $text -Append "currentdecks.txt"
Write-Host "done."

$stopwatch.stop()
Write-Host $([string]::Format("[?] Finished in {0:ss\.fff} :-)", $stopwatch.elapsed))
Write-Progress -Activity "Updating" -Status "Done" -PercentComplete 100
exit 0