EverQuest 2 » ISXEQ2

This will require version 20160707.0007 or later (which is currently the isxeq2 'test' build until tomorrow's patch.)

    variable int Counter = 1
    variable index:collection:string Categories
    variable iterator CategoriesIterator
    variable int CategoryCounter = 0
    
    ;; ensure that no windows are open
    eq2execute /close_top_window
    wait 5
    eq2execute /close_top_window
    wait 5
    eq2execute /close_top_window     ;; Open Persona Window
    eq2execute /togglepersona
    wait 5
    
    ;; Ensure that CategoryListBox is still child #2
    if (!${EQ2UIPage[Mainhud,Persona].Child[page,Persona.Categories].Child[2].Type.Equal["Listbox"]} ||
        !${EQ2UIPage[Mainhud,Persona].Child[page,Persona.Categories].Child[2].GetProperty[Name].Equal["CatetoryListbox"])
    {
        echo "The EQ2UI has changed.  The 'CategoryListbox' is no longer child 2 of Persona.Categories.  This script will need to be updated."
        return
    }
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ;; Open the "Currency" Tab
    EQ2UIPage[Mainhud,Persona].Child[page,Persona.Categories].Child[2]:GetOptions[Categories]
    Categories:GetIterator[CategoriesIterator]    
    if (${CategoriesIterator:First(exists)})
    {
        do
        {
            if (${CategoriesIterator.Value.FirstKey(exists)})
            {
                if (${CategoriesIterator.Value.Element["Name"].Equal["Currency"]})
                {
                    EQ2UIPage[Mainhud,Persona].Child[page,Persona.Categories].Child[2]:SetProperty[SelectedItemIndex,${CategoriesIterator.Value.Element["v0"]}]
                }
            
                ;; Spew Values (if desired)
                ;do
                ;{
                ;    echo "Option #${CategoryCounter}::  '${CategoriesIterator.Value.CurrentKey}' => '${CategoriesIterator.Value.CurrentValue}'"
                ;}
                ;while ${CategoriesIterator.Value.NextKey(exists)}
                ;echo "------"
            }
            CategoryCounter:Inc
        }
        while ${CategoriesIterator:Next(exists)}
    }
    else
    {
        echo "It appears that the Persona category list is empty!"
        return
    }
    ;;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
         ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ;; Spew Information within the Currency tab
    if (${EQ2UIPage[Mainhud,Persona].Child[page,Persona.MainPage.CurrencyPage.currencylist.scrollpage].NumChildren} > 0)
    {
        do
        {
            if (${EQ2UIPage[Mainhud,Persona].Child[page,Persona.MainPage.CurrencyPage.currencylist.scrollpage].Child[${Counter}].Type.Equal["Text"]})
            {
                echo "${Counter}: eq2text (${EQ2UIPage[Mainhud,Persona].Child[page,Persona.MainPage.CurrencyPage.currencylist.scrollpage].Child[${Counter}].GetProperty[LocalText]})"
            }
            else
            {
                ;echo "${Counter}. [${EQ2UIPage[Mainhud,Persona].Child[page,Persona.MainPage.CurrencyPage.currencylist.scrollpage].Child[${Counter}].Type}]"
            }
        }
        while (${Counter:Inc} <= ${EQ2UIPage[Mainhud,Persona].Child[page,Persona.MainPage.CurrencyPage.currencylist.scrollpage].NumChildren})
    }
    ;;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;