Night and day platformer game

Instructions: [PL]\nRuch strzałkami lub w,a,s,d. Żeby przejść na następny poziom dojdź do tablicy.\nMiłej zabawy ;)\n\n[EN]\nUse arrows or w,a,s,d letters to move figure. To reache next level - touch board.\nHave a good time ;)\n\nUPDATE 30.01.2021 : music\n\n#All #Games #Animations #Projects #By #netoper

@Stage\n\nwhen I receive [next level v]\nnext backdrop\n\nwhen flag clicked\nswitch backdrop to (tło1 v)\n\n@Player\n\ndefine touch ground <up?>\nchange [falling? v] by (1)\nrepeat until <not <touching (ground v)?>>\n    if <up?> then\n        change y by (-1)\n    else\n        change y by (1)\n        set [falling? v] to [0]\n    end\n    set [speed y v] to [0]\nend\n\nwhen flag clicked\nforever\n    if <touching color (#ca0000)?> then\n        go to x: (-215) y: (-118)\n    end\n    if <touching (sign v)?> then\n        broadcast (next level v)\n        go to x: (-215) y: (-118)\n    end\nend\n\nwhen flag clicked\nset [speed y v] to [0]\nforever\n    change [speed y v] by (-1)\n    change y by (speed y)\n    touch ground <(speed y) > [0]>\n    set rotation style [left-right v]\n    if <<key (left arrow v) pressed?> or <key (a v) pressed?>> then\n        walk [-90] [-4]\n    end\n    if <<key (right arrow v) pressed?> or <key (d v) pressed?>> then\n        walk [90] [4]\n    end\n    if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> and <(falling?) < [3]>> then\n        set [speed y v] to [12]\n    end\nend\n\ndefine walk (direction) (speed)\npoint in direction (direction)\nchange x by (speed)\nset [slope v] to [0]\nrepeat until <<(slope) = [8]> or <not <touching (ground v)?>>>\n    change y by (1)\n    change [slope v] by (1)\nend\nif <(slope) = [8]> then\n    change x by ((0) - (speed))\n    change y by ((0) - (slope))\nend\n\ndefine walk (direction) (speed)\npoint in direction (direction)\nchange x by (speed)\nset [slope v] to [0]\nrepeat until <<(slope) = [8]> or <not <touching (ground v)?>>>\n    change y by (1)\n    change [slope v] by (1)\nend\nif <(slope) = [8]> then\n    change x by ((0) - (speed))\n    change y by ((0) - (slope))\nend\n\nwhen flag clicked\nshow\ngo to x: (-215) y: (-118)\n\nwhen I receive [night/day v]\nforever\n    if <<key (a v) pressed?> or <key (left arrow v) pressed?>> then\n        switch costume to (kostium1 v)\n    end\n    if <<key (d v) pressed?> or <key (right arrow v) pressed?>> then\n        switch costume to (kostium2 v)\n    end\nend\n\nwhen flag clicked\n\nforever\n    if <<key (a v) pressed?> or <key (left arrow v) pressed?>> then\n        switch costume to (left v)\n    end\n    if <<key (d v) pressed?> or <key (right arrow v) pressed?>> then\n        switch costume to (right v)\n    end\nend\n\nwhen flag clicked\nforever\n    if <(backdrop [number v]) = [13]> then\n        hide\n    end\nend\n\nwhen flag clicked\nswitch costume to (right v)\nforever\n    set rotation style [don't rotate v]\n    if <<not <(costume [number v]) = [3]>> or <not <(costume [number v]) = [4]>>> then\n        if <<key (a v) pressed?> or <key (left arrow v) pressed?>> then\n            switch costume to (left v)\n        end\n        if <<key (d v) pressed?> or <key (right arrow v) pressed?>> then\n            switch costume to (right v)\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    play sound [Echo - -SapphireDemon- v] until done\nend\n\nrepeat (100)\n    play sound [Echo - -SapphireDemon- v] until done\n    forever\n        if <(backdrop [number v]) = [13]> then\n            stop all sounds\n        end\n    end\nend\n\n@sign\n\nwhen flag clicked\nswitch costume to (kostium1 v)\nshow\n\nwhen I receive [night/day v]\nswitch costume to (kostium2 v)\n\nwhen flag clicked\nforever\n    if <(backdrop [number v]) = [13]> then\n        hide\n    end\nend\n\n@ground\n\nwhen I receive [next level v]\nnext costume\n\nwhen flag clicked\nshow\ngo to x: (0) y: (0)\nswitch costume to (kostium1 v)\n\nwhen flag clicked\nforever\n    if <(costume [number v]) = [7]> then\n        broadcast (night/day v)\n    end\nend\n\n\n\nwhen flag clicked\nforever\n    if <(costume [number v]) = [8]> then\n        broadcast (night/day v)\n    end\nend\n\nwhen flag clicked\nforever\n    if <(costume [number v]) = [9]> then\n        broadcast (night/day v)\n    end\nend\n\nwhen flag clicked\nforever\n    if <(costume [number v]) = [10]> then\n        broadcast (night/day v)\n    end\nend\n\nwhen flag clicked\nforever\n    if <(costume [number v]) = [11]> then\n        broadcast (night/day v)\n    end\nend\n\nwhen flag clicked\nforever\n    if <(costume [number v]) = [12]> then\n        broadcast (night/day v)\n    end\nend\n\n@Duszek1\n\nwhen flag clicked\ngo to [back v] layer\ngo [backward v] (12) layers\nswitch costume to (moon v)\nshow\nforever\n    if <<(backdrop [number v]) = [1]> or <<(backdrop [number v]) = [2]> or <<(backdrop [number v]) = [3]> or <<(backdrop [number v]) = [4]> or <<(backdrop [number v]) = [5]> or <(backdrop [number v]) = [6]>>>>>> then\n        switch costume to (moon v)\n    end\nend\n\nwhen flag clicked\nforever\n    if <<(backdrop [number v]) = [7]> or <<(backdrop [number v]) = [8]> or <<(backdrop [number v]) = [9]> or <<(backdrop [number v]) = [10]> or <<(backdrop [number v]) = [11]> or <(backdrop [number v]) = [12]>>>>>> then\n        switch costume to (sun v)\n    end\nend\n\nwhen flag clicked\nforever\n    if <(backdrop [number v]) = [13]> then\n        hide\n    end\nend\n\n@Duszek2\n\nwhen flag clicked\nhide\n\nwhen I receive [next level v]\nhide\n\nwhen I receive [night/day v]\nhide\n\n