Dungeon Journey 3 - A platformer [Mobile Friendly]

Instructions: New game! https://scratch.mit.edu/projects/406739724/\n\nWelcome, to "Dungeon Journey 3" a Platformer. Play the first two if you haven’t already, or else you won’t know what’s happening!\nD. J.: https://scratch.mit.edu/projects/396825381/\nD.J. 2: https://scratch.mit.edu/projects/397988821/\nDis took me 2 days to make OwO\n\nArrow keys / mobile tap to move\nS to skip a level (The levels are hard)

@Stage\n\nwhen flag clicked\nforever\n    if <([costume # v] of [ground v]) < [4]> then\n        switch backdrop to (backdrop3 v)\n    else\n        if <[8] < ([costume # v] of [ground v])> then\n            switch backdrop to (backdrop3 v)\n        else\n            switch backdrop to (backdrop2 v)\n        end\n    end\nend\n\nwhen I receive [message1 v]\nstop all sounds\nforever\n    set volume to (60) %\n    play sound [526063_Heretical-Mysticism.mp3 v] until done\nend\n\n@Ground\n\nwhen I receive [next level v]\nnext costume\ndelete this clone\n\nwhen I receive [message1 v]\nshow\n\nwhen I start as a clone\nswitch costume to (costume11 v)\nif <([costume # v] of [ground v]) = [5]> then\n    forever\n        go to x: (133) y: (-80)\n        repeat (56)\n            change x by (-5)\n        end\n        repeat (56)\n            change x by (5)\n        end\n    end\nend\nif <([costume # v] of [ground v]) = [6]> then\n    forever\n        go to x: (70) y: (15)\n        repeat (53)\n            change x by (-5)\n            change y by (-1.5)\n        end\n        repeat (53)\n            change x by (5)\n            change y by (1.5)\n        end\n    end\nend\nif <([costume # v] of [ground v]) = [7]> then\n    forever\n        go to x: (140) y: (13)\n        repeat (68)\n            change x by (-5)\n        end\n        repeat (68)\n            change x by (5)\n        end\n    end\nend\nif <([costume # v] of [ground v]) = [9]> then\n    forever\n        go to x: (120) y: (50)\n        repeat (47)\n            change x by (-5)\n        end\n        repeat (47)\n            change x by (5)\n        end\n    end\nend\n\nwhen [space v] key pressed\nset [my variable v] to (join (mouse x) (mouse y))\n\nwhen flag clicked\nhide\nswitch costume to (costume1 v)\n\nwhen [s v] key pressed\nif <not <([costume # v] of [ground v]) = [10]>> then\n    broadcast (Next level v)\nend\n\n@Light2\n\nwhen flag clicked\nforever\n    Fix\nend\n\ndefine Fix\ngo to (player v)\ngo to [back v] layer\nshow\nif <touching (player v)?> then\n    set [ghost v] effect to (0)\nelse\n    set [ghost v] effect to (100)\nend\n\nwhen flag clicked\nforever\n    set size to (50) %\n    repeat (10)\n        change size by (1)\n    end\n    wait (0.5) seconds\n    repeat (10)\n        change size by (-1)\n    end\nend\n\nwhen backdrop switches to [backdrop10 v]\nforever\n    hide\nend\n\n@Player\n\nwhen flag clicked\nhide\n\nwhen [r v] key pressed\nbroadcast (Restart v)\n\nwhen I receive [next level v]\nbroadcast (Restart v)\n\nwhen I receive [restart v]\ngo to x: (-220) y: (-30)\npoint in direction (90)\nset [y v] to [0]\nset [x v] to [0]\n\nwhen I receive [message1 v]\nshow\nforever\n    if <<(x position) > [230]> and <touching (_edge_ v)?>> then\n        broadcast (Next level v)\n    end\n    if <<touching (spikes v)?> or <<touching (lava v)?> or <<(y position) < [-170]> and <touching (_edge_ v)?>>>> then\n        broadcast (Restart v)\n    end\n    if <touching (bounce v)?> then\n        set [y v] to [20]\n    end\nend\n\nchange [y v] by (-1)\n\nwhen flag clicked\nforever\n    Move\nend\n\ndefine Move\ngo to [front v] layer\n\nwhen I receive [message1 v]\nbroadcast (Restart v)\nswitch costume to (costume1 v)\nshow\nset [x v] to [0]\nset [y v] to [0]\nforever\n    go to [front v] layer\n    if <touching (ladders v)?> then\n        set [y v] to [0]\n        if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [8]\n        end\n        if <<key (down arrow v) pressed?> or <<mouse down?> and <(y position) > (mouse y)>>> then\n            set [y v] to [-8]\n        end\n    else\n        change [y v] by (-1)\n    end\n    if <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>> then\n        change [x v] by (-1)\n        point in direction (-90)\n    end\n    if <<key (right arrow v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>> then\n        change [x v] by (1)\n        point in direction (90)\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        if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [15]\n            if <([abs v] of (x) ) = (x)> then\n                set [x v] to [-10]\n            else\n                set [x v] to [10]\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    change y by (y)\n    if <touching (ground v)?> then\n        change y by ((y) - ((y) * (2)))\n        set [y v] to [0]\n    end\n    change y by (-1)\n    if <<<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>> and <touching (ground v)?>> then\n        set [y v] to [15]\n    end\n    change y by (1)\nend\n\n@Trail thingy\n\nwhen I start as a clone\nshow\nclear graphic effects\ngo to [front v] layer\nif <touching (player v)?> then\n    go [backward v] (1) layers\nend\nset size to (9) %\nswitch costume to (costume1 v)\ngo [backward v] (1) layers\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nif <<([costume # v] of [ground v]) > [6]> and <not <([costume # v] of [ground v]) = [10]>>> then\n    go to [back v] layer\n    clear graphic effects\n    set size to (100) %\n    switch costume to (costume2 v)\n    point in direction ([direction v] of [player v])\n    repeat (1)\n    say []\nend\ndelete this clone\n\nif <touching (stick man v)?> then\n\nwhen I receive [restart v]\ndelete this clone\n\nwhen I receive [message1 v]\nforever\n    hide\n    go to (player v)\n    if <<(backdrop [number v]) = [2]> or <(backdrop [number v]) = [3]>> then\n        create clone of (_myself_ v)\n    end\nend\n\n@bounce\n\nwhen I start as a clone\ngo to [back v] layer\ngo [forward v] (1) layers\nforever\n    show\n    if <touching (player v)?> then\n        set [y v] to [20]\n        switch costume to (costume1 v)\n        repeat (2)\n            next costume\n        end\n        repeat (2)\n            switch costume to ((costume [number v]) - (1))\n        end\n    else\n        switch costume to (costume1 v)\n    end\nend\n\nwhen I receive [next level v]\ndelete this clone\n\nwhen flag clicked\ndelete this clone\n\nwhen I receive [message1 v]\nwait until <([costume # v] of [ground v]) = [1]>\ngo to x: (80) y: (-87)\ncreate clone of (_myself_ v)\nwait until <([costume # v] of [ground v]) = [8]>\ngo to x: (-179) y: (-115)\ncreate clone of (_myself_ v)\n\n@Stick Man\n\nwhen flag clicked\nhide\n\nwhen I receive [message1 v]\nshow\nforever\n    go to x: (0) y: (0)\n    switch costume to ([costume # v] of [ground v])\nend\n\n@Sprite3\n\nwhen flag clicked\ngo to [front v] layer\nset [ghost v] effect to (100)\nset size to (120) %\nforever\n    reset timer\nend\n\nwhen [timer v] > (0.03)\nset size to (120) %\nrepeat (20)\n    go to [front v] layer\n    show\n    change size by (-1)\n    change [ghost v] effect by (-5)\nend\n\n@Spikes\n\nwhen flag clicked\nforever\n    switch costume to ([costume # v] of [ground v])\n    clear graphic effects\n    set size to (100) %\n    go to x: (0) y: (0)\nend\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\npoint in direction (90)\nswitch costume to (level 10 v)\nforever\n    show\n    go to [back v] layer\n    turn right (10) degrees\nend\n\nwhen I receive [restart v]\nif  then\n    delete this clone\nend\nif <([costume # v] of [ground v]) = [2]> then\n    Glide of clone [11] [-102] [100] [-102]\nend\nif <([costume # v] of [ground v]) = [3]> then\n    Glide of clone [70] [-102] [200] [-102]\nend\nif <([costume # v] of [ground v]) = [4]> then\n    Glide of clone [-30] [-150] [-30] [150]\n    Glide of clone [30] [150] [30] [-150]\nend\nif <([costume # v] of [ground v]) = [5]> then\n    Glide of clone [0] [-150] [150] [-150]\nend\nif <([costume # v] of [ground v]) = [6]> then\n    Glide of clone [-140] [-180] [-140] [150]\n    Glide of clone [50] [-180] [50] [150]\n    Glide of clone [-140] [150] [-140] [-180]\n    Glide of clone [50] [150] [50] [-180]\nend\nif <([costume # v] of [ground v]) = [7]> then\n    Glide of clone [43] [-147] [150] [-147]\nend\nif <([costume # v] of [ground v]) = [8]> then\n    Glide of clone [-30] [-131] [140] [-131]\nend\nif <([costume # v] of [ground v]) = [9]> then\n    Glide of clone [0] [-101] [0] [100]\n    Glide of clone [70] [100] [70] [-101]\n    Glide of clone [140] [-101] [140] [100]\nend\n\nwhen I start as a clone\npoint in direction (90)\nswitch costume to (level 10 v)\nforever\n    go to x: (a) y: (b)\n    repeat until <<(round (x position)) = (c)> and <(round (y position)) = (d)>>\n        change x by (((c) - (x position)) / (12))\n        change y by (((d) - (y position)) / (12))\n    end\n    repeat until <<(round (x position)) = (a)> and <(round (y position)) = (b)>>\n        change x by (((a) - (x position)) / (12))\n        change y by (((b) - (y position)) / (12))\n    end\nend\n\ndefine Glide of clone (a) (b) (c) (d)\nset [a v] to (a)\nset [b v] to (b)\nset [c v] to (c)\nset [d v] to (d)\ncreate clone of (_myself_ v)\n\nwhen I receive [message1 v]\nshow\n\n@LADDERS\n\nwhen flag clicked\nforever\n    switch costume to ([costume # v] of [ground v])\n    clear graphic effects\n    go to [back v] layer\n    if <touching (sprite1 v)?> then\n        go [forward v] (1) layers\n    end\nend\n\n@Sprite2\n\nwhen flag clicked\nforever\n    go to [back v] layer\n    if <([costume # v] of [ground v]) = [8]> then\n        show\n        go to [back v] layer\n    else\n        hide\n    end\nend\n\n@Clouds\n\nwhen I start as a clone\nshow\nswitch costume to (cloud hitbox v)\ngo to x: (240) y: (pick random (10) to (150))\nset [my costume v] to (pick random (1) to (2))\nswitch costume to (My costume)\nset [ghost v] effect to (pick random (50) to (70))\nrepeat (96)\n    switch costume to (cloud hitbox v)\n    change x by (-5)\n    switch costume to (My costume)\nend\ndelete this clone\n\nwhen I receive [message1 v]\nforever\n    if <not <(backdrop [number v]) = [2]>> then\n        create clone of (_myself_ v)\n    end\n    wait (pick random (2) to (4)) seconds\nend\n\n@Enemies\n\nwhen I receive [restart v]\ndelete this clone\n\ndefine Clone (x) (y)\ngo to x: (x) y: (y)\nset rotation style [all around v]\nswitch costume to (costume1 v)\nset [ghost v] effect to (100)\nshow\npoint in direction (90)\nrepeat (10)\n    change [ghost v] effect by (-10)\n    turn right (5) degrees\nend\nswitch costume to (costume2 v)\ncreate clone of (_myself_ v)\nswitch costume to (costume1 v)\nrepeat (10)\n    change [ghost v] effect by (10)\n    turn right (5) degrees\nend\nhide\n\nwhen I receive [restart v]\nhide\nif  then\n    delete this clone\nend\nif <([costume # v] of [ground v]) = [1]> then\n    Clone [43] [0]\nend\nif <([costume # v] of [ground v]) = [2]> then\n    Clone [140] [0]\nend\nif <([costume # v] of [ground v]) = [3]> then\n    Clone [170] [124]\nend\nif <([costume # v] of [ground v]) = [4]> then\n    Clone [200] [-39]\nend\nif <([costume # v] of [ground v]) = [5]> then\n    Clone [200] [13]\nend\nif <([costume # v] of [ground v]) = [6]> then\n    Clone [25] [164]\nend\nif <([costume # v] of [ground v]) = [7]> then\n    Clone [205] [92]\n    Clone [205] [-107]\nend\nif <([costume # v] of [ground v]) = [8]> then\n    Clone [201] [146]\n    Clone [51] [29]\nend\nif <([costume # v] of [ground v]) = [9]> then\n    Clone [218] [90]\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [2]> then\n    set rotation style [left-right v]\n    clear graphic effects\n    set size to (9) %\n    show\n    set [enemyx v] to [0]\n    set [enemyy v] to [0]\n    go to [front v] layer\n    forever\n        change [enemyy v] by (-1)\n        if <([x position v] of [player v]) < ((x position) - (10))> then\n            change [enemyx v] by (-0.4)\n            point in direction (-90)\n        end\n        if <((x position) - (-10)) < ([x position v] of [player v])> then\n            change [enemyx v] by (0.4)\n            point in direction (90)\n        end\n        set [enemyx v] to ((Enemyx) * (0.9))\n        change x by (Enemyx)\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 ((Enemyx) * (-1))\n            if <(y position) < ([y position v] of [player v])> then\n                set [enemyy v] to [10]\n                if <([abs v] of (x) ) = (x)> then\n                    set [enemyx v] to [-10]\n                else\n                    set [enemyx v] to [10]\n                end\n            else\n                set [enemyx v] to [0]\n            end\n        end\n        change y by (Enemyy)\n        if <touching (ground v)?> then\n            change y by ((Enemyy) - ((Enemyy) * (2)))\n            set [enemyy v] to [0]\n        end\n        change y by (-1)\n        if <<((y position) - (-120)) < ([y position v] of [player v])> and <touching (ground v)?>> then\n            set [enemyy v] to [14]\n        end\n        if <<touching (ground v)?> and <<touching (player v)?> and <(([y position v] of [player v]) - (10)) > (y position)>>> then\n            set [y v] to [15]\n            repeat (10)\n                change [ghost v] effect by (10)\n                change [enemyy v] by (1)\n            end\n            delete this clone\n        end\n        change y by (1)\n        switch costume to (costume3 v)\n        create clone of (_myself_ v)\n        switch costume to (costume2 v)\n        if <touching (player v)?> then\n            broadcast (Restart v)\n        end\n        if <touching (ladders v)?> then\n            if <([y position v] of [player v]) > (y position)> then\n                set [enemyy v] to [6]\n            else\n                set [enemyy v] to [-6]\n            end\n        end\n        if <touching (bounce v)?> then\n            set [enemyy v] to [20]\n        end\n    end\nelse\n    show\n    clear graphic effects\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    delete this clone\nend\n\nwhen flag clicked\nset [amount v] to [1]\nset [speed v] to [1]\n\nwait (1) seconds\n\ngo to [back v] layer\ngo [forward v] (1) layers\n\nwhen flag clicked\nhide\n\n@Sprite1\n\nwhen flag clicked\nhide\nforever\n    set [tide v] to [0]\n    repeat (10)\n        change [tide v] by (1)\n    end\n    repeat (10)\n        change [tide v] by (-1)\n    end\n    go to [back v] layer\nend\n\ngo to [back v] layer\n\nwhen I receive [message1 v]\nforever\n    go to [back v] layer\n    if <touching (ladders v)?> then\n        go [backward v] (1) layers\n    end\n    go to [back v] layer\n    if <(backdrop [number v]) = [3]> then\n        show\n        go to [back v] layer\n    else\n        hide\n    end\n    set x to ((tide) * (0.5))\n    go to [back v] layer\n    set y to ((() - (tide)) * (0.5))\n    go to [back v] layer\n    set [ghost v] effect to ((tide) * (0.5))\n    go to [back v] layer\nend\n\n@Intro\n\ndefine Clone number (#)\nswitch costume to (#)\nshow\nif <(#) = [19]> then\n    show\n    switch costume to (costume13 v)\n    go to [front v] layer\n    set size to (50) %\n    clear graphic effects\n    go to x: (0) y: (0)\n    repeat until <(round (y position)) = [150]>\n        change y by (((150) - (y position)) / (4))\n    end\n    repeat until <(round (y position)) = [0]>\n        change y by (((0) - (y position)) / (2))\n    end\n    repeat until <<(round (size)) = [1800]> and <(round (direction)) = [90]>>\n        switch costume to (costume14 v)\n        change size by (((1800) - (size)) / (4))\n        switch costume to (costume13 v)\n    end\n    broadcast (Intro del clones v) and wait\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\nend\nif <(#) = [1]> then\n    set rotation style [all around v]\n    point in direction (60)\n    set size to (80) %\n    go to x: (352) y: (60)\n    Smooth glide [0] [20] [90] [85] speed [4]\n    set [@speed v] to [0]\n    repeat (22)\n        change [@speed v] by (-1)\n        change x by (@Speed)\n        change [ghost v] effect by ([abs v] of ((@Speed) / (2)) )\n    end\n    set [@speed v] to [12]\n    wait (1) seconds\n    clear graphic effects\n    set rotation style [left-right v]\n    set size to (85) %\n    point in direction (-90)\n    go to x: (-326) y: (20)\n    repeat (26)\n        change [@speed v] by (1)\n        change x by (@Speed)\n    end\n    delete this clone\nend\nif <(#) = [2]> then\n    set rotation style [all around v]\n    point in direction (60)\n    set size to (80) %\n    go to x: (352) y: (60)\n    Smooth glide [0] [20] [90] [85] speed [4]\n    set [@speed v] to [0]\n    switch costume to (pi2 v)\n    set [clone# v] to [5]\n    repeat (2)\n        change [clone# v] by (1)\n        create clone of (_myself_ v)\n    end\n    set [clone# v] to [14]\n    repeat (2)\n        change [clone# v] by (1)\n        create clone of (_myself_ v)\n    end\n    point in direction (90)\n    repeat (11)\n        change [@speed v] by (-1)\n        change y by (@Speed)\n        change size by (([abs v] of (@Speed) ) / (0.7))\n    end\nend\nif <(#) = [3]> then\n    set size to (100) %\n    point in direction (90)\n    go to x: (0) y: (0)\n    go to [front v] layer\nend\nif <(#) = [4]> then\n    point in direction (90)\n    set size to (100) %\n    go to x: (0) y: (0)\n    go to [back v] layer\nend\nif <(#) = [6]> then\n    go to x: (0) y: (20)\n    point in direction (-90)\n    set rotation style [all around v]\n    set size to (85) %\n    clear graphic effects\n    set [@speed v] to [0]\n    go to [front v] layer\n    forever\n        change [@speed v] by (1)\n        move ((@Speed) * (2)) steps\n        turn right (() - (@Speed)) degrees\n        change [ghost v] effect by ((@Speed) / (2))\n        change size by ((@Speed) / (3))\n    end\nend\nif <(#) = [7]> then\n    go to x: (0) y: (20)\n    point in direction (90)\n    set rotation style [all around v]\n    set size to (85) %\n    clear graphic effects\n    set [@speed v] to [0]\n    go to [front v] layer\n    forever\n        change [@speed v] by (1)\n        move ((@Speed) * (2)) steps\n        turn right (@Speed) degrees\n        change size by ((@Speed) / (3))\n        change [ghost v] effect by ((@Speed) / (2))\n    end\nend\nif <(#) = [8]> then\n    go to x: (-180) y: (20)\nend\nif <(#) = [9]> then\n    go to x: (-120) y: (20)\nend\nif <(#) = [10]> then\n    go to x: (-60) y: (20)\nend\nif <(#) = [11]> then\n    go to x: (0) y: (20)\nend\nif <(#) = [12]> then\n    go to x: (60) y: (20)\nend\nif <(#) = [13]> then\n    go to x: (120) y: (20)\nend\nif <(#) = [14]> then\n    go to x: (180) y: (20)\nend\nif <<(#) > [7]> and <[15] > (#)>> then\n    set size to (85) %\n    point in direction (90)\nend\nif <(#) = [15]> then\n    go to x: (-124) y: (0)\n    Smooth glide [0] [0] [90] [90] speed [4]\nend\nif <(#) = [16]> then\n    go to x: (124) y: (0)\n    Smooth glide [0] [0] [90] [90] speed [4]\nend\nif <<(#) > [7]> and <[17] > (#)>> then\n    set [@speed v] to [0]\n    forever\n        if <[15] > (#)> then\n            set y to ((([cos v] of ((@Speed) * (2)) ) * (10)) + (20))\n        else\n            set y to ((([cos v] of ((@Speed) * (2)) ) * (10)) + (0))\n        end\n        point in direction ((90) + (([cos v] of (@Speed) ) * (3)))\n        change [@speed v] by (11)\n    end\nend\nif <(#) = [17]> then\n    go to [back v] layer\n    go [forward v] (1) layers\n    point in direction (90)\n    go to x: (-240) y: (180)\n    set [ghost v] effect to (50)\n    set [@speed v] to [0]\n    forever\n        set rotation style [all around v]\n        set [@speed v] to [0]\n        repeat (25)\n            change [@speed v] by (0.25)\n            turn right (@Speed) degrees\n        end\n        set [@speed v] to [0]\n        repeat (25)\n            change [@speed v] by (0.25)\n            turn left (@Speed) degrees\n        end\n    end\nend\nif <(#) = [18]> then\n    go to [back v] layer\n    go [forward v] (1) layers\n    point in direction (90)\n    go to x: (240) y: (180)\n    set [ghost v] effect to (50)\n    forever\n        set rotation style [all around v]\n        set [@speed v] to [0]\n        repeat (25)\n            change [@speed v] by (0.25)\n            turn left (@Speed) degrees\n        end\n        set [@speed v] to [0]\n        repeat (25)\n            change [@speed v] by (0.25)\n            turn right (@Speed) degrees\n        end\n    end\nend\n\ndefine Create clones\nset [clone# v] to [0]\nrepeat (4)\n    change [clone# v] by (1)\n    create clone of (_myself_ v)\nend\nset [clone# v] to [17]\ncreate clone of (_myself_ v)\nset [clone# v] to [18]\ncreate clone of (_myself_ v)\n\nwhen flag clicked\nCreate clones\n\nwhen I start as a clone\nClone number (Clone#)\n\ndefine Smooth glide (x) (y) (dir) (size) speed ()\nrepeat until <<<(round (x position)) = (x)> and <(round (y position)) = (y)>> and <<(round (direction)) = (dir)> and <(round (size)) = (size)>>>\n    change x by (((x) - (x position)) / ())\n    change y by (((y) - (y position)) / ())\n    turn right (((dir) - (direction)) / (() / (0.5))) degrees\n    change size by (((size) - (size)) / ())\nend\n\nwait until <(x position) > [-150]>\nset [clone# v] to [8]\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(Clone#) = [1]> then\n    wait (1.782) seconds\n    wait until <(x position) > [-150]>\n    set [clone# v] to [8]\n    create clone of (_myself_ v)\n    wait until <(x position) > [-100]>\n    set [clone# v] to [9]\n    create clone of (_myself_ v)\n    wait until <(x position) > [-50]>\n    set [clone# v] to [10]\n    create clone of (_myself_ v)\n    wait until <(x position) > [0]>\n    set [clone# v] to [11]\n    create clone of (_myself_ v)\n    wait until <(x position) > [50]>\n    set [clone# v] to [12]\n    create clone of (_myself_ v)\n    wait until <(x position) > [100]>\n    set [clone# v] to [13]\n    create clone of (_myself_ v)\n    wait until <(x position) > [150]>\n    set [clone# v] to [14]\n    create clone of (_myself_ v)\nend\n\nwhen flag clicked\nwait (5) seconds\n\nwhen flag clicked\nstart sound [Intro Music v]\nset volume to (100) %\nwait (5) seconds\nset [clone# v] to [19]\ncreate clone of (_myself_ v)\nwait (.3) seconds\nrepeat (50)\n    change volume by (-2)\nend\nstop all sounds\nbroadcast (message1 v)\n\nwhen I receive [intro del clones v]\nif <not <(Clone#) = [19]>> then\n    delete this clone\nend\n\n@SKIP\n\nwhen flag clicked\npoint in direction (90)\nturn left (15) degrees\nforever\n    repeat (15)\n        turn left (-2) degrees\n    end\n    wait (0.1) seconds\n    repeat (15)\n        turn left (2) degrees\n    end\n    wait (0.1) seconds\nend\n\nwhen this sprite clicked\nif <not <([costume # v] of [ground v]) = [10]>> then\n    broadcast (Next level v)\nend\n\n