#
#vPomoc 1.1
#
function vjson(p: text, msg: text):
    set {_part::*} to {_msg} split at "||"
    set {_ch} to 1
    set {_constr} to ""
    loop {_part::*}:
        set {_nxtcl} to {_ch} + 1

        set {_tg} to the first 4 characters of loop-value
        set {_val} to subtext of loop-value from characters 5 to the length of loop-value

        if {_tg} is "ttp:":
            set {_type} to "tooltip"
        else if {_tg} is "cmd:":
            set {_type} to "run command"
        else if {_tg} is "url:":
            set {_type} to "url"
        else if {_tg} is "sgt:":
            set {_type} to "suggest command"
        else:
            set {_ntxt} to true

        if {_ntxt} is true:
            set {_constr} to "%{_constr}%%loop-value%"
        else:
            set {_constr} to "%{_constr}%<%{_type}%:%{_val}%>"

        add 1 to {_ch}
        clear {_ntxt}


    send formatted "%{_constr}%" to {_p} parsed as offline player
on script load:
    set {pomoc::pg1::line1} to "&aPierwsza strona pomocy"
    set {pomoc::pg1::line2} to "&aPierwsza strona pomocy"
    set {pomoc::pg1::line3} to "&aPierwsza strona pomocy"
    set {pomoc::pg1::line4} to "&aPierwsza strona pomocy"
    set {pomoc::pg1::line5} to "&aPierwsza strona pomocy"
    set {pomoc::pg2::line1} to "&aDruga strona pomocy"
    set {pomoc::pg2::line2} to "&aDruga strona pomocy"
    set {pomoc::pg2::line3} to "&aDruga strona pomocy"
    set {pomoc::pg2::line4} to "&aDruga strona pomocy"
    set {pomoc::pg2::line5} to "&aDruga strona pomocy"
    set {pomoc::pg3::line1} to "&aTrzecia strona pomocy"
    set {pomoc::pg3::line2} to "&aTrzecia strona pomocy"
    set {pomoc::pg3::line3} to "&aTrzecia strona pomocy"
    set {pomoc::pg3::line4} to "&aTrzecia strona pomocy"
    set {pomoc::pg3::line5} to "&aTrzecia strona pomocy"
    set {pomoc::pg4::line1} to "&aCzwarta strona pomocy"
    set {pomoc::pg4::line2} to "&aCzwarta strona pomocy"
    set {pomoc::pg4::line3} to "&aCzwarta strona pomocy"
    set {pomoc::pg4::line4} to "&aCzwarta strona pomocy"
    set {pomoc::pg4::line5} to "&aCzwarta strona pomocy"
    set {pomoc::pg5::line1} to "&aPiąta strona pomocy"
    set {pomoc::pg5::line2} to "&aPiąta strona pomocy"
    set {pomoc::pg5::line3} to "&aPiąta strona pomocy"
    set {pomoc::pg5::line4} to "&aPiąta strona pomocy"
    set {pomoc::pg5::line5} to "&aPiąta strona pomocy"
    set {pgcount} to 1

command /pomoc [<text>]:
    trigger:
        if arg 1 is not set:
            set {pgcount} to 1
            send ""
            send "%{pomoc::pg1::line1}%"
            send "%{pomoc::pg1::line2}%"
            send "%{pomoc::pg1::line3}%"
            send "%{pomoc::pg1::line4}%"
            send "%{pomoc::pg1::line5}%"
            send ""
            vjson("%player%", "cmd:/pomoc prevpage||ttp:&ePoprzednia strona||&6&l<<<|| &b&m-----&a&oStrona 1&b&m----- ||cmd:/pomoc nextpage||ttp:&eNastępna strona||&6&l>>>")
        else if arg 1 is "prevpage":
            if {pgcount} is not 1:
                remove 1 from {pgcount}
                set {_l1} to {pomoc::pg%{pgcount}%::line1}
                set {_l2} to {pomoc::pg%{pgcount}%::line2}
                set {_l3} to {pomoc::pg%{pgcount}%::line3}
                set {_l4} to {pomoc::pg%{pgcount}%::line4}
                set {_l5} to {pomoc::pg%{pgcount}%::line5}
                send ""
                send "%{_l1}%"
                send "%{_l2}%"
                send "%{_l3}%"
                send "%{_l4}%"
                send "%{_l5}%"
                send ""
                vjson("%player%", "cmd:/pomoc prevpage||ttp:&ePoprzednia strona||&6&l<<<|| &b&m-----&a&oStrona %{pgcount}%&b&m----- ||cmd:/pomoc nextpage||ttp:&eNastępna strona||&6&l>>>")
            else:
                stop
        else if arg 1 is "nextpage":
            if {pgcount} is not 5:
                add 1 to {pgcount}
                set {_l1} to {pomoc::pg%{pgcount}%::line1}
                set {_l2} to {pomoc::pg%{pgcount}%::line2}
                set {_l3} to {pomoc::pg%{pgcount}%::line3}
                set {_l4} to {pomoc::pg%{pgcount}%::line4}
                set {_l5} to {pomoc::pg%{pgcount}%::line5}
                send ""
                send "%{_l1}%"
                send "%{_l2}%"
                send "%{_l3}%"
                send "%{_l4}%"
                send "%{_l5}%"
                send ""
                vjson("%player%", "cmd:/pomoc prevpage||ttp:&ePoprzednia strona||&6&l<<<|| &b&m-----&a&oStrona %{pgcount}%&b&m----- ||cmd:/pomoc nextpage||ttp:&eNastępna strona||&6&l>>>")
            else:
                stop