DARK II Platformer (mobile friendly)

Instructions: How to move - Use arrow keys or mobile controls\nDo not touch - Spike - Magma\nHow to skip  -  Click skip button\n\nThis is collaboration work by @hiron0413 ▽@hiron0413\nhttps://scratch.mit.edu/projects/418273700\n

@Stage\n\nwhen I receive [start v]\nforever\n    play sound [1234 v] until done\nend\n\nwhen I receive [unmute v]\nset volume to (100) %\n\nwhen I receive [mute v]\nset volume to (0) %\n\nwhen flag clicked\nbroadcast (pick random (1) to (3))\n\n@Player\n\ndefine Spin off screen\nset rotation style [all around v]\nset [player death v] to [1]\nstart sound [crashed oof v]\nset [y v v] to [15]\nrepeat until <(y position) < [-178]>\n    go to [front v] layer\n    turn right (10) degrees\n    change y by (Y v)\n    change [y v v] by (-1)\nend\nset [player death v] to [0]\ngo to [back v] layer\nset rotation style [left-right v]\npoint in direction (90)\ngo [forward v] (3) layers\n\nnext backdrop\n\nwhen I start as a clone\nclear graphic effects\nset size to (100) %\nrepeat (10)\n    change [ghost v] effect by (10)\n    change size by (-10)\nend\ndelete this clone\n\nwhen I receive [start v]\nhide variable [☁ world record v]\nhide variable [☁ your time v]\nreset timer\nswitch costume to (1 v)\nswitch backdrop to (2 v)\nshow\nforever\n    change y by (1)\n    change [y v] by (-1)\n    if <<key (right arrow v) pressed?> or <<(mouse x) > [1]> and <mouse down?>>> 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 <<(mouse x) < [-1]> and <mouse down?>>> 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.9))\n    change x by (x)\n    if <touching (ground v)?> then\n        change y by (1)\n    end\n    if <touching (ground v)?> then\n        change y by (1)\n    end\n    if <touching (ground v)?> then\n        change y by (1)\n    end\n    if <touching (ground v)?> then\n        change y by (1)\n    end\n    if <touching (ground v)?> 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 <<(mouse y) > [50]> and <mouse down?>>> 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    if <touching (ground v)?> then\n        change y by ((0) - (y))\n        set [y v] to [0]\n    end\n    change y by (-1)\n    if <<<key (up arrow v) pressed?> and <touching (ground v)?>> or <<mouse down?> and <<touching (ground v)?> and <(mouse y) > [50]>>>> then\n        start sound [suck1 v]\n        set [y v] to [15]\n        create clone of (_myself_ v)\n    end\n    if <touching (magma v)?> then\n        Spin off screen\n    end\n    if <touching (spike v)?> then\n        Spin off screen\n    else\n        if <[-166] > (y position)> then\n            go to x: (-199) y: (-60)\n        end\n    end\n    if <touching color (#ffff00)?> then\n        start sound [smw_spring_jump @ToadfanSchool v]\n        set [y v] to [23]\n        create clone of (_myself_ v)\n        broadcast (アニメーション v)\n    end\n    if <<key (down arrow v) pressed?> or <<[-50] > (mouse y)> and <mouse down?>>> then\n        broadcast (Crouch v)\n        switch costume to (4 v)\n        if <[-166] > (y position)> then\n            go to x: (-199) y: (-60)\n        end\n    else\n        switch costume to (3 v)\n    end\n    if <(Stage) = [11]> then\nend\n\nwhen flag clicked\nhide variable [☁ world record v]\nhide variable [☁ your time v]\nhide\n\nwhen I receive [start v]\ngo [forward v] (3) layers\ngo to x: (-199) y: (-60)\nset rotation style [left-right v]\npoint in direction (90)\nset size to (100) %\nset [x v] to [0]\nset [y v] to [0]\nshow\n\nSpin off screen\n\n@スプライト2\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\nshow\nforever\n    go to (player v)\nend\n\nwhen flag clicked\nforever\n    if <key (down arrow v) pressed?> then\n        switch costume to (コスチューム2 v)\n    else\n        switch costume to (コスチューム1 v)\n    end\nend\n\n@Ground\n\nwhen flag clicked\ngo to x: (0) y: (0)\ngo to [back v] layer\ngo [forward v] (5) layers\nforever\n    switch costume to (Stage)\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\nshow\n\nwhen flag clicked\nset [stage v] to [1]\n\nwhen I receive [goal v]\nchange [stage v] by (1)\n\n@Magma\n\nwhen I receive [start v]\nshow\n\nwhen I receive [goal v]\nwait (0.5) seconds\nnext costume\n\nwhen flag clicked\nhide\nswitch costume to (コスチューム2 v)\nforever\n    repeat (3)\n        change y by ((8) * (0.9))\n    end\n    wait (0.4) seconds\n    repeat (3)\n        change y by ((-8) * (0.9))\n    end\nend\n\nwhen flag clicked\ngo to x: (0) y: (0)\n\nset y to (12)\n\nwhen flag clicked\nset y to (0)\nforever\n    change y by (YYY)\nend\n\nwhen flag clicked\nset [yyy v] to [0]\nforever\n    repeat (10)\n        change [☁ world record v] by (-0.1)\n    end\n    repeat (20)\n        change [☁ world record v] by (0.1)\n    end\n    repeat (10)\n        change [☁ world record v] by (-0.1)\n    end\nend\n\n@スプライト1\n\nwhen flag clicked\nshow\nset [ghost v] effect to (100)\n\n@skip\n\nwhen flag clicked\nswitch costume to (grass v)\nhide\nset size to (75) %\nforever\n    point in direction (([sin v] of ((timer) * (1200)) ) + (90))\n    wait (..2) seconds\n    if <(Stage) > [6]> then\n        switch costume to (cave v)\n    else\n        switch costume to (grass v)\n    end\n    if <(Stage) = [11]> then\n        hide\n    end\nend\n\nwhen I receive [start v]\nshow\ngo to [front v] layer\ngo to x: (-180) y: (-155)\nforever\n    if <touching (mouse-pointer v)?> then\n        set [brightness v] effect to (20)\n    else\n        set [brightness v] effect to (0)\n    end\nend\n\nwhen this sprite clicked\nbroadcast (Goal v)\n\nwhen I receive [cutscene boss v]\nhide\n\n@スプライト3\n\nwhen I receive [start v]\ngo to x: (-201) y: (138)\nswitch costume to (100% v)\nshow\nforever\n    go to [back v] layer\n    if <<touching (mouse-pointer v)?> and <mouse down?>> then\n        if <(costume [name v]) = [0%]> then\n            switch costume to (100% v)\n            broadcast (Unmute v)\n        else\n            switch costume to (0% v)\n            broadcast (Mute v)\n        end\n        wait until <not <mouse down?>>\n    end\nend\n\nwhen flag clicked\nhide\n\n@Spike\n\nwhen flag clicked\nswitch costume to (コスチューム3 v)\nhide variable [☁ world record v]\nhide variable [☁ your time v]\nhide\n\nwhen I receive [goal v]\nwait (0.5) seconds\nnext costume\n\nwhen I receive [start v]\nshow\nswitch costume to (コスチューム1 v)\n\n@tn2\n\nwhen flag clicked\nset [ghost v] effect to (100)\nshow\ngo to [front v] layer\n\n@Intro\n\nwhen I start as a clone\nif <(cc) = [1]> then\n    hide\n    go to x: (0) y: (0)\n    switch costume to (costume2 v)\n    set size to (1) %\n    point in direction (pick random (1) to (360))\n    e\n    show\n    set [h v] to [1]\n    turn right (180) degrees\n    repeat until <<[30] > ([abs v] of (x position) )> and <[30] > ([abs v] of (y position) )>>\n        change [h v] by ((h) / (5))\n        move (h) steps\n        change size by (0.75)\n    end\n    start sound [Water Drop v]\n    change [ok?2 v] by (1)\n    delete this clone\nelse\n    if <(cc) = [2]> then\n        wait until <[5] < (ok?2)>\n        go to x: (0) y: (0)\n        switch costume to (costume2 v)\n        set size to (0) %\n        show\n        repeat until <(size) > [70]>\n            change size by (((71) - (size)) / (6))\n        end\n        wait (0.2) seconds\n        show\n        set [s v] to [15]\n        repeat (5)\n            change size by (S)\n            change [s v] by (-1)\n        end\n        repeat until <(size) < [50]>\n            change size by (S)\n            change [s v] by (-1)\n        end\n        repeat until <(size) < [16]>\n            change size by (((15) - (size)) / (5))\n        end\n        wait (0.01) seconds\n        Clone\n        repeat until <(size) > [1200]>\n            switch costume to (costume3 v)\n            change size by ((size) / (3))\n            switch costume to (costume2 v)\n        end\n        change [ok?2 v] by (1)\n        wait until <[10.4] < (timer)>\n        set [s v] to [-7]\n        repeat until <[150] > (size)>\n            switch costume to (costume3 v)\n            change size by (S)\n            change [s v] by ((S) / (15))\n            switch costume to (costume2 v)\n        end\n        repeat until <[10] > (size)>\n            switch costume to (costume2 v)\n            change size by (S)\n            change [s v] by ((S) / (15))\n        end\n        delete this clone\n    else\n        if <(cc) = [3]> then\n            set [clonecount v] to [0]\n            show\n            set size to (70) %\n            go to x: (0) y: (10)\n            point in direction (-10)\n            set [ccccc v] to [0]\n            repeat (47)\n                set [clonecount v] to (((CloneCount) * (0.75)) + (((100) - (ccccc)) * (0.6)))\n                turn right (CloneCount) degrees\n                change [ccccc v] by (CloneCount)\n            end\n            point in direction (90)\n            wait until <[11] < (timer)>\n            set [h v] to [1]\n            repeat until <[15] > (size)>\n                change [ghost v] effect by (4)\n                change [h v] by ((h) / (7))\n                turn left (h) degrees\n                change size by ((h) / (-1))\n            end\n            delete this clone\n        else\n            set [s v] to (pick random (0.1) to (1))\n            point in direction (pick random (0) to (360))\n            switch costume to (pick random (6) to (9))\n            go to (random position v)\n            show\n            set size to (pick random (1) to (25)) %\n            set [ghost v] effect to (pick random (20) to (50))\n            repeat until <(timer) > [11.2]>\n                go to [front v] layer\n                turn right (1) degrees\n                move ((s) / (3)) steps\n            end\n            wait (0.5) seconds\n            delete this clone\n        end\n    end\nend\n\ndefine e\nrepeat until <touching (_edge_ v)?>\n    move (10) steps\nend\n\ndefine Clone\nset [cc v] to [4]\nrepeat (pick random (10) to (15))\n    create clone of (_myself_ v)\nend\n\nwhen I receive [2 v]\nstart sound [Cartoon - On & On \(ft. Daniel Levi\).mp2 v]\nwait (1) seconds\nreset timer\nreset timer\nreset timer\nhide\nset [ok?2 v] to [0]\nset [cc v] to [1]\nrepeat (10)\n    create clone of (_myself_ v)\nend\nset [cc v] to [2]\ncreate clone of (_myself_ v)\nwait until <[10] < (ok?2)>\nwait (0.8) seconds\nswitch costume to (costume4 v)\nrepeat (2)\n    set [cc v] to [3]\n    create clone of (_myself_ v)\n    next costume\n    wait (1.2) seconds\nend\nwait (4.2) seconds\nbroadcast (Start v)\nhide\n\n@Intro2\n\nwhen flag clicked\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    show\nelse\n    if <(costume [number v]) = [2]> then\n        show\n        set y to (5000)\n        repeat until <(round (y position)) = [0]>\n            change y by (((0) - (y position)) / (5))\n        end\n    else\n        if <(costume [number v]) = [3]> then\n            go to x: (0) y: (-25)\n            show\n            point in direction (-90)\n            set [i v] to [0]\n            repeat until <(round (direction)) = [90]>\n                set [i v] to (((i) * (.8)) + (((0) - (y position)) / (5)))\n                change y by (i)\n                turn right (((90) - (direction)) / (5)) degrees\n            end\n            set [i v] to [-1]\n            repeat (15)\n                if <(x position) < [-50]> then\n                    change [ghost v] effect by (20)\n                end\n                change size by ((I) / (3))\n                change x by (I)\n                change [i v] by (join [-] (([abs v] of (I) ) / (3)))\n            end\n            go to x: (500) y: (0)\n            repeat (15)\n                change [ghost v] effect by (-20)\n                change size by (((100) - (size)) / (4))\n                change x by (((0) - (x position)) / (3))\n            end\n            wait (0.5) seconds\n            set [part thing v] to [1]\n            set [i v] to [-1]\n            repeat (25)\n                if <(y position) < [-50]> then\n                    change [ghost v] effect by (30)\n                end\n                change size by ((I) / (4))\n                change y by (I)\n                change [i v] by (join [-] (([abs v] of (I) ) / (3)))\n            end\n            delete this clone\n        else\n            if <(costume [number v]) = [4]> then\n                go to x: (0) y: (0)\n                set size to (pick random (70) to (120)) %\n                point in direction (pick random (-90) to (90))\n                go to [front v] layer\n                show\n                repeat until <(y position) < [-170]>\n                    move (Forward move) steps\n                    change y by (Y)\n                    change [y v] by (-0.35)\n                end\n                delete this clone\n            else\n                if <(costume [number v]) = [5]> then\n                    show\n                    set size to (0) %\n                    go to x: (0) y: (0)\n                    set [part thing v] to [2]\n                    set [i v] to [1]\n                    repeat until <(size) = [100]>\n                        change size by (((100) - (size)) / (4))\n                    end\n                    wait (0.5) seconds\n                    set [i v] to [-1]\n                    set [part thing v] to [3]\n                    repeat (15)\n                        if <(x position) < [-50]> then\n                            change [ghost v] effect by (20)\n                        end\n                        change size by ((I) / (3))\n                        change x by (I)\n                        change [i v] by (join [-] (([abs v] of (I) ) / (3)))\n                    end\n                else\n                    show\n                    go to x: (5000) y: (0)\n                    repeat until <(round (x position)) = [0]>\n                        change x by (((0) - (x position)) / (8))\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nforever\n    if <(ended) = [1]> then\n        delete this clone\n    end\nend\n\nwhen I receive [1 v]\nset volume to (100) %\nset [part thing v] to [0]\npoint in direction (90)\ngo to x: (0) y: (0)\nswitch costume to (white v)\ncreate clone of (_myself_ v)\nset size to (100) %\nhide\nwait (0.1) seconds\nswitch costume to (fill v)\ngo to x: (-165) y: (0)\nrepeat (3)\n    create clone of (_myself_ v)\n    change x by (165)\n    wait (0.1) seconds\nend\ngo to x: (0) y: (0)\nwait (0.6) seconds\nswitch costume to (logo v)\ncreate clone of (_myself_ v)\nset [forward move v] to (pick random (10) to (20))\nset [y v] to (pick random (5) to (7))\nswitch costume to (particle v)\nrepeat (30)\n    create clone of (_myself_ v)\nend\nwait until <(Part thing) = [1]>\nswitch costume to (name v)\nwait (0.3) seconds\ncreate clone of (_myself_ v)\nwait until <(Part thing) = [2]>\nset [forward move v] to (pick random (10) to (20))\nset [y v] to (pick random (5) to (7))\nswitch costume to (particle v)\nrepeat (20)\n    create clone of (_myself_ v)\nend\nwait until <(Part thing) = [3]>\nswitch costume to (end v)\ncreate clone of (_myself_ v)\nrepeat (50)\n    change volume by (-2)\nend\nbroadcast (Start v)\nset [ended v] to [1]\n\nwhen I receive [1 v]\nset [ended v] to [0]\nplay sound [TheFatRat - Windfall _Tasty Release_ v] until done\n\n@Intro3\n\nwhen flag clicked\nhide\nset volume to (100) %\nset [sync v] to [0]\nset [drop v] to [0]\nswitch costume to (logo v)\n\nwhen I receive [3 v]\nstart sound [Cigarette Boat v]\nwait until <(EndIntro) = [1]>\nrepeat (100)\n    change volume by (-1)\nend\n\nwhen I receive [3 v]\nset [sprite v] to [Background]\nset [background v] to [1]\ncreate clone of (_myself_ v)\nwait (0.1) seconds\nset [background v] to [2]\ncreate clone of (_myself_ v)\nwait (0.1) seconds\nset [background v] to [3]\ncreate clone of (_myself_ v)\nwait (0.1) seconds\nset [background v] to [4]\ncreate clone of (_myself_ v)\nwait (0.1) seconds\nset [background v] to [5]\ncreate clone of (_myself_ v)\nwait (0.01) seconds\n\nwhen I receive [3 v]\nwait (0.7) seconds\nset [sprite v] to [LogoPart1]\ncreate clone of (_myself_ v)\nwait (0.01) seconds\nset [sprite v] to [LogoPart2]\ncreate clone of (_myself_ v)\nwait (0.1) seconds\nset [sprite v] to [LogoPart3]\ncreate clone of (_myself_ v)\nwait (0.01) seconds\nset [sprite v] to [LogoPart4]\ncreate clone of (_myself_ v)\nwait (0.1) seconds\nset [sprite v] to [LogoPart5]\ncreate clone of (_myself_ v)\nwait (0.01) seconds\nset [sprite v] to [LogoPart6]\ncreate clone of (_myself_ v)\nwait (0.01) seconds\nset [sprite v] to [LogoPart7]\ncreate clone of (_myself_ v)\nwait (0.01) seconds\nset [sprite v] to [BackgroundMisc]\ncreate clone of (_myself_ v)\nwait (0.01) seconds\nset [sprite v] to [BackgroundMisc2]\ncreate clone of (_myself_ v)\nwait (0.01) seconds\nset [sprite v] to [BackgroundMisc3]\ncreate clone of (_myself_ v)\nwait (0.01) seconds\nset [sprite v] to [BackgroundMisc4]\ncreate clone of (_myself_ v)\nwait (0.01) seconds\nset [sprite v] to [BackgroundMisc5]\ncreate clone of (_myself_ v)\nwait (0.01) seconds\nset [sprite v] to [BackgroundMisc6]\ncreate clone of (_myself_ v)\nwait (0.01) seconds\nset [sprite v] to [BackgroundMisc7]\ncreate clone of (_myself_ v)\nwait (0.01) seconds\nset [sprite v] to [BackgroundMisc8]\ncreate clone of (_myself_ v)\nwait (0.01) seconds\nset [sprite v] to [BackgroundMisc9]\ncreate clone of (_myself_ v)\nwait (0.01) seconds\nset [sprite v] to [BackgroundMisc10]\ncreate clone of (_myself_ v)\nwait (0.01) seconds\nset [sprite v] to [BackgroundMisc11]\ncreate clone of (_myself_ v)\nwait (0.01) seconds\nset [sprite v] to [BackgroundMisc12]\ncreate clone of (_myself_ v)\nwait (0.01) seconds\nExplode\nwait (1.5) seconds\nset [sprite v] to [Logo]\ncreate clone of (_myself_ v)\nwait (0.01) seconds\nset [sprite v] to [Name]\ncreate clone of (_myself_ v)\nwait (0.5) seconds\nExplode\n\nwhen I start as a clone\nif <(Sprite) = [Background]> then\n    if <(Background) = [1]> then\n        go to x: (-200) y: (-1000)\n    end\n    if <(Background) = [2]> then\n        go to x: (-100) y: (-1000)\n    end\n    if <(Background) = [3]> then\n        go to x: (0) y: (-1000)\n    end\n    if <(Background) = [4]> then\n        go to x: (100) y: (-1000)\n    end\n    if <(Background) = [5]> then\n        go to x: (200) y: (-1000)\n    end\n    set size to (10) %\n    show\n    repeat (25)\n        change y by (((0) - (y position)) / (5))\n        change size by (((100) - (size)) / (5))\n    end\nend\n\nwhen I start as a clone\nswitch costume to (Sprite)\n\nwhen I start as a clone\nif <(Sprite) = [LogoPart1]> then\n    go to x: (-1000) y: (0)\n    set size to (120) %\n    set [ghost v] effect to (0)\n    show\n    repeat (30)\n        change x by (((0) - (x position)) / (5))\n    end\nend\n\nwhen I start as a clone\nif <(Sprite) = [LogoPart2]> then\n    go to x: (1000) y: (0)\n    set size to (120) %\n    set [ghost v] effect to (0)\n    show\n    repeat (30)\n        change x by (((0) - (x position)) / (5))\n    end\nend\n\nwhen I start as a clone\nif <(Sprite) = [LogoPart3]> then\n    go to x: (-1000) y: (1000)\n    set size to (120) %\n    set [ghost v] effect to (0)\n    show\n    repeat (30)\n        change x by (((0) - (x position)) / (5))\n        change y by (((0) - (y position)) / (5))\n    end\nend\n\nwhen I start as a clone\nif <(Sprite) = [LogoPart4]> then\n    go to x: (1000) y: (1000)\n    set size to (120) %\n    set [ghost v] effect to (0)\n    show\n    repeat (30)\n        change x by (((0) - (x position)) / (5))\n        change y by (((0) - (y position)) / (5))\n    end\nend\n\nwhen I start as a clone\nif <(Sprite) = [LogoPart5]> then\n    go to x: (0) y: (-1000)\n    set size to (120) %\n    set [ghost v] effect to (0)\n    show\n    repeat (30)\n        change y by (((0) - (y position)) / (5))\n    end\nend\n\nwhen I start as a clone\nif <(Sprite) = [LogoPart6]> then\n    go to x: (0) y: (-1000)\n    set size to (120) %\n    set [ghost v] effect to (0)\n    show\n    repeat (30)\n        change y by (((0) - (y position)) / (5))\n    end\nend\n\nwhen I start as a clone\nif <(Sprite) = [LogoPart7]> then\n    go [backward v] (6) layers\n    go to x: (0) y: (0)\n    set size to (0) %\n    set [ghost v] effect to (0)\n    show\n    repeat (30)\n        change size by (((120) - (size)) / (5))\n    end\nend\n\nwhen I start as a clone\nif < (Sprite) contains [BackgroundMisc]?> then\n    go [backward v] (6) layers\n    go to x: (0) y: (0)\n    set size to (1000) %\n    set [ghost v] effect to (100)\n    show\n    repeat (30)\n        change size by (((100) - (size)) / (5))\n        change [ghost v] effect by (-5)\n    end\n    wait until <(EndIntro) = [1]>\n    repeat (25)\n        change size by (((size) - (99)) / (5))\n        change [ghost v] effect by (4)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif < (Sprite) contains [LogoPart]?> then\n    wait (1.5) seconds\n    repeat (25)\n        change size by (((size) - (121)) / (5))\n        change [ghost v] effect by (4)\n    end\n    delete this clone\nend\n\nset size to (100) %\n\nshow\n\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(Sprite) = [Name]> then\n    go to x: (0) y: (-100)\n    set size to (100) %\n    go to [front v] layer\n    set [ghost v] effect to (100)\n    show\n    repeat (30)\n        change y by (((0) - (y position)) / (5))\n        change [ghost v] effect by (-5)\n    end\n    wait (1) seconds\n    set [endintro v] to [1]\n    repeat (25)\n        change y by (((y position) - (1)) / (4))\n        change [ghost v] effect by (4)\n    end\n    delete this clone\nend\n\ngo [backward v] (6) layers\n\nforever\n    go to x: (12) y: (-7)\nend\n\nwhen flag clicked\nset [endintro v] to [0]\n\nwhen I start as a clone\nif <(Sprite) = [Background]> then\n    wait until <(EndIntro) = [1]>\n    repeat (25)\n        change size by (((size) - (101)) / (5))\n        change [ghost v] effect by (5)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Sprite) = [Name]> then\n    forever\n        point in direction ((90) + (([sin v] of ((timer) * (100)) ) * (-5)))\n        set size to ((90) + (([sin v] of ((timer) * (250)) ) * (-5))) %\n    end\nend\n\ndefine Explode\nrepeat (24)\n    turn right (15) degrees\n    set [sprite v] to [Particle]\n    create clone of (_myself_ v)\nend\npoint in direction (90)\n\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(Sprite) = [Particle]> then\n    go to x: (0) y: (0)\n    set size to (50) %\n    set [speed v] to [20]\n    show\n    repeat (20)\n        move (Speed) steps\n        change [speed v] by (-1)\n    end\n    repeat (20)\n        move (Speed) steps\n        change [speed v] by (-1)\n        change [ghost v] effect by (5)\n    end\n    delete this clone\nend\n\nrepeat (20)\nend\n\nwhen flag clicked\nset [sprite v] to [0]\n\nshow\n\nwhen I receive [3 v]\nwait until <(EndIntro) = [1]>\nbroadcast (Start v)\n\n@スプライト4\n\n@transition\n\nwhen flag clicked\nhide\n\nwhen I receive [goal v]\nset [trans on or off v] to [On]\ngo [forward v] (1) layers\ngo to [front v] layer\nset x to (500)\nshow\nrepeat (6)\n    change x by (-80)\nend\nchange x by (-15)\nwait (0.6) seconds\nset [trans on or off v] to [Off]\nrepeat (5)\n    change x by (-80)\nend\nhide\n\n