Night & difficult (more gimmicks) platformer 夜&難しい（ギミック多め）プラットフォーマー #all #art #

Instructions: 十字キーで移動　またはタップです。      \nMade to express the beauty of nature\n\n⭐︎リミックスも！してくれたら嬉しいです!\nhttps://scratch.mit.edu/studios/30543801/ \nスタジオのフォローもよろしくお願いします！↑\nThank you for following the studio!↑\n\n⚠️Tap or spacebar to skip the intro. ⚠️\n⚠️タップまたはスペースキーでイントロをとばせます。\n↓        ↓         ↓\nhttps://scratch.mit.edu/studios/30543801/ \nスタジオのフォローもよろしくお願いします！↑\nThank you for following the studio!↑\n\n3ステージ目だけしゃがめます。（↓キー）\nSquat only on the 3rd stage. (↓ key)\n\n⚠️Don't advertise! 宣伝するなよ！\n\n結構難しいと思いますが慣れたら結構簡単です\nI think it's quite difficult, but once you get used to it, it's quite easy\n\n

@Stage\n\n@障害物\n\nwhen flag clicked\n\ngo to x: (-8) y: (-76)\n\nwhen flag clicked\nhide\n\n\n\nforever\n\nwhen flag clicked\n\nwhen I start as a clone\n\ngo to [front v] layer\ngo to x: (25) y: (0)\n\nforever\n    if <(level) = [4]> then\n        set [きごう v] to [0]\n        create clone of (_myself_ v)\n        wait (500) seconds\n    else\n        go to [front v] layer\n        repeat (10)\n            delete this clone\n        end\n    end\nend\n\nwhen I start as a clone\nforever\n    if <(level) > [3]> then\n        forever\n            delete this clone\n        end\n    end\nend\n\nforever\n\n\n\n\n\nforever\n    go to [back v] layer\n    switch costume to (3a v)\nend\n\nset y to ((-20) + (([cos v] of ((timer) * (100)) ) * (10)))\n\nwhen flag clicked\n\nwhen I start as a clone\nforever\n    if <(きごう) = [0]> then\n        switch costume to (5 v)\n        go to [front v] layer\n        turn right ((122) / (50)) degrees\n    else\n        if <(きごう) = [1]> then\n            go to [back v] layer\n            switch costume to (3a v)\n            set y to ((-20) + (([cos v] of ((timer) * (100)) ) * (10)))\n        else\n            forever\n                delete this clone\n            end\n        end\n    end\nend\n\nrepeat (10)\n\ndelete this clone\n\nwhen flag clicked\n\nset [☁ time world record タイム世界記録! v] to [100]\n\nset [☁ time world record タイム世界記録! v] to [45]\n\nwhen I receive [ペントロ終わり v]\nshow\npoint in direction (90)\ngo to [front v] layer\ngo to x: (25) y: (0)\nforever\n    if <(level) = [3]> then\n        set [きごう v] to [1]\n        create clone of (_myself_ v)\n        wait (50000000000000000) seconds\n    else\n        go to [back v] layer\n        repeat (10)\n            delete this clone\n        end\n    end\nend\n\nwhen I receive [ペントロ終わり v]\ngo to [front v] layer\ngo to [front v] layer\ngo to x: (25) y: (0)\nforever\n    switch costume to (join (letter (1) of (level)) (letter (2) of (level)))\n    if <(level) = [10]> then\n        set y to ((10) + (([cos v] of ((timer) * (100)) ) * (10)))\n    end\nend\n\nwhen I receive [ペントロ終わり v]\nforever\n    if <(level) = [5]> then\n        forever\n            delete this clone\n        end\n    end\nend\n\nwhen I receive [ペントロ終わり v]\nset [きごう v] to [0]\n\n@じ\n\nwhen flag clicked\nhide\n\ngo to x: (-180) y: (-80)\n\nswitch costume to (1 v)\n\ngo to [front v] layer\n\nwhen I receive [ペントロ終わり v]\nshow\nset [level v] to [1]\ngo to x: (0) y: (-104)\nforever\n    switch costume to (join (letter (1) of (level)) (letter (2) of (level)))\nend\n\n@Player\n\nwhen flag clicked\n\ndefine rstart\nset size to (125) %\ngo to x: (-200) y: (-70)\nset [y v] to [0]\nset [x v] to [0]\nset rotation style [left-right v]\npoint in direction (90)\n\ndefine sous\nchange [y v] by (-1)\nif <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <[0] < (mouse x)>>>> then\n    \nend\nif <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < [0]>>>> then\n    \n        change [x v] by (-0.5)\n        point in direction (90)\n    else\n        change [x v] by (-1)\n        point in direction (90)\n    end\nend\nset [x v] to ((X) * (0.88))\nchange x by (X)\nrepeat (8)\n    if <<touching (じ v)?> or <touching (じ2 v)?>> then\n        change y by (1.1)\n    end\nend\nif <<touching (じ v)?> or <touching (じ2 v)?>> then\n    change x by (() - (X))\n    change y by (-8.8)\n    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <[0] < (mouse y)>>>> then\n        set [y v] to [11]\n        set [x v] to ((7) - ((14) * <[0] < (X)>))\n    end\nend\nchange y by (Y)\nif <<touching (じ v)?> or <touching (じ2 v)?>> then\n    change y by (() - (Y))\n    set [y v] to [0]\nend\nchange y by (-1)\nif <<touching (じ v)?> or <touching (じ2 v)?>> then\n    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <[0] < (mouse y)>>>> then\n        set [y v] to [13]\n    end\nend\nchange y by (1)\nif <[235] < (x position)> then\n    rstart\n    change [level v] by (1)\nend\nif <<<(y position) < [-180]> or <touching (障害物 v)?>> or <touching (障害物2 v)?>> then\n    rstart\nend\nif <(level) = [9]> then\n    if <touching (スプライト4 v)?> then\n        if <<touching color (#ff0b0b)?> or <touching color (#ff0505)?>> then\n            set [y v] to [20]\n            broadcast (t v)\n        else\n            rstart\n        end\n    end\nelse\n    if <touching (bounce v)?> then\n        set [y v] to [20]\n    end\nend\n\nchange [x v] by <(level) = [8]>\npoint in direction (90)\n\nif <touching (bounce v)?> then\n\n\n\nwhen flag clicked\n\nwhen flag clicked\n\nwhen flag clicked\n\nforever\n\nwhen flag clicked\n\nset [☁ time world record タイム世界記録 v] to [35]\n\n\n\nwhen flag clicked\nforever\n\n\n\nwhen flag clicked\n\nset [level v] to [9]\n\nchange [☁ time world record タイム世界記録 v] by (1)\n\nshow variable [☁ time world record タイム世界記録 v]\n\nset [☁ time world record タイム世界記録 v] to [35]\n\nwhen flag clicked\n\nif  then\n\nif  then\nend\n\nset [☁ time world record タイム世界記録 v] to [100]\n\nset [☁ time world record タイム世界記録! v] to [0]\n\nshow variable [☁ time world record タイム世界記録! v]\n\nwhen I receive [ペントロ終わり v]\ngo to [front v] layer\nforever\n    play sound [Open Secrets v] until done\nend\n\nwhen I receive [ペントロ終わり v]\nwait (1.1) seconds\nforever\n    go to [front v] layer\n    if <(level) = [3]> then\n        if <key (down arrow v) pressed?> then\n            switch costume to (コスチューム1 v)\n        else\n            switch costume to (右 v)\n        end\n    else\n        switch costume to (右 v)\n    end\nend\n\nwhen I receive [ペントロ終わり v]\nwait (0.00000001) seconds\nhide variable [☁ time world record タイム世界記録! v]\nset [制限 v] to [50]\n\nwhen I receive [ペントロ終わり v]\nwait (0.1) seconds\nforever\n    if <(level) = [11]> then\n        show variable [☁ time world record タイム世界記録! v]\n        set [制限 v] to [0]\n        if <(☁ Time world record タイム世界記録!) > (time タイム)> then\n            set [☁ time world record タイム世界記録! v] to (time タイム)\n            set [☁ time world record タイム世界記録! v] to ((round ((☁ Time world record タイム世界記録!) * (10))) / (10))\n        end\n    end\nend\n\nwhen I receive [ペントロ終わり v]\nshow variable [time タイム v]\nset [level v] to [1]\n\nwhen I receive [ペントロ終わり v]\nshow\nrstart\nforever\n    sous\nend\n\nwhen I receive [ペントロ終わり v]\nshow\nset [time タイム v] to [0]\nforever\n    if <(制限) = [50]> then\n        wait (0.1) seconds\n        change [time タイム v] by (0.1)\n    end\nend\n\nwhen flag clicked\nhide\n\n@スプライト1\n\nwhen flag clicked\nhide\n\nwhen I receive [ペントロ終わり v]\nshow\ngo to x: (19) y: (13)\nforever\n    set x to ((50) + (([sin v] of ((timer) * (100)) ) * (-10)))\nend\n\n@障害物2\n\nwhen flag clicked\nhide\n\nforever\n\nswitch costume to (join (letter (1) of (level)) (letter (2) of (level)))\n\nwhen flag clicked\n\nhide\n\n\nhide\n\ngo to [front v] layer\n\n\n\nswitch costume to (コスチューム1 v)\npoint in direction (90)\n\nset x to (0)\n\nwhen flag clicked\nforever\n\n\n\nwhen I receive [ペントロ終わり v]\nshow\ngo to x: (25) y: (0)\n\nwhen I receive [ペントロ終わり v]\ngo to [front v] layer\nforever\n    if  then\n        show\n        switch costume to (4a v)\n        turn right ((122) / (50)) degrees\n    else\n        if <(level) = [5]> then\n            switch costume to (コスチューム1 v)\n            show\n            point in direction (90)\n            set x to (-15)\n            set y to ((-20) + (([cos v] of ((timer) * (100)) ) * (10)))\n        else\n            if <(level) = [6]> then\n                set y to ((-10) + (([cos v] of ((timer) * (100)) ) * (100)))\n                set size to ((90) + (([cos v] of ((timer) * (200)) ) * (10))) %\n                set x to (60)\n                switch costume to (コスチューム2 v)\n                show\n                point in direction (90)\n            else\n                if <(level) = [7]> then\n                    switch costume to (コスチューム3 v)\n                    show\n                    point in direction (90)\n                    set y to ((-10) + (([cos v] of ((timer) * (100)) ) * (100)))\n                    set x to (78)\n                else\n                    if <(level) = [10]> then\n                        show\n                        show\n                        switch costume to (4a v)\n                        turn right ((122) / (50)) degrees\n                    else\n                        hide\n                    end\n                end\n            end\n        end\n    end\nend\n\n@じ2\n\nwhen flag clicked\n\nwhen flag clicked\nhide\n\nset x to (78)\n\nwhen I receive [ペントロ終わり v]\nforever\n    set y to ((-10) + (([cos v] of ((timer) * (100)) ) * (100)))\nend\n\nwhen I receive [ペントロ終わり v]\nshow\nset [level v] to [1]\ngo to x: (0) y: (-104)\nforever\n    switch costume to (join (letter (1) of (level)) (letter (2) of (level)))\nend\n\n@スプライト2\n\nwhen flag clicked\n\nchange y by (10)\n\nwhen flag clicked\n\nwait (1) seconds\n\nforever\nend\n\nrepeat (10)\n    hide\nend\n\nset [ghost v] effect to (0)\n\nforever\n\nwhen flag clicked\n\nwhen I receive [ペントロ終わり v]\ngo to [front v] layer\n\nwhen I receive [ペントロ終わり v]\nrepeat (10)\n    go to [front v] layer\nend\n\nwhen I receive [ペントロ終わり v]\ngo to x: (-2) y: (-56)\nforever\n    if <(level) = [8]> then\n        show\n        repeat (10)\n            change [ghost v] effect by (10)\n        end\n        broadcast (aaa  v)\n        wait (pick random (1.5) to (2.5)) seconds\n        go to x: (-2) y: (-56)\n        set [ghost v] effect to (0)\n        broadcast (y v)\n        wait (pick random (1.5) to (2.5)) seconds\n    else\n        if <(level) = [10]> then\n            show\n            repeat (10)\n                change [ghost v] effect by (10)\n            end\n            broadcast (aaa  v)\n            wait (pick random (5) to (10)) seconds\n            go to x: (-2) y: (-56)\n            set [ghost v] effect to (0)\n            broadcast (y v)\n            wait (pick random (1.5) to (2.5)) seconds\n        else\n            repeat (10)\n                hide\n            end\n        end\n    end\nend\n\n@スプライト4\n\nwhen flag clicked\nhide\n\nwhen flag clicked\n\nwhen I receive [y v]\nshow\nforever\nend\n\nwhen I receive [aaa  v]\nhide\n\nshow\n\nwhen I receive [ペントロ終わり v]\nhide\nwait (1) seconds\nrepeat (10)\n    go to [front v] layer\nend\n\nwhen I receive [ペントロ終わり v]\nforever\n    go to (player v)\n    if <(level) = [9]> then\n        hide\n    end\nend\n\nshow\n\n@Love fave\n\nwhen flag clicked\n\nwhen flag clicked\n\nwhen I receive [ペントロ終わり v]\nset [costume v] to [0]\nhide\nforever\n    wait (pick random (10) to (15)) seconds\n    switch costume to (costume1 v)\n    go to x: (0) y: (50)\n    show\n    go to [front v] layer\n    start sound [pop v]\n    repeat (9)\n        change y by (-6)\n    end\n    repeat (5)\n        change y by (3)\n    end\n    repeat (5)\n        change y by (-1)\n    end\n    wait (2) seconds\n    repeat (15)\n        change y by (7)\n    end\n    hide\nend\n\nwhen I receive [ペントロ終わり v]\nhide\n\n@スプライト11\n\nwhen I receive [新しい v]\nshow\nforever\n    go to [front v] layer\n    set y to ((5) + (([sin v] of ((timer) * (150)) ) * (10)))\n    point in direction ((90) + (([sin v] of ((timer) * (200)) ) * (5)))\n    set size to ((210) + (([sin v] of ((timer) * (200)) ) * (5))) %\nend\n\nwhen flag clicked\nhide\n\nwhen flag clicked\n\nwhen I receive [ペントロ終わり v]\nforever\n    if <(level) = [11]> then\n        broadcast (新しい v)\n    end\nend\n\nwhen flag clicked\ngo to x: (4) y: (-14)\nhide\n\ngo to (random position v)\n\n@スプライト3\n\nwhen flag clicked\n\nwhen I receive [メッセージ1 v]\n\nset [y2 v] to [1]\nwait (0.5) seconds\nset [y2 v] to (((timer) * ()) * (5))\nwait (0.5) seconds\n\nchange y by (y2)\nchange y by (y2)\nchange y by (y2)\n\nwhen I receive [メッセージ1 v]\n\nforever\n\nrepeat (3)\nchange y by (y2)\nchange size by (滑らか〜)\n\nwait (0.1) seconds\nrepeat (3)\n    change y by (y2)\n    change size by (滑らか〜)\nend\n\nwhen I receive [メッセージ1 v]\n\nwhen I receive [メッセージ1 v]\n\nforever\n    change y by (1)\n    wait (2.4) seconds\nend\n\nwhen I receive [新しい v]\ngo to x: (-31) y: (-14)\nshow\nforever\n    set y to ((5) + (([sin v] of ((timer) * (150)) ) * (5)))\nend\n\nset size to ((100) + (([sin v] of ((timer) * (200)) ) * (3))) %\n\nwhen I receive [新しい v]\n\nwhen I receive [新しい v]\nforever\n    set [滑らか〜 v] to [0.2]\n    wait (1) seconds\n    set [滑らか〜 v] to [-0.2]\n    wait (1) seconds\nend\n\nwhen I receive [新しい v]\n\nwhen I receive [新しい v]\nwait (0.00000001) seconds\ngo to [front v] layer\n\nwhen I receive [ペントロ終わり v]\nset size to (100) %\npoint in direction (90)\nhide\ngo to x: (-31) y: (-14)\nforever\n    go to [front v] layer\nend\n\nwhen flag clicked\nhide\n\n@スプライト5\n\nwhen flag clicked\nhide\n\n@48BBE069-020C-4441-841E-354CF52FAF17\n\nwhen flag clicked\nhide\n\n@スプライト6\n\nwhen flag clicked\nhide\n\n@4B283631-70EB-4A93-91E3-92498E9E677F\n\nwhen flag clicked\nhide variable [time タイム v]\nhide\n\nset [ghost v] effect to (100)\n\nwhen I receive [新しい v]\nshow variable [time タイム v]\n\n@penzoid\n\ndefine ~~ (s)\nset [i v] to [1]\nrepeat (length of [intro:d v])\n    set pen size to (((item (i) of [intro:d v]) / (5)) + (s))\n    go to x: (item (i) of [intro:x v]) y: (item (i) of [intro:y v])\n    pen down\n    pen up\n    change [i v] by (1)\nend\n\ndefine reset\nerase all\nset pen (brightness v) to (100)\nset pen (color v) to (0)\ngo to x: (0) y: (0)\npoint in direction (90)\nswitch costume to (コスチューム1 v)\nset size to ((1) / (0)) %\nclear graphic effects\nshow\nset [s v] to [0]\nset [x v] to [0]\nset [y v] to [0]\nset [d v] to [0]\nset [t v] to [0]\nset [b v] to [480]\ndelete all of [intro:a v]\nadd [0] to [intro:a v]\ndelete all of [intro:c v]\nadd [0] to [intro:c v]\ndelete all of [intro:b v]\nadd [100] to [intro:b v]\nstart sound [Egzod - Departure \(feat v]\nreset timer\n\ndefine ◇\nset [i v] to [1]\nrepeat until <(length of [intro:c v]) < (i)>\n    replace item (i) of [intro:c v] with ((item (i) of [intro:c v]) + (((item (i) of [intro:b v]) - (item (i) of [intro:c v])) / (5)))\n    change [i v] by (1)\nend\nif <(t) < (timer)> then\n    set [t v] to ((timer) + (0.7))\n    set [i v] to [1]\n    repeat until <(length of [intro:c v]) < (i)>\n        replace item (i) of [intro:b v] with ((item (i) of [intro:b v]) + (100))\n        if <[840] < (item (i) of [intro:c v])> then\n            delete (i) of [intro:c v]\n            delete (i) of [intro:b v]\n            delete (i) of [intro:a v]\n        else\n            change [i v] by (1)\n        end\n    end\n    add [0] to [intro:c v]\n    add [100] to [intro:b v]\n    add ((1) - (item (length of [intro:a v]) of [intro:a v])) to [intro:a v]\nend\nrepeat (5)\n    change [j v] by (0.2)\n    add (([cos v] of (((j) * (5)) + (0)) ) * (200)) to [intro:x v]\n    add (([sin v] of (((j) * (5)) + (15)) ) * (100)) to [intro:y v]\n    add [100] to [intro:d v]\n    add (([cos v] of (((j) * (5)) + (0)) ) * (-200)) to [intro:x v]\n    add (([sin v] of (((j) * (5)) + (15)) ) * (-100)) to [intro:y v]\n    add [100] to [intro:d v]\nend\nset [i v] to [1]\nrepeat until <(length of [intro:d v]) < (i)>\n    replace item (i) of [intro:d v] with (((item (i) of [intro:d v]) * (0.9)) - (1))\n    if <(item (i) of [intro:d v]) < [1]> then\n        delete (i) of [intro:x v]\n        delete (i) of [intro:y v]\n        delete (i) of [intro:d v]\n    end\n    change [i v] by (1)\nend\n\ndefine ◆ (s) ( )\nchange pen (color v) by (() * (0.5))\nset [i v] to [1]\nrepeat until <(length of [intro:c v]) < (i)>\n    if <((item (i) of [intro:a v]) mod (2)) = ( )> then\n        point in direction (d)\n        go to x: (x) y: (y)\n        move ((([abs v] of ([cos v] of ((timer) * ((360) / (1.1))) ) ) * (15)) + ((s) + (item (i) of [intro:c v]))) steps\n        turn left (45) degrees\n        pen down\n        repeat (4)\n            turn left (90) degrees\n            move (([sqrt v] of (2) ) * (((item (i) of [intro:c v]) + (s)) + (([abs v] of ([cos v] of ((timer) * ((360) / (1.1))) ) ) * (15)))) steps\n        end\n        pen up\n    end\n    change [i v] by (1)\nend\n\ndefine black (b)\nset pen size to (b)\nset pen color to (#000000)\ngo to x: (280) y: (240)\npen down\ngo to x: (-280) y: (240)\npen up\ngo to x: (280) y: (-240)\npen down\ngo to x: (-280) y: (-240)\npen up\n\nwhen I receive [pentro v]\nreset\nstart\nwait (0.3) seconds\nset [b v] to [480]\nrepeat (30)\n    erase all\n    ◇\n    back\n    set pen color to (#ffffff)\n    set pen size to (25)\n    ◆ [30] [1]\n    ◆ [30] [0]\n    set pen color to (#ff3e3e)\n    set pen size to (40)\n    ◆ [0] [1]\n    ◆ [0] [0]\n    set pen color to (#ffffff)\n    set pen size to (5)\n    ◆ [0] [1]\n    ◆ [0] [0]\n    **\n    ~~~~~\n    stamp　X: (x) Y: (y) 向き: (d) 大きさ (s)\n    pon! (x2) (penzoid: y2) (C)\n    pon! ((x2) * (-1)) ((penzoid: y2) * (-1)) (C)\n    black (B)\n    change [b v] by (((250) - (B)) / (5))\nend\nrepeat until <(timer) > [13]>\n    erase all\n    ◇\n    back\n    set pen color to (#ffffff)\n    set pen size to (25)\n    ◆ [30] [1]\n    ◆ [30] [0]\n    set pen color to (#ff3e3e)\n    set pen size to (40)\n    ◆ [0] [1]\n    ◆ [0] [0]\n    set pen color to (#ffffff)\n    set pen size to (5)\n    ◆ [0] [1]\n    ◆ [0] [0]\n    **\n    ~~~~~\n    stamp　X: (x) Y: (y) 向き: (d) 大きさ (s)\n    pon! (x2) (penzoid: y2) (C)\n    pon! ((x2) * (-1)) ((penzoid: y2) * (-1)) (C)\n    if <not <(D) = [0]>> then\n        set pen color to (#ff3e3e)\n        set pen (transparency v) to (D)\n        pen [0] [0] [0] [0] [1000]\n    end\n    black [250]\nend\nrepeat (30)\n    erase all\n    ◇\n    back\n    set pen color to (#ffffff)\n    set pen size to (25)\n    ◆ [30] [1]\n    ◆ [30] [0]\n    set pen color to (#ff3e3e)\n    set pen size to (40)\n    ◆ [0] [1]\n    ◆ [0] [0]\n    set pen color to (#ffffff)\n    set pen size to (5)\n    ◆ [0] [1]\n    ◆ [0] [0]\n    **\n    ~~~~~\n    stamp　X: (x) Y: (y) 向き: (d) 大きさ (s)\n    pon! (x2) (penzoid: y2) (C)\n    pon! ((x2) * (-1)) ((penzoid: y2) * (-1)) (C)\n    if <not <(D) = [0]>> then\n        pon! [0] [0] (D)\n    end\n    black (B)\n    change [b v] by (((490) - (B)) / (5))\nend\nend\n\nwhen flag clicked\nbroadcast (pentro v)\n\ndefine pen (x) (y) (x2) (y2) (s)\nset pen size to (s)\ngo to x: (x) y: (y)\npen down\ngo to x: (x2) y: (y2)\npen up\n\ndefine start\nset pen color to (#000000)\nset pen (transparency v) to (90)\nrepeat (20)\n    pen [0] [0] [0] [0] [1000]\nend\n\ndefine back\nset pen color to (#ffffff)\npen [0] [0] [0] [0] [1000]\nset pen color to (#ff3e3e)\nset [a v] to [-162]\nrepeat (10)\n    pen [240] (A) [-240] (A) [20]\n    change [a v] by (36)\nend\n\ndefine stamp　X: (x) Y: (y) 向き: (d) 大きさ (s)\nswitch costume to (コスチューム1 v)\ngo to x: (x) y: (y)\npoint in direction (d)\nswitch costume to (harukimann v)\nset size to (s) %\nstamp\nswitch costume to (コスチューム1 v)\nset size to ((1) / ()) %\n\nwhen I receive [pentro v]\nwait (1) seconds\nrepeat (30)\n    change [d v] by (((90) - (d)) / (5))\n    set [s v] to (d)\nend\n\nwhen I receive [pentro v]\nwait until <(timer) > [2.5]>\nrepeat (30)\n    change [d v] by (((30) - (d)) / (5))\n    set [s v] to (d)\nend\nrepeat (30)\n    change [d v] by (((150) - (d)) / (5))\n    set [s v] to (d)\nend\nrepeat (30)\n    change [d v] by (((90) - (d)) / (5))\n    set [s v] to (d)\nend\nset [d v] to [-90]\nrepeat (50)\n    change [d v] by (((90) - (d)) / (8))\nend\nset [d v] to [-90]\nrepeat (50)\n    change [d v] by (((90) - (d)) / (8))\nend\nrepeat (30)\n    change [x v] by (((100) - (x)) / (5))\nend\nrepeat (30)\n    change [x v] by (((-100) - (x)) / (5))\n    change [d v] by (((-90) - (d)) / (5))\nend\nrepeat (30)\n    change [x v] by (((0) - (x)) / (5))\n    change [d v] by (((90) - (d)) / (5))\nend\nset [d v] to [-90]\nrepeat (50)\n    change [d v] by (((90) - (d)) / (8))\nend\n\ndefine ~~~~~\nset pen color to (#ff3e3e)\n~~ [20]\nset pen color to (#ffffff)\n~~ [10]\nset pen color to (#ff3e3e)\n~~ [5]\nset pen color to (#ffffff)\n~~ [0]\n\ndefine end\nset [b v] to [480]\nrepeat (50)\n    erase all\n    black (B)\n    change [b v] by (((120) - (B)) / (5))\nend\nbroadcast (ペントロ終わり v)\n\ndefine pon! (x) (y) (g)\nset pen color to (#ffffff)\nset pen (transparency v) to (g)\npen (x) (y) (x) (y) [150]\n\nwhen I receive [pentro v]\n\n    set [x2 v] to [-240]\n    set [penzoid: y2 v] to [100]\n    repeat (6)\n        set [c v] to [20]\n        repeat (3)\n            change [c v] by (20)\n        end\n        change [x2 v] by (96)\n    end\n    set [x2 v] to [240]\n    repeat (6)\n        set [c v] to [20]\n        repeat (3)\n            change [c v] by (20)\n        end\n        change [x2 v] by (-96)\n    end\nend\n\ndefine **\nset pen color to (#ffffff)\nset [a v] to [0]\nrepeat (70)\n    pen (item ((219) - (A)) of [intro:x v]) (item ((219) - (A)) of [intro:y v]) (x) (y) [2]\n    pen (item ((220) - (A)) of [intro:x v]) (item ((220) - (A)) of [intro:y v]) (x) (y) [2]\n    change [a v] by (1)\nend\n\nwhen I receive [pentro v]\nwait until <(timer) > [6.8]>\nrepeat (6)\n    set [d v] to [0]\n    repeat (2)\n        change [d v] by (50)\n    end\nend\n\nwhen I receive [ペントロ終わり v]\nhide\nerase all\nstop [this script v]\n\nwhen flag clicked\nwait (0.0001) seconds\ngo to [front v] layer\n\nwhen flag clicked\n\nwhen I receive [ペントロ終わり v]\n\nwhen I receive [bbb v]\n\nbroadcast (bbb v)\n\nwhen this sprite clicked\n\n@スプライト7\n\nwhen flag clicked\nshow\nforever\n    go to [front v] layer\n    set [ghost v] effect to (99)\nend\n\nset [ghost v] effect to (100)\n\nwhen this sprite clicked\nbroadcast (bbb v)\nstop [all v]\n\nbroadcast (ペントロ終わり v)\n\nwhen I receive [bbb v]\nbroadcast (ペントロ終わり v)\nhide\n\nwhen this sprite clicked\n\nwhen flag clicked\nforever\n    if <key (space v) pressed?> then\n        broadcast (bbb v)\n        stop [all v]\n    end\nend\n\n@スプライト8\n\nwhen flag clicked\nshow\nwait (3) seconds\nhide\n\nwhen I receive [ペントロ終わり v]\nhide\n\n