| Platformer | black

Instructions: Move with arrow key \n\nPlease give me ❤⭐.\n\nEnjoy!\n\nJoin my intro contest!

@Stage\n\nwhen flag clicked\nbroadcast (N v)\nswitch backdrop to (背景1 v)\n\nwhen I receive [start v]\nswitch backdrop to (背景 v)\nset volume to (40) %\nforever\n    play sound [Inferno v] until done\nend\n\nwhen I receive [intro end v]\nswitch backdrop to (背景2 v)\nset [ghost v] effect to (0)\nwait (3) seconds\nrepeat (50)\n    change [ghost v] effect by (2)\nend\nswitch backdrop to (背景 v)\nrepeat (100)\n    change [ghost v] effect by (-1)\nend\n\n@together\n\nwhen I receive [start v]\nset [ghost v] effect to (0)\nhide\nforever\n    go to x: (0) y: (0)\n    if <<<(レベル) = [11]> or <<(レベル) = [10]> or <(レベル) = [12]>>> or <<(レベル) = [6]> or <<(レベル) = [4]> or <<(レベル) = [13]> or <<(レベル) = [7]> or <<(レベル) = [8]> or <<(レベル) = [9]> or <<(レベル) = [3]> or >>>>>>>> then\n        show\n        go to [back v] layer\n        switch costume to (join (letter (1) of (レベル)) (letter (2) of (レベル)))\n    else\n        hide\n    end\nend\n\nwhen flag clicked\nhide\n\n@Platformer\n\nwhen flag clicked\nswitch costume to (1 v)\nhide variable [記録 v]\nhide variable [レベル v]\nhide variable [☁ wr v]\nset [レベル v] to [1]\nhide\n\nwhen I receive [start v]\nset [レベル v] to [1]\nshow variable [レベル v]\nshow variable [記録 v]\nshow\ngo to x: (0) y: (0)\nset [ghost v] effect to (0)\nset [レベル v] to [1]\ngo to [back v] layer\nrepeat until <(costume [number v]) = [16]>\n    switch costume to (join (letter (1) of (レベル)) (letter (2) of (レベル)))\nend\n\nwhen I receive [start v]\nhide variable [レベル v]\nset [記録 v] to [0]\nrepeat until <<(costume [number v]) = [12]> or <(costume [number v]) = [16]>>\n    hide variable [レベル v]\n    wait (0.05) seconds\n    change [記録 v] by (0.1)\nend\nif <(記録) < (☁ WR)> then\n    set [☁ 記録 v] to (記録)\n    set [☁ wr v] to (join (letter (1) of (☁ 記録)) (join (letter (2) of (☁ 記録)) (join (letter (3) of (☁ 記録)) (letter (4) of (☁ 記録)))))\n    broadcast (WR v)\nend\nshow variable [表示 v]\nset [表示 v] to (join (☁ WR) (join [　] (join (item (1) of [wr v]) (join (item (2) of [wr v]) (join (item (3) of [wr v]) (join (item (4) of [wr v]) (join (item (5) of [wr v]) (join (item (6) of [wr v]) (join (item (7) of [wr v]) (join (item (8) of [wr v]) (join (item (9) of [wr v]) (join (item (10) of [wr v]) (join (item (11) of [wr v]) (join (item (12) of [wr v]) (join (item (13) of [wr v]) (join (item (14) of [wr v]) (join (item (15) of [wr v]) (join (item (16) of [wr v]) (join (item (17) of [wr v]) (join (item (18) of [wr v]) (join (item (19) of [wr v]) (item (20) of [wr v]))))))))))))))))))))))\n\nwhen I receive [start v]\nforever\n    set [今のコース v] to (costume [number v])\nend\n\nwhen I receive [アップデート v]\nset [☁ wr v] to [300]\n\nwhen I receive [wr v]\ndelete all of [wr v]\nset [a1 v] to [0]\nrepeat (20)\n    change [a1 v] by (1)\n    if <(letter (a1) of (username)) = [1]> then\n        insert [1] at (a1) of [wr v] \n    else\n        if <(letter (a1) of (username)) = [2]> then\n            insert [2] at (a1) of [wr v] \n        else\n            if <(letter (a1) of (username)) = [3]> then\n                insert [3] at (a1) of [wr v] \n            else\n                if <(letter (a1) of (username)) = [4]> then\n                    insert [4] at (a1) of [wr v] \n                else\n                    if <(letter (a1) of (username)) = [5]> then\n                        insert [5] at (a1) of [wr v] \n                    else\n                        if <(letter (a1) of (username)) = [6]> then\n                            insert [6] at (a1) of [wr v] \n                        else\n                            if <(letter (a1) of (username)) = [7]> then\n                                insert [7] at (a1) of [wr v] \n                            else\n                                if <(letter (a1) of (username)) = [8]> then\n                                    insert [8] at (a1) of [wr v] \n                                else\n                                    if <(letter (a1) of (username)) = [9]> then\n                                        insert [9] at (a1) of [wr v] \n                                    else\n                                        if <(letter (a1) of (username)) = [0]> then\n                                            insert [0] at (a1) of [wr v] \n                                        else\n                                            if <(letter (a1) of (username)) = [-]> then\n                                                insert [-] at (a1) of [wr v] \n                                            else\n                                                if <(letter (a1) of (username)) = [_]> then\n                                                    insert [_] at (a1) of [wr v] \n                                                else\n                                                    if <(letter (a1) of (username)) = [q]> then\n                                                        insert [Q] at (a1) of [wr v] \n                                                    else\n                                                        if <(letter (a1) of (username)) = [w]> then\n                                                            insert [W] at (a1) of [wr v] \n                                                        else\n                                                            if <(letter (a1) of (username)) = [e]> then\n                                                                insert [E] at (a1) of [wr v] \n                                                            else\n                                                                if <(letter (a1) of (username)) = [r]> then\n                                                                    insert [R] at (a1) of [wr v] \n                                                                else\n                                                                    if <(letter (a1) of (username)) = [t]> then\n                                                                        insert [T] at (a1) of [wr v] \n                                                                    else\n                                                                        if <(letter (a1) of (username)) = [y]> then\n                                                                            insert [Y] at (a1) of [wr v] \n                                                                        else\n                                                                            if <(letter (a1) of (username)) = [u]> then\n                                                                                insert [U] at (a1) of [wr v] \n                                                                            else\n                                                                                if <(letter (a1) of (username)) = [i]> then\n                                                                                    insert [I] at (a1) of [wr v] \n                                                                                else\n                                                                                    if <(letter (a1) of (username)) = [o]> then\n                                                                                        insert [O] at (a1) of [wr v] \n                                                                                    else\n                                                                                        if <(letter (a1) of (username)) = [p]> then\n                                                                                            insert [P] at (a1) of [wr v] \n                                                                                        else\n                                                                                            if <(letter (a1) of (username)) = [a]> then\n                                                                                                insert [A] at (a1) of [wr v] \n                                                                                            else\n                                                                                                if <(letter (a1) of (username)) = [s]> then\n                                                                                                    insert [S] at (a1) of [wr v] \n                                                                                                else\n                                                                                                    if <(letter (a1) of (username)) = [d]> then\n                                                                                                        insert [D] at (a1) of [wr v] \n                                                                                                    else\n                                                                                                        if <(letter (a1) of (username)) = [f]> then\n                                                                                                            insert [F] at (a1) of [wr v] \n                                                                                                        else\n                                                                                                            if <(letter (a1) of (username)) = [g]> then\n                                                                                                                insert [G] at (a1) of [wr v] \n                                                                                                            else\n                                                                                                                if <(letter (a1) of (username)) = [h]> then\n                                                                                                                    insert [H] at (a1) of [wr v] \n                                                                                                                else\n                                                                                                                    if <(letter (a1) of (username)) = [j]> then\n                                                                                                                        insert [J] at (a1) of [wr v] \n                                                                                                                    else\n                                                                                                                        if <(letter (a1) of (username)) = [k]> then\n                                                                                                                            insert [K] at (a1) of [wr v] \n                                                                                                                        else\n                                                                                                                            if <(letter (a1) of (username)) = [l]> then\n                                                                                                                                insert [L] at (a1) of [wr v] \n                                                                                                                            else\n                                                                                                                                if <(letter (a1) of (username)) = [z]> then\n                                                                                                                                    insert [Z] at (a1) of [wr v] \n                                                                                                                                else\n                                                                                                                                    if <(letter (a1) of (username)) = [x]> then\n                                                                                                                                        insert [X] at (a1) of [wr v] \n                                                                                                                                    else\n                                                                                                                                        if <(letter (a1) of (username)) = [c]> then\n                                                                                                                                            insert [C] at (a1) of [wr v] \n                                                                                                                                        else\n                                                                                                                                            if <(letter (a1) of (username)) = [v]> then\n                                                                                                                                                insert [V] at (a1) of [wr v] \n                                                                                                                                            else\n                                                                                                                                                if <(letter (a1) of (username)) = [b]> then\n                                                                                                                                                    insert [B] at (a1) of [wr v] \n                                                                                                                                                else\n                                                                                                                                                    if <(letter (a1) of (username)) = [n]> then\n                                                                                                                                                        insert [N] at (a1) of [wr v] \n                                                                                                                                                    else\n                                                                                                                                                        if <(letter (a1) of (username)) = [m]> then\n                                                                                                                                                            insert [M] at (a1) of [wr v] \n                                                                                                                                                        else\n                                                                                                                                                        end\n                                                                                                                                                    end\n                                                                                                                                                end\n                                                                                                                                            end\n                                                                                                                                        end\n                                                                                                                                    end\n                                                                                                                                end\n                                                                                                                            end\n                                                                                                                        end\n                                                                                                                    end\n                                                                                                                end\n                                                                                                            end\n                                                                                                        end\n                                                                                                    end\n                                                                                                end\n                                                                                            end\n                                                                                        end\n                                                                                    end\n                                                                                end\n                                                                            end\n                                                                        end\n                                                                    end\n                                                                end\n                                                            end\n                                                        end\n                                                    end\n                                                end\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\n@prayer\n\ndefine 初期化\nset size to (100) %\ngo to x: (-200) y: (0)\nset [y v] to [0]\nset [x v] to [0]\nset rotation style [left-right v]\npoint in direction (90)\n\ndefine 移動作\nchange [y v] by (-1)\nif <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <[0] < (mouse x)>>>> then\n    change [x v] by (1)\n    point in direction (90)\nend\nif <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < [0]>>>> then\n    change [x v] by (-1)\n    point in direction (-90)\nend\nset [x v] to ((X) * (0.88))\nchange x by (X)\nrepeat (8)\n    if <<touching (platformer v)?> or <<touching (platformer2 v)?> or <touching (スプライト5 v)?>>> then\n        change y by (1.1)\n    end\nend\nif <<touching (platformer v)?> or <<touching (platformer2 v)?> or <touching (スプライト5 v)?>>> then\n    change x by (() - (X))\n    change y by (-8.8)\n    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <[0] < (mouse y)>>>> then\n        set [y v] to [11]\n        set [x v] to ((7) - ((14) * <[0] < (X)>))\n    end\nend\nchange y by (Y)\nif <<touching (platformer v)?> or <<touching (platformer2 v)?> or <touching (スプライト5 v)?>>> then\n    change y by (() - (Y))\n    set [y v] to [0]\nend\nchange y by (-1)\nif <<touching (platformer v)?> or <<touching (platformer2 v)?> or <touching (スプライト5 v)?>>> then\n    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <[0] < (mouse y)>>>> then\n        set [y v] to [13]\n    end\nend\nchange y by (1)\nif <[235] < (x position)> then\n    初期化\n    change [レベル v] by (1)\nend\nif <<(y position) < [-180]> or <<touching (together v)?> or <<touching (スプライト6 v)?> or <touching (スプライト8 v)?>>>> then\n    set volume to (100) %\n    start sound [crashed oof v]\n    初期化\nend\n\nwhen I receive [start v]\nshow\nswitch costume to (変なの v)\n初期化\nforever\n    移動作\nend\n\nwhen flag clicked\nforever\n    set [xx v] to (x position)\n    set [yy v] to (y position)\nend\n\nwhen I receive [goal v]\n初期化\n\nwhen I start as a clone\nset [whirl v] effect to (20)\nswitch costume to (変なの2 v)\nrepeat (10)\n    change size by (-4)\n    change [ghost v] effect by (4)\nend\nhide\ndelete this clone\n\nwhen flag clicked\nforever\n    wait (0.01) seconds\n    create clone of (_myself_ v)\nend\n\nwhen flag clicked\nhide\n\n@スプライト1\n\nwhen flag clicked\ngo to [front v] layer\nset [ghost v] effect to (100)\nshow\n\n@スプライト2\n\nwhen flag clicked\n\nwhen flag clicked\nshow\nset [ghost v] effect to (100)\nrepeat (100)\n    change [ghost v] effect by (-1)\nend\nrepeat (100)\n    change [ghost v] effect by (1)\nend\nbroadcast (START v)\nhide\n\n