Trap house  platformer

Instructions: 十字キーで移動\nガスバーナー　時間経過でオンオフ\nとげ　近づくと発動、再発動まで時間がかかる\n大砲　見た目の通り\n回転しているバーナー　見た目の通り\n最近プラットフォーマーが多いので今回は罠などの仕掛けをメインにしたプラットフォーマーを作りました。

@Stage\n\nwhen I receive [； v]\nstop all sounds\nset [b v] to [1]\n\nwhen flag clicked\nset [b v] to [0]\nforever\n    if <(b) = [1]> then\n        set volume to (500) %\n        set instrument to (9 v)\n        play note (77) for (0.1) beats\n        play note (77) for (0.1) beats\n        play note (77) for (0.1) beats\n        play note (77) for (0.1) beats\n        rest for (0.25) beats\n        play note (75) for (0.1) beats\n        rest for (0.15) beats\n        play note (79) for (0.1) beats\n        rest for (0.15) beats\n        play note (77) for (1) beats\n        stop [this script v]\n    end\nend\n\n@スプライト1\n\nwhen flag clicked\ngo to [front v] layer\ngo to x: (-189) y: (-75)\nset rotation style [left-right v]\npoint in direction (90)\nswitch backdrop to (1 v)\nset size to (30) %\nset [x v] to [0]\nset [y v] to [0]\nset [音 v] to [1]\nshow\n\nwhen I start as a clone\nclear graphic effects\nset size to (30) %\nrepeat (10)\n    change [ghost v] effect by (10)\n    change size by (-3)\nend\ndelete this clone\n\nwhen flag clicked\nbroadcast (音 v)\nswitch backdrop to (背景2 v)\nshow\ngo to [front v] layer\nset [音 v] to [1]\nforever\n    change [y v] by (-1)\n    if <<key (right arrow v) pressed?> or <(右) = [1]>> then\n        change [x v] by (1)\n        point in direction (90)\n        create clone of (_myself_ v)\n    end\n    if <<key (left arrow v) pressed?> or <(左) = [1]>> then\n        change [x v] by (-1)\n        point in direction (-90)\n        create clone of (_myself_ v)\n    end\n    set [x v] to ((x) * (0.888888))\n    change x by (x)\n    if <touching color (#999999)?> then\n        change y by (1)\n    end\n    if <touching color (#999999)?> then\n        change y by (1)\n    end\n    if <touching color (#999999)?> then\n        change y by (1)\n    end\n    if <touching color (#999999)?> then\n        change y by (1)\n    end\n    if <touching color (#999999)?> then\n        change y by (1)\n    end\n    if <touching color (#999999)?> then\n        change y by (-4)\n        change x by ((x) * (-1))\n        set [y v] to [0]\n        if <<key (up arrow v) pressed?> or <(上) = [1]>> then\n            set [y v] to [15]\n            if <(x) > [0]> then\n                set [x v] to [-10]\n            else\n                set [x v] to [10]\n            end\n        else\n            set [y v] to [0]\n        end\n    end\n    change y by (y)\n    change y by (-1)\n    if <touching color (#999999)?> then\n        change y by ((0) - (y))\n        set [y v] to [0]\n    end\n    if <<<key (up arrow v) pressed?> and <touching color (#999999)?>> or <<(上) = [1]> and <touching color (#999999)?>>> then\n        set [y v] to [15]\n        create clone of (_myself_ v)\n    end\n    if <(x position) > [233]> then\n        if <not <(backdrop [number v]) = [10]>> then\n            next backdrop\n            set [x v] to [0]\n            set [y v] to [0]\n            wait (0.01) seconds\n            go to x: (-189) y: (-75)\n        end\n    end\n    if <[-184] > (y position)> then\n        set [x v] to [0]\n        set [y v] to [0]\n        wait (0.01) seconds\n        go to x: (-189) y: (-75)\n    end\n    if <touching color (#d82828)?> then\n        set [x v] to [0]\n        set [y v] to [0]\n        go to x: (-189) y: (-75)\n    end\n    if <<touching (スプライト3 v)?> and <not <([costume # v] of [スプライト3 v]) = [1]>>> then\n        set [x v] to [0]\n        set [y v] to [0]\n        go to x: (-189) y: (-75)\n    end\n    if <touching (スプライト5 v)?> then\n        set [x v] to [0]\n        set [y v] to [0]\n        go to x: (-189) y: (-75)\n    end\n    if <(backdrop [number v]) = [10]> then\n        broadcast (； v)\n    end\nend\n\nwhen I receive [音 v]\nplay sound [mayonakanoomochabako v] until done\nbroadcast (音 v)\n\n@スプライト2\n\ndefine アニメーション\nswitch costume to (コスチューム4 v)\nwait (5) seconds\nswitch costume to (コスチューム5 v)\nwait (0.05) seconds\nswitch costume to (コスチューム3 v)\nwait (0.05) seconds\nswitch costume to (コスチューム2 v)\nwait (0.05) seconds\nswitch costume to (コスチューム1 v)\nwait (5) seconds\nswitch costume to (コスチューム2 v)\nwait (0.05) seconds\nswitch costume to (コスチューム3 v)\nwait (0.05) seconds\nswitch costume to (コスチューム5 v)\nwait (0.05) seconds\n\nwhen flag clicked\nhide\n\nwhen backdrop switches to [背景3 v]\ngo to x: (54) y: (-24)\nshow\nrepeat until <not <(backdrop [number v]) = [3]>>\n    アニメーション\nend\n\nwhen backdrop switches to [背景3 v]\nwait until <not <(backdrop [number v]) = [3]>>\nhide\n\nwhen backdrop switches to [背景7 v]\ngo to x: (-91) y: (-133)\ncreate clone of (_myself_ v)\nshow\nrepeat (5)\n    move (55) steps\n    create clone of (_myself_ v)\nend\nhide\n\nwhen I start as a clone\nrepeat until <not <(backdrop [number v]) = [7]>>\n    アニメーション\nend\n\nwhen I start as a clone\nwait until <not <(backdrop [number v]) = [7]>>\ndelete this clone\n\n@スプライト3\n\nwhen backdrop switches to [背景4 v]\ngo to x: (46) y: (-149)\nwait until <not <(backdrop [number v]) = [4]>>\nhide\n\nwhen backdrop switches to [背景4 v]\nshow\n\nwhen flag clicked\nhide\n\ndefine アニメーション\nswitch costume to (コスチューム1 v)\nwait (0.75) seconds\nswitch costume to (コスチューム2 v)\nwait (0.01) seconds\nswitch costume to (コスチューム3 v)\nwait (0.01) seconds\nswitch costume to (コスチューム4 v)\nwait (0.01) seconds\nswitch costume to (コスチューム5 v)\nwait (2) seconds\nswitch costume to (コスチューム4 v)\nwait (0.01) seconds\nswitch costume to (コスチューム3 v)\nwait (0.01) seconds\nswitch costume to (コスチューム2 v)\nwait (0.01) seconds\nswitch costume to (コスチューム1 v)\nwait (2) seconds\n\nwhen backdrop switches to [背景4 v]\nswitch costume to (コスチューム1 v)\nforever\n    if <(distance to [スプライト1 v]) < [120]> then\n        アニメーション\n    end\nend\n\n@スプライト4\n\nwhen backdrop switches to [背景5 v]\ngo to x: (123) y: (-107)\nshow\nrepeat until <not <(backdrop [number v]) = [5]>>\n    broadcast (発射 v)\n    wait (1.5) seconds\nend\n\nwhen backdrop switches to [背景5 v]\nwait until <not <(backdrop [number v]) = [5]>>\nhide\n\nwhen flag clicked\nhide\n\n@スプライト5\n\nwhen I receive [発射 v]\ncreate clone of (_myself_ v)\n\nwhen flag clicked\ngo to x: (98) y: (-102)\nset rotation style [left-right v]\nhide\n\nwhen I start as a clone\nshow\npoint in direction (-90)\nrepeat until <<touching (_edge_ v)?> or <touching (スプライト1 v)?>>\n    move (10) steps\nend\ndelete this clone\n\nwhen backdrop switches to [背景5 v]\nwait until <not <(backdrop [number v]) = [5]>>\nhide\n\n@スプライト6\n\nwhen flag clicked\nhide\n\nwhen backdrop switches to [背景6 v]\nwait until <not <(backdrop [number v]) = [6]>>\nhide\n\nwhen backdrop switches to [背景6 v]\ngo to x: (-27) y: (-17)\nshow\n\nwhen backdrop switches to [背景8 v]\ngo to x: (-85) y: (150)\ncreate clone of (_myself_ v)\nrepeat (5)\n    move (60) steps\n    create clone of (_myself_ v)\nend\n\nwhen backdrop switches to [背景8 v]\nwait until <not <(backdrop [number v]) = [8]>>\nhide\n\nwhen I start as a clone\nshow\nwait until <not <(backdrop [number v]) = [8]>>\ndelete this clone\n\n@スプライト7\n\nwhen backdrop switches to [背景6 v]\nwait until <not <(backdrop [number v]) = [6]>>\nhide\n\nwhen flag clicked\nhide\n\nwhen backdrop switches to [背景6 v]\ngo to x: (-27) y: (-17)\nshow\nrepeat until <not <(backdrop [number v]) = [6]>>\n    turn left (5) degrees\nend\n\nwhen backdrop switches to [背景8 v]\npoint in direction (-90)\ngo to x: (-85) y: (150)\ncreate clone of (_myself_ v)\nrepeat (5)\n    move (-60) steps\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nshow\nrepeat until <not <(backdrop [number v]) = [8]>>\n    turn left (5) degrees\nend\ndelete this clone\n\n@スプライト8\n\nwhen flag clicked\nhide\n\nwhen backdrop switches to [背景8 v]\ngo to x: (-85) y: (-150)\ncreate clone of (_myself_ v)\nrepeat (5)\n    move (60) steps\n    create clone of (_myself_ v)\nend\n\nwhen backdrop switches to [背景8 v]\nwait until <not <(backdrop [number v]) = [8]>>\nhide\n\nwhen I start as a clone\nshow\nwait until <not <(backdrop [number v]) = [8]>>\ndelete this clone\n\n@スプライト9\n\nwhen flag clicked\nhide\n\nwhen backdrop switches to [背景8 v]\npoint in direction (90)\ngo to x: (-85) y: (-150)\ncreate clone of (_myself_ v)\nrepeat (5)\n    move (60) steps\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nshow\nrepeat until <not <(backdrop [number v]) = [8]>>\n    turn right (5) degrees\nend\ndelete this clone\n\n@スプライト10\n\nwhen flag clicked\nforever\n    if <touching (mouse-pointer v)?> then\n        set [右 v] to [1]\n        wait until <not <touching (mouse-pointer v)?>>\n        set [右 v] to [0]\n    end\nend\n\n@スプライト11\n\nwhen flag clicked\nforever\n    if <touching (mouse-pointer v)?> then\n        set [上 v] to [1]\n        wait until <not <touching (mouse-pointer v)?>>\n        set [上 v] to [0]\n    end\nend\n\n@スプライト12\n\nwhen flag clicked\nforever\n    if <touching (mouse-pointer v)?> then\n        set [左 v] to [1]\n        wait until <not <touching (mouse-pointer v)?>>\n        set [左 v] to [0]\n    end\nend\n\n