Kolek Platformer

Instructions:                                        -1st Kolek Platformer-\n\n(3) PEGI\n\nMove = Arrows\nGo to the right side

@Stage\n\nwhen I receive [komunikat1 v]\nforever\n    switch backdrop to ((Level) + (1))\nend\n\nwhen flag clicked\nswitch backdrop to (tło1 v)\nset volume to (40) %\nforever\n    play sound [The Idiot Test Song v] until done\nend\n\n@Kolek\n\nwhen flag clicked\nclear graphic effects\nerase all\nswitch costume to (kostium1 v)\nhide\nset [level v] to [1]\ngo to x: (-220) y: (-69)\nset [yspeed v] to [0]\nset [deads v] to [0]\n\ndefine touchGround <>\nchange [falling v] by (1)\nrepeat until <not <<touching color (#00cc44)?> or <touching color (#666666)?>>>\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 [yspeed v] to [0]\nend\n\nwhen I receive [komunikat1 v]\nforever\n    change [yspeed v] by (-1)\n    change y by (ySpeed)\n    touchGround <(ySpeed) > [0]>\nend\n\nwhen I receive [komunikat1 v]\nshow\nforever\n    if <touching color (#ff0000)?> then\n        set [yspeed v] to [0]\n        change [deads v] by (1)\n        go to [front v] layer\n        go to x: (-220) y: (-69)\n    end\nend\n\nwhen I receive [komunikat1 v]\nforever\n    if <<key (up arrow v) pressed?> and <(Falling) < [3]>> then\n        set [yspeed v] to [12]\n    end\nend\n\ndefine None\npoint in direction (direction)\nchange x by (speed)\nset [slope v] to [0]\nrepeat until <<(Slope) = [8]> or <not <<touching color (#00cc44)?> or <touching color (#666666)?>>>>\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\nwhen I receive [komunikat1 v]\nforever\n    if <key (right arrow v) pressed?> then\n        Walk (90) (5)\n        switch costume to (kostium1 v)\n    end\n    if <key (left arrow v) pressed?> then\n        Walk (90) (-5)\n        switch costume to (kostium2 v)\n    end\nend\n\nwhen I receive [komunikat1 v]\nforever\n    if <touching (play/line v)?> then\n        change [level v] by (1)\n        set [yspeed v] to [0]\n        go to [front v] layer\n        go to x: (-220) y: (-69)\n        wait until <not <touching (play/line v)?>>\n    end\nend\n\nwhen backdrop switches to [win2 v]\nbroadcast (end v)\nstop [other scripts in sprite v]\nhide\n\nwhen backdrop switches to [tło13 v]\nset [brightness v] effect to (-25)\n\nwhen backdrop switches to [tło13 v]\nclear graphic effects\n\nchange [level v] by (1)\n\n@Play/Line\n\nwhen flag clicked\nshow\ngo to x: (119) y: (-56)\nswitch costume to (kostium1 v)\ncreate clone of (_myself_ v)\nswitch costume to (costume1 v)\nset x to (113)\nset y to (0)\n\nwhen I start as a clone\nshow\nset [turnvel v] to [0]\npoint in direction (84)\nforever\n    change [turnvel v] by (8)\n    turn right ([sin v] of (TurnVel) ) degrees\nend\n\nwhen I start as a clone\nwait until <<mouse down?> and <touching (mouse-pointer v)?>>\nhide\nbroadcast (komunikat1 v)\ndelete this clone\n\nwhen I receive [end v]\nstop [other scripts in sprite v]\nhide\n\n@Text/Logo\n\nwhen flag clicked\nswitch costume to (kostium4 v)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nset [xvel v] to [0]\nswitch costume to (tło1 v)\nset x to (0)\nset y to (0)\nset size to (100) %\nforever\n    change [xvel v] by (16)\n    set x to (([cos v] of (xVel) ) * (4))\nend\n\nwhen I receive [komunikat1 v]\nstop [other scripts in sprite v]\nforever\n    switch costume to ((Level) + (1))\n    go to [front v] layer\n    go to x: (186) y: (-130)\n    set size to (50) %\nend\n\nwhen I receive [end v]\nstop [other scripts in sprite v]\nhide\n\n@Kolek Logo\n\nwhen flag clicked\nshow\nset [sizevel v] to [0]\nset size to (25) %\nforever\n    change [sizevel v] by (10)\n    change size by (([sin v] of (SizeVel) ) / (2))\nend\n\nwhen I receive [komunikat1 v]\nhide\nstop [other scripts in sprite v]\n\nwhen I receive [end v]\nstop [other scripts in sprite v]\nhide\n\n@Spike\n\nwhen flag clicked\nset [lvl12 v] to [0]\nset [go level? v] to [0]\nhide\nset size to (40) %\nforever\n    next costume\n    wait (1) seconds\nend\n\nwhen backdrop switches to [tło10 v]\nshow\ngo to x: (21) y: (-162)\n\nwhen I receive [end v]\nstop [other scripts in sprite v]\nhide\n\nwhen backdrop switches to [tło11 v]\ngo to x: (-40) y: (-162)\nhide\n\nwhen backdrop switches to [tło12 v]\nset [lvl12 v] to [1]\n\nwhen I start as a clone\nwait (Time) seconds\nforever\n    next costume\n    wait (1) seconds\nend\n\nwhen flag clicked\nforever\n    if <(lvl12) = [1]> then\n        set [time v] to [0]\n        show\n        repeat (6)\n            create clone of (_myself_ v)\n            move (40) steps\n            change [time v] by (0.2)\n        end\n        hide\n        stop [this script v]\n    else\n        delete this clone\n    end\nend\n\n@Kolek Outro\n\nwhen flag clicked\ngo to [front v] layer\nhide\nforever\n    go to x: (-109) y: (-85)\n    set [yvel v] to [15]\n    repeat (30)\n        change y by (yVel)\n        change [yvel v] by (-1)\n    end\nend\n\nwhen I receive [end v]\nshow\n\n@Shadow\n\nwhen I receive [end v]\nshow\nforever\n    set size to (((10) / (distance to [kolek outro v])) * (800)) %\n    set [ghost v] effect to ((distance to [kolek outro v]) / (2))\nend\n\nwhen flag clicked\nhide\ngo to x: (-99) y: (-132)\n\n@Outro Text\n\nwhen I receive [end v]\nshow\nif <(Deads) = [0]> then\n    say [You don't dead!]\nelse\n    if <(Deads) = [1]> then\n        say (join [You died ] (join (Deads) [ time.]))\n    else\n        say (join [You died ] (join (Deads) [ times.]))\n    end\nend\n\nwhen flag clicked\ngo to x: (204) y: (-109)\nhide\n\n@Love/Fav\n\nwhen I receive [end v]\nhide\nerase all\ngo to x: (36) y: (26)\nset size to (180) %\nswitch costume to (heart purple v)\nstamp\nchange y by (-10)\nnext costume\nmove (120) steps\nstamp\n\n@Duszek1\n\nwhen flag clicked\ngo to [front v] layer\nhide\n\nshow\n\n