Japanese-Janken

on join:
    wait 1 tick
    delete {jankenreq.%player%}
    delete {battle.%player%}
    delete {result.%player%}
    delete {req.%player%}

command /janken [<player>]:
    trigger:
        if arg-1 is set:
            if arg-1 is player:
                message "&c&l自身にリクエストを送信することは出来ません。"
            else:
                set {jankenreq.%player%} to arg-1
                set {jankenreq.%arg-1%} to player
                set {req.%arg-1%} to true
                message "&a&l%arg-1%&b&lにじゃんけんをリクエストしました。"
                message "&a&l%player%&b&lからじゃんけんをリクエストされました。" to arg-1
                message "&a&l/jaccept&b&lで承諾します。" to arg-1
        else:
            message "&c&lプレイヤーを指定してください。"

command /jaccept:
    trigger:
        set {_p} to {jankenreq.%player%}
        if {req.%player%} is true:
            if {jankenreq.%{_p}%} is player:
                if {_p} is online:
                    set {battle.%player%} to true
                    set {battle.%{_p}%} to true
                    delete {req.%player%}
                    wait 1 tick
                    open chest with 1 row named "&6&lじゃんけん &cvs &a%{jankenreq.%player%}%" to player
                    open chest with 1 row named "&6&lじゃんけん &cvs &a%player%" to {_p}
                    wait 1 tick
                    set slot 1 of player's current inventory to glowing stone named "&7&lグー"
                    set slot 4 of player's current inventory to glowing shears named "&6&lチョキ"
                    set slot 7 of player's current inventory to glowing paper named "&c&lパー"
                    set slot 1 of {_p}'s current inventory to glowing stone named "&7&lグー"
                    set slot 4 of {_p}'s current inventory to glowing shears named "&6&lチョキ"
                    set slot 7 of {_p}'s current inventory to glowing paper named "&c&lパー"
                else:
                    message "&a&l%{_p}%&c&lはオフラインです。"
            else:
                message "&a&l%{_p}%&c&lからのリクエストは破棄されました。"
        else:
            message "&c&lあなたはリクエストを受けていません。"

on inventory click:
    if name of player's current inventory contains "&6&lじゃんけん":
        cancel event
        set {_p} to {jankenreq.%player%}
        if clicked slot is 1:
            delete {jankenreq.%player%}
            delete {battle.%player%}
            delete {result.%player%}
            close player's inventory
            set {result.%player%} to 1
            if {result.%{_p}%} is not set:
                message "&b&l相手の選択をお待ちください。"
            else:
                close player's inventory
                message "&a&l集計しています..."
                message "&a&l集計しています..." to {_p}
                wait 3 second
                if {result.%{_p}%} is 1:
                    message "&a&l結果は&7&lあいこ&a&lでした!"
                    message "&a&l結果は&7&lあいこでした!" to {_p}
                if {result.%{_p}%} is 2:
                    message "&a&l結果は&6&l勝ち&a&lでした!"
                    message "&a&l結果は&c&l負け&a&lでした!" to {_p}
                if {result.%{_p}%} is 3:
                    message "&a&l結果は&c&l負け&a&lでした!"
                    message "&a&l結果は&6&l勝ち&a&lでした!" to {_p}
                    delete {jankenreq.%player%}
                    delete {battle.%player%}
                    delete {result.%player%}
                    delete {jankenreq.%{_p}%}
                    delete {battle.%{_p}%}
                    delete {result.%{_p}%}
        if clicked slot is 4:
            delete {jankenreq.%player%}
            delete {battle.%player%}
            delete {result.%player%}
            close player's inventory
            set {result.%player%} to 2
            if {result.%{_p}%} is not set:
                message "&b&l相手の選択をお待ちください。"
            else:
                message "&a&l集計しています..."
                message "&a&l集計しています..." to {_p}
                wait 3 second
                if {result.%{_p}%} is 1:
                    message "&a&l結果は&c&l負け&a&lでした!"
                    message "&a&l結果は&6&l勝ちでした!" to {_p}
                if {result.%{_p}%} is 2:
                    message "&a&l結果は&7&lあいこ&a&lでした!"
                    message "&a&l結果は&7&lあいこ&a&lでした!" to {_p}
                if {result.%{_p}%} is 3:
                    message "&a&l結果は&6&l勝ち&a&lでした!"
                    message "&a&l結果は&c&l負け&a&lでした!" to {_p}
                    delete {jankenreq.%player%}
                    delete {battle.%player%}
                    delete {result.%player%}
                    delete {jankenreq.%{_p}%}
                    delete {battle.%{_p}%}
                    delete {result.%{_p}%}
        if clicked slot is 7:
            delete {jankenreq.%player%}
            delete {battle.%player%}
            delete {result.%player%}
            close player's inventory
            set {result.%player%} to 3
            if {result.%{_p}%} is not set:
                message "&b&l相手の選択をお待ちください。"
            else:
                message "&a&l集計しています..."
                message "&a&l集計しています..." to {_p}
                wait 3 second
                if {result.%{_p}%} is 1:
                    message "&a&l結果は&6&l勝ち&a&lでした!"
                    message "&a&l結果は&c&l負けでした!" to {_p}
                if {result.%{_p}%} is 2:
                    message "&a&l結果は&c&l負け&a&lでした!"
                    message "&a&l結果は&6&l勝ち&a&lでした!" to {_p}
                if {result.%{_p}%} is 3:
                    message "&a&l結果は&c&l負け&a&lでした!"
                    message "&a&l結果は&6&l勝ち&a&lでした!" to {_p}
                    delete {jankenreq.%player%}
                    delete {battle.%player%}
                    delete {result.%player%}
                    delete {jankenreq.%{_p}%}
                    delete {battle.%{_p}%}
                    delete {result.%{_p}%}

on inventory close:
    if {battle.%player%} is true:
        wait 1 tick
        open chest with 1 row named "&6&lじゃんけん &cvs &a%{jankenreq.%player%}%" to player
        wait 1 tick
        set slot 1 of player's current inventory to glowing stone named "&7&lグー"
        set slot 4 of player's current inventory to glowing shears named "&6&lチョキ"
        set slot 7 of player's current inventory to glowing paper named "&c&lパー"