Unknown Platformer

Instructions: Use WASD to move.\nWASD키로 움직입니다\n\nThanks For All of User!\nThis Project has been read 10000 times!\n\nFor Users!\nIt's An Platform to make Platformer Game.\nIt's not Game to play!\n\n유저 여러분께.\n이 프로젝트는 플랫포머 게임을 위한 단순 플랫폼일 뿐입니다.\n플레이를 위한 게임이 아닙니다!\nTo users.\nThis project is JUST cookie of platformer game, not a game!\nPlease remix this project and make your own game.\n\n검색창에 platformer을 치면 제 프로젝트가 나오네요! 감사합니다.\nNow we can see this project to type 'platformer' at search window.\n

@Stage\n\n@map\n\nwhen flag clicked\ngo to x: (0) y: (0)\nswitch costume to (1 v)\nset size to (2000) %\nshow\nbroadcast (tile set v) and wait\nhide\n\nwhen I receive [map clear v]\nnext costume\nshow\nbroadcast (tile set v) and wait\nhide\n\nwhen I receive [map clear 2 v]\nnext costume\nnext costume\nshow\nbroadcast (tile set v) and wait\nhide\n\nwhen I receive [map clear3 v]\nnext costume\nnext costume\nnext costume\nshow\nbroadcast (tile set v) and wait\nhide\n\n@charic\n\ndefine Controls - Left and Right\nset [speed x v] to ((speed x) * (0.7))\nif <key (a v) pressed?> then\n    change [speed x v] by (-1.5)\nend\nif <key (d v) pressed?> then\n    change [speed x v] by (1.5)\nend\n\ndefine Walk (direction) (speed)\npoint in direction (direction)\nchange x by (speed)\nchange [frame v] by (([abs v] of (speed) ) / (8))\nset [slope v] to [0]\nGet Touching <(in platforrm) = [1]>\nrepeat until <<(slope) = [8]> or <(touch) = [0]>>\n    change y by (1)\n    change [slope v] by (1)\n    Get Touching <(in platforrm) = [1]>\nend\nif <(slope) = [8]> then\n    change x by ((0) - (speed))\n    change y by ((0) - (slope))\n    if <<(touch) = [1]> and <(in platforrm) = [1]>> then\n        set [in platforrm v] to [2]\n        Walk (direction) (speed)\n        if <(speed x) = [0]> then\n            set [in platforrm v] to [1]\n        end\n    else\n        if <<<key (w v) pressed?> and <([abs v] of (speed) ) > [3.5]>> and <(touch) > [1]>> then\n            set [speed x v] to ((-1.2) * (speed))\n            set [speed y v] to [11]\n            set [falling? v] to [6]\n            set [wall jump v] to [15]\n        else\n            set [speed x v] to [0]\n        end\n    end\nend\n\ndefine Controls - Jump, Crouch\nif <key (w v) pressed?> then\n    if <<(jump key) = [0]> and <(falling?) < [3]>> then\n        set [speed y v] to [10]\n        set [falling? v] to [6]\n        set [jump key v] to [1]\n    end\nelse\n    set [jump key v] to [0]\nend\nif <key (s v) pressed?> then\n    set [in platforrm v] to [2]\nend\n\ndefine Gravity\nif <<(speed y) < [4]> or <key (w v) pressed?>> then\n    change [speed y v] by (-1)\nelse\n    change [speed y v] by (-2)\nend\nchange y by (speed y)\nchange [falling? v] by (1)\n\ndefine Check Hit Ceiling / Floor <up?>\nGet Touching \nif <(touch) = [0]> then\n    set [in platforrm v] to [1]\nelse\n    if <<up?> and <(touch) = [1]>> then\n        set [in platforrm v] to [2]\n    end\nend\nrepeat until <(touch) < (in platforrm)>\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    Get Touching <not <up?>>\n    set [speed y v] to [0]\nend\n\ndefine Get Touching <check platform?>\nif <touching (tiles v)?> then\n    set [touch v] to [9]\nelse\n    set [touch v] to [0]\nend\n\ndefine Reset Level\nset size to (200) %\nset rotation style [left-right v]\ngo to x: (spawnX) y: (spawnY)\nreset timer\nshow\nset [speed x v] to [0]\nset [speed y v] to [0]\nset [falling? v] to [10]\nset [in platforrm v] to [1]\nset [frame v] to [0]\nset [wall jump v] to [0]\n\nwhen flag clicked\nhide\n\nwhen I receive [die v]\nReset Level\n\nwhen I receive [tile end v]\nshow\ngo to x: (spawnX) y: (spawnY)\nReset Level\nforever\n    switch costume to (hitbox v)\n    Controls - Jump, Crouch\n    Gravity\n    Check Hit Ceiling / Floor <(speed y) > [0]>\n    if <(y position) < [-189]> then\n        Reset Level\n    end\n    if <(wall jump) > [0]> then\n        change [wall jump v] by (-1)\n    else\n        Controls - Left and Right\n    end\n    if <(speed x) < [-0.5]> then\n        Walk (-90) (speed x)\n    else\n        if <(speed x) > [0.5]> then\n            Walk (90) (speed x)\n        else\n            set [frame v] to [0]\n        end\n    end\n    broadcast (tick v) and wait\n    switch costume to (charic v)\nend\n\nwhen I receive [tile set v]\nhide\n\nwhen I receive [tram v]\nset [speed y v] to [18]\n\n@tiles\n\nwhen flag clicked\nhide\nset size to (200) %\n\nwhen I start as a clone\ngo to [front v] layer\nshow\nrepeat until <(tile) = [1]>\n    change y by (1)\n    check\n    change y by (-1)\n    change y by (-1)\n    check\n    change y by (1)\n    change x by (1)\n    check\n    change x by (-1)\n    change x by (-1)\n    check\n    change x by (1)\nend\ndelete this clone\n\ndefine check\nif <touching (charic v)?> then\n    if <[2] = (costume [number v])> then\n        broadcast (die v)\n    else\n        if <[4] = (costume [number v])> then\n            broadcast (map clear v) and wait\n        else\n            if <[5] = (costume [number v])> then\n                broadcast (map clear 2 v) and wait\n            else\n                if <[6] = (costume [number v])> then\n                    broadcast (map clear3 v) and wait\n                else\n                    if <[7] = (costume [number v])> then\n                        broadcast (tram v) and wait\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [tile set v]\nshow\ngo to x: (-230) y: (170)\nset [tile v] to [1]\nwait (0.05) seconds\nset [tile v] to [0]\nrepeat (18)\n    set x to (-230)\n    switch costume to (detector v)\n    repeat (24)\n        switch costume to (detector v)\n        if <touching color (#000000)?> then\n            switch costume to (block v)\n            create clone of (_myself_ v)\n        else\n            switch costume to (detector v)\n            if <touching color (#7f00ff)?> then\n                switch costume to (trampolin v)\n                create clone of (_myself_ v)\n            else\n                switch costume to (detector v)\n                if <touching color (#ff9400)?> then\n                    switch costume to (wooden platform v)\n                    create clone of (_myself_ v)\n                else\n                    switch costume to (detector v)\n                    if <touching color (#003fff)?> then\n                        switch costume to (half mass substance v)\n                        create clone of (_myself_ v)\n                    else\n                        switch costume to (detector v)\n                        if <touching color (#066700)?> then\n                            switch costume to (portal1 v)\n                            create clone of (_myself_ v)\n                        else\n                            switch costume to (detector v)\n                            if <touching color (#0cb500)?> then\n                                switch costume to (portal2 v)\n                                create clone of (_myself_ v)\n                            else\n                                switch costume to (detector v)\n                                if <touching color (#10ff00)?> then\n                                    switch costume to (portal3 v)\n                                    create clone of (_myself_ v)\n                                else\n                                    switch costume to (detector v)\n                                    if <touching color (#ff0000)?> then\n                                        switch costume to (electrick v)\n                                        create clone of (_myself_ v)\n                                    else\n                                        switch costume to (detector v)\n                                        if <touching color (#00ffff)?> then\n                                            set [spawnx v] to (x position)\n                                            set [spawny v] to (y position)\n                                        else\n                                            switch costume to (detector v)\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n        switch costume to (detector v)\n        if <(x position) < [230]> then\n            change x by (20)\n        end\n    end\n    change y by (-20)\nend\nbroadcast (tile end v)\nhide\n\n