cronngrav:
    type: world
    debug: true

    check_wools:
        - if <player.flag[cronngrav_wool].size> == 4 {
            - if <player.flag[cronngrav_wool].as_string> == <global.flag[cronngrav_wool_colors].as_string> {
                - narrate format:cronngravformat "Kolejnosc pomyslna! Reset."
                - foreach <player.flag[cronngrav_wool].as_list> {
                    - flag <player> cronngrav_wool:<-:%value%
                }
            } else {
                - narrate format:cronngravformat "Zabij sie szmato siekiera, nawet nie potrafisz powtorzyc kurwa wzoru. Sam wyjebuj uchata parowo dymam Cie. Reset"
                - foreach <player.flag[cronngrav_wool].as_list> {
                    - flag <player> cronngrav_wool:<-:%value%
                }
            }
        }

    check_wools_expired:
        - if <player.flag[cronngrav_wool].is_expired> {
            - foreach <player.flag[cronngrav_wool].as_list> {
                    - flag <player> cronngrav_wool:<-:%value%
                }
        }

    cronngrav_draw_color:
        - ^flag global cronngrav_draw_colors:true duration:d@1m
        - foreach <global.flag[cronngrav_wool_colors].as_list> {
                - flag global cronngrav_wool_colors:<-:%value%
        }
        - repeat 4 {
            - define temp <util.random.int[1].to[4]>
            - if %temp% == 1 flag global cronngrav_wool_colors:->:green
            else if %temp% == 2 flag global cronngrav_wool_colors:->:red
            else if %temp% == 3 flag global cronngrav_wool_colors:->:blue
            else if %temp% == 4 flag global cronngrav_wool_colors:->:yellow
        }
        - announce format:cronngravformat "Kolory zostaly wylosowane! <global.flag[cronngrav_wool_colors].as_list>"
        - define col <global.flag[cronngrav_wool_colors].as_list.get[1]>
        - sign "Pierwszym|kolorem jest|<%col%><proc[ConvertColor].context[%col%]>" l@404,73,60,world direction:w
        - define col <global.flag[cronngrav_wool_colors].as_list.get[2]>
        - sign "Drugim|kolorem jest|<%col%><proc[ConvertColor].context[%col%]>" l@404,73,61,world direction:w
        - define col <global.flag[cronngrav_wool_colors].as_list.get[3]>
        - sign "Trzecim|kolorem jest|<%col%><proc[ConvertColor].context[%col%]>" l@404,73,62,world direction:w
        - define col <global.flag[cronngrav_wool_colors].as_list.get[4]>
        - sign "Czwartym|kolorem jest|<%col%><proc[ConvertColor].context[%col%]>" l@404,73,63,world direction:w
                #1 tabliczka: -743 211 680 (68:5) l@-743,211,680,podziemia
                #2 tabliczka: -706 212 675 (68:5) east
                #3 tabliczka: -735 219 745 (68:3)
                #4 tabliczka: -760 201 709 (68:3) south
    events:
        on player right clicks green_wool in cronngrav_pillars:
        - inject locally check_wools_expired
        - narrate format:cronngravformat "<green>Green"
        - flag <player> cronngrav_wool:->:green duration:d@5m
        - inject locally check_wools

        on player right clicks red_wool in cronngrav_pillars:
        - inject locally check_wools_expired
        - narrate format:cronngravformat "<red>Red"
        - flag <player> cronngrav_wool:->:red duration:d@5m
        - inject locally check_wools

        on player right clicks blue_wool in cronngrav_pillars:
        - inject locally check_wools_expired
        - narrate format:cronngravformat "<blue>Blue"
        - flag <player> cronngrav_wool:->:blue duration:d@5m
        - inject locally check_wools

        on player right clicks yellow_wool in cronngrav_pillars:
        - inject locally check_wools_expired
        - narrate format:cronngravformat "<yellow>Yellow"
        - flag <player> cronngrav_wool:->:yellow duration:d@5m
        - inject locally check_wools

        on player enters cronngrav_pillars:
        - if <player.flag[cronngrav_pillars_enter]> == null || <player.flag[cronngrav_pillars_enter].is_expired> {
            - flag <player> cronngrav_pillars_enter:true duration:d@5m
            - narrate format:cronngravformat "Kliknij prawym przyciskiem myszy na filary w odpowiedniej kolejnosci, aby odkryc tajemnice tych ruin!"
        }

        on 5:00 in w@world:
              #losuj 4 kolory
        - if <global.flag[cronngrav_draw_colors].is_expired> inject locally cronngrav_draw_color instantly

        on cronngrav command:
        - if !<player.has_permission[craftown.cronngrav]> {
            - narrate format:craftownformat "<red>Nie masz pozwolenia na uzycie tej komendy!"
            - determine fulfilled
        } else {
            - narrate format:craftownformat "<green>Informacje o Ruinach Cronngrav"
            - narrate format:craftownformat "Wylosowane kolory to:"
            - foreach <global.flag[cronngrav_wool_colors].as_list> {
                - narrate format:craftownformat "    -> <%value%><proc[ConvertColor].context[%value%]>"
            }
            - if !<global.flag[cronngrav_draw_colors].is_expired> narrate format:craftownformat "Czas pozostaly do kolejnego losowania to okolo: <global.flag[cronngrav_draw_colors].expiration.formatted>"
            else narrate format:craftownformat "Kolejne losowanie kolorow nastapi przy wschodzie slonca na glownej mapie."
        }
        - determine fulfilled

ConvertColor:
    type: procedure
    definitions: originalcolor
    script:
    - if %originalcolor% == "green" determine "zielony"
    - if %originalcolor% == "red" determine "czerwony"
    - if %originalcolor% == "yellow" determine "zolty"
    - if %originalcolor% == "blue" determine "niebieski"
    - determine nieznany

cronngravformat:
    type: format
    format: <&f>[<&9>Duch Cronngrav<&f>] <&d><text>