Sunrise a Scrolling Platformer

Instructions: Arrow keys to move. collect all 7 coins and get to the flag to get to the next level. have fun :) oh and don't forget to touch the lava.  Mute by pressing mute button or press m button to mute.\nuse this link for un-laggy (https://turbowarp.org/454840885)\nmusic is shipwreck-ark\nThanks for 1K views!!!!\nfollow @CompletelyRandomCode\nand @DragonBoi2007\n╔═╦╗╔╦╗╔═╦═╦╦╦╦╗╔═╗\n║╚╣║║║╚╣╚╣╔╣╔╣║╚╣═╣ \n╠╗║╚╝║║╠╗║╚╣║║║║║═╣\n╚═╩══╩═╩═╩═╩╝╚╩═╩═╝ actually follow 

@Stage\n\nwhen [m v] key pressed\nset [mouse v] to (join ((mouse x) + (scroll x)) (join [ . ] ((mouse y) + (scroll y))))\n\nwhen flag clicked\nswitch backdrop to (backdrop2 v)\n\nwhen I receive [intro end animation v]\nswitch backdrop to (the forest planet v)\n\nwhen I receive [game over thats it v]\n\nswitch backdrop to (backdrop1 v)\nwait (5) seconds\nbroadcast (green flag v)\nswitch backdrop to (the forest planet v)\n\n@player\n\nwhen I receive [green flag v]\nhide\ngo to [front v] layer\n\nwhen I receive [play game v]\nforever\n    broadcast (reset v) and wait\n    broadcast (setup v) and wait\n    game on\n    repeat until <(EXIT) > []>\n        tick\n        broadcast (tick v) and wait\n    end\n    game-die\nend\n\ndefine game on\nshow\nset [x v] to [0]\nset [y v] to [0]\nset [sy v] to [0]\nset [in air v] to [0]\nset [exit v] to []\n\ndefine tick\nshow\nif <<key (a v) pressed?> or <key (left arrow v) pressed?>> then\n    point in direction (-90)\n    change player x by [-10]\nend\nif <<key (right arrow v) pressed?> or <key (d v) pressed?>> then\n    point in direction (90)\n    change player x by [10]\nend\nif <<key (up arrow v) pressed?> or <key (w v) pressed?>> then\n    if <<(username) = [CompletelyRandomCode]> or <(username) = [Dragonboi2007]>> then\n        if <(in air) < [9999999999999]> then\n            set [sy v] to [10]\n        end\n    else\n        if <(in air) < [5]> then\n            set [sy v] to [10]\n        end\n    end\nend\nchange [sy v] by (-2)\nchange player y by (sy)\nset [scroll x v] to (x)\nset [scroll y v] to (y)\nposition\ntest-die\nif <(y) < [-2000]> then\n    set [exit v] to [die]\n    change [health v] by (-1)\nend\n\ndefine change player y by (sy)\nchange [y v] by (sy)\nchange [in air v] by (1)\nposition\nrepeat until <not <touching (platforms v)?>>\n    if <(sy) > [0]> then\n        change [y v] by (-1)\n    else\n        change [y v] by (1)\n        set [in air v] to [0]\n    end\n    position\n    set [sy v] to [0]\nend\n\ndefine position\ngo to x: ((x) - (scroll x)) y: ((y) - (scroll y))\n\ndefine change player x by (sx)\nchange [x v] by (sx)\nposition\nif <touching (platforms v)?> then\n    repeat (8)\n        change [y v] by (1)\n        position\n        if <not <touching (platforms v)?>> then\n            stop [this script v]\n        end\n    end\n    change [y v] by (-8)\n    repeat until <not <touching (platforms v)?>>\n        if <(sx) > [0]> then\n            change [x v] by (-1)\n        else\n            change [x v] by (1)\n        end\n        position\n    end\nend\n\ndefine game-die\nset [exit v] to []\nrepeat (5)\n    hide\n    wait (0.1) seconds\n    show\n    wait (0.1) seconds\nend\nhide\nwait (0.5) seconds\n\ndefine test-die\nif <touching color (#a1281d)?> then\n    set [exit v] to [die]\n    change [health v] by (-1)\nend\nif <touching (moving enamy v)?> then\n    set [exit v] to [die]\n    change [health v] by (-1)\nend\n\nwhen I receive [game first start v]\ngo to [front v] layer\nshow\nbroadcast (play game v)\nbroadcast (green flag v)\nwait (.1) seconds\nset [coins v] to [0]\nplay sound [Ship Wreck - Ark v] until done\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nset [coins v] to [0]\n\nwhen flag clicked\nhide variable [coins v]\n\nwhen I receive [intro end animation v]\nshow variable [coins v]\n\nwhen I receive [game first start v]\nshow variable [timer v]\nrepeat until <(win) = [2]>\n    wait (1) seconds\n    change [timer v] by (1)\nend\n\nwhen flag clicked\nset [win v] to [0]\nset [timer v] to [0]\n\nwhen flag clicked\nhide variable [☁ high score v]\n\nwhen I receive [game over thats it v]\nhide\nhide variable [timer v]\n\nwhen I receive [you win v]\nhide\nhide variable [timer v]\n\nwhen flag clicked\nif <<(username) = [CompletelyRandomCode]> or <(username) = [Dragonboi2007]>> then\n    forever\n        if <key (2 v) pressed?> then\n            set [level v] to [2]\n            broadcast (setup v)\n            go to x: (0) y: (0)\n        end\n        if <key (h v) pressed?> then\n            set [health v] to [3]\n        end\n        if <key (c v) pressed?> then\n            change [coins v] by (1)\n        end\n        if <key (x v) pressed?> then\n            set [coins v] to [7]\n        end\n    end\nend\n\nwhen I receive [play v]\nplay sound [Ship Wreck - Ark v] until done\n\n@platforms\n\nwhen I receive [green flag v]\nhide\n\nwhen I receive [tick v]\nposition (((x) - (scroll x)) - ()) ((y) - (scroll y))\n\nwhen I receive [setup v]\ngo to [front v] layer\ngo [backward v] (1) layers\nhide\nset [timer v] to [0]\nset [win v] to [0]\nset [x v] to [0]\nset [y v] to [0]\nset [scroll x v] to [0]\nset [scroll y v] to [0]\n\ndefine position (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [setup v]\ndelete this clone\n\nwhen flag clicked\nhide\n\ndefine clone at x (x) y (y)\ncreate clone of (_myself_ v)\nchange [x v] by (x)\nchange [y v] by (y)\nnext costume\n\nwhen I receive [setup v]\nwait (.5) seconds\nif <(level) = [1]> then\n    switch costume to (level 1 v)\n    clone at x [500] y [0]\n    clone at x [500] y [0]\nend\n\nwhen I receive [setup v]\nif <(level) = [2]> then\n    switch costume to (level 4 v)\n    clone at x [680] y [0]\nend\n\nwhen I receive [you win v]\nhide\n\n@Sprite3\n\nwhen flag clicked\nhide\n\nwhen I receive [game first start v]\nhide\n\nwhen I receive [intro end animation v]\nshow\n\nwhen I receive [you win v]\nhide\n\n@Sprite2\n\nwhen this sprite clicked\nswitch costume to (costume2 v)\nwait (0.05) seconds\nswitch costume to (costume1 v)\nbroadcast (game first start v)\nhide\n\nwhen I receive [intro end animation v]\nshow\nswitch costume to (costume1 v)\nforever\n    switch costume to (costume1 v)\n    if <touching (mouse-pointer v)?> then\n        switch costume to (costume2 v)\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [you win v]\nhide\n\n@Thumbnail\n\nwhen flag clicked\nshow\ngo to [front v] layer\nhide\n\n@coin\n\nwhen I receive [green flag v]\nset [coins v] to [0]\nhide\nwait (.1) seconds\n\nwhen I receive [tick v]\nposition ((x) - (scroll x)) ((y) - (scroll y))\nif <touching (player v)?> then\n    change [coins v] by (1)\n    hide\n    delete this clone\nend\n\nwhen I receive [setup v]\ngo to x: (-177) y: (79)\nhide\nset [x v] to [0]\nset [y v] to [0]\nset [scroll x v] to [0]\nset [scroll y v] to [0]\nif <(level) = [1]> then\n    switch costume to (costume1 v)\n    clone at x [88] y [-22]\n    clone at x [1018] y [52]\n    clone at x [186] y [38]\n    clone at x [562] y [-88]\n    clone at x [700] y [170]\n    clone at x [-276] y [215]\n    clone at x [671] y [278]\nend\n\ndefine position (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [reset v]\ndelete this clone\n\nwhen flag clicked\nhide\nforever\n    hide variable [coins v]\nend\n\ndefine clone at x (x) y (y)\nset [x v] to (x)\nset [y v] to (y)\ncreate clone of (_myself_ v)\nset [x v] to [-9999999999]\n\nwhen I receive [setup v]\nif <(level) = [2]> then\n    switch costume to (costume1 v)\n    clone at x [87] y [13]\n    clone at x [-174] y [-88]\n    clone at x [347] y [-60]\n    clone at x [710] y [-171]\n    clone at x [493] y [177]\n    clone at x [-297] y [252]\n    clone at x [523] y [-156]\nend\n\nwhen flag clicked\ngo to [front v] layer\n\nwhen I receive [you win v]\nhide\n\n@coin2\n\nwhen I receive [green flag v]\nhide\n\nwhen I receive [tick v]\nposition ((x) - (scroll x)) ((y) - (scroll y))\n\nwhen I receive [setup v]\ngo to x: (-177) y: (79)\nset [coins v] to [0]\nset [x v] to [0]\nset [y v] to [0]\nset [scroll x v] to [0]\nset [scroll y v] to [0]\nif <(level) = [1]> then\n    switch costume to (nope  v)\n    clone at x [1087] y [275]\nend\nif <(level) = [2]> then\n    switch costume to (nope  v)\n    clone at x [412] y [-166]\nend\n\ndefine position (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [reset v]\ndelete this clone\n\nwhen flag clicked\nhide\nset [level v] to [1]\n\ndefine clone at x (x) y (y)\nset [x v] to (x)\nset [y v] to (y)\ncreate clone of (_myself_ v)\nset [x v] to [-9999999999]\n\nbroadcast (green flag v)\n\nwhen flag clicked\nhide variable [timer v]\n\nwhen I receive [intro end animation v]\nshow variable [timer v]\n\nwhen I receive [you win v]\nhide\n\nwhen I start as a clone\nforever\n    if <(Coins) = [7]> then\n        switch costume to (coin v)\n        if <<<(Coins) = [7]> and <touching (player v)?>> and <(level) = [1]>> then\n            switch costume to (coin v)\n            wait (0.5) seconds\n            broadcast (play game v)\n            broadcast (setup v)\n            change [win v] by (1)\n            change [level v] by (1)\n        end\n    end\nend\n\nwhen I start as a clone\nforever\n    if <<<(Coins) = [7]> and <touching (player v)?>> and <(level) = [2]>> then\n        switch costume to (coin v)\n        wait (1) seconds\n        broadcast (you win v)\n        stop all sounds\n    end\nend\n\nwhen I receive [skip v]\ngo to (player v)\nshow\n\nwhen flag clicked\nset [level v] to [1]\n\n@Sprite5\n\nwhen this sprite clicked\nclear graphic effects\nstop all sounds\nswitch costume to (costume2 v)\nwait (0.05) seconds\nswitch costume to (costume1 v)\nbroadcast (Intro End Animation v)\nhide\n\nwhen flag clicked\nshow\nswitch costume to (costume1 v)\nforever\n    switch costume to (costume1 v)\n    if <touching (mouse-pointer v)?> then\n        switch costume to (costume2 v)\n    end\nend\n\nwhen I receive [intro end animation v]\nhide\n\nwhen flag clicked\ngo to x: (170) y: (150)\nforever\n    go to [front v] layer\nend\n\nwhen I receive [you win v]\nhide\n\n@Sprite4\n\nwhen I receive [intro end animation v]\ngo [backward v] (10) layers\nshow\n\nwhen flag clicked\ngo to [back v] layer\nhide\n\nwhen I receive [game over thats it v]\nhide\n\nwhen I receive [you win v]\nhide\n\n@Hearts with costumes\n\nwhen flag clicked\ngo to [front v] layer\nset [health v] to [3]\nset size to (20) %\ngo to x: (-145) y: (175)\nswitch costume to (three hearts v)\nset [pixelate v] effect to (10)\nhide\nforever\n    if <(health) = [1]> then\n        switch costume to (one heart v)\n    end\n    if <(health) = [2]> then\n        switch costume to (two hearts v)\n    end\n    if <(health) = [3]> then\n        switch costume to (three hearts v)\n    end\n    if <(health) = [0]> then\n        switch costume to (zero hearts v)\n        broadcast (game over thats it v)\n    end\nend\n\nwhen I receive [setup v]\nshow\nswitch costume to (three hearts v)\n\nwhen I receive [game first start v]\nshow\n\nwhen I receive [green flag v]\nshow\n\nwhen flag clicked\ngo to [front v] layer\n\nforever\n    if <(health) = [1]> then\n        switch costume to (one heart v)\n    end\n    if <(health) = [2]> then\n        switch costume to (two hearts v)\n    end\n    if <(health) = [3]> then\n        switch costume to (three hearts v)\n    end\n    if <(health) = [0]> then\n        switch costume to (zero hearts v)\n        broadcast (game over thats it v)\n    end\nend\n\nwhen I receive [you win v]\nhide\n\n@danger\n\nwhen I receive [green flag v]\nhide\n\nwhen I receive [tick v]\nposition ((x) - (scroll x)) ((y) - (scroll y))\n\nwhen I receive [setup v]\ngo to [front v] layer\ngo [backward v] (1) layers\nhide\nset [timer v] to [0]\nset [win v] to [0]\nset [x v] to [0]\nset [y v] to [0]\nset [scroll x v] to [0]\nset [scroll y v] to [0]\n\ndefine position (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [setup v]\ndelete this clone\n\nwhen flag clicked\nhide\n\ndefine clone at x (x) y (y)\ncreate clone of (_myself_ v)\nchange [x v] by (x)\nchange [y v] by (y)\nnext costume\n\nwhen [t v] key pressed\nplay sound [bensound-summer2 v] until done\n\nwhen I receive [setup v]\nif <(level) = [1]> then\n    switch costume to (level 1 v)\n    clone at x [500] y [0]\n    clone at x [500] y [0]\nend\n\nwhen I receive [setup v]\nif <(level) = [2]> then\n    switch costume to (costume1 v)\n    clone at x [680] y [0]\nend\n\nwhen I receive [you win v]\nhide\n\n@Intro\n\nwhen I start as a clone\nif <(Clone ID) = [Box]> then\n    switch costume to (box v)\n    point in direction (180)\n    set [ghost v] effect to (50)\n    set [brightness v] effect to (100)\n    set size to (15) %\n    show\n    go to x: ((Var 1) * (40)) y: (-190)\n    go to [front v] layer\n    repeat until <(y position) > (((Var 2) * (40)) - (1))>\n        change y by (((((Var 2) * (40)) + (2)) - (y position)) / (5))\n    end\n    set y to ((Var 2) * (40))\n    repeat until <(size) > [89]>\n        change size by (((91) - (size)) / (5))\n        turn right (((180) - (direction)) / (5)) degrees\n        change [ghost v] effect by (-5)\n    end\n    set size to (90) %\n    set [ghost v] effect to (0)\n    point in direction (180)\n    wait (1) seconds\n    repeat (30)\n        turn right (7) degrees\n        change [ghost v] effect by (4)\n        change size by (-4)\n    end\n    hide\n    delete this clone\nend\n\nwhen flag clicked\nstart sound [Trap - AShamaluevMusic v]\nset [username v] to [DRAGONBOI2007]\nset [clone id v] to [Back]\ncreate clone of (_myself_ v)\nSetup Lists\nset [sizelimit v] to [400]\nset [clone id v] to [Letter]\nType (Username) [0] [0] [0] [0] [100] [0]\nset [sizelimit v] to [150]\nset [clone id v] to [Letter 1]\nType (Username) [0] [-100] [0] [0] [100] [0]\nreset timer\nhide\npoint in direction (90)\nclear graphic effects\nset [clone id v] to [Arrow]\nrepeat (5)\n    set [brightness v] effect to (10)\n    create clone of (_myself_ v)\n    wait (0.1) seconds\n    set [brightness v] effect to (0)\n    create clone of (_myself_ v)\n    wait (0.1) seconds\nend\nset [clone id v] to [Logo]\ncreate clone of (_myself_ v)\nset [clone id v] to [Hider 1]\ncreate clone of (_myself_ v)\nset [clone id v] to [Hider 2]\ncreate clone of (_myself_ v)\nset [clone id v] to [Ghost]\ncreate clone of (_myself_ v)\nwait until <(timer) > [9]>\nset [var 1 v] to [-6]\nhide\nset size to (90) %\nswitch costume to (box v)\ngo to x: (-220) y: (160)\nset [clone id v] to [Box]\nrepeat (13)\n    set [var 2 v] to [4]\n    Clone Row of Boxes\n    change [var 1 v] by (1)\nend\nwait until <(timer) > [10.7]>\nbroadcast (Intro End Animation v)\n\nwhen I start as a clone\nif <(Clone ID) = [Arrow]> then\n    set [ghost v] effect to (0)\n    set size to (185) %\n    switch costume to (arrow v)\n    show\n    go to x: (0) y: (-70000000)\n    Smooth Glide x: [0] y: [-250] speed: [9] [0]\n    wait until <(timer) > [3.5]>\n    delete this clone\nend\nif <(Clone ID) = [Letter]> then\n    wait until <(timer) > [2]>\n    if <((Length) / (3)) > (#)> then\n        wait (0.25) seconds\n    else\n        if <(((Length) / (3)) + ((Length) / (3))) > (#)> then\n            wait (0.6) seconds\n        else\n            if <((Length) + (1)) > (#)> then\n                wait (1) seconds\n            end\n        end\n    end\n    go to [front v] layer\n    show\n    set size to (Size) %\n    set [ghost v] effect to (0)\n    go to x: (x position) y: (300)\n    Smooth Glide x: (x position) y: [0] speed: [3] []\n    wait until <(timer) > [3.5]>\n    delete this clone\nend\nif <(Clone ID) = [Logo]> then\n    wait until <(timer) > [3.5]>\n    Clone Particles\n    show\n    switch costume to (logo v)\n    go to x: (0) y: (0)\n    set size to (0) %\n    Bounce with (75) , (10) and (100)\n    wait until <(timer) > [5.7]>\n    Clone Particles\n    point in direction (90)\n    set [var 1 v] to [5]\n    turn right (2) degrees\n    repeat until <(round (direction)) = [90]>\n        go to [front v] layer\n        point in direction ((([tan v] of (Var 1) ) * (10)) + (90))\n        change [var 1 v] by (4)\n    end\n    point in direction (90)\n    Clone Particles\n    set [var 1 v] to [10]\n    repeat (33)\n        change y by ((0) - (Var 1))\n        change size by (((Var 1) - (10)) / (5))\n        change [var 1 v] by (-1)\n    end\n    delete this clone\nend\nif <(Clone ID) = [Letter 1]> then\n    wait until <(timer) > [6]>\n    wait ((#) / (Length)) seconds\n    go to [front v] layer\n    set size to (Size) %\n    show\n    set [var 1 v] to (x position)\n    go to x: (300) y: (-130)\n    Smooth Glide x: (Var 1) y: [-130] speed: [5] [0]\n    wait (0.5) seconds\n    Smooth Glide x: [-230] y: [-130] speed: [5] [5]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Back]> then\n    switch costume to (back v)\n    set size to (2000) %\n    show\n    go to [back v] layer\n    go to x: (0) y: (0)\n    wait until <(timer) > [3]>\n    switch costume to (back 2 v)\n    repeat until <(timer) > [10.3]>\n        repeat (16)\n            change y by (4)\n            change x by (-4)\n        end\n        go to x: (0) y: (0)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Ghost]> then\n    wait until <(timer) > [3]>\n    switch costume to (ghost v)\n    set size to (2000) %\n    show\n    go to [back v] layer\n    go [forward v] (1) layers\n    go to x: (0) y: (0)\n    set [ghost v] effect to (50)\n    wait until <(timer) > [10.3]>\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Particle]> then\n    switch costume to (particle v)\n    clear graphic effects\n    set size to (100) %\n    go to x: (0) y: (0)\n    set [color v] effect to (pick random (110) to (130))\n    go to [back v] layer\n    go [forward v] (2) layers\n    set [var 1 v] to (pick random (10) to (15))\n    set [var 2 v] to (pick random (2) to (7))\n    turn right (pick random (-10) to (10)) degrees\n    show\n    repeat until <touching (_edge_ v)?>\n        move (Var 1) steps\n        change y by (Var 2)\n        change [var 2 v] by (-0.4)\n        set [var 1 v] to ((Var 1) * (0.95))\n    end\n    repeat (10)\n        move (Var 1) steps\n        change y by (Var 2)\n        change [var 2 v] by (-0.4)\n        set [var 1 v] to ((Var 1) * (0.95))\n        change [ghost v] effect by (10)\n    end\n    hide\n    delete this clone\nend\n\ndefine Clone Particles\nset [clone id v] to [Particle]\nrepeat (75)\n    create clone of (_myself_ v)\n    turn right (15) degrees\nend\npoint in direction (90)\n\ndefine Clone Row of Boxes\nset [brightness v] effect to (10)\nrepeat (9)\n    create clone of (_myself_ v)\n    change [var 2 v] by (-1)\n    change [brightness v] effect by (-2)\nend\n\ndefine Bounce with (bounciness) , (speed) and (finishing size)\nset [var 1 v] to [0]\nrepeat until <<(finishing size) = (size)> and <(Var 1) = (size)>>\n    set [var 2 v] to (((Var 2) * ((bounciness) / (100))) + (((finishing size) - (size)) * ((speed) / (20))))\n    set [var 1 v] to (size)\n    change size by (Var 2)\nend\nset size to (finishing size) %\n\ndefine Smooth Glide x: (x) y: (y) speed: (speed) (ghost)\nrepeat until <<(round (x position)) = (round (x))> and <(round (y position)) = (round (y))>>\n    change x by (((round (x)) - (round (x position))) / (speed))\n    change y by (((round (y)) - (round (y position))) / (speed))\n    change [ghost v] effect by (ghost)\nend\ngo to x: (x) y: (y)\n\ndefine Type: System (text) (x) (y) (size) (color) (brightness) (speed)\nswitch costume to (master v)\nhide\ngo to x: (x) y: (y)\nset size to (size) %\nset [# v] to [1]\nset [color v] effect to (color)\nset [brightness v] effect to (brightness)\nset [length v] to (length of (text))\nrepeat (length of (text))\n    reset timer\n    if <(letter (#) of (text)) > [ ]> then\n        switch costume to (letter (#) of (text))\n        create clone of (_myself_ v)\n        change x by ((size) * ((item (costume [number v]) of [character widths v]) / (90)))\n        change [# v] by (1)\n    else\n        switch costume to ( v)\n        create clone of (_myself_ v)\n        change x by ((size) * ((item (costume [number v]) of [character widths v]) / (90)))\n        change [# v] by (1)\n    end\n    wait (speed) seconds\nend\n\ndefine Setup Lists\ndelete all of [character widths v]\nadd [thing] to [character widths v]\nadd [29] to [character widths v]\nadd [24] to [character widths v]\nadd [28] to [character widths v]\nadd [27] to [character widths v]\nadd [24] to [character widths v]\nadd [24] to [character widths v]\nadd [28] to [character widths v]\nadd [28] to [character widths v]\nadd [7] to [character widths v]\nadd [21] to [character widths v]\nadd [22] to [character widths v]\nadd [22] to [character widths v]\nadd [34] to [character widths v]\nadd [27] to [character widths v]\nadd [34] to [character widths v]\nadd [22] to [character widths v]\nadd [34] to [character widths v]\nadd [21] to [character widths v]\nadd [23] to [character widths v]\nadd [27] to [character widths v]\nadd [27] to [character widths v]\nadd [29] to [character widths v]\nadd [38] to [character widths v]\nadd [26] to [character widths v]\nadd [27] to [character widths v]\nadd [27] to [character widths v]\nadd [11] to [character widths v]\nadd [20] to [character widths v]\nadd [21] to [character widths v]\nadd [25] to [character widths v]\nadd [21] to [character widths v]\nadd [20] to [character widths v]\nadd [21] to [character widths v]\nadd [20] to [character widths v]\nadd [20] to [character widths v]\nadd [20] to [character widths v]\nadd [14] to [character widths v]\nadd [25] to [character widths v]\nadd [15] to [character widths v]\nadd [10] to [character widths v]\nadd [24] to [character widths v]\nadd [24] to [character widths v]\nadd [20] to [character widths v]\nadd [24] to [character widths v]\nadd [22] to [character widths v]\nadd [16] to [character widths v]\nadd [24] to [character widths v]\nadd [22] to [character widths v]\nadd [10] to [character widths v]\nadd [14] to [character widths v]\nadd [18] to [character widths v]\nadd [9] to [character widths v]\nadd [33] to [character widths v]\nadd [22] to [character widths v]\nadd [24] to [character widths v]\nadd [24] to [character widths v]\nadd [24] to [character widths v]\nadd [15] to [character widths v]\nadd [19] to [character widths v]\nadd [16] to [character widths v]\nadd [22] to [character widths v]\nadd [22] to [character widths v]\nadd [30] to [character widths v]\nadd [20] to [character widths v]\nadd [23] to [character widths v]\nadd [20] to [character widths v]\n\ndefine Change Size By: (size)\nchange size by (size)\nchange x by ((size) / (7))\n\ndefine Find Size (text) (size)\nset [size v] to (size)\nset [width v] to [1]\nset [# v] to [1]\nrepeat (length of (text))\n    if <(letter (#) of (text)) > [ ]> then\n        switch costume to (letter (#) of (text))\n        change [width v] by ((Size) * ((item (costume [number v]) of [character widths v]) / (90)))\n        change [# v] by (1)\n    else\n        switch costume to ( v)\n        change [width v] by ((Size) * ((item (costume [number v]) of [character widths v]) / (90)))\n        change [# v] by (1)\n    end\nend\nif <(Width) > [400]> then\n    change [size v] by (-1)\nend\nif <(Width) < [390]> then\n    change [size v] by (1)\nend\nrepeat until <<<(Width) < [400]> and <(Width) > [389]>> or <(Size) > (SizeLimit)>>\n    reset timer\n    set [width v] to [0]\n    set [# v] to [1]\n    repeat (length of (text))\n        if <(letter (#) of (text)) > [ ]> then\n            switch costume to (letter (#) of (text))\n            change [width v] by ((Size) * ((item (costume [number v]) of [character widths v]) / (90)))\n            change [# v] by (1)\n        else\n            switch costume to ( v)\n            change [width v] by ((Size) * ((item (costume [number v]) of [character widths v]) / (90)))\n            change [# v] by (1)\n        end\n    end\n    if <(Width) > [400]> then\n        change [size v] by (-1)\n    end\n    if <(Width) < [390]> then\n        change [size v] by (1)\n    end\n    if <(Size) > ((SizeLimit) + (1))> then\n        set [size v] to ((SizeLimit) - (10))\n    end\nend\nset [x v] to ((0) - ((Width) / (2)))\n\ndefine Type (text) (x) (y) (size) (color) (brightness) (speed)\nFind Size (text) (size)\nType: System (text) (X) (y) (Size) (color) (brightness) (speed)\n\nwhen I receive [intro end animation v]\nhide\nstop [other scripts in sprite v]\n\nwhen I receive [intro end animation v]\nhide\ndelete this clone\n\nwhen I receive [mute v]\nstop all sounds\n\n@moving enamy\n\nwhen I receive [green flag v]\nhide\n\nwhen I receive [tick v]\nposition (((x) - (scroll x)) + (monster movment)) ((y) - (scroll y))\n\nwhen I receive [setup v]\nhide\nset [monster movment v] to [0]\nset [timer v] to [0]\nset [win v] to [0]\nset [x v] to [0]\nset [y v] to [0]\nset [scroll x v] to [0]\nset [scroll y v] to [0]\n\ndefine position (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [setup v]\ndelete this clone\n\nwhen flag clicked\nhide\n\ndefine clone at x (x) y (y)\nchange [x v] by (x)\nchange [y v] by (y)\nnext costume\ncreate clone of (_myself_ v)\nset [x v] to [-999999]\n\nwhen [t v] key pressed\nplay sound [bensound-summer2 v] until done\n\nwhen I receive [setup v]\nif <(level) = [1]> then\n    switch costume to (level 5 v)\n    clone at x [300] y [-50]\nend\n\nwhen I receive [setup v]\nif <(level) = [2]> then\n    switch costume to (level 5 v)\n    clone at x [0] y [250]\n    switch costume to (level 5 v)\nend\n\nwhen flag clicked\nforever\n    wait (.5) seconds\n    repeat (20)\n        change [monster movment v] by (-8)\n    end\n    wait (.5) seconds\n    repeat (20)\n        change [monster movment v] by (8)\n    end\nend\n\nwhen I receive [you win v]\nhide\n\n@coin rep\n\nwhen flag clicked\nset size to (30) %\nhide\nset [coins v] to [0]\ngo to x: (-215) y: (157)\nforever\n    if <(Coins) = [0]> then\n        switch costume to (on coins v)\n    end\n    if <(Coins) = [1]> then\n        switch costume to (costume1 v)\n    end\n    if <(Coins) = [2]> then\n        switch costume to (costume2 v)\n    end\n    if <(Coins) = [3]> then\n        switch costume to (costume3 v)\n    end\n    if <(Coins) = [4]> then\n        switch costume to (costume4 v)\n    end\n    if <(Coins) = [5]> then\n        switch costume to (costume5 v)\n    end\n    if <(Coins) = [6]> then\n        switch costume to (costume6 v)\n    end\n    if <(Coins) = [7]> then\n        switch costume to (costume7 v)\n        repeat (10)\n            change size by (1)\n        end\n        repeat (10)\n            change size by (-1)\n        end\n    end\nend\n\nwhen I receive [game first start v]\nshow\n\nwhen I receive [play game v]\nshow\n\nwhen I receive [game over thats it v]\nhide\n\nshow\n\nwhen I receive [you win v]\n\n@you win\n\nwhen flag clicked\nhide\n\nwhen I receive [game first start v]\nhide\n\nwhen I receive [play game v]\nhide\n\nwhen I receive [you win v]\nif <(level) = [2]> then\n    show\n    go to [front v] layer\n    if <(timer) < (☁ high score)> then\n        set [☁ high score v] to (timer)\n    end\n    stop [all v]\nend\n\nstop [all v]\n\nset [☁ high score v] to [500]\n\nwait (1) seconds\n\n@mute\n\nwhen flag clicked\nswitch costume to (mute v)\nset size to (10) %\nshow\nforever\n    go to [front v] layer\n    if <<<mouse down?> and <touching (mouse-pointer v)?>> or <key (t v) pressed?>> then\n        broadcast (mute v)\n        switch costume to (play v)\n        set size to (12) %\n        wait (.5) seconds\n        wait until <<<mouse down?> and <touching (mouse-pointer v)?>> or <key (t v) pressed?>>\n        broadcast (play v)\n        switch costume to (mute v)\n        wait (.5) seconds\n    end\nend\n\nwhen flag clicked\nforever\n    go to [front v] layer\nend\n\n@Cloud\n\nwhen I start as a clone\ngo to x: (-230) y: (pick random (35) to (150))\nshow\nswitch costume to (pick random (1) to (20))\nset [ghost v] effect to (pick random (30) to (50))\ngo [forward v] (1) layers\nrepeat (130)\n    change x by (4)\nend\ndelete this clone\n\nwhen I receive [black v]\nset [ghost v] effect to (100)\n\nwhen I receive [game first start v]\nset [ghost v] effect to (0)\ngo to x: (10000000) y: (1000000000000)\ngo to [front v] layer\nhide\nforever\n    create clone of (_myself_ v)\n    wait (pick random (1.5) to (2)) seconds\nend\n\n