Minecraft platformer 3

Instructions: Welcome to "Journal 2". If you have not played the first game please do so, for this is a love story. You play as a kids drawing as you explore his notebook. He communicates to you by writing in his journal, however he has good news!!!

@Stage\n\nwhen flag clicked\nswitch backdrop to (イントロ画面 v)\n\nwhen I receive [イントロ消える v]\nset [背景コスチューム v] to [1]\nswitch backdrop to (背景1 v)\nforever\n    if <(NEXT終わり) = [1]> then\n        set [背景コスチューム v] to ((backdrop [number v]) + (1))\n        repeat until <(NEXT終わり) = [2]>\n            switch backdrop to (背景コスチューム)\n        end\n    end\nend\n\nwhen I receive [始まり v]\nforever\n    play sound [Inferno v] until done\nend\n\n@プレーヤー\n\nwhen I receive [メッセージ3 v]\ngo to x: (-200) y: (25)\nset rotation style [left-right v]\nset [x v] to [0]\nset [y v] to [0]\nshow\n\nwhen I receive [始まり v]\ngo to [front v] layer\nshow\ngo [backward v] (2) layers\nshow\nswitch costume to (正面 v)\nset size to (65) %\ngo to x: (-200) y: (25)\nset rotation style [left-right v]\nset [x v] to [0]\nset [y v] to [0]\nforever\n    if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<(x position) < (mouse x)> and <mouse down?>>> then\n        change [x v] by (1.75)\n    end\n    if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<(mouse x) < (x position)> and <mouse down?>>> then\n        change [x v] by (-1.75)\n    end\n    set [x v] to ((x) * (0.8))\n    change x by (x)\n    if <(x position) > [225]> then\n        broadcast (メッセージ1 v)\n        hide\n        repeat until <(NEXT終わり) = [2]>\n            go to x: (-200) y: (25)\n        end\n    end\n    if <<<touching (障害物 v)?> or <(y position) = [-187]>> or <touching (マグマ v)?>> then\n        go to x: (-200) y: (25)\n        set rotation style [left-right v]\n        set [x v] to [0]\n        set [y v] to [0]\n        show\n    end\n    if <touching (ジャンプ台 v)?> then\n        set [y v] to [17]\n    end\n    if <touching (地面 v)?> then\n        change y by (1)\n        if <touching (地面 v)?> then\n            change y by (1)\n            if <touching (地面 v)?> then\n                change y by (1)\n                if <touching (地面 v)?> then\n                    change y by (1)\n                    if <touching (地面 v)?> then\n                        change y by (1)\n                        if <touching (地面 v)?> then\n                            change x by ((x) * (-1))\n                            change y by (-5)\n                            set [x v] to [0]\n                            if <<<key (up arrow v) pressed?> or <<key (w v) pressed?> or <key (space v) pressed?>>> or <<(y position) < (mouse y)> and <mouse down?>>> then\n                                if <(x) > [0]> then\n                                    set [x v] to [15]\n                                else\n                                    set [x v] to [-15]\n                                end\n                                set [y v] to [14.5]\n                            else\n                                set [x v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change [y v] by (-1)\n    change y by (y)\n    if <touching (地面 v)?> then\n        change y by ((y) * (-1))\n        set [y v] to [0]\n    end\n    change y by (-1)\n    if <<touching color (#1db500)?> and <<<key (right arrow v) pressed?> or <key (left arrow v) pressed?>> or <<key (d v) pressed?> or <key (a v) pressed?>>>> then\n        create clone of (土ぼこりと飛び散った草 v)\n    end\n    if <<<<key (up arrow v) pressed?> or <<key (w v) pressed?> or <key (space v) pressed?>>> or <<(y position) < (mouse y)> and <mouse down?>>> and <touching (地面 v)?>> then\n        set [y v] to [14]\n    end\n    change y by (1)\nend\n\nwhen flag clicked\nhide\n\n@地面\n\nwhen flag clicked\nhide\n\nwhen I receive [イントロ消える v]\nshow\nset [地面コスチューム v] to [1]\nswitch costume to (コスチューム1 v)\nforever\n    if <(NEXT終わり) = [1]> then\n        set [地面コスチューム v] to ((costume [number v]) + (1))\n        repeat until <(NEXT終わり) = [2]>\n            switch costume to (地面コスチューム)\n        end\n    end\n    if <(地面コスチューム) = [13]> then\n        broadcast (ステージクリア v)\n        stop [this script v]\n    end\nend\n\n@影\n\nwhen flag clicked\ngo to [back v] layer\nhide\n\nwhen I receive [始まり v]\nshow\nforever\n    go to (プレーヤー v)\n    point towards (太陽 v)\nend\n\nwhen I receive [メッセージ3 v]\nshow\n\nwhen I receive [メッセージ1 v]\nhide\n\n@太陽\n\nwhen flag clicked\nhide\n\nwhen I receive [始まり v]\nshow\ngo to x: (215) y: (175)\nset [ghost v] effect to (0)\ngo to [back v] layer\nset size to (130) %\nset [太陽大きさ v] to [0]\nrepeat (5)\n    change size by (太陽大きさ)\n    change [太陽大きさ v] by (-0.5)\nend\nforever\n    repeat (10)\n        change size by (太陽大きさ)\n        change [太陽大きさ v] by (0.5)\n    end\n    repeat (10)\n        change size by (太陽大きさ)\n        change [太陽大きさ v] by (-0.5)\n    end\nend\n\n@NEXT\n\nwhen flag clicked\nhide\nset [next終わり v] to [0]\n\nwhen I receive [メッセージ1 v]\nset [nextx v] to [-155]\nset [next終わり v] to [0]\nrepeat (3)\n    switch costume to (コスチューム1 v)\n    repeat (4)\n        create clone of (_myself_ v)\n        next costume\n    end\n    change [nextx v] by (174)\nend\nset [nextx v] to [0]\nswitch costume to (コスチューム5 v)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nif <not <(costume [number v]) = [5]>> then\n    go to [front v] layer\n    go to x: (NEXTx) y: (345)\n    set [nexty v] to [-86]\n    repeat (30)\n        set [nexty v] to ((NEXTy) * (0.8))\n        change y by (NEXTy)\n    end\n    set [next終わり v] to [1]\n    set [nexty v] to [86]\n    repeat (30)\n        set [nexty v] to ((NEXTy) * (0.8))\n        change y by (NEXTy)\n    end\n    delete this clone\nelse\n    go to [front v] layer\n    go to x: (0) y: (345)\n    set [nexty v] to [-60]\n    repeat (30)\n        set [nexty v] to ((NEXTy) * (0.8))\n        change y by (NEXTy)\n    end\n    wait (0.1) seconds\n    set [nexty v] to [60]\n    repeat (30)\n        set [nexty v] to ((NEXTy) * (0.8))\n        change y by (NEXTy)\n    end\n    set [next終わり v] to [2]\n    broadcast (メッセージ3 v)\n    delete this clone\nend\n\nbroadcast (メッセージ1 v)\n\n@ジャンプ台\n\nwhen flag clicked\nhide\n\nwhen I receive [イントロ消える v]\nset [ジャンプ台コスチューム v] to [1]\nswitch costume to (コスチューム1 v)\nshow\nforever\n    if <(NEXT終わり) = [1]> then\n        set [ジャンプ台コスチューム v] to ((costume [number v]) + (1))\n        repeat until <(NEXT終わり) = [2]>\n            switch costume to (ジャンプ台コスチューム)\n        end\n    end\nend\n\n@太陽の光\n\nwhen flag clicked\nhide\n\nwhen I receive [始まり v]\nshow\ngo to x: (215) y: (175)\nset [ghost v] effect to (0)\ngo to [front v] layer\ngo [backward v] (1) layers\nset size to (130) %\nset [太陽の光大きさ v] to [0]\nrepeat (5)\n    change size by (太陽の光大きさ)\n    change [太陽の光大きさ v] by (-0.5)\nend\nforever\n    repeat (10)\n        change size by (太陽の光大きさ)\n        change [太陽の光大きさ v] by (0.5)\n    end\n    repeat (10)\n        change size by (太陽の光大きさ)\n        change [太陽の光大きさ v] by (-0.5)\n    end\nend\n\n@障害物\n\nwhen flag clicked\nhide\n\nwhen I receive [イントロ消える v]\nshow\nset [障害物コスチューム v] to [1]\nswitch costume to (コスチューム1 v)\ngo to [back v] layer\ngo [forward v] (1) layers\nforever\n    if <(NEXT終わり) = [1]> then\n        set [障害物コスチューム v] to ((costume [number v]) + (1))\n        repeat until <(NEXT終わり) = [2]>\n            switch costume to (障害物コスチューム)\n        end\n    end\nend\n\n@障害物の影\n\nwhen flag clicked\nhide\n\nwhen I receive [イントロ消える v]\nshow\nset [障害物コスチューム v] to [1]\nswitch costume to (コスチューム1 v)\ngo to [back v] layer\ngo [forward v] (1) layers\nforever\n    if <(NEXT終わり) = [1]> then\n        set [障害物コスチューム v] to ((costume [number v]) + (1))\n        repeat until <(NEXT終わり) = [2]>\n            switch costume to (障害物コスチューム)\n        end\n    end\nend\n\n@イントロ\n\nwhen flag clicked\ngo to [front v] layer\nbroadcast (イントロの始まり v)\n\nwhen I start as a clone\nshow\nif <(costume [number v]) = [6]> then\n    set [変数 v] to [1000]\n    set size to (100) %\n    repeat (30)\n        switch costume to (コスチューム14 v)\n        set [変数 v] to ((変数) * (0.8))\n        change size by (変数)\n        switch costume to (コスチューム7 v)\n    end\nelse\n    if <(costume [number v]) = [7]> then\n        set [変数 v] to [1000]\n        set size to (100) %\n        repeat (30)\n            switch costume to (コスチューム14 v)\n            set [変数 v] to ((変数) * (0.8))\n            change size by (変数)\n            switch costume to (コスチューム8 v)\n        end\n    else\n        if <(costume [number v]) = [8]> then\n            set [変数 v] to [1000]\n            set size to (100) %\n            repeat (30)\n                switch costume to (コスチューム14 v)\n                set [変数 v] to ((変数) * (0.8))\n                change size by (変数)\n                switch costume to (コスチューム9 v)\n            end\n        else\n            if <(costume [number v]) = [9]> then\n                set [変数 v] to [1000]\n                set size to (100) %\n                repeat (30)\n                    switch costume to (コスチューム14 v)\n                    set [変数 v] to ((変数) * (0.8))\n                    change size by (変数)\n                    switch costume to (コスチューム10 v)\n                end\n            else\n                if <<(costume [number v]) = [1]> or <<(costume [number v]) = [2]> or <(costume [number v]) = [3]>>> then\n                    point in direction (90)\n                    go to x: (0) y: (174)\n                    set [変数 v] to [-43.5]\n                    repeat (30)\n                        set [変数 v] to ((変数) * (0.8))\n                        change y by (変数)\n                    end\n                    set [変数 v] to [90]\n                    repeat (30)\n                        set [変数 v] to ((変数) * (0.8))\n                        turn right (変数) degrees\n                    end\n                    set [変数 v] to [10]\n                    repeat (30)\n                        set [変数 v] to ((変数) * (0.8))\n                        change y by (変数)\n                    end\n                    wait (1) seconds\n                    set [変数 v] to [-90]\n                    repeat (30)\n                        set [変数 v] to ((変数) * (0.8))\n                        turn right (変数) degrees\n                    end\n                else\n                    if <(costume [number v]) = [4]> then\n                        set [ghost v] effect to (100)\n                        point in direction (90)\n                        go to x: (0) y: (-174)\n                        set [変数 v] to [43.5]\n                        repeat (30)\n                            set [変数 v] to ((変数) * (0.8))\n                            change y by (変数)\n                            change [ghost v] effect by ((0) - ((100) / (30)))\n                        end\n                        wait (1) seconds\n                        set [変数 v] to [10]\n                        repeat (30)\n                            set [変数 v] to ((変数) * (0.8))\n                            change y by (変数)\n                        end\n                    else\n                        if <(costume [number v]) = [14]> then\n                            switch costume to (コスチューム14 v)\n                            set size to (1000) %\n                            switch costume to (コスチューム15 v)\n                            set [変数 v] to [-46]\n                            repeat (30)\n                                set [変数 v] to ((変数) * (0.8))\n                                change size by (変数)\n                            end\n                            set [変数 v] to [-30]\n                            repeat (30)\n                                set [変数 v] to ((変数) * (0.8))\n                                change y by (変数)\n                            end\n                            wait (0.8) seconds\n                            set [変数 v] to [10]\n                            repeat (30)\n                                set [変数 v] to ((変数) * (0.8))\n                                change size by (変数)\n                            end\n                            set [変数 v] to [-10]\n                            repeat (30)\n                                set [変数 v] to ((変数) * (0.8))\n                                change size by (変数)\n                            end\n                        else\n                            if <<(costume [number v]) = [10]> or <<(costume [number v]) = [11]> or <(costume [number v]) = [12]>>> then\n                                set [変数 v] to [-40]\n                                repeat (30)\n                                    set [変数 v] to ((変数) * (0.8))\n                                    change y by (変数)\n                                end\n                                set [変数 v] to [40]\n                                repeat (30)\n                                    set [変数 v] to ((変数) * (0.8))\n                                    change y by (変数)\n                                end\n                                delete this clone\n                            else\n                                if <(costume [number v]) = [5]> then\n                                    go to x: (0) y: (0)\n                                    set size to (100) %\n                                    set [変数 v] to [2430]\n                                    repeat (30)\n                                        switch costume to (コスチューム14 v)\n                                        set [変数 v] to ((変数) * (0.8))\n                                        change size by (変数)\n                                        switch costume to (コスチューム6 v)\n                                    end\n                                    broadcast (イントロ消える v)\n                                    wait (0.5) seconds\n                                    set [変数 v] to [-2430]\n                                    repeat (30)\n                                        switch costume to (コスチューム14 v)\n                                        set [変数 v] to ((変数) * (0.8))\n                                        change size by (変数)\n                                        switch costume to (コスチューム6 v)\n                                        change [ghost v] effect by ((100) / (30))\n                                    end\n                                    broadcast (始まり v)\n                                    delete this clone\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nif <<(costume [number v]) = [10]> or <<(costume [number v]) = [11]> or <(costume [number v]) = [12]>>> then\n    point in direction (-90)\n    set [変数2 v] to [45]\n    repeat (30)\n        set [変数2 v] to ((変数2) * (0.8))\n        turn right (変数2) degrees\n    end\n    set [変数2 v] to [-45]\n    repeat (30)\n        set [変数2 v] to ((変数2) * (0.8))\n        turn right (変数2) degrees\n    end\n    delete this clone\nend\n\nwhen I receive [イントロ消える v]\nif <not <(costume [number v]) = [5]>> then\n    delete this clone\nend\n\nwhen I receive [イントロの始まり v]\nstart sound [イントロ v]\ngo to x: (0) y: (0)\nset size to (100) %\nswitch costume to (コスチューム7 v)\nhide\nwait (0.2) seconds\nrepeat (3)\n    create clone of (_myself_ v)\n    wait (0.1) seconds\n    next costume\nend\nwait (1) seconds\nswitch costume to (コスチューム2 v)\ncreate clone of (_myself_ v)\nrepeat (3)\n    wait (0.1) seconds\n    next costume\n    create clone of (_myself_ v)\nend\nwait (2) seconds\nswitch costume to (コスチューム15 v)\ncreate clone of (_myself_ v)\nwait (2) seconds\nswitch costume to (コスチューム11 v)\nset size to (500) %\ngo to x: (-180) y: (180)\ncreate clone of (_myself_ v)\nrepeat (2)\n    wait (0.05) seconds\n    next costume\n    change x by (180)\n    create clone of (_myself_ v)\nend\nwait (2.5) seconds\nswitch costume to (コスチューム6 v)\ncreate clone of (_myself_ v)\n\n@土ぼこりと飛び散った草\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\nshow\ngo to [front v] layer\ngo [backward v] (5) layers\npoint in direction (pick random (-90) to (90))\ngo to (プレーヤー v)\nchange y by (pick random (-17) to (-5))\nset size to (pick random (50) to (100)) %\nswitch costume to (pick random (1) to (2))\nif <(x) > [-1]> then\n    change x by (-28)\n    set [土ぼこりx v] to (pick random (-3) to (-1))\n    set [土ぼこりy v] to (pick random (2) to (5))\nelse\n    change x by (28)\n    set [土ぼこりx v] to (pick random (1) to (3))\n    set [土ぼこりy v] to (pick random (2) to (5))\nend\nset [brightness v] effect to (pick random (-10) to (10))\nrepeat (20)\n    change [ghost v] effect by (5)\n    change x by (土ぼこりx)\n    change y by (土ぼこりy)\n    if <(x) > [0]> then\n        turn right (15) degrees\n        change [土ぼこりx v] by (-0.5)\n        change [土ぼこりy v] by (-0.8)\n    else\n        turn left (15) degrees\n        change [土ぼこりx v] by (0.5)\n        change [土ぼこりy v] by (-0.8)\n    end\nend\ndelete this clone\n\nforever\n    create clone of (_myself_ v)\n    wait (0.05) seconds\nend\n\n@マグマ\n\nwhen I receive [イントロ消える v]\nshow\nset [マグマコスチューム v] to [1]\nswitch costume to (コスチューム1 v)\nforever\n    if <(NEXT終わり) = [1]> then\n        set [マグマコスチューム v] to ((costume [number v]) + (1))\n        repeat until <(NEXT終わり) = [2]>\n            switch costume to (マグマコスチューム)\n        end\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen flag clicked\ngo to x: (0) y: (-50)\nset [マグマ変数 v] to [0]\nrepeat (5)\n    change y by (マグマ変数)\n    change [マグマ変数 v] by (0.5)\n    wait (0.1) seconds\nend\nforever\n    repeat (10)\n        change y by (マグマ変数)\n        change [マグマ変数 v] by (-0.5)\n        wait (0.1) seconds\n    end\n    repeat (10)\n        change y by (マグマ変数)\n        change [マグマ変数 v] by (0.5)\n        wait (0.1) seconds\n    end\nend\n\n@ありごとう\n\nwhen flag clicked\nhide\n\nwhen I receive [ステージクリア v]\nwait (0.5) seconds\ngo to [back v] layer\nshow\nset [変数2 v] to [36]\npoint in direction (-90)\nrepeat (30)\n    turn right (変数2) degrees\n    set [変数2 v] to ((変数2) * (0.8))\nend\n\nwhen I receive [ステージクリア v]\nwait (0.5) seconds\nset [変数3 v] to [50]\ngo to x: (-272) y: (50)\nrepeat (30)\n    change x by (変数3)\n    set [変数3 v] to ((変数3) * (0.8))\nend\n\n@よろいく\n\nwhen I receive [ステージクリア v]\nwait (1.5) seconds\nshow\ngo to [back v] layer\nset [変数4 v] to [0]\ngo to x: (-25) y: (215)\nrepeat until <(y position) < [0]>\n    change y by (変数4)\n    change [変数4 v] by (-1)\nend\ngo to x: (-25) y: (0)\nset [変数4 v] to [12]\nrepeat until <(y position) < [0]>\n    change y by (変数4)\n    change [変数4 v] by (-1)\nend\ngo to x: (-25) y: (0)\nset [変数4 v] to [9]\nrepeat until <(y position) < [0]>\n    change y by (変数4)\n    change [変数4 v] by (-1)\nend\ngo to x: (-25) y: (0)\nset [変数4 v] to [6]\nrepeat until <(y position) < [0]>\n    change y by (変数4)\n    change [変数4 v] by (-1)\nend\ngo to x: (-25) y: (0)\nset [変数4 v] to [3]\nrepeat until <(y position) < [0]>\n    change y by (変数4)\n    change [変数4 v] by (-1)\nend\ngo to x: (-25) y: (0)\nset [変数4 v] to [1]\nrepeat until <(y position) < [0]>\n    change y by (変数4)\n    change [変数4 v] by (-1)\nend\ngo to x: (-25) y: (0)\nset [変数4 v] to [0.5]\nrepeat until <(y position) < [0]>\n    change y by (変数4)\n    change [変数4 v] by (-1)\nend\ngo to x: (-25) y: (0)\n\nwhen flag clicked\nhide\n\n@みへね\n\nwhen flag clicked\nhide\n\nwhen I receive [ステージクリア v]\nwait (4.5) seconds\ngo to x: (-30) y: (206)\nshow\ngo to [back v] layer\nset [変数5 v] to [-16]\nrepeat (30)\n    change y by (変数5)\n    set [変数5 v] to ((変数5) * (0.8))\nend\n\n@サムネィル\n\nwhen flag clicked\nswitch costume to (え、めちゃくちゃ良くね？\(\( v)\nshow\nset [ghost v] effect to (100)\ngo to [front v] layer\ngo [forward v] (1) layers\n\n