Pudding Platformer

Instructions: *:.｡..:*: .ﾟ.+ Story +.ﾟ. :*:..｡.:*\nIn the laboratory, pudding was born.\n*:.｡..:*: .ﾟ.+ おはなし +.ﾟ. :*:..｡.:*\n研究室でプリンが生まれました。

@Stage\n\nwhen I receive [次のステージ v]\nnext backdrop\nbroadcast (プレイヤーでプレイ v)\nif <(backdrop [name v]) = [Game Clear !!]> then\n    broadcast (ゲームクリア v)\nend\n\nwhen I receive [ゲームクリア v]\nswitch backdrop to (game clear !! v)\n\nwhen I receive [ゲームスタート v]\nswitch backdrop to (stage1 v)\nbroadcast (プレイヤーでプレイ v)\n\nwhen I receive [タイトル画面 v]\nswitch backdrop to (title v)\nforever\n    play sound [Vexento - We Are One v] until done\nend\n\nwhen flag clicked\nbroadcast (タイトル画面 v)\n\n@プレイヤー\n\nwhen I receive [プレイヤーでプレイ v]\ngo to x: (-210) y: (50)\nset [重力 v] to [0]\nset [速さ v] to [0]\nforever\n    change [重力 v] by (-1)\n    change y by (重力)\n    if <touching color (#ff0000)?> then\n        start sound [cymbal v]\n        broadcast (プレイヤーでプレイ v)\n    else\n        if <touching color (#ff9400)?> then\n            change y by ((0) - (重力))\n            set [重力 v] to [0]\n            if <touching color (#ff9400)?> then\n                change y by (1)\n                if <touching color (#ff9400)?> then\n                    change y by (1)\n                    if <touching color (#ff9400)?> then\n                        change y by (1)\n                        if <touching color (#ff9400)?> then\n                            change y by (1)\n                            if <touching color (#ff9400)?> then\n                                if <([abs v] of (速さ) ) = (速さ)> then\n                                    set [速さ v] to [-10]\n                                else\n                                    set [速さ v] to [10]\n                                end\n                                if <touching color (#ff9400)?> then\n                                    change y by (-4)\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n            change y by (-1)\n            if <<key (up arrow v) pressed?> and <touching color (#ff9400)?>> then\n                start sound [water drop v]\n                set [重力 v] to [14]\n            end\n            change y by (1)\n        end\n        set [速さ v] to ((速さ) * (0.895))\n        change x by (速さ)\n        if <key (right arrow v) pressed?> then\n            change [速さ v] by (1)\n        end\n        if <key (left arrow v) pressed?> then\n            change [速さ v] by (-1)\n        end\n        if <touching color (#ffff00)?> then\n            if <not <(backdrop [name v]) = [Game Clear !!]>> then\n                start sound [fairydust v]\n                broadcast (次のステージ v)\n            end\n        end\n    end\nend\n\nwhen I receive [プレイヤーでプレイ v]\nset [ぷるぷる v] to [0]\nswitch costume to (プリン v)\nshow\ngo to [front v] layer\nforever\n    if <(ぷるぷる) = [0]> then\n        switch costume to (プリン v)\n    end\n    if <key (down arrow v) pressed?> then\n        switch costume to (しゃがむプリン v)\n        if <key (right arrow v) pressed?> then\n            point in direction (90)\n            switch costume to (しゃがみながら動くプリン v)\n            wait until <not <key (right arrow v) pressed?>>\n            set [ぷるぷる v] to [1]\n            broadcast (ぷるぷる2 v)\n        end\n        if <key (left arrow v) pressed?> then\n            point in direction (-90)\n            switch costume to (しゃがみながら動くプリン v)\n            wait until <not <key (left arrow v) pressed?>>\n            set [ぷるぷる v] to [1]\n            broadcast (ぷるぷる2 v)\n        end\n    else\n        if <key (right arrow v) pressed?> then\n            point in direction (90)\n            switch costume to (動くプリン v)\n            wait until <not <key (right arrow v) pressed?>>\n            set [ぷるぷる v] to [1]\n            broadcast (ぷるぷる v)\n        end\n        if <key (left arrow v) pressed?> then\n            point in direction (-90)\n            switch costume to (動くプリン v)\n            wait until <not <key (left arrow v) pressed?>>\n            set [ぷるぷる v] to [1]\n            broadcast (ぷるぷる v)\n        end\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [ぷるぷる v]\nrepeat (2)\n    switch costume to (プリン v)\n    wait (0) seconds\n    switch costume to (ぷるんぷるん1 v)\n    wait (0) seconds\n    switch costume to (プリン v)\n    wait (0) seconds\n    switch costume to (ぷるんぷるん2 v)\n    wait (0) seconds\nend\nset [ぷるぷる v] to [0]\n\nwhen I receive [ぷるぷる2 v]\nrepeat (2)\n    switch costume to (しゃがむプリン v)\n    wait (0) seconds\n    switch costume to (ぷるんぷるん3 v)\n    wait (0) seconds\n    switch costume to (しゃがむプリン v)\n    wait (0) seconds\n    switch costume to (ぷるんぷるん4 v)\n    wait (0) seconds\nend\nset [ぷるぷる v] to [0]\n\n@ボタン\n\nwhen flag clicked\nhide\n\nwhen I receive [タイトル画面 v]\nswitch costume to (1 v)\ngo to x: (400) y: (-135)\ngo to [front v] layer\nset [ghost v] effect to (20)\nshow\nglide (0.4) secs to x: (100) y: (-135)\nwait (0.05) seconds\nset [1 v] to [12]\nrepeat (24)\n    change x by (1)\n    change [1 v] by (-1)\nend\nforever\n    set [ghost v] effect to (20)\n    if <touching (mouse-pointer v)?> then\n        set [ghost v] effect to (0)\n        if <mouse down?> then\n            start sound [pop v]\n            broadcast (ゲームスタート v)\n            hide\n            stop [this script v]\n        end\n    end\nend\n\n@動く床\n\nwhen flag clicked\nhide\n\nwhen I receive [プレイヤーでプレイ v]\nif <(backdrop [name v]) = [Stage9]> then\n    broadcast (動く床 v)\nend\nhide\n\nwhen I receive [動く床 v]\nset size to (200) %\npoint in direction (90)\ngo to x: (0) y: (0)\nshow\nrepeat until <(backdrop [name v]) = [Stage10]>\n    repeat (20)\n        turn left (0.6) degrees\n        wait (0.01) seconds\n    end\n    repeat (40)\n        turn right (0.6) degrees\n        wait (0.01) seconds\n    end\n    repeat (20)\n        turn left (0.6) degrees\n        wait (0.01) seconds\n    end\nend\n\n@さくらんぼ\n\nwhen flag clicked\nhide\n\nwhen I receive [ゲームクリア v]\nshow\ngo to x: (95) y: (-55)\n\n@Title\n\nwhen flag clicked\nhide\n\nwhen I receive [タイトル画面 v]\nswitch costume to (1 v)\ngo to x: (-400) y: (94)\ngo to [front v] layer\nshow\nglide (0.4) secs to x: (15) y: (94)\nwait (0.05) seconds\nset [1 v] to [-12]\nrepeat (24)\n    change x by (1)\n    change [1 v] by (1)\nend\n\nwhen I receive [ゲームスタート v]\nhide\n\n@動く床3\n\nwhen flag clicked\nhide\n\nwhen I receive [プレイヤーでプレイ v]\nif <(backdrop [name v]) = [Stage3]> then\n    set size to (100) %\n    point in direction (90)\n    go to x: (100) y: (0)\n    show\n    repeat until <(backdrop [name v]) = [Stage4]>\n        turn right (1) degrees\n        wait (0.01) seconds\n    end\nelse\n    hide\nend\n\n