Platformer ( My Adventure) Crystal Cave

Instructions: Use arrows key to move.\nRemember this game is possible.\nThe Plot: The main character name's Jacob. He has a twin brother name's Nick. But Nick Is a bad boy, he run away to find a way to be the king of the world. Now, He is Staying at the Crystal Village. Come there to rescue the villager. \nI have a youtube channel about Scratch: https://www.youtube.com/watch?v=HI-M7QCM2sk

@Stage\n\nwhen flag clicked\nswitch backdrop to (backdrop1 v)\n\nwhen I receive [next level v]\nnext backdrop\n\nwhen I receive [end v]\nswitch backdrop to (backdrop13 v)\nchange [color v] effect by (25)\n\nwhen I receive [music end' v]\nrepeat (10000000000000000000)\n    play sound [Nebula v] until done\nend\n\n@Player\n\ndefine Walk (direction) (speed)\npoint in direction (direction)\nchange x by (speed)\nset [steep v] to [0]\nrepeat until <<(Steep) = [8]> or <not <touching (platform v)?>>>\n    change y by (1)\n    change [steep v] by (1)\nend\nif <(Steep) = [8]> then\n    change x by ((-1) * (speed))\n    change y by (-8)\nend\n\ndefine Touch Ground <up?>\nrepeat until <not <touching (platform v)?>>\n    if <up?> then\n        change y by (-1)\n    else\n        change y by (1)\n        set [falling? v] to [0]\n    end\n    set [speed y v] to [0]\nend\n\nwhen I receive [music end' v]\nshow\nset rotation style [left-right v]\ngo to x: (-224) y: (136)\nforever\n    if <touching (bounce pad v)?> then\n        set [speed y v] to [20]\n    end\n    change [speed y v] by (-1)\n    change y by (Speed Y)\n    change [falling? v] by (1)\n    Touch Ground <(Speed Y) > [0]>\n    set [speed x v] to ((Speed X) * (0.85))\n    if <<<key (right arrow v) pressed?> or <<mouse down?> and <(mouse x) > (x position)>>> or <key (d v) pressed?>> then\n        change [speed x v] by (1)\n    end\n    if <<<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>> or <key (a v) pressed?>> then\n        change [speed x v] by (-1)\n    end\n    if <(Speed X) < [-0]> then\n        Walk [-90] (Speed X)\n    else\n        if <(Speed X) > [0]> then\n            Walk [90] (Speed X)\n        end\n    end\n    if <<<<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>> or <key (w v) pressed?>> and <(Falling?) < [6]>> then\n        set [speed y v] to [10]\n    end\n    if <(x position) > [230]> then\n        broadcast (Next Level v)\n        go to x: (-200) y: (50)\n        set [falling? v] to [6]\n    end\n    if <<touching color (#6f0000)?> or <touching color (#ff0000)?>> then\n        go to x: (-200) y: (50)\n        set [falling? v] to [6]\n    end\nend\n\nwhen flag clicked\nhide\n\n@Platform\n\nwhen I receive [next level v]\nnext costume\n\nwhen I receive [music end' v]\nshow\nswitch costume to (costume9 v)\nforever\n    set [my variable v] to (costume [number v])\nend\n\nwhen flag clicked\nhide\n\n@Spikes\n\nwhen I receive [next level v]\nnext costume\n\nwhen I receive [music end' v]\nshow\nswitch costume to (costume2 v)\ngo to x: (-12) y: (-76)\n\nwhen flag clicked\nhide\n\n@Bounce Pad\n\nwhen I receive [next level v]\nnext costume\n\nwhen I receive [music end' v]\nshow\nswitch costume to (costume3 v)\n\nwhen I receive [music end' v]\nclear graphic effects\nshow\n\nwhen flag clicked\nhide\n\n@Sprite1\n\nwhen I receive [next level v]\nnext costume\n\nwhen I receive [music end' v]\nshow\nswitch costume to (costume1 v)\n\nwhen flag clicked\nhide\n\n@Sprite3\n\nwhen flag clicked\nshow\nset [ghost v] effect to (100)\nforever\n    go to [front v] layer\nend\n\n@Sprite5\n\nwhen flag clicked\nhide\n\nwhen I receive [next level v]\nshow\nnext costume\n\nwhen flag clicked\nif <<touching (fireball v)?> and <(costume [number v]) = [11]>> then\n    hide\nend\n\nwhen I receive [music end' v]\nset size to (100) %\nshow\nswitch costume to (costume1 v)\ngo to x: (145) y: (-85)\n\n@Sprite7\n\nwhen flag clicked\nhide\n\nwhen I receive [next level v]\nnext costume\n\nwhen [space v] key pressed\nif <touching (fireball v)?> then\n    set size to (0) %\nend\n\nwhen I receive [music end' v]\nshow\nset size to (100) %\nswitch costume to (costume1 v)\n\n@Sprite8\n\nwhen flag clicked\nswitch costume to (costume1 v)\n\nwhen I receive [next level v]\nnext costume\n\nwhen this sprite clicked\nsay [Long time know see !] for (1) seconds\nwait (1) seconds\nnext costume\nsay [Meet me at the royal palace !] for (2) seconds\nwait (2) seconds\nhide\n\nwhen flag clicked\nclear graphic effects\nshow\n\nwhen I receive [next level v]\nshow\n\n@Sprite9\n\nwhen flag clicked\nswitch costume to (costume1 v)\n\nwhen I receive [next level v]\nnext costume\n\n@Sprite10\n\nwhen flag clicked\nswitch costume to (costume1 v)\n\nwhen I receive [next level v]\nnext costume\n\n@Sprite11\n\nwhen flag clicked\ngo to [front v] layer\nshow\nswitch costume to (costume1 v)\n\nwhen I receive [next level v]\nnext costume\n\nwhen this sprite clicked\nshow\nsay [Oh, my lovely brother. You have take all my crystal and give it to the stupid villager. I will Find another way to be the king of the world. Bye.] for (6.8) seconds\nwait (0.5) seconds\nhide\nset [ghost v] effect to (100)\nbroadcast (help v)\n\n@Sprite13\n\nwhen flag clicked\nhide\n\nwhen I receive [help v]\nwait (1) seconds\nshow\ngo to [front v] layer\n\n@Sprite2\n\n@Free Intro\n\nwhen I start as a clone\nif <(Clone ID) = [Screen]> then\n    go to [front v] layer\n    switch costume to (size hack v)\n    set size to (140) %\n    show\n    repeat (50)\n        go to [front v] layer\n        go [forward v] (1000) layers\n        switch costume to (size hack v)\n        change size by (((100) - (size)) / (5))\n        switch costume to (screen v)\n    end\n    wait (7) seconds\n    delete this clone\nend\n\nwhen flag clicked\nhide\ngo to x: (0) y: (0)\nset size to (100) %\npoint in direction (90)\nclear graphic effects\nset [color v] effect to (0)\nset [ghost v] effect to (0)\nset [brightness v] effect to (0)\n\nwhen I start as a clone\nif <(Clone ID) = [Name]> then\n    go to x: (-1000) y: (-1000)\n    point in direction (0)\n    go to [front v] layer\n    switch costume to (name v)\n    set size to (100) %\n    wait (1.33) seconds\n    show\n    Smooth Glide x [0] y [0] size [100] direction [90] speed [6]\nend\n\ndefine bounce finished size (size) bounciness (bounciness) elasticity (elasticity)\nset [size v] to [0]\nrepeat (40)\n    set [size v] to (((size) * (bounciness)) + (((size) - (size)) / (elasticity)))\n    change size by (size)\nend\n\ndefine Smooth Glide x: (x) y: (y) speed: (speed)\nrepeat until <<(round (x)) = (round (x position))> and <(round (y)) = (round (y position))>>\n    change x by (((x) - (x position)) / (speed))\n    change y by (((y) - (y position)) / (speed))\nend\ngo to x: (x) y: (y)\n\ndefine Smooth Size: (size) speed: (speed)\nrepeat until <(round (size)) = (round (size))>\n    change size by (((size) - (size)) / (speed))\nend\nset size to (size) %\n\ndefine Smooth Rotate to (d) degrees at speed (s)\nrepeat until <(round (direction)) = (round (d))>\n    turn right (((round (d)) - (round (direction))) / (s)) degrees\nend\npoint in direction (d)\n\ndefine Smooth Glide x (x) y (y) size (size) direction (direction) speed (speed)\nrepeat until <<(round (x)) = (round (x position))> and <<(round (y)) = (round (y position))> and <<(round (size)) = (round (size))> and <(round (direction)) = (round (direction))>>>>\n    change x by (((x) - (x position)) / (speed))\n    change y by (((y) - (y position)) / (speed))\n    change size by (((size) - (size)) / (speed))\n    turn right (((direction) - (direction)) / (speed)) degrees\nend\ngo to x: (x) y: (y)\nset size to (size) %\npoint in direction (direction)\n\nwhen I start as a clone\nif <(Clone ID) = [Arrow2]> then\n    repeat (20)\n        change [ghost v] effect by (5)\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Arrow1]> then\n    show\n    switch costume to (arrow v)\n    set size to (100) %\n    point in direction (90)\n    go to x: (0) y: (0)\n    Smooth Glide x: [200] y: [0] speed: [8]\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Arrow2]> then\n    show\n    switch costume to (arrow v)\n    set size to (100) %\n    point in direction (-90)\n    go to x: (0) y: (0)\n    Smooth Glide x: [-200] y: [0] speed: [8]\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Arrow1]> then\n    repeat (20)\n        change [ghost v] effect by (5)\n    end\nend\n\nwhen flag clicked\nCreate Clone [Background]\nwait (3.55) seconds\nCreate Clone [Screen]\n\nwhen I start as a clone\nif <(Clone ID) = [Background]> then\n    go to [back v] layer\n    go [backward v] (1000) layers\n    switch costume to (size hack v)\n    set size to (100) %\n    show\n    point in direction (90)\n    go to x: (0) y: (0)\n    switch costume to (background v)\n    set [brightness v] effect to (100)\n    set [ghost v] effect to (100)\n    repeat (10)\n        change [brightness v] effect by (-10)\n        change [ghost v] effect by (-10)\n    end\n    wait (10) seconds\n    delete this clone\nend\n\ndefine Create Clone (id)\nset [clone id v] to (id)\ncreate clone of (_myself_ v)\nwait (0) seconds\n\nwhen I start as a clone\nif <(Clone ID) = [White End]> then\n    switch costume to (size hack v)\n    set size to (150) %\n    switch costume to (end v)\n    show\n    set [brightness v] effect to (100)\n    go to x: (500) y: (500)\n    point in direction (135)\n    repeat (50)\n        change x by (((22) - (x position)) / (6))\n        change y by (((22) - (y position)) / (6))\n        go to [front v] layer\n        go [backward v] (1) layers\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Black End]> then\n    switch costume to (size hack v)\n    set size to (150) %\n    switch costume to (end v)\n    show\n    go to x: (500) y: (500)\n    point in direction (135)\n    repeat (50)\n        change x by (((20) - (x position)) / (10))\n        change y by (((20) - (y position)) / (10))\n        go to [front v] layer\n    end\n    repeat (20)\n        change x by (((20) - (x position)) / (10))\n        change y by (((20) - (y position)) / (10))\n        go to [front v] layer\n        change [ghost v] effect by (5)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Cheveron]> then\n    switch costume to (cheveron v)\n    set size to (5) %\n    go to [front v] layer\n    go [backward v] (1) layers\n    show\n    repeat (50)\n        go to [front v] layer\n        go [backward v] (2) layers\n        switch costume to (size hack v)\n        change size by (((360) - (size)) / (12))\n        switch costume to (cheveron v)\n    end\n    delete this clone\nend\n\nwhen flag clicked\nwait (3.55) seconds\nCreate Clone [Cheveron]\n\nwhen flag clicked\nwait (12) seconds\nCreate Clone [Black End]\nCreate Clone [White End]\n\nwhen flag clicked\nstart sound [Nurko & luma - tonight \[NIGHTCORE\] v]\n\nwhen I start as a clone\nif <(Clone ID) = [Pinwheel]> then\n    switch costume to (pinwheel v)\n    set size to (100) %\n    go to [front v] layer\n    go [backward v] (3) layers\n    set [ghost v] effect to (0)\n    set [brightness v] effect to (0)\n    show\n    repeat (238)\n        turn right (3) degrees\n    end\n    delete this clone\nend\n\nwhen flag clicked\nwait (2) seconds\nCreate Clone [Pinwheel]\n\nwhen flag clicked\nwait (3) seconds\nCreate Clone [Cheveron]\n\nwhen flag clicked\nwait (6.74) seconds\nCreate Clone [Arrow1]\nCreate Clone [Arrow2]\n\nwhen flag clicked\nwait (0) seconds\nCreate Clone [Name]\nplay sound [VexentoLonelyDance-Lonely-5418298 v] until done\n\ndefine Shake (size)\nset size to (size) %\ngo to x: (0) y: (0)\nrepeat (26)\n    go to [front v] layer\n    change size by (((100) - (size)) / (10))\n    go to x: (([sin v] of ((timer) * (1000)) ) * (((size) - (100)) * (0.1))) y: (([sin v] of ((timer) * (800)) ) * (((size) - (100)) * (0.1)))\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Name]> then\n    wait (3.48) seconds\n    Shake [200]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Name]> then\n    wait (5.09) seconds\n    Shake [200]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Name]> then\n    wait (6.7) seconds\n    Shake [200]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Name]> then\n    wait (8.28) seconds\n    Shake [200]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Name]> then\n    wait (9.86) seconds\n    Shake [200]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Name]> then\n    wait (11.41) seconds\n    repeat (34)\n        change [ghost v] effect by (4)\n        change size by (((30) - (size)) / (8))\n        go to x: (([sin v] of ((timer) * (1000)) ) * (((size) - (100)) * (0.1))) y: (([sin v] of ((timer) * (800)) ) * (((size) - (100)) * (0.1)))\n    end\n    delete this clone\nend\n\nwhen flag clicked\nwait (2) seconds\nCreate Clone [Cheveron]\n\ndefine Frame Tween Size: (s) speed: (spd)\nset [c v] to (costume [name v])\nswitch costume to (size hack v)\nchange size by (((round (s)) - (round (size))) / (spd))\nswitch costume to (c)\n\nwhen I start as a clone\nif <(Clone ID) = [Circles]> then\n    go to [front v] layer\n    go [backward v] (2) layers\n    show\n    switch costume to (circles v)\n    go to x: (0) y: (0)\n    set size to (1) %\n    point in direction (0)\n    set [ghost v] effect to (0)\n    repeat (38)\n        Frame Tween Size: [400] speed: [7]\n        Frame tween rotation: [90] speed: [13]\n        go to [front v] layer\n        go [backward v] (2) layers\n        change [ghost v] effect by ((100) / (38))\n        change [brightness v] effect by (3.3333)\n    end\n    delete this clone\nend\n\ndefine Frame tween rotation: (r) speed: (spd)\nturn right (((round (r)) - (round (direction))) / (spd)) degrees\n\nwhen flag clicked\nwait (2) seconds\nCreate Clone [Circles]\n\nwhen flag clicked\nwait (6) seconds\nCreate Clone [Circles]\n\nwhen flag clicked\nwait (15) seconds\nbroadcast (Music end' v)\nstop [this script v]\n\nwhen I start as a clone\nif <(Clone ID) = [Grid]> then\n    switch costume to (size hack v)\n    set size to (100) %\n    switch costume to (grid v)\n    go to [back v] layer\n    go [forward v] (1) layers\n    show\n    set [ghost v] effect to (100)\n    set [brightness v] effect to (100)\n    repeat (50)\n        change [brightness v] effect by (-2)\n        change [ghost v] effect by (-2)\n    end\n    wait (1.5) seconds\n    switch costume to (diamonds v)\n    wait (0.7) seconds\n    switch costume to (hexagon pattern v)\n    wait (1) seconds\n    switch costume to (triangle pattern v)\n    wait (1) seconds\n    switch costume to (checkerboard pattern v)\n    wait (1) seconds\n    repeat (20)\n        change [brightness v] effect by (5)\n        change [ghost v] effect by (5)\n    end\n    delete this clone\nend\n\nwhen flag clicked\nwait (0) seconds\nwait (.5) seconds\nCreate Clone [Grid]\n\nwhen I start as a clone\nif <(Clone ID) = [Grid]> then\n    wait (3) seconds\n    point in direction (105)\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Grid]> then\n    wait (2) seconds\n    point in direction (105)\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Grid]> then\n    wait (4) seconds\n    point in direction (105)\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Grid]> then\n    wait (8) seconds\n    point in direction (105)\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Grid]> then\n    wait (5) seconds\n    point in direction (105)\n    repeat (5)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\n    repeat (5)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Name]> then\n    wait (4.38) seconds\n    Shake [200]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Name]> then\n    wait (5.9) seconds\n    Shake [200]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Name]> then\n    wait (7.51) seconds\n    Shake [200]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Name]> then\n    wait (5) seconds\n    Shake [200]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Name]> then\n    wait (10.6) seconds\n    Shake [200]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Grid]> then\n    wait (2.5) seconds\n    point in direction (105)\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Grid]> then\n    wait (4) seconds\n    point in direction (105)\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Grid]> then\n    wait (5) seconds\n    point in direction (105)\n    repeat (8)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\n    repeat (8)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Grid]> then\n    wait (6) seconds\n    point in direction (105)\n    repeat (8)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\n    repeat (8)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Grid]> then\n    wait (8) seconds\n    point in direction (105)\n    repeat (8)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\n    repeat (8)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Lines]> then\n    show\n    go to [front v] layer\n    go [backward v] (2) layers\n    clear graphic effects\n    go to x: (0) y: (0)\n    set size to (1) %\n    switch costume to (1 v)\n    set [line size v] to [20]\n    repeat (15)\n        change size by (Line Size)\n        change [line size v] by (-1)\n        next costume\n    end\n    repeat (20)\n        change [ghost v] effect by (20)\n        change size by (Line Size)\n    end\nend\n\nwhen flag clicked\nwait (3) seconds\nCreate Clone [Lines]\n\nwhen flag clicked\nwait (4) seconds\nCreate Clone [Lines]\n\nwhen flag clicked\nwait (6) seconds\nCreate Clone [Lines]\n\nwhen flag clicked\nwait (2) seconds\nCreate Clone [Lines]\n\nwhen I start as a clone\nif <(Clone ID) = [Screen]> then\n    go to x: (0) y: (0)\n    set [whirl v] to [200]\n    set [whirl: v] to [0]\n    point in direction (70)\n    repeat (25)\n        set [whirl2 v] to (((whirl2) * (.2)) + (((Whirl:) - (Whirl)) / (5)))\n        change [whirl v] by (whirl2)\n        set [whirl v] effect to (Whirl)\n        set [bounce v] to (((Bounce) * (.2)) + (((90) - (direction)) / (5)))\n        turn right (Bounce) degrees\n    end\n    set [whirl v] to [200]\n    set [whirl: v] to [0]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Screen]> then\n    wait (1) seconds\n    go to x: (0) y: (0)\n    set [whirl v] to [200]\n    set [whirl: v] to [0]\n    point in direction (70)\n    repeat (25)\n        set [whirl2 v] to (((whirl2) * (.2)) + (((Whirl:) - (Whirl)) / (5)))\n        change [whirl v] by (whirl2)\n        set [whirl v] effect to (Whirl)\n        set [bounce v] to (((Bounce) * (.2)) + (((90) - (direction)) / (5)))\n        turn right (Bounce) degrees\n    end\n    set [whirl v] to [200]\n    set [whirl: v] to [0]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Screen]> then\n    wait (2) seconds\n    go to x: (0) y: (0)\n    set [whirl v] to [200]\n    set [whirl: v] to [0]\n    point in direction (70)\n    repeat (25)\n        set [whirl2 v] to (((whirl2) * (.2)) + (((Whirl:) - (Whirl)) / (5)))\n        change [whirl v] by (whirl2)\n        set [whirl v] effect to (Whirl)\n        set [bounce v] to (((Bounce) * (.2)) + (((90) - (direction)) / (5)))\n        turn right (Bounce) degrees\n    end\n    set [whirl v] to [200]\n    set [whirl: v] to [0]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Screen]> then\n    wait (1) seconds\n    go to x: (0) y: (0)\n    set [whirl v] to [200]\n    set [whirl: v] to [0]\n    point in direction (70)\n    repeat (25)\n        set [whirl2 v] to (((whirl2) * (.2)) + (((Whirl:) - (Whirl)) / (5)))\n        change [whirl v] by (whirl2)\n        set [whirl v] effect to (Whirl)\n        set [bounce v] to (((Bounce) * (.2)) + (((90) - (direction)) / (5)))\n        turn right (Bounce) degrees\n    end\n    set [whirl v] to [200]\n    set [whirl: v] to [0]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Screen]> then\n    wait (4) seconds\n    go to x: (0) y: (0)\n    set [whirl v] to [200]\n    set [whirl: v] to [0]\n    point in direction (70)\n    repeat (25)\n        set [whirl2 v] to (((whirl2) * (.2)) + (((Whirl:) - (Whirl)) / (5)))\n        change [whirl v] by (whirl2)\n        set [whirl v] effect to (Whirl)\n        set [bounce v] to (((Bounce) * (.2)) + (((90) - (direction)) / (5)))\n        turn right (Bounce) degrees\n    end\n    set [whirl v] to [200]\n    set [whirl: v] to [0]\nend\n\nwhen flag clicked\nswitch costume to (name v)\n\nwhen flag clicked\nwait (9.02) seconds\nCreate Clone [Arrow1]\nCreate Clone [Arrow2]\n\nwhen flag clicked\nforever\n    go to [front v] layer\nend\n\nwhen flag clicked\nplay sound [VexentoLonelyDance-Lonely-2 v] until done\n\n@Love and Fav!\n\nwhen flag clicked\nhide\nwait (1) seconds\nforever\n    set [ghost v] effect to (100)\n    show\n    switch costume to (nooooo v)\n    repeat (10)\n        change [ghost v] effect by (-10)\n    end\n    create clone of (_myself_ v)\n    go to [front v] layer\n    wait (2) seconds\n    switch costume to (love v)\n    wait (2) seconds\n    switch costume to (fav v)\n    wait (2) seconds\n    switch costume to (follow v)\n    wait (3) seconds\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    hide\n    wait (180) seconds\nend\n\nwhen I start as a clone\ngo to [front v] layer\nswitch costume to (cursor v)\ngo to x: (0) y: (140)\nglide (2) secs to x: (60) y: (140)\nstart sound [Click v]\nwait (1) seconds\nglide (1) secs to x: (105) y: (140)\nstart sound [Click v]\nwait (1) seconds\nglide (1) secs to x: (190) y: (140)\nstart sound [Click v]\nwait (1) seconds\nrepeat (10)\n    change [ghost v] effect by (10)\nend\ndelete this clone\n\n