Collision - a 100% PEN Platformer
@Stage\n\n@PEN\n\nwhen flag clicked\nwait (0.1) seconds\nforever\n    Движение\n    Объекты\n    Рис. всё\nend\n\ndefine Рис. всё\nerase all\nset pen size to (3)\nset pen color to (#828282)\nset [# tempdata №1 v] to [1]\nrepeat (((length of [collision v]) / (4)) - (1))\n    change [# tempdata №1 v] by (1)\n    go to x: ((item ((((# TempData №1) - (1)) * (4)) + (1)) of [collision v]) + (() - (240))) y: ((180) - (() + (item ((((# TempData №1) - (1)) * (4)) + (2)) of [collision v])))\n    pen down\n    go to x: ((item ((((# TempData №1) - (1)) * (4)) + (1)) of [collision v]) + (() - (240))) y: ((180) - ((item ((((# TempData №1) - (1)) * (4)) + (4)) of [collision v]) + (item ((((# TempData №1) - (1)) * (4)) + (2)) of [collision v])))\n    go to x: ((item ((((# TempData №1) - (1)) * (4)) + (1)) of [collision v]) + ((item ((((# TempData №1) - (1)) * (4)) + (3)) of [collision v]) - (240))) y: ((180) - ((item ((((# TempData №1) - (1)) * (4)) + (4)) of [collision v]) + (item ((((# TempData №1) - (1)) * (4)) + (2)) of [collision v])))\n    go to x: ((item ((((# TempData №1) - (1)) * (4)) + (1)) of [collision v]) + ((item ((((# TempData №1) - (1)) * (4)) + (3)) of [collision v]) - (240))) y: ((180) - (() + (item ((((# TempData №1) - (1)) * (4)) + (2)) of [collision v])))\n    go to x: ((item ((((# TempData №1) - (1)) * (4)) + (1)) of [collision v]) + (() - (240))) y: ((180) - (() + (item ((((# TempData №1) - (1)) * (4)) + (2)) of [collision v])))\n    pen up\nend\npen up\nset [# tempdata №1 v] to [0]\nrepeat ((length of [objects v]) / (5))\n    change [# tempdata №1 v] by (1)\n    if <(item ((((# TempData №1) - (1)) * (5)) + (1)) of [objects v]) = [Finish]> then\n        set pen color to (#56b300)\n    else\n        if <(item ((((# TempData №1) - (1)) * (5)) + (1)) of [objects v]) = [Lava]> then\n            set pen color to (#db0000)\n        else\n            if <(item ((((# TempData №1) - (1)) * (5)) + (1)) of [objects v]) = [Spring]> then\n                set pen color to (#e3c300)\n            else\n                if <(item ((((# TempData №1) - (1)) * (5)) + (1)) of [objects v]) = [Water]> then\n                    set pen color to (#007fdb)\n                else\n                    set pen color to (#414141)\n                end\n            end\n        end\n    end\n    go to x: ((item ((((# TempData №1) - (1)) * (5)) + (2)) of [objects v]) + (() - (240))) y: ((180) - (() + (item ((((# TempData №1) - (1)) * (5)) + (3)) of [objects v])))\n    pen down\n    go to x: ((item ((((# TempData №1) - (1)) * (5)) + (2)) of [objects v]) + (() - (240))) y: ((180) - ((item ((((# TempData №1) - (1)) * (5)) + (5)) of [objects v]) + (item ((((# TempData №1) - (1)) * (5)) + (3)) of [objects v])))\n    go to x: ((item ((((# TempData №1) - (1)) * (5)) + (2)) of [objects v]) + ((item ((((# TempData №1) - (1)) * (5)) + (4)) of [objects v]) - (240))) y: ((180) - ((item ((((# TempData №1) - (1)) * (5)) + (5)) of [objects v]) + (item ((((# TempData №1) - (1)) * (5)) + (3)) of [objects v])))\n    go to x: ((item ((((# TempData №1) - (1)) * (5)) + (2)) of [objects v]) + ((item ((((# TempData №1) - (1)) * (5)) + (4)) of [objects v]) - (240))) y: ((180) - (() + (item ((((# TempData №1) - (1)) * (5)) + (3)) of [objects v])))\n    go to x: ((item ((((# TempData №1) - (1)) * (5)) + (2)) of [objects v]) + (() - (240))) y: ((180) - (() + (item ((((# TempData №1) - (1)) * (5)) + (3)) of [objects v])))\n    pen up\nend\nset pen size to (5)\nset pen color to (#ffffff)\ngo to x: ((item (1) of [collision v]) + (() - (240))) y: ((180) - (() + (item (2) of [collision v])))\npen down\ngo to x: ((item (1) of [collision v]) + (() - (240))) y: ((180) - ((item (4) of [collision v]) + (item (2) of [collision v])))\ngo to x: ((item (1) of [collision v]) + ((item (3) of [collision v]) - (240))) y: ((180) - ((item (4) of [collision v]) + (item (2) of [collision v])))\ngo to x: ((item (1) of [collision v]) + ((item (3) of [collision v]) - (240))) y: ((180) - (() + (item (2) of [collision v])))\ngo to x: ((item (1) of [collision v]) + (() - (240))) y: ((180) - (() + (item (2) of [collision v])))\npen up\nif <[0.5] < (Скорость X)> then\n    go to x: ((item (1) of [collision v]) + ((item (3) of [collision v]) - (240))) y: ((180) - (((item (4) of [collision v]) * (0.45)) + (item (2) of [collision v])))\n    pen down\n    go to x: ((item (1) of [collision v]) + (((item (3) of [collision v]) * (0.75)) - (240))) y: ((180) - (((item (4) of [collision v]) * (0.35)) + (item (2) of [collision v])))\n    pen up\nelse\n    if <[-0.5] > (Скорость X)> then\n        go to x: ((item (1) of [collision v]) + (() - (240))) y: ((180) - (((item (4) of [collision v]) * (0.45)) + (item (2) of [collision v])))\n        pen down\n        go to x: ((item (1) of [collision v]) + (((item (3) of [collision v]) * (0.25)) - (240))) y: ((180) - (((item (4) of [collision v]) * (0.35)) + (item (2) of [collision v])))\n        pen up\n    else\n        go to x: ((item (1) of [collision v]) + (((item (3) of [collision v]) * (0.90)) - (240))) y: ((180) - (((item (4) of [collision v]) * (0.35)) + (item (2) of [collision v])))\n        pen down\n        go to x: ((item (1) of [collision v]) + (((item (3) of [collision v]) * (0.65)) - (240))) y: ((180) - (((item (4) of [collision v]) * (0.45)) + (item (2) of [collision v])))\n        pen up\n        go to x: ((item (1) of [collision v]) + (((item (3) of [collision v]) * (0.10)) - (240))) y: ((180) - (((item (4) of [collision v]) * (0.35)) + (item (2) of [collision v])))\n        pen down\n        go to x: ((item (1) of [collision v]) + (((item (3) of [collision v]) * (0.35)) - (240))) y: ((180) - (((item (4) of [collision v]) * (0.45)) + (item (2) of [collision v])))\n        pen up\n    end\nend\n\nwhen flag clicked\nset [in water? v] to [false]\nset [текущий lvl v] to [1]\nЗагрузить Ур. (Текущий LVL)\n\nset [текущий lvl v] to [7]\nЗагрузить Ур. (Текущий LVL)\n\ndefine Пересекаются ли (rect 1 x) (rect 1 y) (rect 1 w) (rect 1 h) с (rect 2 x) (rect 2 y) (rect 2 w) (rect 2 h)\nif <<((rect 1 x) + (rect 1 w)) < (rect 2 x)> or <(rect 1 x) > ((rect 2 x) + (rect 2 w))>> then\n    set [# tempdata №2 v] to [false]\nelse\n    if <<((rect 1 y) + (rect 1 h)) < (rect 2 y)> or <(rect 1 y) > ((rect 2 y) + (rect 2 h))>> then\n        set [# tempdata №2 v] to [false]\n    else\n        set [# tempdata №2 v] to [true]\n    end\nend\n\ndefine Движение\nif <(In Water?) = [true]> then\n    change [скорость x v] by (<key (right arrow v) pressed?> - <key (left arrow v) pressed?>)\n    change [скорость y v] by (<key (down arrow v) pressed?> - <key (up arrow v) pressed?>)\n    change [скорость y v] by (0.3)\n    set [скорость x v] to ((0.87) * (Скорость X))\n    set [скорость y v] to ((0.87) * (Скорость Y))\nelse\n    change [скорость x v] by (<key (right arrow v) pressed?> - <key (left arrow v) pressed?>)\n    set [скорость x v] to ((0.87) * (Скорость X))\n    Проверка идти [] [1]\n    if <(# TempData №3) = [true]> then\n        change [скорость y v] by (1)\n    else\n        if <key (up arrow v) pressed?> then\n            set [скорость y v] to [-15]\n        end\n    end\nend\nreplace item (2) of [collision v] with ((item (2) of [collision v]) - (1))\nrepeat (([abs v] of (Скорость X) ) * (1))\n    Проверка идти (((Скорость X) / ([abs v] of (Скорость X) )) / (0.5)) []\n    if <(# TempData №3) = [true]> then\n        replace item (1) of [collision v] with ((item (1) of [collision v]) + (((Скорость X) / ([abs v] of (Скорость X) )) / (1)))\n    end\nend\nreplace item (2) of [collision v] with ((item (2) of [collision v]) + (1))\nrepeat (([abs v] of (Скорость Y) ) * (2))\n    Проверка идти [] (((Скорость Y) / ([abs v] of (Скорость Y) )) / (1))\n    if <(# TempData №3) = [true]> then\n        replace item (2) of [collision v] with ((item (2) of [collision v]) + (((Скорость Y) / ([abs v] of (Скорость Y) )) / (2)))\n    else\n        change [скорость y v] by (((Скорость Y) / ([abs v] of (Скорость Y) )) / (-2))\n    end\nend\n\ndefine Проверка идти (dx) (dy)\nset [# tempdata №3 v] to [true]\nset [# tempdata №1 v] to [0]\nrepeat (((length of [collision v]) / (4)) - (1))\n    change [# tempdata №1 v] by (1)\n    if <(# TempData №3) = [true]> then\n        Пересекаются ли ((item (1) of [collision v]) + (dx)) ((item (2) of [collision v]) + (((4) * ((dy) / ([abs v] of (dy) ))) + (dy))) (item (3) of [collision v]) (item (4) of [collision v]) с (item (((# TempData №1) * (4)) + (1)) of [collision v]) (item (((# TempData №1) * (4)) + (2)) of [collision v]) (item (((# TempData №1) * (4)) + (3)) of [collision v]) (item (((# TempData №1) * (4)) + (4)) of [collision v])\n        if <(# TempData №2) = [true]> then\n            set [# tempdata №3 v] to [false]\n        end\n    end\nend\n\ndefine Загрузить Ур. (№)\ndelete all of [collision v]\ndelete all of [objects v]\nset [скорость x v] to [0]\nset [скорость y v] to [0]\nif <(№) = [1]> then\n    repeat (1)\n        repeat (1)\n            add [30] to [collision v]\n            add [255] to [collision v]\n            add [40] to [collision v]\n            add [40] to [collision v]\n        end\n        repeat (1)\n            add [160] to [collision v]\n            add [220] to [collision v]\n            add [100] to [collision v]\n            add [30] to [collision v]\n        end\n        repeat (1)\n            add [270] to [collision v]\n            add [140] to [collision v]\n            add [100] to [collision v]\n            add [30] to [collision v]\n        end\n    end\n    repeat (1)\n        repeat (1)\n            add [Finish] to [objects v]\n            add [420] to [objects v]\n            add [70] to [objects v]\n            add [30] to [objects v]\n            add [30] to [objects v]\n        end\n    end\nelse\n    if <(№) = [2]> then\n        repeat (1)\n            repeat (1)\n                add [15] to [collision v]\n                add [275] to [collision v]\n                add [20] to [collision v]\n                add [20] to [collision v]\n            end\n            repeat (1)\n                add [0] to [collision v]\n                add [255] to [collision v]\n                add [70] to [collision v]\n                add [15] to [collision v]\n            end\n            repeat (1)\n                add [95] to [collision v]\n                add [145] to [collision v]\n                add [15] to [collision v]\n                add [155] to [collision v]\n            end\n            repeat (1)\n                add [25] to [collision v]\n                add [210] to [collision v]\n                add [155] to [collision v]\n                add [15] to [collision v]\n            end\n            repeat (1)\n                add [-20] to [collision v]\n                add [0] to [collision v]\n                add [15] to [collision v]\n                add [270] to [collision v]\n            end\n            repeat (1)\n                add [0] to [collision v]\n                add [165] to [collision v]\n                add [70] to [collision v]\n                add [15] to [collision v]\n            end\n            repeat (1)\n                add [0] to [collision v]\n                add [100] to [collision v]\n                add [225] to [collision v]\n                add [15] to [collision v]\n            end\n            repeat (1)\n                add [210] to [collision v]\n                add [115] to [collision v]\n                add [15] to [collision v]\n                add [155] to [collision v]\n            end\n            repeat (1)\n                add [225] to [collision v]\n                add [190] to [collision v]\n                add [30] to [collision v]\n                add [15] to [collision v]\n            end\n        end\n        repeat (1)\n            repeat (1)\n                add [Finish] to [objects v]\n                add [420] to [objects v]\n                add [70] to [objects v]\n                add [15] to [objects v]\n                add [15] to [objects v]\n            end\n        end\n    else\n        if <(№) = [3]> then\n            repeat (1)\n                repeat (1)\n                    add [15] to [collision v]\n                    add [245] to [collision v]\n                    add [50] to [collision v]\n                    add [50] to [collision v]\n                end\n            end\n            repeat (1)\n                repeat (1)\n                    add [Finish] to [objects v]\n                    add [420] to [objects v]\n                    add [170] to [objects v]\n                    add [40] to [objects v]\n                    add [40] to [objects v]\n                end\n                repeat (1)\n                    add [Lava] to [objects v]\n                    add [240] to [objects v]\n                    add [260] to [objects v]\n                    add [40] to [objects v]\n                    add [40] to [objects v]\n                end\n            end\n        else\n            if <(№) = [4]> then\n                repeat (1)\n                    repeat (1)\n                        add [15] to [collision v]\n                        add [245] to [collision v]\n                        add [50] to [collision v]\n                        add [50] to [collision v]\n                    end\n                    repeat (1)\n                        add [75] to [collision v]\n                        add [200] to [collision v]\n                        add [50] to [collision v]\n                        add [100] to [collision v]\n                    end\n                    repeat (1)\n                        add [185] to [collision v]\n                        add [130] to [collision v]\n                        add [50] to [collision v]\n                        add [170] to [collision v]\n                    end\n                end\n                repeat (1)\n                    repeat (1)\n                        add [Finish] to [objects v]\n                        add [420] to [objects v]\n                        add [170] to [objects v]\n                        add [40] to [objects v]\n                        add [40] to [objects v]\n                    end\n                    repeat (1)\n                        add [Lava] to [objects v]\n                        add [80] to [objects v]\n                        add [290] to [objects v]\n                        add [390] to [objects v]\n                        add [10] to [objects v]\n                    end\n                end\n            else\n                if <(№) = [5]> then\n                    repeat (1)\n                        repeat (1)\n                            add [15] to [collision v]\n                            add [275] to [collision v]\n                            add [20] to [collision v]\n                            add [20] to [collision v]\n                        end\n                        repeat (1)\n                            add [265] to [collision v]\n                            add [100] to [collision v]\n                            add [40] to [collision v]\n                            add [200] to [collision v]\n                        end\n                    end\n                    repeat (1)\n                        repeat (1)\n                            add [Finish] to [objects v]\n                            add [420] to [objects v]\n                            add [170] to [objects v]\n                            add [40] to [objects v]\n                            add [40] to [objects v]\n                        end\n                        repeat (1)\n                            add [Spring] to [objects v]\n                            add [220] to [objects v]\n                            add [290] to [objects v]\n                            add [40] to [objects v]\n                            add [5] to [objects v]\n                        end\n                    end\n                else\n                    if <(№) = [6]> then\n                        repeat (1)\n                            repeat (1)\n                                add [15] to [collision v]\n                                add [275] to [collision v]\n                                add [20] to [collision v]\n                                add [20] to [collision v]\n                            end\n                            repeat (1)\n                                add [105] to [collision v]\n                                add [100] to [collision v]\n                                add [40] to [collision v]\n                                add [200] to [collision v]\n                            end\n                            repeat (1)\n                                add [400] to [collision v]\n                                add [100] to [collision v]\n                                add [40] to [collision v]\n                                add [200] to [collision v]\n                            end\n                        end\n                        repeat (1)\n                            repeat (1)\n                                add [Finish] to [objects v]\n                                add [370] to [objects v]\n                                add [170] to [objects v]\n                                add [20] to [objects v]\n                                add [20] to [objects v]\n                            end\n                            repeat (1)\n                                add [Spring] to [objects v]\n                                add [55] to [objects v]\n                                add [290] to [objects v]\n                                add [40] to [objects v]\n                                add [5] to [objects v]\n                            end\n                            repeat (1)\n                                add [Water] to [objects v]\n                                add [145] to [objects v]\n                                add [100] to [objects v]\n                                add [255] to [objects v]\n                                add [200] to [objects v]\n                            end\n                        end\n                    else\n                        if <(№) = [7]> then\n                            repeat (1)\n                                repeat (1)\n                                    add [15] to [collision v]\n                                    add [275] to [collision v]\n                                    add [20] to [collision v]\n                                    add [20] to [collision v]\n                                end\n                                repeat (1)\n                                    add [105] to [collision v]\n                                    add [100] to [collision v]\n                                    add [40] to [collision v]\n                                    add [200] to [collision v]\n                                end\n                                repeat (1)\n                                    add [145] to [collision v]\n                                    add [240] to [collision v]\n                                    add [100] to [collision v]\n                                    add [20] to [collision v]\n                                end\n                                repeat (1)\n                                    add [175] to [collision v]\n                                    add [190] to [collision v]\n                                    add [400] to [collision v]\n                                    add [20] to [collision v]\n                                end\n                            end\n                            repeat (1)\n                                repeat (1)\n                                    add [Finish] to [objects v]\n                                    add [155] to [objects v]\n                                    add [270] to [objects v]\n                                    add [20] to [objects v]\n                                    add [20] to [objects v]\n                                end\n                                repeat (1)\n                                    add [Lava] to [objects v]\n                                    add [285] to [objects v]\n                                    add [210] to [objects v]\n                                    add [5] to [objects v]\n                                    add [90] to [objects v]\n                                end\n                                repeat (1)\n                                    add [Lava] to [objects v]\n                                    add [175] to [objects v]\n                                    add [180] to [objects v]\n                                    add [400] to [objects v]\n                                    add [5] to [objects v]\n                                end\n                                repeat (1)\n                                    add [Spring] to [objects v]\n                                    add [55] to [objects v]\n                                    add [290] to [objects v]\n                                    add [40] to [objects v]\n                                    add [5] to [objects v]\n                                end\n                                repeat (1)\n                                    add [Water] to [objects v]\n                                    add [145] to [objects v]\n                                    add [100] to [objects v]\n                                    add [335] to [objects v]\n                                    add [200] to [objects v]\n                                end\n                            end\n                        else\n                            if <(№) = [8]> then\n                                repeat (1)\n                                    repeat (1)\n                                        add [15] to [collision v]\n                                        add [120] to [collision v]\n                                        add [20] to [collision v]\n                                        add [20] to [collision v]\n                                    end\n                                    repeat (1)\n                                        add [-10] to [collision v]\n                                        add [145] to [collision v]\n                                        add [450] to [collision v]\n                                        add [10] to [collision v]\n                                    end\n                                    repeat (1)\n                                        add [-10] to [collision v]\n                                        add [-100] to [collision v]\n                                        add [10] to [collision v]\n                                        add [400] to [collision v]\n                                    end\n                                    repeat (1)\n                                        add [100] to [collision v]\n                                        add [80] to [collision v]\n                                        add [10] to [collision v]\n                                        add [65] to [collision v]\n                                    end\n                                    repeat (1)\n                                        add [180] to [collision v]\n                                        add [60] to [collision v]\n                                        add [10] to [collision v]\n                                        add [85] to [collision v]\n                                    end\n                                    repeat (1)\n                                        add [240] to [collision v]\n                                        add [0] to [collision v]\n                                        add [10] to [collision v]\n                                        add [65] to [collision v]\n                                    end\n                                    repeat (1)\n                                        add [300] to [collision v]\n                                        add [155] to [collision v]\n                                        add [10] to [collision v]\n                                        add [50] to [collision v]\n                                    end\n                                    repeat (1)\n                                        add [300] to [collision v]\n                                        add [280] to [collision v]\n                                        add [10] to [collision v]\n                                        add [20] to [collision v]\n                                    end\n                                    repeat (1)\n                                        add [210] to [collision v]\n                                        add [155] to [collision v]\n                                        add [10] to [collision v]\n                                        add [20] to [collision v]\n                                    end\n                                    repeat (1)\n                                        add [210] to [collision v]\n                                        add [250] to [collision v]\n                                        add [10] to [collision v]\n                                        add [50] to [collision v]\n                                    end\n                                    repeat (1)\n                                        add [120] to [collision v]\n                                        add [155] to [collision v]\n                                        add [10] to [collision v]\n                                        add [40] to [collision v]\n                                    end\n                                    repeat (1)\n                                        add [120] to [collision v]\n                                        add [270] to [collision v]\n                                        add [10] to [collision v]\n                                        add [30] to [collision v]\n                                    end\n                                end\n                                repeat (1)\n                                    repeat (1)\n                                        add [Finish] to [objects v]\n                                        add [10] to [objects v]\n                                        add [220] to [objects v]\n                                        add [20] to [objects v]\n                                        add [20] to [objects v]\n                                    end\n                                    repeat (1)\n                                        add [Lava] to [objects v]\n                                        add [300] to [objects v]\n                                        add [210] to [objects v]\n                                        add [10] to [objects v]\n                                        add [5] to [objects v]\n                                    end\n                                    repeat (1)\n                                        add [Lava] to [objects v]\n                                        add [300] to [objects v]\n                                        add [270] to [objects v]\n                                        add [10] to [objects v]\n                                        add [5] to [objects v]\n                                    end\n                                    repeat (1)\n                                        add [Lava] to [objects v]\n                                        add [210] to [objects v]\n                                        add [180] to [objects v]\n                                        add [10] to [objects v]\n                                        add [5] to [objects v]\n                                    end\n                                    repeat (1)\n                                        add [Lava] to [objects v]\n                                        add [210] to [objects v]\n                                        add [240] to [objects v]\n                                        add [10] to [objects v]\n                                        add [5] to [objects v]\n                                    end\n                                    repeat (1)\n                                        add [Lava] to [objects v]\n                                        add [120] to [objects v]\n                                        add [200] to [objects v]\n                                        add [10] to [objects v]\n                                        add [5] to [objects v]\n                                    end\n                                    repeat (1)\n                                        add [Lava] to [objects v]\n                                        add [120] to [objects v]\n                                        add [260] to [objects v]\n                                        add [10] to [objects v]\n                                        add [5] to [objects v]\n                                    end\n                                    repeat (1)\n                                        add [Water] to [objects v]\n                                        add [3] to [objects v]\n                                        add [160] to [objects v]\n                                        add [476] to [objects v]\n                                        add [135] to [objects v]\n                                    end\n                                    repeat (1)\n                                        add [Lava] to [objects v]\n                                        add [370] to [objects v]\n                                        add [130] to [objects v]\n                                        add [40] to [objects v]\n                                        add [10] to [objects v]\n                                    end\n                                    repeat (1)\n                                        add [Lava] to [objects v]\n                                        add [100] to [objects v]\n                                        add [70] to [objects v]\n                                        add [10] to [objects v]\n                                        add [5] to [objects v]\n                                    end\n                                    repeat (1)\n                                        add [Lava] to [objects v]\n                                        add [180] to [objects v]\n                                        add [50] to [objects v]\n                                        add [10] to [objects v]\n                                        add [5] to [objects v]\n                                    end\n                                    repeat (1)\n                                        add [Lava] to [objects v]\n                                        add [240] to [objects v]\n                                        add [70] to [objects v]\n                                        add [10] to [objects v]\n                                        add [5] to [objects v]\n                                    end\n                                end\n                            else\n                                if <(№) = [9]> then\n                                    repeat (1)\n                                        repeat (1)\n                                            add [15] to [collision v]\n                                            add [275] to [collision v]\n                                            add [20] to [collision v]\n                                            add [20] to [collision v]\n                                        end\n                                    end\n                                    repeat (1)\n                                        repeat (1)\n                                            add [Finish] to [objects v]\n                                            add [450] to [objects v]\n                                            add [220] to [objects v]\n                                            add [20] to [objects v]\n                                            add [20] to [objects v]\n                                        end\n                                        repeat (1)\n                                            add [Lava] to [objects v]\n                                            add [55] to [objects v]\n                                            add [140] to [objects v]\n                                            add [300] to [objects v]\n                                            add [5] to [objects v]\n                                        end\n                                        repeat (1)\n                                            add [Spring] to [objects v]\n                                            add [55] to [objects v]\n                                            add [290] to [objects v]\n                                            add [30] to [objects v]\n                                            add [5] to [objects v]\n                                        end\n                                        repeat (1)\n                                            add [Spring] to [objects v]\n                                            add [140] to [objects v]\n                                            add [290] to [objects v]\n                                            add [30] to [objects v]\n                                            add [5] to [objects v]\n                                        end\n                                        repeat (1)\n                                            add [Spring] to [objects v]\n                                            add [225] to [objects v]\n                                            add [290] to [objects v]\n                                            add [30] to [objects v]\n                                            add [5] to [objects v]\n                                        end\n                                        repeat (1)\n                                            add [Spring] to [objects v]\n                                            add [310] to [objects v]\n                                            add [290] to [objects v]\n                                            add [30] to [objects v]\n                                            add [5] to [objects v]\n                                        end\n                                    end\n                                else\n                                    if <(№) = [10]> then\n                                        repeat (1)\n                                            repeat (1)\n                                                add [15] to [collision v]\n                                                add [245] to [collision v]\n                                                add [50] to [collision v]\n                                                add [50] to [collision v]\n                                            end\n                                            repeat (1)\n                                                add [-100] to [collision v]\n                                                add [159] to [collision v]\n                                                add [680] to [collision v]\n                                                add [10] to [collision v]\n                                            end\n                                        end\n                                        repeat (1)\n                                            repeat (1)\n                                                add [Spring] to [objects v]\n                                                add [145] to [objects v]\n                                                add [40] to [objects v]\n                                                add [10] to [objects v]\n                                                add [100] to [objects v]\n                                            end\n                                            repeat (1)\n                                                add [Spring] to [objects v]\n                                                add [155] to [objects v]\n                                                add [40] to [objects v]\n                                                add [40] to [objects v]\n                                                add [10] to [objects v]\n                                            end\n                                            repeat (1)\n                                                add [Spring] to [objects v]\n                                                add [155] to [objects v]\n                                                add [85] to [objects v]\n                                                add [40] to [objects v]\n                                                add [10] to [objects v]\n                                            end\n                                            repeat (1)\n                                                add [Spring] to [objects v]\n                                                add [155] to [objects v]\n                                                add [130] to [objects v]\n                                                add [40] to [objects v]\n                                                add [10] to [objects v]\n                                            end\n                                            repeat (1)\n                                                add [Lava] to [objects v]\n                                                add [235] to [objects v]\n                                                add [40] to [objects v]\n                                                add [10] to [objects v]\n                                                add [100] to [objects v]\n                                            end\n                                            repeat (1)\n                                                add [Lava] to [objects v]\n                                                add [275] to [objects v]\n                                                add [40] to [objects v]\n                                                add [10] to [objects v]\n                                                add [100] to [objects v]\n                                            end\n                                            repeat (1)\n                                                add [Lava] to [objects v]\n                                                add [245] to [objects v]\n                                                add [65] to [objects v]\n                                                add [10] to [objects v]\n                                                add [10] to [objects v]\n                                            end\n                                            repeat (1)\n                                                add [Lava] to [objects v]\n                                                add [255] to [objects v]\n                                                add [75] to [objects v]\n                                                add [10] to [objects v]\n                                                add [20] to [objects v]\n                                            end\n                                            repeat (1)\n                                                add [Lava] to [objects v]\n                                                add [265] to [objects v]\n                                                add [95] to [objects v]\n                                                add [10] to [objects v]\n                                                add [10] to [objects v]\n                                            end\n                                            repeat (1)\n                                                add [Water] to [objects v]\n                                                add [325] to [objects v]\n                                                add [40] to [objects v]\n                                                add [10] to [objects v]\n                                                add [100] to [objects v]\n                                            end\n                                            repeat (1)\n                                                add [Water] to [objects v]\n                                                add [365] to [objects v]\n                                                add [50] to [objects v]\n                                                add [10] to [objects v]\n                                                add [80] to [objects v]\n                                            end\n                                            repeat (1)\n                                                add [Water] to [objects v]\n                                                add [335] to [objects v]\n                                                add [40] to [objects v]\n                                                add [30] to [objects v]\n                                                add [10] to [objects v]\n                                            end\n                                            repeat (1)\n                                                add [Water] to [objects v]\n                                                add [335] to [objects v]\n                                                add [130] to [objects v]\n                                                add [30] to [objects v]\n                                                add [10] to [objects v]\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nrepeat (1)\n    add [-60] to [collision v]\n    add [300] to [collision v]\n    add [600] to [collision v]\n    add [100] to [collision v]\nend\nrepeat (1)\n    add [-80] to [collision v]\n    add [-60] to [collision v]\n    add [20] to [collision v]\n    add [420] to [collision v]\nend\nrepeat (1)\n    add [560] to [collision v]\n    add [-60] to [collision v]\n    add [20] to [collision v]\n    add [420] to [collision v]\nend\n\ndefine Объекты\nset [# tempdata №3 v] to [true]\nset [in water? v] to [false]\nset [# tempdata №1 v] to [0]\nrepeat ((length of [objects v]) / (5))\n    change [# tempdata №1 v] by (1)\n    if <(# TempData №3) = [true]> then\n        Пересекаются ли ((item (1) of [collision v]) + (-6)) ((item (2) of [collision v]) + (-6)) ((item (3) of [collision v]) + (12)) ((item (4) of [collision v]) + (12)) с (item ((((# TempData №1) - (1)) * (5)) + (2)) of [objects v]) (item ((((# TempData №1) - (1)) * (5)) + (3)) of [objects v]) (item ((((# TempData №1) - (1)) * (5)) + (4)) of [objects v]) (item ((((# TempData №1) - (1)) * (5)) + (5)) of [objects v])\n        if <(# TempData №2) = [true]> then\n            if <(item ((((# TempData №1) - (1)) * (5)) + (1)) of [objects v]) = [Finish]> then\n                set [текущий lvl v] to (((Текущий LVL) mod (10)) + (1))\n                Загрузить Ур. (Текущий LVL)\n                set [# tempdata №3 v] to [false]\n            else\n                if <(item ((((# TempData №1) - (1)) * (5)) + (1)) of [objects v]) = [Lava]> then\n                    Загрузить Ур. (Текущий LVL)\n                    set [# tempdata №3 v] to [false]\n                else\n                    if <(item ((((# TempData №1) - (1)) * (5)) + (1)) of [objects v]) = [Spring]> then\n                        change [скорость y v] by (-20)\n                    else\n                        if <(item ((((# TempData №1) - (1)) * (5)) + (1)) of [objects v]) = [Water]> then\n                            set [in water? v] to [true]\n                        else\n                            if <(item ((((# TempData №1) - (1)) * (5)) + (1)) of [objects v]) = []> then\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\n@preview\n\nwhen flag clicked\nhide\n\ngo to x: (0) y: (0)\nshow\n\n
Collision - a 100% PEN Platformer\nIt's a platformer made by a pen. (100%)\nControl player - arrows.\nEnjoy the game!\n\nIf You like the project - like it and follow me))\nI will have many more interesting projects!