(RESHARED) I'm sorry - platformer

Instructions: *WARNING*it may crash some very slow computers so \nI don't recommend to play it on slow computers\n\nuse up arrow to jump\nuse left-right arrow to move left-right\nuse down arrow to crunch\npress button to start playing\ntry to beat boss\nenjoy\n(all levels are possible)\n\n\n\n\nthat's not my best =)\n\n\n\n\n\n\n\n\n\n\n\n\n________________search - tags_________________\n#timo1os#I'm#sorry#platformer#I'm_sorry - platformer#широпосмотри#boss#fight

@Stage\n\nwhen flag clicked\nswitch backdrop to (backdrop2 v)\nset [death v] to [0]\n\nwhen I receive [start v]\nstop all sounds\nforever\n    if <not <(Level) = [10]>> then\n        play sound [Demons v] until done\n    end\nend\n\nwhen I receive [animation finished v]\nset [level v] to [0]\nswitch backdrop to (backdrop1 v)\nforever\n    if <not <(Level) > [0]>> then\n        play sound [Menu Music v] until done\n    end\nend\n\n@ground\n\nwhen flag clicked\n\nwhen I receive [start v]\nshow\nforever\n    switch costume to (Level)\nend\n\nadd [and I have been reported because of getting rude] to [say v]\n\nwhen flag clicked\nhide\n\n@player\n\ndefine say (say what?) each (time) (seconds) (instrument) (for _beats) (play note)\nset instrument to ((instrument) v)\nbroadcast (say what?)\nset [say! v] to []\nset [idk v] to [0]\nrepeat until <(IDK) = (length of (say what?))>\n    play note ((for _beats)) for (play note) beats\n    change [idk v] by (1)\n    set [say! v] to (join (say!) (letter (IDK) of (say what?)))\n    say (say!)\n    if <(letter (IDK) of (say what?)) = [.]> then\n        wait (1) seconds\n    else\n        if <(letter (IDK) of (say what?)) = [,]> then\n            wait (0.5) seconds\n        else\n            wait (time) seconds\n        end\n    end\nend\nwait (seconds) seconds\nsay []\n\nwhen I start as a clone\nshow\ngo to (player v)\nclear graphic effects\nset size to (100) %\nrepeat (10)\n    change y by (-1)\n    change size by (-10)\n    change [ghost v] effect by (10)\nend\ndelete this clone\n\nforever\n\nwhen I receive [next level v]\ngo to x: (-207) y: (-106)\n\nwhen I receive [start v]\nset [xv v] to [0]\nset [yv v] to [0]\nset [level v] to [1]\nset [blocked? v] to [0]\nshow\nbroadcast (next level v)\nforever\n    if <<not <touching (lader v)?>> and <<<<mouse down?> and <(distance to [mouse-pointer v]) > [10]>> and <(mouse y) < (y position)>> or <<key (down arrow v) pressed?> or <key (s v) pressed?>>>> then\n        switch costume to (4 v)\n    else\n        switch costume to (1 v)\n    end\n    if <(Blocked?) = [0]> then\n        if <<<key (a v) pressed?> or <key (left arrow v) pressed?>> or <<<mouse down?> and <(distance to [mouse-pointer v]) > [10]>> and <(mouse x) < (x position)>>> then\n            point in direction (-90)\n            change [xv v] by (-1.2)\n        else\n            if <<<key (d v) pressed?> or <key (right arrow v) pressed?>> or <<<mouse down?> and <(distance to [mouse-pointer v]) > [10]>> and <(x position) < (mouse x)>>> then\n                point in direction (90)\n                change [xv v] by (1.2)\n            end\n        end\n    end\n    set [xv v] to ((xv) * (.85))\n    change x by (xv)\n    if <touching (ground v)?> then\n        change y by (1)\n        if <touching (ground v)?> then\n            change y by (1)\n            if <touching (ground v)?> then\n                change y by (1)\n                if <touching (ground v)?> then\n                    change y by (1)\n                    if <touching (ground v)?> then\n                        change y by (1)\n                        if <touching (ground v)?> then\n                            change x by ((xv) * (-1))\n                            change y by (-5)\n                            if <<<<mouse down?> and <(distance to [mouse-pointer v]) > [10]>> and <(y position) < (mouse y)>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>> then\n                                set [yv v] to [10]\n                                if <(xv) > [0]> then\n                                    set [xv v] to [-5]\n                                else\n                                    set [xv v] to [5]\n                                end\n                            else\n                                set [xv v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    if <<<<<mouse down?> and <(distance to [mouse-pointer v]) > [10]>> and <(y position) < (mouse y)>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>> or <not <(yv) < [-5]>>> then\n        change [yv v] by (-1)\n    else\n        change [yv v] by (-2)\n    end\n    change y by (yv)\n    if <<touching (lader v)?> or <touching (ground v)?>> then\n        change y by ((yv) * (-1))\n        set [yv v] to [0]\n    end\n    change y by (-1)\n    if <<<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <<<mouse down?> and <(distance to [mouse-pointer v]) > [10]>> and <(y position) < (mouse y)>>> and <<<touching (ground v)?> and <not <touching (lader v)?>>> or <<touching (lader v)?> and <not <touching (ground v)?>>>>> then\n        change [yv v] by (12)\n    end\n    change y by (1)\n    if <(x position) > [240]> then\n        broadcast (next level v)\n        change [level v] by (1)\n    end\n    if <<(y position) < [-179]> or <<touching (trap  v)?> or <touching (spikes v)?>>> then\n        set [done? v] to [0]\n        start sound [Crunch v]\n        broadcast (dead v) and wait\n        set [done? v] to [1]\n        go to x: (-207) y: (-106)\n    end\n    if <touching (trampoline! v)?> then\n        start sound [Cartoon Sound Effect - Bounce v]\n        set [yv v] to [20]\n    end\n    if <<not <touching (lader v)?>> and <<<<mouse down?> and <(distance to [mouse-pointer v]) > [10]>> and <(mouse y) < (y position)>> or <<key (down arrow v) pressed?> or <key (s v) pressed?>>>> then\n        switch costume to (3 v)\n    else\n        switch costume to (2 v)\n    end\nend\n\nwhen I receive [boss fight v]\npoint in direction (90)\ngo to x: (-207) y: (-106)\nstop [other scripts in sprite v]\nswitch costume to (2 v)\n\nwhen I receive [1 v]\nsay [Yes] each [0.01] [1] [] [] []\nbroadcast (2 v) and wait\nsay [So if I will win you, I will be better] each [0.01] [1] [] [] []\nbroadcast (4 v) and wait\n\nwhen I receive [5 v]\nforever\n    if <<not <touching (lader v)?>> and <<<<mouse down?> and <(distance to [mouse-pointer v]) > [10]>> and <(mouse y) < (y position)>> or <<key (down arrow v) pressed?> or <key (s v) pressed?>>>> then\n        switch costume to (4 v)\n    else\n        switch costume to (1 v)\n    end\n    if <(Blocked?) = [0]> then\n        if <<<key (a v) pressed?> or <key (left arrow v) pressed?>> or <<<mouse down?> and <(distance to [mouse-pointer v]) > [10]>> and <(mouse x) < (x position)>>> then\n            point in direction (-90)\n            change [xv v] by (-1.2)\n        else\n            if <<<<mouse down?> and <(distance to [mouse-pointer v]) > [10]>> and <(x position) < (mouse x)>> or <<key (d v) pressed?> or <key (right arrow v) pressed?>>> then\n                point in direction (90)\n                change [xv v] by (1.2)\n            end\n        end\n    end\n    set [xv v] to ((xv) * (.85))\n    change x by (xv)\n    if <touching (ground v)?> then\n        change y by (1)\n        if <touching (ground v)?> then\n            change y by (1)\n            if <touching (ground v)?> then\n                change y by (1)\n                if <touching (ground v)?> then\n                    change y by (1)\n                    if <touching (ground v)?> then\n                        change y by (1)\n                        if <touching (ground v)?> then\n                            change x by ((xv) * (-1))\n                            change y by (-5)\n                            if <<<<mouse down?> and <(distance to [mouse-pointer v]) > [10]>> and <(y position) < (mouse y)>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>> then\n                                set [yv v] to [10]\n                                if <(xv) > [0]> then\n                                    set [xv v] to [-5]\n                                else\n                                    set [xv v] to [5]\n                                end\n                            else\n                                set [xv v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    if <<<<<mouse down?> and <(distance to [mouse-pointer v]) > [10]>> and <(y position) < (mouse y)>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> or <not <(yv) < [-5]>>> then\n        change [yv v] by (-1)\n    else\n        change [yv v] by (-2)\n    end\n    change y by (yv)\n    if <<touching (lader v)?> or <touching (ground v)?>> then\n        change y by ((yv) * (-1))\n        set [yv v] to [0]\n    end\n    change y by (-1)\n    if <<<<<mouse down?> and <(distance to [mouse-pointer v]) > [10]>> and <(y position) < (mouse y)>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> and <<<touching (ground v)?> and <not <touching (lader v)?>>> or <<touching (lader v)?> and <not <touching (ground v)?>>>>> then\n        change [yv v] by (12)\n    end\n    change y by (1)\n    if <touching (trampoline! v)?> then\n        start sound [Cartoon Sound Effect - Bounce v]\n        set [yv v] to [20]\n    end\n    if <<touching (boss v)?> or <touching (trap  v)?>> then\n        set [death v] to [1]\n        stop [other scripts in sprite v]\n        broadcast (dead v)\n        broadcast (BOSS FIGHT v)\n        stop [this script v]\n    end\n    if <<not <touching (lader v)?>> and <<<<mouse down?> and <(distance to [mouse-pointer v]) > [10]>> and <(mouse y) < (y position)>> or <<key (down arrow v) pressed?> or <key (s v) pressed?>>>> then\n        switch costume to (3 v)\n    else\n        switch costume to (2 v)\n    end\nend\n\nwhen I receive [6 v]\nsay [I recommend to go away] each [0.01] [1] [] [] []\nbroadcast (7 v) and wait\nbroadcast (win! v)\n\nwhen flag clicked\nhide\n\n@Rain\n\nwhen I receive [start v]\nshow\nforever\n    go to [front v] layer\n    next costume\nend\n\nwhen I receive [start v]\nset volume to (100) %\nforever\n    play sound [heavy-rain v] until done\nend\n\nwhen flag clicked\n\nwhen I receive [start v]\nforever\n    if <(pick random (1) to (3)) = [3]> then\n        broadcast (grom v) and wait\n    end\n    wait (pick random (1) to (7)) seconds\nend\n\nwhen I receive [grom v]\nstart sound [thunder_strike_ v]\nrepeat (5)\n    change [brightness v] effect by (20)\nend\nrepeat (5)\n    change [brightness v] effect by (-20)\nend\n\nwhen flag clicked\nhide\n\n@text engine\n\ndefine new line\nset x to (-223)\nchange y by (-20)\n\nwhen I receive [next level v]\nnew line\nset y to (140)\nerase all\ntype (item (Level) of [say v])\n\nwhen flag clicked\nerase all\n\ndefine type (type)\ngo to [back v] layer\nset [count v] to [0]\nshow\nrepeat (length of (type))\n    change [count v] by (1)\n    if <<<(item (count) of [say v]) = [n]> and <(item ((count) + (1)) of [say v]) = [e]>> and <<<(item ((count) + (2)) of [say v]) = [w]> and <(item ((count) + (3)) of [say v]) = [l]>> and <<(item ((count) + (4)) of [say v]) = [i]> and <<(item ((count) + (5)) of [say v]) = [n]> and <(item ((count) + (6)) of [say v]) = [e]>>>>> then\n        new line\n        change [count v] by (7)\n    end\n    if <(letter (count) of (type)) = [a]> then\n        switch costume to (a v)\n    else\n        if <(letter (count) of (type)) = [b]> then\n            switch costume to (b v)\n        else\n            if <(letter (count) of (type)) = [c]> then\n                switch costume to (c v)\n            else\n                if <(letter (count) of (type)) = [d]> then\n                    switch costume to (d v)\n                else\n                    if <(letter (count) of (type)) = [e]> then\n                        switch costume to (e v)\n                    else\n                        if <(letter (count) of (type)) = [f]> then\n                            switch costume to (f v)\n                        else\n                            if <(letter (count) of (type)) = [g]> then\n                                switch costume to (g v)\n                            else\n                                if <(letter (count) of (type)) = [h]> then\n                                    switch costume to (h v)\n                                else\n                                    if <(letter (count) of (type)) = [i]> then\n                                        switch costume to (i v)\n                                    else\n                                        if <(letter (count) of (type)) = [j]> then\n                                            switch costume to (j v)\n                                        else\n                                            if <(letter (count) of (type)) = [k]> then\n                                                switch costume to (k v)\n                                            else\n                                                if <(letter (count) of (type)) = [l]> then\n                                                    switch costume to (l v)\n                                                else\n                                                    if <(letter (count) of (type)) = [m]> then\n                                                        switch costume to (m v)\n                                                    else\n                                                        if <(letter (count) of (type)) = [n]> then\n                                                            switch costume to (n v)\n                                                        else\n                                                            if <(letter (count) of (type)) = [o]> then\n                                                                switch costume to (o v)\n                                                            else\n                                                                if <(letter (count) of (type)) = [p]> then\n                                                                    switch costume to (p v)\n                                                                else\n                                                                    if <(letter (count) of (type)) = [q]> then\n                                                                        switch costume to (q v)\n                                                                    else\n                                                                        if <(letter (count) of (type)) = [r]> then\n                                                                            switch costume to (r v)\n                                                                        else\n                                                                            if <(letter (count) of (type)) = [s]> then\n                                                                                switch costume to (s v)\n                                                                            else\n                                                                                if <(letter (count) of (type)) = [t]> then\n                                                                                    switch costume to (t v)\n                                                                                else\n                                                                                    if <(letter (count) of (type)) = [u]> then\n                                                                                        switch costume to (u v)\n                                                                                    else\n                                                                                        if <(letter (count) of (type)) = [v]> then\n                                                                                            switch costume to (v v)\n                                                                                        else\n                                                                                            if <(letter (count) of (type)) = [w]> then\n                                                                                                switch costume to (w v)\n                                                                                            else\n                                                                                                if <(letter (count) of (type)) = [x]> then\n                                                                                                    switch costume to (x v)\n                                                                                                else\n                                                                                                    if <(letter (count) of (type)) = [y]> then\n                                                                                                        switch costume to (y v)\n                                                                                                    else\n                                                                                                        if <(letter (count) of (type)) = [z]> then\n                                                                                                            switch costume to (z v)\n                                                                                                        else\n                                                                                                            if <(letter (count) of (type)) = [0]> then\n                                                                                                                switch costume to (0 v)\n                                                                                                            else\n                                                                                                                if <(letter (count) of (type)) = [1]> then\n                                                                                                                    switch costume to (1 v)\n                                                                                                                else\n                                                                                                                    if <(letter (count) of (type)) = [2]> then\n                                                                                                                        switch costume to (2 v)\n                                                                                                                    else\n                                                                                                                        if <(letter (count) of (type)) = [3]> then\n                                                                                                                            switch costume to (3 v)\n                                                                                                                        else\n                                                                                                                            if <(letter (count) of (type)) = [4]> then\n                                                                                                                                switch costume to (4 v)\n                                                                                                                            else\n                                                                                                                                if <(letter (count) of (type)) = [5]> then\n                                                                                                                                    switch costume to (5 v)\n                                                                                                                                else\n                                                                                                                                    if <(letter (count) of (type)) = [6]> then\n                                                                                                                                        switch costume to (6 v)\n                                                                                                                                    else\n                                                                                                                                        if <(letter (count) of (type)) = [7]> then\n                                                                                                                                            switch costume to (7 v)\n                                                                                                                                        else\n                                                                                                                                            if <(letter (count) of (type)) = [8]> then\n                                                                                                                                                switch costume to (8 v)\n                                                                                                                                            else\n                                                                                                                                                if <(letter (count) of (type)) = [9]> then\n                                                                                                                                                    switch costume to (9 v)\n                                                                                                                                                else\n                                                                                                                                                    if <(letter (count) of (type)) = [-]> then\n                                                                                                                                                        switch costume to (dash v)\n                                                                                                                                                    else\n                                                                                                                                                        if <(letter (count) of (type)) = [_]> then\n                                                                                                                                                            switch costume to (dash2 v)\n                                                                                                                                                        else\n                                                                                                                                                            if <(letter (count) of (type)) = [ ]> then\n                                                                                                                                                                switch costume to (space v)\n                                                                                                                                                            else\n                                                                                                                                                                if <(letter (count) of (type)) = [.]> then\n                                                                                                                                                                    switch costume to (. v)\n                                                                                                                                                                else\n                                                                                                                                                                    if <(letter (count) of (type)) = [,]> then\n                                                                                                                                                                        switch costume to (, v)\n                                                                                                                                                                    else\n                                                                                                                                                                        if <(letter (count) of (type)) = [!]> then\n                                                                                                                                                                            switch costume to (! v)\n                                                                                                                                                                        else\n                                                                                                                                                                            if <(letter (count) of (type)) = [?]> then\n                                                                                                                                                                                switch costume to (? v)\n                                                                                                                                                                            else\n                                                                                                                                                                                if <(letter (count) of (type)) = [']> then\n                                                                                                                                                                                    switch costume to (' v)\n                                                                                                                                                                                end\n                                                                                                                                                                            end\n                                                                                                                                                                        end\n                                                                                                                                                                    end\n                                                                                                                                                                end\n                                                                                                                                                            end\n                                                                                                                                                        end\n                                                                                                                                                    end\n                                                                                                                                                end\n                                                                                                                                            end\n                                                                                                                                        end\n                                                                                                                                    end\n                                                                                                                                end\n                                                                                                                            end\n                                                                                                                        end\n                                                                                                                    end\n                                                                                                                end\n                                                                                                            end\n                                                                                                        end\n                                                                                                    end\n                                                                                                end\n                                                                                            end\n                                                                                        end\n                                                                                    end\n                                                                                end\n                                                                            end\n                                                                        end\n                                                                    end\n                                                                end\n                                                            end\n                                                        end\n                                                    end\n                                                end\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    go to [front v] layer\n    set [brightness v] effect to (100)\n    stamp\n    change x by (12)\nend\nhide\n\nadd [always in front of me traps] to [say v]\n\nadd [I'm really sorry front of people] to [say v]\n\ndelete (1) of [say v]\n\nadd [I'M SORRY] to [say v]\n\n@spikes\n\nwhen I receive [start v]\nshow\nforever\n    switch costume to (Level)\nend\n\nwhen flag clicked\ngo to [back v] layer\nhide\n\n@pieces\n\nwhen flag clicked\nhide\n\nwhen I receive [dead v]\ngo to (player v)\nclone [1]\n\ndefine clone (times)\nrepeat (times)\n    switch costume to (5 v)\n    create clone of (_myself_ v)\n    switch costume to (6 v)\n    create clone of (_myself_ v)\n    switch costume to (7 v)\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nshow\nset [yv v] to (pick random (10) to (15))\nset [xv v] to (pick random (5) to (-5))\nforever\n    go to [front v] layer\n    change x by (XV)\n    change y by (YV)\n    turn right (((XV) * ([abs v] of (YV) )) / (2)) degrees\n    change [yv v] by (-1)\n    if <<([abs v] of (x position) ) > [239]> or <([abs v] of (y position) ) > [179]>> then\n        delete this clone\n    end\nend\n\n@fake wall\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\ngo to [back v] layer\nshow\nforever\n    switch costume to (Level)\n    if <touching (player v)?> then\n        set [ghost v] effect to (70)\n    else\n        set [brightness v] effect to (0)\n        set [ghost v] effect to (0)\n    end\nend\n\n@button\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\ngo to [back v] layer\nshow\nset [done? v] to [1]\nforever\n    switch costume to (Level)\n    if <touching (player v)?> then\n        go to x: (-93) y: (-16)\n        if <<touching (player v)?> and <(done?) = [1]>> then\n            create clone of (trap  v)\n        end\n    else\n        go to x: (-93) y: (-14)\n    end\nend\n\n@trap \n\nwhen flag clicked\nhide\n\nwhen I start as a clone\nset [done? v] to [0]\nshow\nset y to (180)\nif <(Level) = [6]> then\n    set x to (-40)\n    point in direction (90)\nelse\n    set x to (pick random (-240) to (240))\n    set y to (120)\n    if <(pick random (1) to (2)) = [1]> then\n        point in direction (90)\n    else\n        point in direction (-90)\n    end\n    switch costume to (costume3 v)\n    set size to (150) %\n    repeat (5)\n        repeat (5)\n            change size by (5)\n        end\n        repeat (5)\n            change size by (-5)\n        end\n    end\nend\nset size to (150) %\nswitch costume to (costume2 v)\nrepeat until <<touching (ground v)?> or <touching (player v)?>>\n    change y by (-40)\nend\nif <not <touching (player v)?>> then\n    set [done? v] to [1]\nend\ndelete this clone\n\nwhen I receive [next level v]\ndelete this clone\n\nset y to (140)\n\n@trampoline!\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\nforever\n    if <touching (player v)?> then\n        switch costume to (1 v)\n        repeat (3)\n            next costume\n            wait (0.001) seconds\n        end\n        repeat (3)\n            switch costume to ((costume [number v]) - (1))\n            wait (0.001) seconds\n        end\n    end\nend\n\nwhen I receive [start v]\nforever\n    if <(Level) < [7]> then\n        hide\n    else\n        if <(Level) = [7]> then\n            show\n            go to x: (-50) y: (-100)\n        else\n            if <(Level) = [8]> then\n                show\n                go to x: (-100) y: (-100)\n            else\n                hide\n            end\n        end\n    end\nend\n\nwhen I receive [next level v]\ndelete this clone\n\n@BOSS\n\ndefine say (say what?) each (time) (seconds) (instrument) (for _beats) (play note)\nset instrument to ((instrument) v)\nbroadcast (say what?)\nset [say! v] to []\nset [idk v] to [0]\nrepeat until <(IDK) = (length of (say what?))>\n    play note ((for _beats)) for (play note) beats\n    change [idk v] by (1)\n    set [say! v] to (join (say!) (letter (IDK) of (say what?)))\n    say (say!)\n    if <(letter (IDK) of (say what?)) = [.]> then\n        wait (1) seconds\n    else\n        if <(letter (IDK) of (say what?)) = [,]> then\n            wait (0.5) seconds\n        else\n            wait (time) seconds\n        end\n    end\nend\nwait (seconds) seconds\nsay []\n\nwhen flag clicked\nhide\n\nwhen I receive [next level v]\nwait until <(Level) = [10]>\nbroadcast (BOSS FIGHT v)\n\nwhen I receive [boss fight v]\npoint in direction (90)\ngo to x: (200) y: (-108)\nshow\nstop all sounds\nstart sound [good furret vana v]\nif <(death) = [0]> then\n    say [So you want to be better right?] each [0.01] [1] [] [] []\n    broadcast (1 v) and wait\n    say [You will never be better! ] each [0.01] [1] [] [] []\n    broadcast (3 v) and wait\n    say [Ok,deal!] each [0.01] [1] [] [] []\nend\nsay [FIGHT!] each [0.01] [1] [] [] []\nbroadcast (5 v)\nwait (1) seconds\nrepeat (5)\n    repeat (40)\n        change x by (((-220) - (x position)) / (6))\n        point in direction (90)\n    end\n    repeat (40)\n        change x by (((220) - (x position)) / (6))\n        point in direction (-90)\n    end\nend\npoint in direction (90)\nsay [So I see you don't want to die  ] each [0.01] [1] [] [] []\nsay [ANVILS,FALL!] each [0.01] [1] [] [] []\nrepeat (20)\n    repeat (pick random (1) to (3))\n        create clone of (trap  v)\n    end\n    wait (pick random (1) to (3)) seconds\nend\nsay [again you won me] each [0.01] [1] [] [] []\nbroadcast (6 v)\n\nwhen I receive [7 v]\npoint in direction (-90)\nglide (1) secs to x: (240) y: (-108)\nhide\n\n@thumbnail\n\nshow\nclear graphic effects\ngo to [front v] layer\n\nwhen I receive [win! v]\nshow\nset [ghost v] effect to (100)\ngo to [front v] layer\nrepeat (25)\n    change [ghost v] effect by (-5)\nend\nstop [all v]\n\nwhen flag clicked\nhide\n\n@Sprite1\n\nwhen flag clicked\nhide\n\nwhen I receive [animation finished v]\nshow\ngo to x: (0) y: (0)\nforever\n    repeat (30)\n        change x by (1)\n    end\n    repeat (30)\n        change x by (-1)\n    end\nend\n\nwhen I receive [start v]\nstop [other scripts in sprite v]\nhide\n\n@Sprite2\n\nwhen flag clicked\nhide\n\nwhen I receive [animation finished v]\nshow\ngo to x: (0) y: (-30)\nforever\n    if <touching (mouse-pointer v)?> then\n        change size by (((120) - (size)) / (4))\n        set [brightness v] effect to (10)\n        if <mouse down?> then\n            wait until <not <mouse down?>>\n            set size to (40) %\n            broadcast (start v)\n            start sound [Coin v]\n            hide\n        end\n    else\n        change size by (((100) - (size)) / (4))\n        set [brightness v] effect to (0)\n    end\nend\n\n@intro\n\nwhen flag clicked\nstart sound [Short_triumphal_fanfare-John_Stracke-815794903 v]\nset [clone id v] to [1]\nset [i2 v] to [0]\nhide\ncreate clone of (_myself_ v)\nset [clone id v] to [2]\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nset size to (100) %\nif <(clone ID) = [1]> then\n    show\n    go to x: (0) y: (0)\n    switch costume to (backdrop1 v)\n    go to [back v] layer\nelse\n    if <(clone ID) = [2]> then\n        set [yv v] to [0]\n        show\n        go to x: (0) y: (180)\n        switch costume to (costume4 v)\n        go to [front v] layer\n        repeat until <(y position) < [19]>\n            change [yv v] by (-2)\n            change y by (yv)\n        end\n        start sound [falling-body-sound-effects v]\n        wait (1) seconds\n        switch costume to (costume3 v)\n        wait (1) seconds\n        repeat until <(costume [number v]) = [9]>\n            next costume\n        end\n        start sound [Ding v]\n        wait (0.5) seconds\n        repeat until <(costume [number v]) = [3]>\n            switch costume to ((costume [number v]) - (1))\n        end\n        broadcast (create v)\n        wait until <(i2) = [1]>\n        switch costume to (costume4 v)\n        wait until <(i2) = [2]>\n        switch costume to (costume3 v)\n        wait until <(i2) = [3]>\n    else\n        if <(clone ID) = [3]> then\n            set [yv v] to [0]\n            show\n            go to x: (0) y: (180)\n            switch costume to (costume1 v)\n            go to [back v] layer\n            go [forward v] (2) layers\n            set size to (150) %\n            repeat until <(y position) < [-50]>\n                change [yv v] by (-2)\n                change y by (yv)\n            end\n            start sound [falling-body-sound-effects v]\n            wait (1) seconds\n            set [i2 v] to [1]\n            wait (1) seconds\n            repeat (20)\n                change x by (((120) - (x position)) / (4))\n            end\n            set [i2 v] to [2]\n            set [clone id v] to [4]\n            create clone of (_myself_ v)\n        else\n            if <(clone ID) = [4]> then\n                set [yv v] to [0]\n                show\n                go to x: (-120) y: (180)\n                switch costume to (heart and star v)\n                go to [back v] layer\n                go [forward v] (2) layers\n                set size to (150) %\n                repeat until <(y position) < [-50]>\n                    change [yv v] by (-2)\n                    change y by (yv)\n                end\n                start sound [falling-body-sound-effects v]\n                wait (1) seconds\n                set [clone id v] to [5]\n                create clone of (_myself_ v)\n                set [clone id v] to [6]\n                create clone of (_myself_ v)\n            else\n                if <(clone ID) = [5]> then\n                    go to x: (0) y: (0)\n                    go to [front v] layer\n                    switch costume to (blaaack! v)\n                    glide (1) secs to x: (240) y: (0)\n                else\n                    if <(clone ID) = [6]> then\n                        go to x: (0) y: (0)\n                        go to [front v] layer\n                        switch costume to (blaaack!2 v)\n                        glide (1) secs to x: (-240) y: (0)\n                        start sound [Thud v]\n                        broadcast (Animation finished v)\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [create v]\nset [clone id v] to [3]\ncreate clone of (_myself_ v)\n\nwhen I receive [animation finished v]\ndelete this clone\n\n