command /portfel [<text>]:
    trigger: 
        send "&aStan konta: &c%{portfelKasa::%player%}%zl"     
        
command /dodaj [<offlineplayer>] [<text>]:
    permission: admin.dodaj
    permission message: &cBrak uprawnien! 
    trigger:
        arg 1 is not set:
            send "&cUzycie: &7/dodaj (nick) (ilosc)" 
            stop
        (arg 2 parsed as number) is not set:
            send "&cUzycie: &7/dodaj (nick) (ilosc)" 
            stop
        add (arg 2 parsed as number) to {portfelKasa::%arg-1%}
        send "&aDodano &7%arg 2%zl &agraczowi &7%arg 1%"
    
command /zabierz [<offlineplayer>] [<text>]:
    permission: admin.zabierz
    permission message: &cBrak uprawnien! 
    trigger:
        arg 1 is not set:
            send "&cUzycie: &7/zabierz (nick) (ilosc)" to sender
            stop
        (arg 2 parsed as number) is not set:
            send "&cUzycie: &7/zabierz (nick) (ilosc)" to sender
            stop 
        if {_hajs} < (arg 2 parsed as number):
            set {portfelKasa::%arg-1%} to 0
        else:
            remove (arg 2 parsed as number) from {portfelKasa::%arg-1%}
        send "&aZabrano &7%arg 2%zl &agraczowi &7%arg 1%" to sender
                     
on placeholder request with prefix "portfel":
    if the identifier is "hajs":
        set the result to "%{portfelKasa::%player%}%"

every 2 minutes:
    set {top::*} to createTop("portfelKasa", 10, "&2[INDEX] &a[PLAYER] &e[VALUE]")

command /topbogaci:
    trigger:
        send "&7Topka aktualizuje się co 2min." to player
        send "&6&lTOP 10 najbogatszych graczy z serwera!:" to player
        send {top::*} to player

function createTop(name: string, size: integer, list: objects, reversed: boolean=false, format: string="[P] - [V]") :: strings:
    set {_index} to 1
    if {_size} = 0:
        return ""
    if {_size} < 0:
        set {_size} to ({_size} * (-1))
    loop {_list::*}:
        if {%{_name}%::%loop-value%} = number or timespan or date:
            set {_top::%{_index}%} to {%{_name}%::%loop-value%}
            set {_players::%{_index}%} to "%loop-value%"
            add 1 to {_index}
    if {_size} > (size of {_players::*}):
        set {_size} to (size of {_players::*})
    loop {_size} times:
        loop {_top::*}:
            if {_max} is not set:
                set {_max} to loop-value-2
                set {_index} to loop-index
            else:
                if {_reversed} = false:
                    if loop-value-2 > {_max}:
                        set {_max} to loop-value-2
                        set {_index} to loop-index
                else:
                    if loop-value-2 < {_max}:
                        set {_max} to loop-value-2
                        set {_index} to loop-index
        set {_var} to {_format}
        replace "[PLAYER]" and "[P]" with {_players::%{_index}%} in {_var}
        replace "[INDEX]" and "[I]" with "%loop-number%" in {_var}
        replace "[VALUE]" and "[V]" with "%{_max}%" in {_var}
        add {_var} to {_return::*}
        delete {_players::%{_index}%}, {_top::%{_index}%}, {_max} and {_index}
    return {_return::*}