あつ森Platformer
@Stage\n\nwhen flag clicked\nforever\n    play sound [あつもり v] until done\nend\n\n@プレイヤー\n\nwhen I receive [次のステージ v]\ngo to x: (-187) y: (-77)\n\ndefine 初期設定\nset [動力\(y\) v] to [0]\nset [動力\(x\) v] to [0]\ngo to x: (-187) y: (-77)\n\nwhen I receive [動け v]\nforever\n    broadcast (ターボチェック v)\nend\n\nwhen flag clicked\nshow\nset size to (200) %\ngo to x: (-187) y: (-77)\n\nwhen I receive [動け v]\ngo to x: (-187) y: (-77)\nset [動力\(x\) v] to [0]\nset [動力\(y\) v] to [0]\nshow\nset size to (100) %\npoint in direction (90)\nforever\n    set [動力\(x\) v] to ((動力\(x\)) * (0.9))\n    if <key (any v) pressed?> then\n        change [動力\(x\) v] by (<key (right arrow v) pressed?> - <key (left arrow v) pressed?>)\n        point in direction ((<key (right arrow v) pressed?> - <key (left arrow v) pressed?>) * (90))\n    else\n        change [動力\(x\) v] by (<<mouse down?> and <(mouse x) > [0]>> - <<mouse down?> and <[0] > (mouse x)>>)\n        point in direction ((<<mouse down?> and <(mouse x) > [0]>> - <<mouse down?> and <[0] > (mouse x)>>) * (90))\n    end\n    change x by (動力\(x\))\n    if <touching (地面 v)?> then\n        change y by (1)\n    end\n    if <touching (地面 v)?> then\n        change y by (1)\n    end\n    if <touching (地面 v)?> then\n        change y by (1)\n    end\n    if <touching (地面 v)?> then\n        change y by (1)\n    end\n    if <touching (地面 v)?> then\n        change y by (1)\n    end\n    if <touching (地面 v)?> then\n        change y by (1)\n    end\n    if <touching (地面 v)?> then\n        change x by ((動力\(x\)) * (-1))\n        change y by (-6)\n        if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > [0]>>> then\n            if <(動力\(x\)) > [0]> then\n                set [動力\(x\) v] to [-7]\n            else\n                set [動力\(x\) v] to [7]\n            end\n            set [動力\(y\) v] to [10]\n        else\n            set [動力\(x\) v] to [0]\n        end\n    end\n    change y by (-1)\n    if <touching (地面 v)?> then\n        if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > [0]>>> then\n            set [動力\(y\) v] to [15]\n        end\n    end\n    if <touching (バックパック 大ジャンプ v)?> then\n        set [動力\(y\) v] to [10]\n        if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > [0]>>> then\n            set [動力\(y\) v] to [20]\n        end\n    end\n    change y by (1)\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    if <(x position) > [230]> then\n        初期設定\n        broadcast (次のステージ v)\n    end\n    if <(y position) < [-170]> then\n        初期設定\n    end\n    if <touching (川 v)?> then\n        初期設定\n    end\n    if <touching (タランチュラ v)?> then\n        初期設定\n    end\n    if <[-230] > (x position)> then\n        change x by (10)\n    end\nend\n\nwait (1) seconds\n\n@地面\n\nwhen I receive [次のステージ v]\nnext costume\n\nwhen flag clicked\ngo to x: (0) y: (0)\nswitch costume to (1 v)\nset [タイム v] to [0]\nhide variable [タイム v]\nhide variable [☁ 世界記録 v]\n\nwhen I receive [動け v]\nshow variable [☁ 世界記録 v]\nshow variable [タイム v]\n\nwhen I receive [動け v]\nrepeat until <(costume [name v]) = [クリア]>\n    wait (1) seconds\n    change [タイム v] by (1)\nend\n\nwhen I receive [動け v]\nforever\n    if <<(costume [name v]) = [クリア]> and <(☁ 世界記録) > (タイム)>> then\n        set [☁ 世界記録 v] to (タイム)\n        hide variable [☁ 世界記録 v]\n        hide variable [タイム v]\n    end\nend\n\n@背景\n\nwhen flag clicked\ngo to x: (0) y: (0)\nforever\n    set drag mode [not draggable v]\n    go to [back v] layer\n    show\nend\n\n@スプライト1\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\ngo to x: (36) y: (28)\nshow\n\nwhen this sprite clicked\nnext costume\nwait (1) seconds\nhide\nbroadcast (動け v)\n\n@川\n\nwhen I receive [次のステージ v]\nnext costume\n\nwhen flag clicked\ngo to [front v] layer\ngo to x: (20) y: (-163)\nswitch costume to (コスチューム1 v)\n\n@木\n\nwhen flag clicked\nswitch costume to (木 v)\ngo to x: (51) y: (-18)\ngo [backward v] (1) layers\nhide\n\nwhen I receive [次のステージ v]\nnext costume\n\nwhen I receive [動け v]\nshow\n\n@タランチュラ\n\nwhen flag clicked\ngo to x: (94) y: (-104)\nswitch costume to (1 v)\n\nwhen I receive [次のステージ v]\nnext costume\n\n@Love fave\n\nwhen I receive [動け v]\nforever\n    wait (1) seconds\n    change [ghost v] effect by (25)\n    wait (0.2) seconds\n    change [ghost v] effect by (25)\n    wait (0.2) seconds\n    change [ghost v] effect by (25)\n    wait (0.2) seconds\n    change [ghost v] effect by (25)\n    wait (0.2) seconds\n    change [ghost v] effect by (-25)\n    wait (0.2) seconds\n    change [ghost v] effect by (-25)\n    wait (0.2) seconds\n    change [ghost v] effect by (-25)\n    wait (0.2) seconds\n    change [ghost v] effect by (-25)\n    wait (0.2) seconds\n    wait (1) seconds\nend\n\nwhen I receive [動け v]\nshow\n\nwhen flag clicked\ngo to x: (-303) y: (18)\nset [ghost v] effect to (0)\nhide\ngo to [front v] layer\nset size to (100) %\n\n@スプライト2\n\nwhen flag clicked\nhide\n\n
pc=上下右左かクリック\nMobile=タップ\n世界記録… 18秒\nコメ欄に嘘書いてもバレます！