LENGTH Platformer『縦』 ver 1.5


@Stage\n\nwhen I receive [開始 v]\nswitch backdrop to (背景2 v)\n\nwhen flag clicked\nswitch backdrop to (背景1 v)\n\n@blank\n\n@プラフォ君\n\ndefine fast\nrepeat (6)\n    if <touching (地面 v)?> then\n        change x by (-1)\n    end\nend\n\ndefine 横移動\nrepeat until <not <touching (地面 v)?>>\n    if <(y) > [0]> then\n        change y by (-1)\n    else\n        change y by (1)\n    end\nend\n\ndefine 縦移動\nrepeat until <not <touching (地面 v)?>>\n    if <(x) > [0]> then\n        change x by (-1)\n    else\n        change x by (1)\n    end\nend\n\nwhen I receive [開始 v]\n初期化\nswitch costume to (Skin)\nforever\n    change [x v] by (1)\n    if <<key (down arrow v) pressed?> or <<key (s v) pressed?> or <<mouse down?> and <(y position) > (mouse y)>>>> then\n        if <(costume [number v]) = [8]> then\n            switch costume to (コスチューム9 v)\n            change [y v] by (-1.1)\n        else\n            if <(costume [number v]) = [9]> then\n                change [y v] by (-1.1)\n            else\n                change [y v] by (-1.1)\n                point in direction (-90)\n            end\n        end\n    end\n    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>>> then\n        if <(costume [number v]) = [9]> then\n            switch costume to (コスチューム8 v)\n            change [y v] by (1.1)\n        else\n            if <(costume [number v]) = [8]> then\n                change [y v] by (1.1)\n            else\n                change [y v] by (1.1)\n                point in direction (90)\n            end\n        end\n    end\n    set [y v] to ((y) * (0.9))\n    change y by (y)\n    if <touching (地面 v)?> then\n        fast\n        if <touching (地面 v)?> then\n            change y by (-5)\n            横移動\n        end\n        if <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(x position) > (mouse x)>>>> then\n            start sound [壁 v]\n            set [x v] to [-13]\n            if <([abs v] of (y) ) = (y)> then\n                set [y v] to [-4]\n            else\n                set [y v] to [4]\n            end\n        else\n            set [y v] to [0]\n        end\n    end\n    change x by (x)\n    if <touching (地面 v)?> then\n        縦移動\n        if <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(x position) > (mouse x)>>>> then\n            start sound [ジャンプ v]\n            set [x v] to [-13]\n        else\n            set [x v] to [0]\n        end\n    end\n    if <touching (kaite2 v)?> then\n        初期化\n    end\n    if <touching (kaite3 v)?> then\n        初期化\n    end\nend\n\nwhen I receive [開始 v]\nforever\n    if <touching (針 v)?> then\n        go to x: (-200) y: (-144)\n        start sound [空気 v]\n        set [x v] to [0]\n        set [y v] to [0]\n    end\n    if <touching (kaite v)?> then\n        go to x: (-200) y: (-144)\n        start sound [空気 v]\n        set [x v] to [0]\n        set [y v] to [0]\n    end\n    if <[245] < (x position)> then\n        go to x: (-200) y: (-144)\n        start sound [空気 v]\n        set [x v] to [0]\n        set [y v] to [0]\n    end\nend\n\nwhen I receive [開始 v]\nrepeat until <([costume # v] of [地面 v]) = [30]>\n    if <(y position) > [182]> then\n        go to x: (-200) y: (-144)\n        broadcast (level v)\n    end\nend\n\nwhen flag clicked\nset [color v] effect to (0)\nhide\n\ndefine 初期化\nset [x v] to [0]\nset [y v] to [0]\npoint in direction (90)\nshow\nset size to (100) %\ngo to x: (-200) y: (-144)\n\nwhen I receive [開始 v]\nset volume to (volume) %\n\nwhen I receive [開始 v]\nforever\n    if <(costume [number v]) = [7]> then\n        change [color v] effect by (3)\n    end\nend\n\n@針\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nhide\n\nwhen I receive [開始 v]\ngo to [back v] layer\nshow\n\nwhen flag clicked\nforever\n    switch costume to ([costume # v] of [地面 v])\nend\n\n@地面\n\nwhen flag clicked\nhide\nswitch costume to (ステージ1 v)\nforever\n    go to x: (46) y: (5)\nend\n\nwhen I receive [level v]\nnext costume\n\nwhen I receive [開始 v]\nshow\n\n@秒数\n\nwhen I start as a clone\nforever\n    if <[22] < (length of (秒))> then\n        hide\n        show variable [秒 v]\n    else\n        show\n        switch costume to (letter (数字番号) of (秒))\n        hide variable [秒 v]\n    end\nend\n\ndefine 配置\ngo to x: (-250) y: (135)\nhide\nset [数字番号 v] to [0]\nrepeat (22)\n    change [数字番号 v] by (1)\n    change x by (20)\n    create clone of (_myself_ v)\nend\nswitch costume to (+ v)\nshow\ngo to x: (-250) y: (135)\n\nwhen I receive [開始 v]\nset [秒 v] to [0]\nrepeat until <([costume # v] of [地面 v]) = [30]>\n    wait (1) seconds\n    change [秒 v] by (1)\nend\nif <(秒) < (☁ world)> then\n    set [☁ world v] to (秒)\nend\n\nwhen I receive [開始 v]\n配置\n\nwhen flag clicked\nforever\n    go to [front v] layer\nend\n\n@次\n\nwhen I receive [level v]\nstart sound [ふっ v]\n\nwhen I receive [開始 v]\nset volume to (volume) %\n\n@ホーム\n\nwhen I receive [開始 v]\nhide\n\nwhen I receive [演出 v]\nrepeat (20)\n    change [pixelate v] effect by (7)\n    change [ghost v] effect by (2)\nend\nhide\nbroadcast (黒く v)\n\nwhen I receive [ホーム画面 v]\nclear graphic effects\nshow\nforever\n    go to [back v] layer\n    go to x: (0) y: (0)\n    glide (1) secs to x: (0) y: (10)\n    glide (1) secs to x: (0) y: (0)\nend\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\n\nwhen flag clicked\nforever\n    set [skin v] to (costume [number v])\nend\n\nwhen I receive [skin変更 v]\nnext costume\n\n@バネ\n\nwhen flag clicked\npoint in direction (0)\nhide\nforever\n    if <([costume # v] of [地面 v]) = [7]> then\n        go to x: (132) y: (-53)\n        ジャンプ\n    else\n        if <([costume # v] of [地面 v]) = [29]> then\n            go to x: (142) y: (-140)\n            ジャンプ\n        else\n            hide\n        end\n    end\nend\n\ndefine ジャンプ\nshow\nif <touching (プラフォ君 v)?> then\n    switch costume to (2 v)\n    set [x v] to [-25]\n    start sound [ジャンプ v]\nelse\n    switch costume to (1 v)\nend\n\nif <([costume # v] of [地面 v]) = [9]> then\n    hide\nend\n\nwhen I receive [開始 v]\nset volume to (volume) %\n\n@ぷれい\n\nwhen flag clicked\nset [ok1 v] to [0]\nswitch costume to (コスチューム1 v)\nhide\nrepeat until <(ok1) = [1]>\n    if <touching (mouse-pointer v)?> then\n        switch costume to (コスチューム2 v)\n    else\n        switch costume to (コスチューム1 v)\n    end\nend\n\nwhen this sprite clicked\nset [ok1 v] to [1]\nswitch costume to (コスチューム2 v)\nset volume to (volume) %\nbroadcast (回転はじめ v)\nplay sound [決定ボタンを押す5 v] until done\nbroadcast (回転追わり v)\nbroadcast (演出 v)\nhide\n\nwhen I receive [ホーム画面 v]\nshow\nforever\n    set volume to (volume) %\nend\n\n@音理機構\n\nwhen I receive [開始 v]\nset [12 v] to [1]\nset volume to (volume) %\nstop all sounds\nforever\n    play sound [Spectre v] until done\nend\n\nwhen flag clicked\nhide\nset [音量管理 v] to [0]\nrepeat until <(音量管理) = [1]>\n    set volume to (volume) %\nend\n\nwhen I receive [ホーム画面 v]\nset [volume v] to [100]\nhide\nrepeat until <(12) = [1]>\n    play sound [Syn Cole  Feel Good v] until done\nend\nstop all sounds\n\nwhen I receive [回転はじめ v]\nset [音量管理 v] to [1]\nrepeat (20)\n    change volume by (-5)\nend\n\nwhen I receive [回転追わり v]\nstop all sounds\n\nwhen flag clicked\nset [12 v] to [0]\n\n@回転するだけ\n\nwhen flag clicked\nhide\n\nwhen I receive [回転はじめ v]\nshow\nforever\n    go to [front v] layer\n    turn right (20) degrees\nend\n\nwhen I receive [回転追わり v]\nhide\nstop [other scripts in sprite v]\n\n@サムネイル\n\nwhen flag clicked\nhide\nforever\n    reset timer\nend\n\nwhen [timer v] > (0.0001)\nset [サムネの動き v] to [-25]\ngo to [front v] layer\nshow\ngo to x: (0) y: (300)\nrepeat (10)\n    change y by (サムネの動き)\n    change [サムネの動き v] by (1.5)\nend\nrepeat (20)\n    change y by (サムネの動き)\n    change [サムネの動き v] by (0.5)\nend\n\n@ぷれい2\n\nwhen flag clicked\nhide variable [volume v]\nset [volume v] to [100]\nswitch costume to (なる v)\n\nwhen I receive [ホーム画面 v]\nshow\n\nwhen this sprite clicked\nnext costume\nstart sound [Collect v]\nif <(costume [number v]) = [1]> then\n    set [volume v] to [100]\nelse\n    set [volume v] to [0]\nend\n\nwhen I receive [開始 v]\nset volume to (volume) %\nhide\n\nwhen flag clicked\nforever\n    set volume to (volume) %\nend\n\nwhen I receive [演出 v]\nhide\n\nwhen flag clicked\nhide\n\n@スプライト2\n\nwhen flag clicked\nshow\nset [ghost v] effect to (100)\n\nwhen I receive [黒く v]\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\nwait (0.2) seconds\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nhide\nbroadcast (開始 v)\n\n@イントロ\n\nwhen flag clicked\nstart sound [電子音 v]\nshow\nset [ghost v] effect to (100)\nrepeat (60)\n    change [ghost v] effect by (-1.666666666666)\nend\nrepeat (25)\n    change [ghost v] effect by (4)\nend\nbroadcast (ホーム画面 v)\n\n@ぷれい3\n\nwhen I receive [ホーム画面 v]\nshow\n\nwhen this sprite clicked\nbroadcast (Skin変更 v)\nstart sound [Collect v]\n\nwhen I receive [開始 v]\nset volume to (volume) %\nhide\n\nwhen flag clicked\nforever\n    set volume to (volume) %\nend\n\nwhen I receive [演出 v]\nhide\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nswitch costume to (なる v)\nforever\n    if <touching (mouse-pointer v)?> then\n        switch costume to (なる2 v)\n    else\n        switch costume to (なる v)\n    end\nend\n\n@バネ2\n\nwhen flag clicked\npoint in direction (0)\nhide\nforever\n    if <([costume # v] of [地面 v]) = [10]> then\n        go to x: (126) y: (-67)\n        ジャンプ\n    else\n        hide\n    end\nend\n\ndefine ジャンプ\nshow\nif <touching (プラフォ君 v)?> then\n    switch costume to (2 v)\n    set [x v] to [-25]\n    start sound [ジャンプ v]\nelse\n    switch costume to (1 v)\nend\n\nif <([costume # v] of [地面 v]) = [9]> then\n    hide\nend\n\nwhen I receive [開始 v]\nset volume to (volume) %\n\n@バネ3\n\nwhen flag clicked\npoint in direction (0)\nhide\nforever\n    if <([costume # v] of [地面 v]) = [10]> then\n        go to x: (126) y: (100)\n        ジャンプ\n    else\n        hide\n    end\nend\n\ndefine ジャンプ\nshow\nif <touching (プラフォ君 v)?> then\n    switch costume to (2 v)\n    set [x v] to [-25]\n    start sound [ジャンプ v]\nelse\n    switch costume to (1 v)\nend\n\nif <([costume # v] of [地面 v]) = [9]> then\n    hide\nend\n\nwhen I receive [開始 v]\nset volume to (volume) %\n\n@スプライト1\n\nwhen I receive [開始 v]\nshow\nset size to (100) %\nforever\n    repeat (25)\n        change size by (1)\n    end\n    repeat (25)\n        change size by (-1)\n    end\nend\n\nwhen flag clicked\nhide\n\ngo to x: (-230) y: (-180)\n\n@kaite\n\nwhen flag clicked\nforever\n    if <([costume # v] of [地面 v]) = [14]> then\n        show\n        go to x: (180) y: (50)\n        turn right (4) degrees\n    else\n        hide\n    end\nend\n\nif <([costume # v] of [地面 v]) = [9]> then\n    hide\nend\n\n@たぼくん\n\nwhen flag clicked\nswitch costume to ( v)\nset [変数 v] to [0]\nset [ghost v] effect to (100)\nforever\n    switch costume to ( v)\n    go to [front v] layer\n    set size to (100) %\n    change [変数 v] by (1)\n    wait () seconds\nend\n\nwhen flag clicked\nforever\n    wait (0.5) seconds\n    set [変数 v] to [0]\nend\n\nwhen flag clicked\nforever\n    if <[25] < (変数)> then\n        broadcast (だめだね v)\n    end\nend\n\nwhen I receive [だめだね v]\nstop [all v]\n\n@kaite2\n\nwhen flag clicked\nforever\n    if <([costume # v] of [地面 v]) = [19]> then\n        show\n        go to x: (-7) y: (-21)\n        turn right (4) degrees\n    else\n        hide\n    end\nend\n\nif <([costume # v] of [地面 v]) = [9]> then\n    hide\nend\n\n@kaite3\n\nwhen flag clicked\nforever\n    if <([costume # v] of [地面 v]) = [19]> then\n        go to x: (34) y: (101)\n        show\n        turn right (4) degrees\n    else\n        hide\n    end\nend\n\ngo to x: (54) y: (90)\n\nif <([costume # v] of [地面 v]) = [9]> then\n    hide\nend\n\n