yoshi platformer 4 scroll.ver!

Instructions: 必ず下見てください↓↓↓\n-------------------------------------------------------------------------\n　　　　　　　   ～操作方法一覧～\n右矢印: 右へ進む\n左矢印: 左へ進む\n上矢印: ジャンプ (長押しで踏ん張りできます。後、無限に踏ん張る事ができます。)\nスペースキー: 舌を出す\n原作同様、スターのお守りを追加しました。\n敵に当たったりすると-5ずつ減ります(原作同様とは)\n0になるとゲームオーバーになります。\n\n〈モバイルの方〉\nタップで操作。\n舌を出す場合はヨッシーを直接タップ。

@Stage\n\n@判定\n\ndefine 初期\nbroadcast (もう無理！ v)\ngo to [back v] layer\nshow\npoint in direction (90)\nset [ghost v] effect to (100)\nset size to (75) %\nset [x v] to [0]\nset [y v] to [0]\nset [踏ん張り v] to [0]\nset [カウントぉ v] to [0]\ngo to x: (-90) y: (-70)\n\nwhen I receive [next \(pipe\) v]\nrepeat (30)\n    set [x v] to [0]\n    set [y v] to [-2]\n    change y by (y)\nend\n\nwhen flag clicked\nset [スクロールx v] to [0]\nhide\n\nwhen I receive [honntoni death?? v]\nbroadcast (death v)\nstart sound [痛い！ v]\nchange [スターのお守り v] by (-5)\nif <(direction) = [90]> then\n    set [x v] to [-10]\nelse\n    set [x v] to [10]\nend\nif <(スターのお守り) < [5]> then\n    broadcast (うわぁぁぁぁああ v)\nend\n\nwhen I receive [舌ベロン v]\nrepeat (10)\n    set [x v] to [0]\nend\n\nwhen I receive [ゴール v]\nforever\n    set [x v] to [0]\n    set [y v] to [1]\n    set [踏ん張り v] to [0]\n    stop [other scripts in sprite v]\nend\n\nwhen I receive [honntouno end v]\n初期\nスタート\n\nwhen I receive [honntouno end v]\nforever\n    if <<key (space v) pressed?> or <<mouse down?> and <touching (mouse-pointer v)?>>> then\n        if <not <<key (up arrow v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>>> then\n            set [kuwaero v] to [0]\n            broadcast (舌ベロン v)\n            start sound [ペロン v]\n            wait (0.5) seconds\n        end\n    end\nend\n\nwhen I receive [honntouno end v]\nforever\n    if <(踏ん張り) > [17]> then\n        start sound [うーん！ v]\n        wait (0.04) seconds\n    end\n    if <(踏ん張り) > [30]> then\n        play sound [よいしょー！ v] until done\n    end\nend\n\nwhen I receive [honntouno end v]\nforever\n    if <(y position) < [-185]> then\n        broadcast (うわぁぁぁぁああ v)\n        stop [this script v]\n    end\nend\n\nwhen I receive [うわぁぁぁぁああ v]\nstart sound [うわぁぁぁぁぁぁぁ！！ v]\nstop [other scripts in sprite v]\nhide\n\ndefine スタート\nset rotation style [left-right v]\nforever\n    if <<key (right arrow v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>> then\n        point in direction (90)\n        change [x v] by (0.85)\n        if <(踏ん張り) > [17]> then\n            if <(x) > [6]> then\n                set [x v] to [5]\n            end\n        end\n    end\n    if <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>> then\n        point in direction (-90)\n        change [x v] by (-0.85)\n        if <(踏ん張り) > [17]> then\n            if <(x) < [-6]> then\n                set [x v] to [-5]\n            end\n        end\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\n    if <<touching (本当の床 v)?> or <<touching (当たり判定のあるオブジェクト v)?> or <<touching (バネ v)?> or <touching (シーソー2 v)?>>>> then\n        change y by (1)\n        if <<touching (本当の床 v)?> or <<touching (当たり判定のあるオブジェクト v)?> or <<touching (バネ v)?> or <touching (シーソー2 v)?>>>> then\n            change y by (1)\n            if <<touching (本当の床 v)?> or <<touching (当たり判定のあるオブジェクト v)?> or <<touching (バネ v)?> or <touching (シーソー2 v)?>>>> then\n                change y by (1)\n                if <<touching (本当の床 v)?> or <<touching (当たり判定のあるオブジェクト v)?> or <<touching (バネ v)?> or <touching (シーソー2 v)?>>>> then\n                    change y by (1)\n                    if <<touching (本当の床 v)?> or <<touching (当たり判定のあるオブジェクト v)?> or <<touching (バネ v)?> or <touching (シーソー2 v)?>>>> then\n                        change y by (1)\n                    end\n                    if <<touching (本当の床 v)?> or <<touching (バネ v)?> or <<touching (当たり判定のあるオブジェクト v)?> or <touching (シーソー2 v)?>>>> then\n                        set [地面 v] to [1]\n                        change x by ((x) * (-1))\n                        change y by (-5)\n                    else\n                        set [地面 v] to [0]\n                    end\n                end\n            end\n        end\n    end\n    change y by (-1)\n    if <<key (up arrow v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>> then\n        broadcast (juuuu v)\n        change [踏ん張り v] by (1.1)\n        if <<touching (本当の床 v)?> or > then\n            start sound [ジャンプ！ v]\n            set [y v] to [14]\n            set [踏ん張り v] to [0]\n        end\n    else\n        set [踏ん張り v] to [0]\n        if <<touching (本当の床 v)?> or <touching (当たり判定のあるオブジェクト v)?>> then\n            set [踏ん張り v] to [0]\n        end\n    end\n    change y by (1)\n    change [y v] by (-1)\n    change y by (y)\n    if <<touching (本当の床 v)?> or <<touching (当たり判定のあるオブジェクト v)?> or <<touching (バネ v)?> or <touching (シーソー2 v)?>>>> then\n        set [地面 v] to [1]\n        change y by ((y) * (-1))\n        set [y v] to [0]\n    else\n        set [地面 v] to [0]\n    end\n    if  then\n        broadcast (death v)\n        start sound [痛い！ v]\n        change [スターのお守り v] by (-5)\n        if <(direction) = [90]> then\n            set [x v] to [-5]\n        else\n            set [x v] to [5]\n        end\n        if <(スターのお守り) < [5]> then\n            broadcast (うわぁぁぁぁああ v)\n        end\n    end\n    if <<touching (移動手段 v)?> and <<key (down arrow v) pressed?> or <<mouse down?> and <(mouse y) < (y position)>>>> then\n        broadcast (入る\(行動\) v)\n        hide\n        start sound [じょっじょっじょっ... v]\n        wait (0.4) seconds\n        repeat (10)\n            change [y v] by (-1.5)\n            change y by (y)\n            broadcast (入る v)\n        end\n        初期\n        broadcast (next v)\n        broadcast (next \(pipe\) v)\n    end\n    if <(踏ん張り) > [17]> then\n        change [y v] by (1.4)\n        if <(踏ん張り) < [19]> then\n            set [y v] to [-2]\n        end\n    end\n    if <(踏ん張り) > [33]> then\n        set [y v] to [10]\n        set [踏ん張り v] to [0]\n        broadcast (もう無理！ v)\n    end\n    if  then\n        if <<[0] > (x position)> or <[-6700] < (スクロールx)>> then\n            set x to ((x position) - ([floor v] of (((x position) + (x)) / (9)) ))\n            set [スクロールx v] to ((スクロールx) - ([floor v] of (((x position) + (x)) / (9)) ))\n        end\n    end\nend\n\n@ヨッシー\n\ndefine 初期\nset rotation style [left-right v]\nshow\npoint in direction (90)\nset size to (155) %\nset [x v] to [0]\nset [y v] to [0]\nbroadcast (暇 v)\ngo to [front v] layer\nwait (0.5) seconds\nbroadcast (ヨッシー動き v)\n\nwhen I receive [death v]\nrepeat (10)\n    switch costume to (痛い！ v)\nend\n\nwhen I receive [暇 v]\nwait (0) seconds\nforever\n    if <(pick random (1) to (5)) > [2]> then\n        switch costume to (止まる v)\n        wait (0.09) seconds\n        switch costume to (暇 v)\n        wait (0.09) seconds\n        switch costume to (暇2 v)\n        wait (0.09) seconds\n        switch costume to (暇3 v)\n        wait (0.09) seconds\n        switch costume to (暇4 v)\n        wait (0.09) seconds\n        switch costume to (暇5 v)\n        wait (0.09) seconds\n        switch costume to (暇6 v)\n        wait (0.09) seconds\n        switch costume to (暇7 v)\n        broadcast (暇 v)\n    end\n    if <(pick random (1) to (5)) < [2]> then\n        switch costume to (暇 \(カリカリ\) v)\n        repeat (3)\n            switch costume to (暇 \(カリカリ\)2 v)\n            wait (0.1) seconds\n            switch costume to (暇 \(カリカリ\)3 v)\n            wait (0.1) seconds\n        end\n        switch costume to (暇 \(カリカリ\)4 v)\n        wait (0.1) seconds\n        switch costume to (止まる v)\n        broadcast (暇 v)\n    end\nend\n\nwhen I receive [map serct v]\nwait (0.2) seconds\nrepeat (3)\n    switch costume to (走る1 v)\n    wait () seconds\n    switch costume to (走る2 v)\n    broadcast (暇 v)\nend\nswitch costume to (止まる v)\n\nwhen I receive [map serct v]\nswitch costume to (ヒュー... \(落下\)2 v)\nshow\npoint in direction (90)\ngo to x: (-280) y: (-30)\nchange [x v] by (20)\nrepeat (10)\n    go to [front v] layer\n    change y by (-5)\n    set [x v] to ((x) * (0.9))\n    change x by (x)\nend\nrepeat (10)\n    set [x v] to ((x) * (0.9))\n    change x by (x)\nend\nset [y v] to [0]\n\nwhen flag clicked\nset [kuwaero v] to [0]\nhide\n\nwhen I receive [舌ベロン v]\nrepeat (12)\n    switch costume to (舌ベロン v)\nend\nswitch costume to (止まる v)\nif <(kuwaero) = [1]> then\n    switch costume to (舌ベロン2 v)\n    wait (0.08) seconds\n    switch costume to (舌ベロン3 v)\n    wait (0.08) seconds\n    switch costume to (舌ベロン4 v)\n    wait (0.08) seconds\n    switch costume to (舌ベロン5 v)\n    wait (0.08) seconds\n    switch costume to (うますぎだろ！！ v)\n    wait (0.08) seconds\n    switch costume to (うますぎだろ！！2 v)\n    wait (0.08) seconds\n    switch costume to (うますぎだろ！！3 v)\n    wait (0.08) seconds\n    switch costume to (うますぎだろ！！4 v)\n    wait (0.08) seconds\n    switch costume to (うますぎだろ！！5 v)\n    wait (0.08) seconds\n    switch costume to (止まる v)\n    set [kuwaero v] to [0]\nend\n\nwhen I receive [舌ベロン v]\nrepeat until <(kuwaero) = [0]>\n    set [x v] to [0]\nend\n\nwhen I receive [ゴール v]\nforever\n    switch costume to (祝福の舞 v)\nend\n\nwhen I receive [honntouno end v]\nforever\n    if <(踏ん張り) > [17]> then\n        broadcast (暇 v)\n        broadcast (ヨッシー動き v)\n    end\nend\n\nwhen I receive [honntouno end v]\nforever\n    repeat until <not <(踏ん張り) > [17]>>\n        switch costume to (踏ん張り v)\n        wait () seconds\n        switch costume to (踏ん張り2 v)\n        wait () seconds\n        switch costume to (踏ん張り3 v)\n        wait () seconds\n    end\nend\n\n\n\nwhen I receive [honntouno end v]\n初期\nset rotation style [left-right v]\nforever\n    go to (判定 v)\n    if <<key (right arrow v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>> then\n        point in direction (90)\n    end\n    if <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>> then\n        point in direction (-90)\n    end\nend\n\nwhen I receive [honntoni death?? v]\nrepeat (10)\n    switch costume to (痛い！ v)\nend\n\nwhen I receive [うわぁぁぁぁああ v]\nclear graphic effects\nif <([y position v] of [判定 v]) < [-180]> then\n    hide\n    stop [other scripts in sprite v]\nelse\n    stop [other scripts in sprite v]\n    repeat (2)\n        switch costume to (うわぁ v)\n        wait (0.06) seconds\n        switch costume to (うわぁ2 v)\n        wait (0.06) seconds\n        switch costume to (うわぁ3 v)\n        wait (0.06) seconds\n        switch costume to (うわぁ4 v)\n        wait (0.06) seconds\n        switch costume to (うわぁ5 v)\n        wait (0.06) seconds\n        switch costume to (うわぁ6 v)\n        wait (0.06) seconds\n    end\n    wait (1) seconds\n    switch costume to (うわぁ7 v)\n    wait (0.07) seconds\n    switch costume to (うわぁ8 v)\n    wait (0.07) seconds\n    switch costume to (うわぁ9 v)\n    wait (0.07) seconds\n    switch costume to (うわぁ10 v)\n    wait (0.07) seconds\n    switch costume to (うわぁ11 v)\n    wait (0.07) seconds\nend\n\nwhen I receive [death v]\nrepeat (5)\n    set [ghost v] effect to (0)\n    wait (0.1) seconds\n    set [ghost v] effect to (100)\n    wait (0.1) seconds\n    clear graphic effects\nend\n\nwhen I receive [honntoni death?? v]\nrepeat (5)\n    set [ghost v] effect to (0)\n    wait (0.1) seconds\n    set [ghost v] effect to (100)\n    wait (0.1) seconds\n    clear graphic effects\nend\n\nwhen I receive [ゴール v]\nwait (6) seconds\nstop [other scripts in sprite v]\nhide\n\nwhen I receive [ヨッシー動き v]\nwait (0.08) seconds\nforever\n    if <not <(y) > [0.1]>> then\n        if <<<<key (right arrow v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>> and <(x) > [0.05]>> or <<<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>> and <(x) < [-0.05]>>> then\n            switch costume to (走る1 v)\n            wait (0) seconds\n            switch costume to (走る2 v)\n            broadcast (暇 v)\n        else\n            if <<<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>> or <<key (right arrow v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>>> then\n                repeat (5)\n                    switch costume to (おっと v)\n                    broadcast (暇 v)\n                end\n            end\n        end\n    else\n        if <not <(踏ん張り) > [17]>> then\n            repeat (16)\n                switch costume to (ジャンプ！ v)\n            end\n        end\n        repeat <<not <(踏ん張り) > [17]>> and <not <<touching (本当の床 v)?> or <touching (当たり判定のあるオブジェクト v)?>>>>\n            switch costume to (ヒュー... \(落下\) v)\n        end\n        repeat until <<(地面) = [1]> and <not <(踏ん張り) > [17]>>>\n            switch costume to (ヒュー... \(落下\)2 v)\n        end\n    end\nend\n\ndefine ヨッシーの動き\n\n@本当の床\n\nwhen I start as a clone\nset [クローンされた? v] to [1]\ngo to [front v] layer\nshow\nforever\n    go to x: ((スクロールx) + ((480) * (スクロールする))) y: (0)\n    if <<(x position) > [420]> or <(x position) < [-464]>> then\n        hide\n    else\n        show\n    end\nend\n\nwhen I receive [honntouno end v]\nset [ghost v] effect to (100)\nset [スクロールx v] to [0]\nset [クローンされた? v] to [0]\nset size to (200) %\nhide\nswitch costume to (1 v)\nset [スクロールする v] to [0]\nrepeat (15)\n    create clone of (_myself_ v)\n    change [スクロールする v] by (1)\n    next costume\nend\n\nwhen I receive [honntouno end v]\nforever\n    broadcast (だぁ v)\nend\n\nwhen I receive [成績 v]\nstop [other scripts in sprite v]\n\n@スタート\n\nwhen I receive [map serct v]\ngo to [front v] layer\nswitch costume to (スタート v)\nset [start x v] to [0]\ngo to x: (0) y: (0)\nstart sound [スタート v]\nshow\nwait ((length of [Revenge of the donut floor]) / (9)) seconds\nbroadcast (honntouno end v)\nwait (0.1) seconds\nrepeat (15)\n    next costume\nend\nhide\n\nwhen flag clicked\nhide\n\nwhen I receive [うわぁぁぁぁああ v]\nif <([y position v] of [判定 v]) < [-185]> then\n    switch costume to (death v)\n    show\n    set x to (-500)\n    go to [front v] layer\n    forever\n        repeat until <(x position) > [95]>\n            change x by (20)\n        end\n    end\nelse\n    wait (5) seconds\n    switch costume to (death v)\n    show\n    set x to (-500)\n    go to [front v] layer\n    forever\n        repeat until <(x position) > [95]>\n            change x by (20)\n        end\n    end\nend\n\nwhen I receive [うわぁぁぁぁああ v]\nif <([y position v] of [判定 v]) < [-185]> then\n    wait (4) seconds\n    stop [other scripts in sprite v]\n    switch costume to (restart v)\n    set [brightness v] effect to (-100)\n    go to x: (0) y: (0)\n    repeat (20)\n        change [brightness v] effect by (5)\n    end\nelse\n    wait (7) seconds\n    stop [other scripts in sprite v]\n    switch costume to (restart v)\n    set [brightness v] effect to (-100)\n    go to x: (0) y: (0)\n    repeat (20)\n        change [brightness v] effect by (5)\n    end\nend\n\n@音楽 (アスレチック)\n\nwhen I receive [ゴール v]\nset volume to (0) %\n\nwhen I receive [honntouno end v]\nset volume to (500) %\nplay sound [17_Athletic v] until done\nbroadcast (music next v)\n\nwhen I receive [music next v]\nforever\n    play sound [17_Athletic2 v] until done\nend\n\nwhen I receive [うわぁぁぁぁああ v]\nstop [other scripts in sprite v]\n\n@スクショ\n\nwhen flag clicked\nshow\nset [赤コイン v] to [0]\nset [花 v] to [0]\nset [スターのお守り v] to [30]\nhide variable [赤コイン v]\nhide variable [花 v]\nhide variable [スターのお守り v]\ngo to x: (0) y: (0)\nset [ghost v] effect to (100)\nforever\n    go to [front v] layer\nend\n\nwhen I receive [honntouno end v]\nshow variable [赤コイン v]\nshow variable [花 v]\nshow variable [スターのお守り v]\n\nwhen I receive [うわぁぁぁぁああ v]\nhide variable [赤コイン v]\nhide variable [花 v]\nhide variable [スターのお守り v]\nset [赤コイン v] to [0]\nset [花 v] to [0]\nset [スターのお守り v] to [30]\n\nwhen I receive [ターボ v]\nhide\n\n@オブジェクト\n\nwhen I start as a clone\nchange [カウントぉ v] by (1)\n\nwhen I start as a clone\nwait (0.06) seconds\nset [クローン? v] to [1]\nset size to (160) %\nshow\nforever\n    if <(君の名は。) = [red coin]> then\n        if <touching (判定 v)?> then\n            start sound [赤コイン v]\n            change [赤コイン v] by (1)\n            stop [other scripts in sprite v]\n            broadcast (↑ v)\n            switch costume to (真っ赤コイン v)\n            wait (0.1) seconds\n            switch costume to (真っ赤コイン2 v)\n            wait (0.1) seconds\n            switch costume to (真っ赤コイン3 v)\n            wait (0.1) seconds\n            switch costume to (真っ赤コイン4 v)\n            wait (0.1) seconds\n            delete this clone\n        end\n    end\nend\n\ndefine オブジェクト (名前) x (x) y (y)\nset [君の名は。 v] to (名前)\nset [x座標- v] to (x)\nset y to (y)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nset [実行してる？ v] to [0]\nforever\n    if <<(x position) > [238]> or <<(x position) < [-238]> or <(y position) > [175]>>> then\n        hide\n        set [実行してる？ v] to [0]\n    else\n        show\n        set [実行してる？ v] to [1]\n    end\nend\n\nwhen I start as a clone\nwait (0.03) seconds\nset [クローン? v] to [1]\nset size to (160) %\nshow\nforever\n    if <(君の名は。) = [coin]> then\n        if <touching (判定 v)?> then\n            start sound [コイン v]\n            delete this clone\n        end\n    end\nend\n\nwhen I start as a clone\nif <(君の名は。) = [coin]> then\n    forever\n        switch costume to (コイン v)\n        wait (0.1) seconds\n        switch costume to (コイン2 v)\n        wait (0.1) seconds\n        switch costume to (コイン3 v)\n        wait (0.1) seconds\n        switch costume to (コイン4 v)\n        wait (0.1) seconds\n    end\nend\n\nwhen I start as a clone\nif <(君の名は。) = [red coin]> then\n    forever\n        switch costume to (赤コイン v)\n        wait (0.1) seconds\n        switch costume to (赤コイン2 v)\n        wait (0.1) seconds\n        switch costume to (赤コイン3 v)\n        wait (0.1) seconds\n        switch costume to (赤コイン4 v)\n        wait (0.1) seconds\n    end\nend\n\nwhen I receive [だぁ v]\nif <(クローン?) = [1]> then\n    set x to ((スクロールx) + ((1) * (X座標-)))\nend\n\nwhen I receive [honntouno end v]\nset [クローン? v] to [0]\nhide\nオブジェクト [red coin] x [-30] y [0]\nオブジェクト [coin] x [0] y [30]\nオブジェクト [red coin] x [30] y [0]\nオブジェクト [red coin] x [1000] y [0]\nオブジェクト [fl] x [1025] y [0]\nオブジェクト [red coin] x [1050] y [0]\nオブジェクト [back ground goonie] x [400] y [70]\nオブジェクト [back ground goonie] x [420] y [65]\nオブジェクト [back ground goonie] x [430] y [58]\nオブジェクト [back ground goonie] x [450] y [50]\nオブジェクト [back ground goonie] x [458] y [46]\nオブジェクト [back ground goonie] x [467] y [40]\nオブジェクト [goonie] x [1000] y [0]\nオブジェクト [goonie] x [800] y [20]\nオブジェクト [goonie] x [1480] y [-10]\nオブジェクト [goonie] x [1580] y [-50]\nオブジェクト [goonie] x [2300] y [50]\nオブジェクト [goonie] x [2380] y [30]\nオブジェクト [red coin] x [1250] y [150]\nオブジェクト [coin] x [1250] y [120]\nオブジェクト [red coin] x [1380] y [-30]\nオブジェクト [coin] x [1380] y [0]\nオブジェクト [piranha plant] x [720] y [-50]\nオブジェクト [piranha] x [720] y [-50]\nオブジェクト [piranha plant1] x [2850] y [20]\nオブジェクト [piranha1] x [2850] y [20]\nオブジェクト [check point] x [4900] y [20]\nオブジェクト [goonie] x [5300] y [-30]\nオブジェクト [goonie] x [5472] y [100]\nオブジェクト [goonie] x [5480] y [-50]\nオブジェクト [goonie] x [5700] y [50]\nオブジェクト [goonie] x [7580] y [30]\nオブジェクト [coin] x [5300] y [-30]\nオブジェクト [red coin] x [5325] y [-30]\nオブジェクト [red coin] x [5800] y [-20]\nオブジェクト [red coin] x [5825] y [-20]\nオブジェクト [red coin] x [5700] y [-20]\nオブジェクト [fl] x [5725] y [-20]\nオブジェクト [coin] x [3355] y [-10]\nオブジェクト [fl] x [3380] y [-10]\nオブジェクト [coin] x [3405] y [-10]\nオブジェクト [piranha plant] x [6254] y [-50]\nオブジェクト [piranha] x [6254] y [-50]\nオブジェクト [goal] x [6650] y [80]\n\nwhen I start as a clone\nif <(君の名は。) = [goonie]> then\n    set rotation style [left-right v]\n    point in direction (-90)\n    switch costume to (あほーどり v)\n    forever\n        if <(実行してる？) = [1]> then\n            switch costume to (あほーどり v)\n            wait (0.04) seconds\n            switch costume to (あほーどり2 v)\n            wait (0.04) seconds\n            switch costume to (あほーどり3 v)\n            wait (0.04) seconds\n            switch costume to (あほーどり4 v)\n            wait (0.04) seconds\n            switch costume to (あほーどり5 v)\n            wait (0.04) seconds\n            switch costume to (あほーどり6 v)\n            wait (0.04) seconds\n            switch costume to (あほーどり7 v)\n            wait (0.04) seconds\n            switch costume to (あほーどり8 v)\n            wait (0.04) seconds\n            switch costume to (あほーどり9 v)\n            wait (0.04) seconds\n            if <<(pick random (1) to (4)) = [4]> and <([y position v] of [判定 v]) < (y position)>> then\n                repeat (40)\n                    switch costume to (あほーどり10 v)\n                    change y by (-2.5)\n                end\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nwait (0.05) seconds\nset [クローン? v] to [1]\nset size to (160) %\nshow\nif <(君の名は。) = [goonie]> then\n    point in direction (-90)\n    forever\n        if <(実行してる？) = [1]> then\n            change [x座標- v] by (-1.5)\n            change y by (1.2)\n            if <<touching (左判定 v)?> or <touching (右判定 v)?>> then\n                broadcast (honntoni death?? v)\n            end\n        end\n        if <not <(kuwaero) = [1]>> then\n            if <touching (舌 v)?> then\n                set [kuwaero v] to [1]\n                wait (0.05) seconds\n                delete this clone\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nwait (0.04) seconds\nset [クローン? v] to [1]\nif <(君の名は。) = [back ground goonie]> then\n    show\n    set size to (130) %\n    forever\n        change [x座標- v] by (-0.3)\n        change y by (0.2)\n        if <(y position) > [175]> then\n            delete this clone\n        end\n    end\nend\n\nwhen I start as a clone\nif <(君の名は。) = [back ground goonie]> then\n    go to [back v] layer\n    go [forward v] (5) layers\n    point in direction (-90)\n    forever\n        switch costume to (背景のあほーどり v)\n        wait (0.07) seconds\n        switch costume to (背景のあほーどり2 v)\n        wait (0.07) seconds\n        switch costume to (背景のあほーどり3 v)\n        wait (0.07) seconds\n        switch costume to (背景のあほーどり4 v)\n        wait (0.07) seconds\n        switch costume to (背景のあほーどり5 v)\n        wait (0.07) seconds\n        switch costume to (背景のあほーどり6 v)\n        wait (0.07) seconds\n        switch costume to (背景のあほーどり7 v)\n        wait (0.07) seconds\n        switch costume to (背景のあほーどり8 v)\n        wait (0.07) seconds\n    end\nend\n\nwhen I start as a clone\nif <(君の名は。) = [goonie]> then\n    forever\n        if <touching (下判定\(敵踏み踏み用\) v)?> then\n            set [y v] to [10]\n            set [踏ん張り v] to [0]\n            stop [other scripts in sprite v]\n            start sound [ポン！ v]\n            set rotation style [all around v]\n            set size to (200) %\n            switch costume to (コスチューム1 v)\n            turn right (40) degrees\n            wait (0.05) seconds\n            switch costume to (コスチューム2 v)\n            turn right (40) degrees\n            wait (0.05) seconds\n            switch costume to (コスチューム3 v)\n            turn right (40) degrees\n            wait (0.05) seconds\n            switch costume to (コスチューム4 v)\n            turn right (40) degrees\n            wait (0.05) seconds\n            switch costume to (コスチューム5 v)\n            turn right (40) degrees\n            wait (0.05) seconds\n            switch costume to (コスチューム6 v)\n            turn right (40) degrees\n            wait (0.05) seconds\n            switch costume to (コスチューム7 v)\n            turn right (40) degrees\n            wait (0.05) seconds\n            switch costume to (一個飛ばし×2 v)\n            turn right (40) degrees\n            wait (0.05) seconds\n            switch costume to (コスチューム9 v)\n            turn right (40) degrees\n            wait (0.05) seconds\n            switch costume to (一個飛ばし×2 v)\n            turn right (40) degrees\n            wait (0.05) seconds\n            switch costume to (コスチューム10 v)\n            turn right (40) degrees\n            wait (0.05) seconds\n            delete this clone\n        end\n    end\nend\n\nwhen I receive [↑ v]\nif <(君の名は。) = [red coin]> then\n    if <touching (判定 v)?> then\n        repeat (13)\n            change y by (2)\n        end\n    end\nend\n\nwhen I receive [うわぁぁぁぁああ v]\nstop [other scripts in sprite v]\ndelete this clone\n\nwhen I start as a clone\nif <(君の名は。) = [piranha plant]> then\n    set rotation style [left-right v]\n    switch costume to (根 v)\n    forever\n        if <(distance to [判定 v]) < [250]> then\n            if <(実行してる？) = [1]> then\n                point towards (判定 v)\n            end\n        else\n            hide\n        end\n    end\nend\n\nwhen I start as a clone\nif <(君の名は。) = [piranha]> then\n    forever\n        if <(distance to [判定 v]) < [250]> then\n            if <(実行してる？) = [1]> then\n                start sound [パクパク v]\n                if <([x position v] of [判定 v]) < (x position)> then\n                    switch costume to (パックン2 v)\n                else\n                    switch costume to (パックン v)\n                end\n                wait (0.07) seconds\n                if <([x position v] of [判定 v]) < (x position)> then\n                    switch costume to (パックン4 v)\n                else\n                    switch costume to (パックン3 v)\n                end\n                wait (0.07) seconds\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nwait (0.095) seconds\nset [クローンされた? v] to [1]\nif <(君の名は。) = [piranha]> then\n    set size to (160) %\n    forever\n        if <not <([y position v] of [判定 v]) < (y position)>> then\n            point towards (判定 v)\n        end\n        if <(distance to [判定 v]) < [250]> then\n            set rotation style [all around v]\n            if <<touching (左判定 v)?> or <touching (右判定 v)?>> then\n                broadcast (honntoni death?? v)\n            end\n        else\n            set rotation style [left-right v]\n            switch costume to (パックン根 v)\n        end\n    end\nend\n\nwhen I start as a clone\nwait (0.085) seconds\nset [クローンされた? v] to [1]\nif <(君の名は。) = [piranha1]> then\n    set size to (160) %\n    forever\n        if <not <(y position) < ([y position v] of [判定 v])>> then\n            point towards (判定 v)\n        end\n        if <(distance to [判定 v]) < [250]> then\n            set rotation style [all around v]\n            if <<touching (左判定 v)?> or <touching (右判定 v)?>> then\n                broadcast (honntoni death?? v)\n            end\n        else\n            set rotation style [left-right v]\n            switch costume to (パックン根2 v)\n        end\n    end\nend\n\nwhen I start as a clone\nif <(君の名は。) = [piranha1]> then\n    forever\n        if <(distance to [判定 v]) < [250]> then\n            if <(実行してる？) = [1]> then\n                start sound [パクパク v]\n                if <([x position v] of [判定 v]) < (x position)> then\n                    switch costume to (パックン6 v)\n                else\n                    switch costume to (パックン5 v)\n                end\n                wait (0.07) seconds\n                if <([x position v] of [判定 v]) < (x position)> then\n                    switch costume to (パックン8 v)\n                else\n                    switch costume to (パックン7 v)\n                end\n                wait (0.07) seconds\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nif <(君の名は。) = [piranha plant1]> then\n    set rotation style [left-right v]\n    switch costume to (根2 v)\n    forever\n        if <(distance to [判定 v]) < [250]> then\n            if <(実行してる？) = [1]> then\n                point towards (判定 v)\n            end\n        else\n            hide\n        end\n    end\nend\n\nwhen I start as a clone\nwait (0.04) seconds\nset [クローン? v] to [1]\nif <(君の名は。) = [check point]> then\n    switch costume to (中間 v)\n    show\n    set size to (200) %\n    forever\n        if <touching (判定 v)?> then\n            start sound [ピロリん v]\n            set [スターのお守り v] to [30]\n            repeat (20)\n                change size by (10)\n                change [ghost v] effect by (5)\n            end\n            delete this clone\n        end\n    end\nend\n\nwhen I start as a clone\nwait (0.09) seconds\nset [クローン? v] to [1]\nif <(君の名は。) = [fl]> then\n    set size to (80) %\n    show\n    set [cos v] to [0]\n    set rotation style [all around v]\n    point in direction (90)\n    switch costume to (お花 v)\n    forever\n        if <(実行してる？) = [1]> then\n            change [cos v] by (20)\n            turn right ([cos v] of (cos) ) degrees\n            if <touching (判定 v)?> then\n                change [花 v] by (1)\n                start sound [ピコン！ v]\n                switch costume to (お花のお化け3 v)\n                wait (0.05) seconds\n                switch costume to (お花のお化け4 v)\n                wait (0.05) seconds\n                switch costume to (お花のお化け5 v)\n                wait (0.05) seconds\n                switch costume to (お花のお化け6 v)\n                wait (0.05) seconds\n                switch costume to (お花のお化け7 v)\n                wait (0.05) seconds\n                switch costume to (お花のお化け8 v)\n                wait (0.05) seconds\n                delete this clone\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nwait (0.09) seconds\nset [クローンされた? v] to [1]\nif <(君の名は。) = [goal]> then\n    set size to (300) %\n    forever\n        switch costume to (ゴール v)\n        wait (0.06) seconds\n        switch costume to (ゴール2 v)\n        wait (0.06) seconds\n        switch costume to (ゴール3 v)\n        wait (0.06) seconds\n        switch costume to (ゴール4 v)\n        wait (0.06) seconds\n        switch costume to (ゴール5 v)\n        wait (0.06) seconds\n        switch costume to (ゴール6 v)\n        wait (0.06) seconds\n        switch costume to (ゴール7 v)\n        wait (0.06) seconds\n        switch costume to (ゴール8 v)\n        wait (0.06) seconds\n        switch costume to (ゴール9 v)\n        wait (0.06) seconds\n        switch costume to (ゴール10 v)\n        wait (0.06) seconds\n    end\nend\n\nwhen I start as a clone\nif <(君の名は。) = [goal]> then\n    forever\n        if <<touching (判定 v)?> and <<([direction v] of [判定 v]) = [90]> and <([x position v] of [判定 v]) < (x position)>>> then\n            hide variable [花 v]\n            hide variable [スターのお守り v]\n            hide variable [赤コイン v]\n            broadcast (ゴール v)\n            play sound [11_Goal v] until done\n            broadcast (成績 v)\n            stop [other scripts in sprite v]\n            forever\n                play sound [12_Score v] until done\n            end\n        end\n    end\nend\n\n@上と下判定(主に踏ん張りに使う)\n\nwhen flag clicked\nset [ghost v] effect to (100)\n\nwhen I receive [もう無理！ v]\nif  then\n\nwhen I receive [honntouno end v]\nset rotation style [left-right v]\nforever\n    go to (判定 v)\n    if <<key (right arrow v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>> then\n        point in direction (90)\n    end\n    if <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>> then\n        point in direction (-90)\n    end\nend\n\nwhen I receive [honntouno end v]\nforever\n    if  then\n        set [踏ん張り v] to [0]\n    end\nend\n\n@床\n\nwhen I start as a clone\nset [クローンされた? v] to [1]\nshow\nforever\n    switch costume to (なし v)\n    set x to ((スクロールx) + (スクロールする))\n    if <(x position) = ((スクロールx) + (スクロールする))> then\n        show\n    else\n        hide\n    end\n    switch costume to ((1) + (コスチューム))\nend\n\nwhen I receive [honntouno end v]\nset [スクロールx v] to [0]\nset [クローンされた? v] to [0]\nset size to (200) %\nhide\nset [コスチューム v] to [1]\nset [スクロールする v] to [0]\n生成\n\nwhen I receive [成績 v]\nwait (1) seconds\ndelete this clone\n\ndefine 生成\nrepeat (15)\n    create clone of (_myself_ v)\n    change [コスチューム v] by (1)\n    change [スクロールする v] by (482)\nend\n\n@ばっくぐらうんどぉぉぉ\n\nwhen I receive [honntouno end v]\nset [スクロールx v] to [0]\nswitch costume to (size hack v)\nset size to (150) %\nhide\nswitch costume to (曇&山 v)\nset [スクロールする v] to [0]\n生成\n\nwhen I receive [成績 v]\nwait (1) seconds\ndelete this clone\n\ndefine 生成\nrepeat (15)\n    create clone of (_myself_ v)\n    change [スクロールする v] by (722)\nend\n\nwhen I start as a clone\nshow\ngo to [front v] layer\ngo [backward v] (160) layers\nforever\n    switch costume to (なし v)\n    set x to (((スクロールx) / (2)) + (スクロールする))\n    if <(x position) = (((スクロールx) / (2)) + (スクロールする))> then\n        show\n    else\n        hide\n    end\n    switch costume to (曇&山 v)\nend\n\n@下判定(ギミック用)\n\nwhen flag clicked\nset [ghost v] effect to (100)\n\nwhen I receive [honntoni death?? v]\nhide\nwait (0.8) seconds\nshow\n\nwhen I receive [破裂 v]\nhide\nwait (0.8) seconds\nshow\n\nwhen I receive [破裂big v]\nhide\nwait (0.8) seconds\nshow\n\nwhen I receive [death v]\nhide\nwait (0.8) seconds\nshow\n\nwhen I receive [honntouno end v]\nset rotation style [left-right v]\nforever\n    go to (判定 v)\n    if <<key (right arrow v) pressed?> or > then\n        point in direction (90)\n    end\n    if <<key (left arrow v) pressed?> or > then\n        point in direction (-90)\n    end\nend\n\n@当たり判定のあるオブジェクト\n\ndefine オブジェクト (名前) x (x) y (y) 特徴は？ (特徴) 色(動く足場専用) (色) 速さ (速さ)\nset [速さ v] to (速さ)\nset [君の名は。 v] to (名前)\nset [色 v] to (色)\nset [x座標- v] to (x)\nset [特徴 v] to (特徴)\nset y to (y)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nforever\n    if <<(x position) > [238]> or <(x position) < [-238]>> then\n        hide\n        set [実行してる？ v] to [0]\n    else\n        show\n        set [実行してる？ v] to [1]\n    end\nend\n\nwhen I receive [だぁ v]\nif <(クローン?) = [1]> then\n    set x to ((スクロールx) + ((1) * (X座標-)))\nend\n\nwhen I start as a clone\nwait (0.05) seconds\nset [クローン? v] to [1]\nif <(君の名は。) = [donut]> then\n    set size to (165) %\n    show\n    switch costume to (ドーナツ v)\n    forever\n        if <touching (下判定\(ギミック用\) v)?> then\n            set [brightness v] effect to (5)\n            repeat (10)\n            repeat (8)\n                change [x座標- v] by (1)\n                wait (0.05) seconds\n                change [x座標- v] by (-1)\n                wait (0.05) seconds\n            end\n            repeat until <(y position) < [-178]>\n                change [y座標 - v] by (-0.1)\n                change y by (Y座標 -)\n            end\n            delete this clone\n        end\n    end\nend\n\nwhen I receive [honntouno end v]\nset [クローン? v] to [0]\nhide\nオブジェクト [donut] x [1300] y [-10] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [1325] y [-10] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [350] y [-70] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [375] y [-70] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [1000] y [30] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [1025] y [30] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [1050] y [30] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [1000] y [-30] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [1025] y [-30] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [1050] y [-30] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [1125] y [-50] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [1150] y [-50] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [1525] y [-40] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [1550] y [-40] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [1650] y [-20] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [730] y [0] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [1800] y [0] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [1825] y [0] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [1900] y [-50] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [1925] y [-50] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [1970] y [20] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [1995] y [20] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [4200] y [0] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [4225] y [0] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [4250] y [0] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [4275] y [0] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [4300] y [0] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [4325] y [0] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [4350] y [0] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [5275] y [0] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [5300] y [0] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [5325] y [0] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [5350] y [0] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [5425] y [-40] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [5450] y [-40] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [5800] y [10] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [5825] y [10] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [5700] y [10] 特徴は？ [] 色(動く足場専用) [] 速さ []\nオブジェクト [donut] x [5725] y [10] 特徴は？ [] 色(動く足場専用) [] 速さ []\n\nwhen I start as a clone\nwait (0.05) seconds\nset [クローン? v] to [1]\nif <(君の名は。) = [moving platform]> then\n    set size to (160) %\n    show\n    if <(色) = [1]> then\n        switch costume to (リフト v)\n    end\n    if <(色) = [2]> then\n        switch costume to (リフト2 v)\n    end\n    if <(色) = [3]> then\n        switch costume to (リフト3 v)\n    end\n    if <(色) = [4]> then\n        switch costume to (リフト4 v)\n    end\n    forever\n        repeat (特徴)\n            change y by (1)\n        end\n        repeat (特徴)\n            change y by (-1)\n        end\n    end\nend\n\nwhen I receive [honntouno end v]\nオブジェクト [moving platform] x [1250] y [-10] 特徴は？ [50] 色(動く足場専用) [3] 速さ []\nオブジェクト [moving platform] x [1380] y [-40] 特徴は？ [50] 色(動く足場専用) [3] 速さ []\nオブジェクト [moving platform1] x [2800] y [-150] 特徴は？ [40] 色(動く足場専用) [4] 速さ []\nオブジェクト [moving platform2] x [3250] y [-80] 特徴は？ [40] 色(動く足場専用) [4] 速さ [6]\nオブジェクト [moving platform2] x [3780] y [-10] 特徴は？ [40] 色(動く足場専用) [4] 速さ [6]\n\nwhen I receive [うわぁぁぁぁああ v]\nstop [other scripts in sprite v]\ndelete this clone\n\nwhen I start as a clone\nwait (0.05) seconds\nset [クローン? v] to [1]\nif <(君の名は。) = [moving platform1]> then\n    set size to (160) %\n    show\n    if <(色) = [1]> then\n        switch costume to (リフト v)\n    end\n    if <(色) = [2]> then\n        switch costume to (リフト2 v)\n    end\n    if <(色) = [3]> then\n        switch costume to (リフト3 v)\n    end\n    if <(色) = [4]> then\n        switch costume to (リフト4 v)\n    end\n    forever\n        repeat (特徴)\n            change [x座標- v] by (1)\n            if <touching (上と下判定\(当たり判定のあるオブジェクトに乗り遅れ解消\) v)?> then\n                if <not <<<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>> or <<key (right arrow v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>>>> then\n                    set [x v] to [1.2]\n                end\n            end\n        end\n        repeat (特徴)\n            change [x座標- v] by (-1)\n            if <touching (上と下判定\(当たり判定のあるオブジェクトに乗り遅れ解消\) v)?> then\n                if <not <<<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>> or <<key (right arrow v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>>>> then\n                    set [x v] to [-1.2]\n                end\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nwait (0.096) seconds\nset [クローン? v] to [1]\nif <(君の名は。) = [moving platform2]> then\n    set size to (160) %\n    show\n    if <(色) = [1]> then\n        switch costume to (リフト v)\n    end\n    if <(色) = [2]> then\n        switch costume to (リフト2 v)\n    end\n    if <(色) = [3]> then\n        switch costume to (リフト3 v)\n    end\n    if <(色) = [4]> then\n        switch costume to (リフト4 v)\n    end\n    forever\n        if <touching (下判定\(ギミック用\) v)?> then\n            forever\n                repeat (特徴)\n                    change [x座標- v] by (速さ)\n                end\n                repeat until <(y position) < [-178]>\n                    change [x座標- v] by (速さ)\n                    change [y座標 - v] by (-0.5)\n                    change y by (Y座標 -)\n                end\n                delete this clone\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nif <(君の名は。) = [moving platform2]> then\n    forever\n        if <touching (上と下判定\(当たり判定のあるオブジェクトに乗り遅れ解消\) v)?> then\n            if <not <<<key (right arrow v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>> or <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>>>> then\n                set [x v] to ((速さ) * (1.3))\n            else\n                if <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>> then\n                    set [x v] to ((x) * (-1.1))\n                end\n                if <<key (right arrow v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>> then\n                    set [x v] to ((x) * (1.1))\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [ゴール v]\nstop [other scripts in sprite v]\n\n@マップ\n\nwhen flag clicked\nbroadcast (map music v)\npoint in direction (90)\nset size to (100) %\ngo to x: (0) y: (0)\nshow\nswitch costume to (マップステージ v)\ncreate clone of (_myself_ v)\ngo to [back v] layer\nswitch costume to (スクラッチコラボマップ v)\n\nwhen I start as a clone\nif <(costume [name v]) = [マップステージ]> then\n    go to [front v] layer\n    forever\n        go to x: (26.4) y: (103)\n        if <<key (z v) pressed?> or <<touching (mouse-pointer v)?> and <mouse down?>>> then\n            start sound [テロテロテロ... v]\n            repeat (65)\n                change size by (-1.5)\n                turn left (20) degrees\n            end\n            point in direction (90)\n            start sound [ヨッシー v]\n            set size to (70) %\n            switch costume to (マップステージ2 v)\n            wait (0.04) seconds\n            switch costume to (マップステージ3 v)\n            wait (0.04) seconds\n            switch costume to (マップステージ4 v)\n            wait (0.04) seconds\n            switch costume to (マップステージ5 v)\n            wait (0.04) seconds\n            switch costume to (マップステージ6 v)\n            wait (0.04) seconds\n            switch costume to (マップステージ7 v)\n            wait (0.04) seconds\n            switch costume to (マップステージ8 v)\n            wait (0.04) seconds\n            switch costume to (マップステージ9 v)\n            wait (0.04) seconds\n            switch costume to (マップステージ10 v)\n            wait (0.04) seconds\n            switch costume to (マップステージ11 v)\n            wait (0.04) seconds\n            switch costume to (マップステージ12 v)\n            wait (0.04) seconds\n            hide\n            broadcast (kura v)\n            stop [this script v]\n        end\n    end\nend\n\nwhen I receive [kura v]\nwait (0.6) seconds\nrepeat (10)\n    change [brightness v] effect by (-10)\nend\nhide\nbroadcast (map serct v)\n\nwhen I receive [kura v]\nwait (0.5) seconds\nrepeat (30)\n    change volume by (-50)\nend\n\nwhen I receive [map music v]\nset volume to (100) %\nforever\n    play sound [マップ音楽 v] until done\nend\n\n@上と下判定(当たり判定のあるオブジェクトに乗り遅れ解消)\n\nwhen flag clicked\nset [ghost v] effect to (100)\n\nwhen I receive [もう無理！ v]\nif  then\n\nwhen I receive [honntouno end v]\nset rotation style [left-right v]\nforever\n    go to (判定 v)\n    if <<key (right arrow v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>> then\n        point in direction (90)\n    end\n    if <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>> then\n        point in direction (-90)\n    end\n    if <touching (当たり判定のあるオブジェクト v)?> then\n        if <<key (up arrow v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>> then\n            set [y v] to [14]\n            change [踏ん張り v] by (1.1)\n            start sound [仮のジャンプ！音 v]\n        end\n    end\nend\n\nwhen I receive [honntouno end v]\nforever\n    if  then\n        set [踏ん張り v] to [0]\n    end\nend\n\n@左判定\n\nwhen I receive [honntouno end v]\nshow\nforever\n    go to (判定 v)\nend\n\nwhen flag clicked\nset [ghost v] effect to (100)\nhide\n\nwhen I receive [death v]\nhide\nwait (1) seconds\nshow\n\nwhen I receive [破裂 v]\nhide\nwait (0.85) seconds\nshow\n\nwhen I receive [破裂big v]\nhide\nwait (0.85) seconds\nshow\n\n@右判定\n\nwhen I receive [honntouno end v]\nshow\nforever\n    go to (判定 v)\nend\n\nwhen flag clicked\nset [ghost v] effect to (100)\nhide\n\nwhen I receive [death v]\nhide\nwait (1) seconds\nshow\n\nwhen I receive [破裂 v]\nhide\nwait (0.8) seconds\nshow\n\nwhen I receive [破裂big v]\nhide\nwait (0.85) seconds\nshow\n\n@目立ちたい床\n\nwhen I start as a clone\nset [クローンされた? v] to [1]\nshow\nforever\n    go to [front v] layer\n    go to x: ((スクロールx) + ((482) * (スクロールする))) y: (0)\n    if <<(x position) > [465]> or <(x position) < [-465]>> then\n        hide\n    else\n        show\n    end\nend\n\nwhen I receive [honntouno end v]\nset [スクロールx v] to [0]\nset [クローンされた? v] to [0]\nset size to (200) %\nhide\nswitch costume to (1 v)\nset [スクロールする v] to [0]\nrepeat (15)\n    create clone of (_myself_ v)\n    change [スクロールする v] by (1)\n    next costume\nend\n\nwhen I receive [うわぁぁぁぁああ v]\ndelete this clone\n\n@下判定(敵踏み踏み用)\n\nwhen flag clicked\nset [ghost v] effect to (100)\n\nwhen I receive [honntoni death?? v]\nhide\nwait (0.8) seconds\nshow\n\nwhen I receive [破裂 v]\nhide\nwait (0.8) seconds\nshow\n\nwhen I receive [破裂big v]\nhide\nwait (0.8) seconds\nshow\n\nwhen I receive [death v]\nhide\nwait (0.8) seconds\nshow\n\nwhen I receive [honntouno end v]\nset rotation style [left-right v]\nforever\n    go to (判定 v)\n    if <<key (right arrow v) pressed?> or > then\n        point in direction (90)\n    end\n    if <<key (left arrow v) pressed?> or > then\n        point in direction (-90)\n    end\nend\n\nwhen I receive [honntouno end v]\nhide\nwait (0.5) seconds\nshow\n\n@舌\n\nwhen I receive [舌ベロン v]\nshow\nswitch costume to (コスチューム1 v)\nwait () seconds\nswitch costume to (コスチューム2 v)\nwait () seconds\nswitch costume to (コスチューム3 v)\nwait () seconds\nswitch costume to (コスチューム4 v)\nwait () seconds\nswitch costume to (コスチューム5 v)\nwait (0.05) seconds\nswitch costume to (コスチューム4 v)\nwait () seconds\nswitch costume to (コスチューム3 v)\nwait () seconds\nswitch costume to (コスチューム2 v)\nwait () seconds\nswitch costume to (コスチューム1 v)\nwait () seconds\nhide\n\nwhen I receive [honntouno end v]\nset rotation style [left-right v]\nhide\npoint in direction (90)\nforever\n    go to (判定 v)\n    if <<key (right arrow v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>> then\n        point in direction (90)\n    end\n    if <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>> then\n        point in direction (-90)\n    end\nend\n\n@ばっくぐらうんどぉぉぉ2\n\nwhen I receive [honntouno end v]\nset [スクロールx v] to [0]\nswitch costume to (size hack v)\nset size to (200) %\nhide\nset [スクロールする v] to [0]\n生成\n\nwhen I receive [成績 v]\nwait (1) seconds\ndelete this clone\n\nwhen I start as a clone\nshow\nforever\n    go to [back v] layer\n    switch costume to (なし v)\n    set x to (((スクロールx) / (3.5)) + (スクロールする))\n    if <(x position) = (((スクロールx) / (3.5)) + (スクロールする))> then\n        show\n    else\n        hide\n    end\n    switch costume to (大空 v)\nend\n\ndefine 生成\nrepeat (15)\n    create clone of (_myself_ v)\n    change [スクロールする v] by (841)\nend\n\n@成績\n\nwhen I receive [ゴール v]\nwait (6) seconds\nshow\nswitch costume to (成績結果 v)\nwait (0.04) seconds\nswitch costume to (成績結果2 v)\nwait (0.04) seconds\nswitch costume to (成績結果3 v)\nwait (0.04) seconds\nswitch costume to (成績結果4 v)\nwait (0.04) seconds\nswitch costume to (成績結果5 v)\nwait (0.04) seconds\nswitch costume to (成績結果6 v)\nwait (0.04) seconds\nswitch costume to (成績結果7 v)\nwait (0.04) seconds\nset [brightness v] effect to (-100)\nswitch costume to (成績結果8 v)\nrepeat (20)\n    change [brightness v] effect by (5)\nend\nwait (4.5) seconds\nif <(赤コイン) = [10]> then\n    if <(花) = [3]> then\n        start sound [ファンファーレ v]\n    end\nend\n\nwhen flag clicked\nhide\n\n@赤コインのスコア\n\nwhen I receive [成績 v]\nwait (1) seconds\nrepeat (1)\n    delete this clone\nend\nset size to (150) %\ngo to [front v] layer\nswitch costume to (10 v)\ncreate clone of (_myself_ v)\ngo to x: (100) y: (100)\nset [i v] to [0]\nrepeat ((length of (赤コイン)) + (1))\n    start sound [ぴぴぴ！ v]\n    switch costume to (letter (i) of (赤コイン))\n    create clone of (_myself_ v)\n    change [i v] by (1)\n    go to [front v] layer\n    change x by (30)\nend\nwait (0.5) seconds\nbroadcast (花 v)\n\nwhen I start as a clone\nforever\n    show\n    go to [front v] layer\nend\n\n@花のスコア\n\nwhen I receive [花 v]\nrepeat (1)\n    delete this clone\nend\nset size to (150) %\ngo to [front v] layer\nswitch costume to (コスチューム1 v)\ncreate clone of (_myself_ v)\ngo to x: (100) y: (-50)\nset [i v] to [0]\nrepeat ((length of (花)) + (1))\n    start sound [ぴぴぴ！ v]\n    switch costume to (letter (i) of (花))\n    create clone of (_myself_ v)\n    change [i v] by (1)\n    go to [front v] layer\n    change x by (30)\nend\n\nwhen I start as a clone\nforever\n    show\n    go to [front v] layer\nend\n\n