☆Arcana || A scrolling platformer

Instructions:                            ✦ M I D N I G H T ✦\n        Enjoy my first game! I'm sorry it's pretty short \n           though. But I hope you like it! You can advertise \n              ya'll need a way to get views right?\n                         From @-wrld !\n           Thanks for 2000 views :O #4 on trending!\n       - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -\n              Love and fave for more games like this!\n                 Maybe a scrolling platformer next!\n          ---------------------------------------------------\n                         Mobile friendly!!!

@Stage\n\nwhen I receive [start v]\nforever\n    play sound [Vexento-Devotion v] until done\nend\n\nwhen flag clicked\n\nwhen I receive [start physics v]\nset [level v] to [1]\nbroadcast (Delete all clones v) and wait\nbroadcast (Start v)\n\nwhen I receive [start v]\nset [particles mode v] to [1]\nbroadcast (Setup v) and wait\nbroadcast (Menu v) and wait\nbroadcast (Intro v) and wait\nbroadcast (Green Flag clicked v)\n\nwhen flag clicked\nforever\n    play sound [media v] until done\nend\n\n@Sprite1\n\nwhen I receive [green flag clicked v]\nset size to (50) %\nset rotation style [don't rotate v]\ngo to x: (0) y: (0)\nshow\nset [speed y v] to [0]\nset [falling? v] to [10]\nReset\n\ndefine Walk (direction) (speed)\npoint in direction (direction)\nchange x by (speed)\nset [slope v] to [0]\nrepeat until <<(slope) = [8]> or <not <touching (ground v)?>>>\n    change y by (1)\n    change [slope v] by (1)\nend\nif <(slope) = [8]> then\n    change x by ((0) - (speed))\n    change y by ((0) - (slope))\nend\n\ndefine Touch Ground <up?>\nchange [falling? v] by (1)\nrepeat until <not <touching (ground 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\ndefine Set costume\nif <(falling?) > [3]> then\n    if <(speed y) > [0]> then\n        switch costume to (up v)\n    else\n        switch costume to (down v)\n    end\nelse\n    if <(round (speed x)) = [0]> then\n        switch costume to ((([floor v] of (idle frame) ) mod (50)) + (5))\n        change [idle frame v] by (1)\n    else\n        set [idle frame v] to [0]\n        if <(speed x) > [0]> then\n            switch costume to (right v)\n        else\n            switch costume to (left v)\n        end\n    end\nend\nif <touching (bounce v)?> then\n    set [speed y v] to [20]\nend\n\ndefine Tick <<> <^> <>>\ncreate clone of (_myself_ v)\nif <touching (water v)?> then\n    change [speed y v] by (-1)\n    set [speed y v] to ((speed y) * (0.5))\n    if <^> then\n        change [speed y v] by (5)\n    end\nelse\n    change [speed y v] by (-1)\nend\nchange y by (speed y)\nTouch Ground <(speed y) > [0]>\nif <<> then\n    point in direction (-90)\n    change [speed x v] by (-3)\nend\nif <>> then\n    point in direction (90)\n    change [speed x v] by (3)\nend\nset [speed x v] to ((speed x) * (0.7))\nWalk (direction) (speed x)\nif <<^> and <(falling?) < [3]>> then\n    set [speed y v] to [12]\nend\nif <<<key (s v) pressed?> or <key (down arrow v) pressed?>> or <<mouse down?> and <<(distance to [mouse-pointer v]) > [20]> and <(mouse y) < (y position)>>>> then\n    change [speed y v] by (-1)\nend\nif <not <((SCROLL Y) + ((y position) / (4))) < [0]>> then\n    change [scroll y v] by (round ((y position) / (4)))\n    change y by (((0) - (y position)) / (4))\nend\nif <not <((SCROLL X) + ((x position) / (4))) < [0]>> then\n    change [scroll x v] by (round ((x position) / (4)))\n    change x by (((0) - (x position)) / (4))\nend\nSet costume\n\nwhen I start as a clone\nset [x v] to ((x position) + (SCROLL X))\nset [y v] to ((y position) + (SCROLL Y))\nswitch costume to (idle 7 v)\nrepeat (10)\n    go to x: ((x) + ((0) - (SCROLL X))) y: ((y) + ((0) - (SCROLL Y)))\n    change size by (-2)\n    change [ghost v] effect by (10)\nend\ndelete this clone\n\ndefine Reset\nbroadcast (Respawn Coins v)\ngo to [front v] layer\nclear graphic effects\nset [brightness v] effect to (-50)\nset size to (50) %\nshow\ngo to x: (0) y: (0)\nset rotation style [don't rotate v]\nset [falling? v] to [10]\nset [speed y v] to [0]\nset [speed x v] to [0]\nset [scroll x v] to [0]\nset [scroll y v] to [0]\n\nwhen I receive [delete all clones v]\ndelete this clone\n\nwhen [space v] key pressed\nif <(username) = [--Explosion--]> then\n    set [level v] to [4]\n    Reset\n    broadcast (Delete all clones v) and wait\n    broadcast (Start v) and wait\nend\n\nwhen I receive [start v]\nforever\n    broadcast (Tick v)\nend\n\nwhen flag clicked\nforever\n    if <touching (portal v)?> then\n        start sound [Connect v]\n        Reset\n        change [level v] by (1)\n        broadcast (Delete all clones v) and wait\n        broadcast (Setup v) and wait\n    end\n    wait until <not <touching (portal v)?>>\nend\n\nwhen I receive [start physics v]\nforever\n    if <touching (spikes v)?> then\n        change [☁ deaths v] by (1)\n        set [clone x v] to (x position)\n        set [clone y v] to (y position)\n        set [particles mode v] to [1]\n        broadcast (Clone v)\n        start sound [whoop v]\n        switch costume to (die v)\n        repeat (10)\n            change [ghost v] effect by (10)\n            change [brightness v] effect by (-10)\n        end\n        Reset\n    end\n    Tick <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <<(distance to [mouse-pointer v]) > [20]> and <(mouse x) < (x position)>>>> <<<key (up arrow v) pressed?> or <<key (space v) pressed?> or <key (w v) pressed?>>> or <<mouse down?> and <<(distance to [mouse-pointer v]) > [20]> and <(y position) < (mouse y)>>>> <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <<(distance to [mouse-pointer v]) > [20]> and <(x position) < (mouse x)>>>>\nend\n\nwhen I receive [load v]\ngo to [back v] layer\n\nwhen flag clicked\ngo to [back v] layer\n\n@Ground\n\nwhen I receive [setup v]\nrepeat (1)\n    delete this clone\nend\nset [i am a clone? v] to [0]\nswitch costume to (costume1 v)\nset [x v] to [0]\nset [y v] to [0]\nhide\nif <(LEVEL) = [1]> then\n    switch costume to (costume1 v)\n    Clone [0] [0]\n    Clone [450] [0]\n    Clone [450] [0]\n    Clone [-450] [300]\nend\nif <(LEVEL) = [2]> then\n    switch costume to (end level v)\n    Clone [0] [0]\n    Clone [500] [0]\n    Clone [450] [0]\n    Clone [400] [0]\nend\nif <(LEVEL) = [3]> then\n    switch costume to (costume8 v)\n    Clone [0] [0]\n    Clone [450] [0]\n    Clone [400] [100]\nend\nif <(LEVEL) = [4]> then\n    switch costume to (level 4 v)\n    Clone [0] [0]\nend\n\nwhen I receive [delete all clones v]\ndelete this clone\n\nwhen I receive [start v]\ngo to [front v] layer\n\nwhen I receive [tick v]\nGo to ((x) + ((0) - (SCROLL X))) ((y) + ((0) - (SCROLL Y)))\n\ndefine Clone (x) (y)\nchange [x v] by (x)\nchange [y v] by (y)\ncreate clone of (_myself_ v)\nnext costume\n\nwhen I start as a clone\nset [i am a clone? v] to [1]\nshow\n\ndefine Go to (x) (y)\ngo to x: (x) y: (y)\nif <<(x position) = (x)> and <(y position) = (y)>> then\n    show\nelse\n    hide\nend\nif <(I am a clone?) = [0]> then\n    hide\nend\n\nwhen I receive [load v]\ngo to [back v] layer\n\n@Water\n\nwhen I receive [setup v]\nrepeat (1)\n    delete this clone\nend\nset [i am a clone? v] to [0]\nswitch costume to (costume1 v)\nset [x v] to [0]\nset [y v] to [0]\nhide\nif <(LEVEL) = [1]> then\n    switch costume to (costume1 v)\n    Clone [0] [0]\n    Clone [450] [0]\n    Clone [450] [0]\n    Clone [-450] [300]\nend\nif <(LEVEL) = [2]> then\n    switch costume to (end level v)\n    Clone [0] [0]\nend\nif <(LEVEL) = [3]> then\n    switch costume to (end level2 v)\n    Clone [450] [0]\nend\nif <(LEVEL) = [4]> then\n    switch costume to (costume5 v)\n    Clone [450] [0]\nend\n\nwhen flag clicked\nforever\n    erase all\nend\n\nwhen I receive [delete all clones v]\ndelete this clone\n\nwhen I receive [tick v]\nset [ghost v] effect to (60)\ngo to [front v] layer\nGo to ((x) + ((0) - (SCROLL X))) ((y) + ((0) - (SCROLL Y)))\n\ndefine Clone (x) (y)\nchange [x v] by (x)\nchange [y v] by (y)\ncreate clone of (_myself_ v)\nnext costume\n\nwhen I start as a clone\nshow\nset [i am a clone? v] to [1]\n\ndefine Go to (x) (y)\ngo to x: (x) y: (y)\nif <(I am a clone?) = [0]> then\n    hide\nelse\n    if <<(x position) = (x)> and <(y position) = (y)>> then\n        show\n        set [ghost v] effect to (40)\n        set y to ((y) + (([sin v] of (((timer) + (1)) * (300)) ) * (8)))\n        stamp\n        set y to ((y) + (([sin v] of (((timer) + (2)) * (300)) ) * (8)))\n        stamp\n        set y to ((y) + (([sin v] of (((timer) + (3)) * (300)) ) * (8)))\n        stamp\n        set [ghost v] effect to (100)\n    else\n        hide\n    end\nend\n\n@BG Effects\n\nwhen I start as a clone\nshow\nset size to (pick random (100) to (300)) %\nset [ghost v] effect to (100)\ngo to (random position v)\nchange [clones v] by (1)\nset [x v] to ((x position) + (SCROLL X))\nset [y v] to ((y position) + (SCROLL Y))\nset [xv v] to (pick random (-5) to (5))\nset [yv v] to (pick random (-5) to (5))\nrepeat (((100) - (pick random (80) to (90))) / (5))\n    change [ghost v] effect by (-5)\n    go to x: ((x) + ((0) - (SCROLL X))) y: ((y) + ((0) - (SCROLL Y)))\nend\nrepeat until <touching (_edge_ v)?>\n    go to x: ((x) + ((0) - (SCROLL X))) y: ((y) + ((0) - (SCROLL Y)))\n    change [x v] by (Xv)\n    change [y v] by (Yv)\n    change [ghost v] effect by (1)\nend\nchange [clones v] by (-1)\ndelete this clone\n\ndefine Clone (#)\nrepeat (#)\n    create clone of (_myself_ v)\nend\n\nwhen I receive [delete all clones v]\ndelete this clone\n\nwhen I receive [start v]\nset [clones v] to [0]\nforever\n    Clone [1]\nend\n\n@Fade\n\ndefine Render\ngo to [back v] layer\nbroadcast (Delete v)\nset [me v] to [1]\ngo to (sprite1 v)\nshow\nclear graphic effects\nset [ghost v] effect to (80)\nSet size to [500] %\nSet size to [400] %\nSet size to [300] %\nSet size to [200] %\nhide\n\ndefine Set size to (#) %\nswitch costume to (costume2 v)\nset size to ((#) + (([sin v] of (((timer) + ((#) / (100))) * (400)) ) * (30))) %\nswitch costume to (costume1 v)\nstamp\nchange [me v] by (1)\nchange [ghost v] effect by (-10)\n\nwhen I receive [delete v]\ndelete this clone\n\nwhen I receive [delete all clones v]\ndelete this clone\n\nwhen I receive [start v]\nforever\n    Render\nend\n\n@Torches\n\nwhen I start as a clone\nset [i am a clone? v] to [1]\nshow\nswitch costume to (costume1 v)\nset [ghost v] effect to (pick random (40) to (60))\nset [color v] effect to (pick random (-10) to (10))\nset [turn v] to (pick random (-10) to (10))\nset [xv v] to (pick random (-5) to (5))\nset [yv v] to (pick random (3) to (8))\nrepeat (40)\n    if <touching (_edge_ v)?> then\n        delete this clone\n    end\n    turn right (Turn) degrees\n    Go to ((x) + ((0) - (SCROLL X))) ((y) + ((0) - (SCROLL Y)))\n    change [x v] by (Xv)\n    change [y v] by (Yv)\n    change [yv v] by (-1)\n    change [ghost v] effect by (2)\nend\ndelete this clone\n\nwhen flag clicked\nforever\n    Clone\nend\n\ndefine Clone\nerase all\nif <(LEVEL) = [1]> then\n    Clone [-148] [79]\n    Clone [600] [3]\n    Clone [846] [156]\n    Clone [641] [190]\n    Clone [460] [265]\nend\nif <(LEVEL) = [2]> then\n    Clone [-193] [53]\n    Clone [4] [41]\n    Clone [206] [-9]\n    Clone [614] [106]\n    Clone [455] [58]\nend\nif <(LEVEL) = [3]> then\n    Clone [817] [197]\n    Clone [687] [79]\n    Clone [-152] [97]\nend\nif <(LEVEL) = [4]> then\n    Clone [-174] [76]\nend\n\nwhen [b v] key pressed\nset [mouse v] to (join ((mouse x) + (SCROLL X)) (join [,] ((mouse y) + (SCROLL Y))))\nshow variable [mouse v]\nwait (3) seconds\nhide variable [mouse v]\n\ndefine Clone (x) (y)\nset [x v] to (x)\nset [y v] to (y)\nGo to ((x) + ((0) - (SCROLL X))) ((y) + ((0) - (SCROLL Y)))\nset size to (100) %\ncreate clone of (_myself_ v)\nswitch costume to (costume2 v)\nset [ghost v] effect to (80)\nStamp [200]\n\ndefine Stamp (size)\nhide\nshow\nif <not <touching (_edge_ v)?>> then\n    set [brightness v] effect to (20)\n    set size to ((size) + (([sin v] of (((timer) + ((size) / (100))) * (400)) ) * (10))) %\n    stamp\n    change [brightness v] effect by (-10)\n    set size to (((size) + (40)) + (([sin v] of (((timer) + (1)) * (400)) ) * (10))) %\n    stamp\n    change [brightness v] effect by (-10)\n    set size to (((size) + (80)) + (([sin v] of (((timer) + (2)) * (400)) ) * (10))) %\n    stamp\n    change [brightness v] effect by (-10)\n    set size to (((size) + (120)) + (([sin v] of (((timer) + (3)) * (400)) ) * (10))) %\n    stamp\nend\nhide\n\ndefine Go to (x) (y)\ngo to x: (x) y: (y)\nif <<(x position) = (x)> and <(y position) = (y)>> then\n    show\nelse\n    hide\nend\nif <(I am a clone?) = [0]> then\n    hide\nend\n\nwhen I receive [delete all clones v]\ndelete this clone\n\nwhen I receive [start v]\nset [i am a clone? v] to [0]\n\n@Decor\n\nwhen I receive [tick v]\nGo to ((x) + ((0) - (SCROLL X))) ((y) + ((0) - (SCROLL Y)))\n\ndefine Clone (x) (y)\nchange [x v] by (x)\nchange [y v] by (y)\ncreate clone of (_myself_ v)\nnext costume\n\nwhen I start as a clone\ngo to [front v] layer\nset [i am a clone? v] to [1]\nshow\n\ndefine Go to (x) (y)\ngo to x: (x) y: (y)\nif <<(x position) = (x)> and <(y position) = (y)>> then\n    show\nelse\n    hide\nend\nif <(I am a clone?) = [0]> then\n    hide\nend\n\nwhen I receive [setup v]\nrepeat (1)\n    delete this clone\nend\nset [i am a clone? v] to [0]\nswitch costume to (costume1 v)\nset [x v] to [0]\nset [y v] to [0]\nhide\nif <(LEVEL) = [1]> then\n    switch costume to (costume1 v)\n    Clone [0] [0]\n    Clone [450] [0]\n    Clone [450] [0]\n    Clone [-450] [300]\nend\nif <(LEVEL) = [2]> then\n    switch costume to (end level v)\n    Clone [0] [0]\n    Clone [500] [0]\n    Clone [450] [0]\n    Clone [400] [0]\nend\nif <(LEVEL) = [3]> then\n    switch costume to (costume8 v)\n    Clone [0] [0]\n    Clone [450] [0]\n    Clone [400] [100]\nend\nif <(LEVEL) = [4]> then\n    switch costume to (costume11 v)\n    Clone [0] [0]\nend\n\nwhen I receive [delete all clones v]\ndelete this clone\n\n@Spikes\n\nwhen I receive [tick v]\nGo to ((x) + ((0) - (SCROLL X))) ((y) + ((0) - (SCROLL Y)))\n\ndefine Clone (x) (y)\nchange [x v] by (x)\nchange [y v] by (y)\ncreate clone of (_myself_ v)\nnext costume\n\nwhen I start as a clone\ngo to [front v] layer\nset [i am a clone? v] to [1]\nshow\n\ndefine Go to (x) (y)\ngo to x: (x) y: (y)\nif <<(x position) = (x)> and <(y position) = (y)>> then\n    show\nelse\n    hide\nend\nif <(I am a clone?) = [0]> then\n    hide\nend\n\nwhen I receive [setup v]\nrepeat (1)\n    delete this clone\nend\nset [i am a clone? v] to [0]\nswitch costume to (costume1 v)\nset [x v] to [0]\nset [y v] to [0]\nhide\nif <(LEVEL) = [1]> then\n    switch costume to (costume1 v)\n    Clone [0] [0]\n    Clone [450] [0]\n    Clone [450] [0]\n    Clone [-450] [300]\nend\nif <(LEVEL) = [2]> then\n    switch costume to (end level v)\n    Clone [0] [0]\nend\nif <(LEVEL) = [3]> then\n    switch costume to (end level v)\n    Clone [0] [0]\nend\n\nwhen I receive [delete all clones v]\ndelete this clone\n\n@Coins\n\nwhen I start as a clone\nset [i am a clone? v] to [1]\n\ndefine Go to (x) (y)\nset [brightness v] effect to (-100)\nswitch costume to ((timer) * (20))\ngo to x: (x) y: (y)\nif <<(x position) = (x)> and <(y position) = (y)>> then\n    show\nelse\n    hide\nend\nif <(I am a clone?) = [0]> then\n    hide\nend\n\nwhen I receive [tick v]\nGo to ((x) + ((0) - (SCROLL X))) (round ((([sin v] of ((timer) * (300)) ) * (10)) + ((y) + ((0) - (SCROLL Y)))))\nif <touching (sprite1 v)?> then\n    start sound [Blop-Mark_DiAngelo-79054334 v]\n    set [clone x v] to (x position)\n    set [clone y v] to (y position)\n    broadcast (Clone v)\n    delete this clone\nend\n\ndefine Clone\nif <(LEVEL) = [1]> then\n    Clone [81] [-31]\n    Clone [488] [10]\n    Clone [761] [159]\n    Clone [584] [253]\n    Clone [399] [307]\nend\nif <(LEVEL) = [2]> then\n    Clone [-112] [-33]\n    Clone [-45] [86]\n    Clone [142] [26]\n    Clone [341] [48]\n    Clone [499] [112]\n    Clone [658] [171]\n    Clone [827] [41]\n    Clone [1026] [41]\n    Clone [1226] [41]\n    Clone [1432] [41]\nend\nif <(LEVEL) = [3]> then\n    Clone [-52] [-34]\n    Clone [102] [-20]\n    Clone [253] [-18]\n    Clone [528] [3]\n    Clone [690] [-20]\n    Clone [839] [25]\n    Clone [730] [140]\n    Clone [854] [247]\nend\nif <(LEVEL) = [4]> then\n    Clone [-63] [35]\n    Clone [38] [75]\n    Clone [17] [-69]\nend\n\ndefine Clone (x) (y)\nset [x v] to (x)\nset [y v] to (y)\ncreate clone of (_myself_ v)\n\nwhen I receive [setup v]\nrepeat (1)\n    delete this clone\nend\nClone\n\nwhen I receive [delete all clones v]\ndelete this clone\n\nwhen I receive [respawn coins v]\nrepeat (1)\n    delete this clone\nend\nClone\n\nwhen I receive [start v]\nset [i am a clone? v] to [0]\nforever\n    switch costume to ((timer) * (20))\n    set [brightness v] effect to (-100)\nend\n\n@Particles\n\nwhen I start as a clone\ngo to [back v] layer\nset [i am a clone? v] to [1]\nshow\nif <(Particles Mode) = [42]> then\n    switch costume to (costume2 v)\nelse\n    switch costume to (costume1 v)\nend\nset [ghost v] effect to (0)\nset [color v] effect to (pick random (-10) to (10))\nset size to (pick random (50) to (80)) %\nset [x v] to ((x position) + (SCROLL X))\nset [y v] to ((y position) + (SCROLL Y))\nset [turn v] to (pick random (-10) to (10))\nset [xv v] to (pick random (-5) to (5))\nset [yv v] to (pick random (0) to (10))\nrepeat until <touching (ground v)?>\n    if <touching (_edge_ v)?> then\n        delete this clone\n    end\n    turn right (Turn) degrees\n    go to x: ((x) + ((0) - (SCROLL X))) y: ((y) + ((0) - (SCROLL Y)))\n    change [x v] by (Xv)\n    change [y v] by (Yv)\n    change [yv v] by (-1)\n    change [ghost v] effect by (2)\nend\nrepeat (50)\n    change [ghost v] effect by (2)\n    if <touching (_edge_ v)?> then\n        delete this clone\n    end\n    go to x: ((x) + ((0) - (SCROLL X))) y: ((y) + ((0) - (SCROLL Y)))\nend\ndelete this clone\n\ndefine Clone (#)\nrepeat (#)\n    create clone of (_myself_ v)\nend\n\nwhen I receive [clone v]\nif <(I am a clone?) = [0]> then\n    go to x: (Clone X) y: (Clone Y)\n    Clone [15]\nend\n\nwhen I receive [delete all clones v]\ndelete this clone\n\nwhen I receive [start v]\nset [i am a clone? v] to [0]\n\n\n\n@Portal\n\nwhen I receive [tick v]\nGo to ((x) + ((0) - (SCROLL X))) (((y) + ((0) - (SCROLL Y))) + (([sin v] of ((timer) * (400)) ) * (10)))\nset [color v] effect to ((1) / (0))\nset [brightness v] effect to (50)\nset [ghost v] effect to (50)\nif <(I am a clone?) = [1]> then\n    turn right (5) degrees\nelse\n    turn right (-5) degrees\nend\nPosition portal (LEVEL)\n\ndefine Position portal (level)\nif <(level) = [1]> then\n    set [x v] to [255]\n    set [y v] to [332]\nend\nif <(level) = [2]> then\n    set [x v] to [1547]\n    set [y v] to [47]\nend\nif <(level) = [3]> then\n    set [x v] to [973]\n    set [y v] to [248]\nend\nif <(level) = [4]> then\n    set [x v] to [100000]\n    set [y v] to [100000]\nend\n\ndefine Go to (x) (y)\ngo to x: (x) y: (y)\nif <<(x position) = (x)> and <(y position) = (y)>> then\n    show\nelse\n    hide\nend\n\nwhen I start as a clone\nset [i am a clone? v] to [1]\n\nwhen I receive [start v]\nset [x v] to ((x position) + (SCROLL X))\nset [y v] to ((y position) + (SCROLL Y))\nset [i am a clone? v] to [0]\ncreate clone of (_myself_ v)\n\n@Thumbnail\n\nwhen flag clicked\nforever\n    go to [front v] layer\n    show\n    set [ghost v] effect to (100)\nend\n\n@Notices\n\nwhen flag clicked\ngo to x: (0) y: (-10000)\ngo to [front v] layer\nset [ghost v] effect to (100)\n\nwait (5) seconds\nswitch costume to (notice 2 v)\nif <not <(username) = [--Explosion--]>> then\n    repeat (2)\n        go to x: (0) y: (-10000)\n        go to [front v] layer\n        set [ghost v] effect to (100)\n        repeat (10)\n            change y by (((-139) - (y position)) / (4))\n            change [ghost v] effect by (-6)\n        end\n        repeat (10)\n            change y by (((-139) - (y position)) / (4))\n        end\n        wait (2) seconds\n        repeat (10)\n            change y by (((-190) - (y position)) / (4))\n            change [ghost v] effect by (6)\n        end\n        wait (pick random (10) to (20)) seconds\n        next costume\n    end\n    forever\n    end\nend\n\nwhen I receive [start physics v]\n\n@Start screen\n\nwhen flag clicked\nshow\nwait (0.5) seconds\ngo to [front v] layer\n\nwhen I receive [start physics v]\nhide\n\n@Title\n\nwhen flag clicked\nshow\nwait (0.6) seconds\ngo to [front v] layer\nforever\n    go to x: (0) y: (([sin v] of ((timer) * (300)) ) * (8))\nend\n\nwhen I receive [start physics v]\nhide\n\n@Play Button\n\nwhen flag clicked\n\nwhen flag clicked\nshow\nwait (0.6) seconds\ngo to [front v] layer\nforever\n    go to x: (0) y: ((([sin v] of ((timer) * (300)) ) * (8)) - (48))\n    if <touching (mouse-pointer v)?> then\n        set [ghost v] effect to (0)\n        change size by (((120) - (size)) / (4))\n    else\n        set [ghost v] effect to (20)\n        change size by (((100) - (size)) / (4))\n    end\nend\n\nwhen this sprite clicked\nbroadcast (Start Physics v)\nhide\n\n@Loading\n\n