UFO | A platformer | #all #games #trending #art 
@Stage\n\nwhen flag clicked\nforever\n    play sound [Bgm v] until done\nend\n\n@player\n\nwhen flag clicked\nhide\nset size to (60) %\ngo to x: (-220) y: (50)\ngo to [back v] layer\n\nwhen flag clicked\ngo to [front v] layer\ngo [backward v] (1) layers\nshow\nset rotation style [left-right v]\npoint in direction (90)\nset [x v] to [0]\nset [y v] to [0]\nforever\n    if <<touching (spike v)?> or <(y position) < [-165]>> then\n        start sound [crashed oof v]\n        repeat (10)\n            change [ghost v] effect by (7)\n        end\n        clear graphic effects\n        go to x: (-210) y: (50)\n    end\n    if <<<(x position) > (mouse x)> and <mouse down?>> or <key (left arrow v) pressed?>> then\n        change [xのやつ v] by (-1)\n        point in direction (-90)\n    end\n    if <<<(mouse x) > (x position)> and <mouse down?>> or <key (right arrow v) pressed?>> then\n        change [xのやつ v] by (1)\n        point in direction (90)\n    end\n    set [xのやつ v] to ((xのやつ) * (0.9))\n    change x by (xのやつ)\n    if <touching (road- v)?> then\n        change y by (1)\n        if <touching (road- v)?> then\n            change y by (1)\n            if <touching (road- v)?> then\n                change y by (1)\n                if <touching (road- v)?> then\n                    change y by (1)\n                    if <touching (road- v)?> then\n                        change y by (1)\n                        if <touching (road- v)?> then\n                            change x by ((xのやつ) * (-1))\n                            change y by (-5)\n                            if <<key (up arrow v) pressed?> or <<(mouse y) > (y position)> and <mouse down?>>> then\n                                start sound [ニュッ v]\n                                if <(xのやつ) > [0]> then\n                                    set [xのやつ v] to [-7]\n                                else\n                                    set [xのやつ v] to [7]\n                                end\n                                set [ｙだー v] to [15]\n                            else\n                                set [xのやつ v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (-1)\n    if <touching (road- v)?> then\n        if <<key (up arrow v) pressed?> or <<(mouse y) > (y position)> and <mouse down?>>> then\n            set [ｙだー v] to [16.3]\n            start sound [ニュッ v]\n        end\n    end\n    change y by (1)\n    change [ｙだー v] by (-1)\n    change y by (ｙだー)\n    if <touching (road- v)?> then\n        change y by ((ｙだー) * (-1))\n        set [ｙだー v] to [0]\n    end\n    if <(x position) > [230]> then\n        if <not <(ステージ) = [13]>> then\n            broadcast (next v)\n            start sound [Rip v]\n            set x to (-216)\n        end\n    end\n    if <[-230] > (x position)> then\n        if <not <(ステージ) = [1]>> then\n            broadcast (戻る v)\n            start sound [Rip v]\n            set x to (216)\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    if <<(ハートB) = [Yes]> and <(星B) = [Yes]>> then\n        switch costume to (player3 v)\n        change [color v] effect by (-5)\n    else\n        switch costume to (player2 v)\n    end\nend\n\n@spike\n\nwhen flag clicked\ngo to x: (0) y: (0)\nswitch costume to (1 v)\nshow\n\nwhen I receive [next v]\nnext costume\n\nwhen I receive [戻る v]\nswitch costume to ((costume [number v]) - (1))\n\nwhen flag clicked\nforever\n    if <(costume [number v]) = [10]> then\n        go to x: (0) y: (70)\n        turn left (5) degrees\n    else\n        go to x: (0) y: (0)\n        point in direction (90)\n    end\nend\n\n@road-\n\nwhen flag clicked\ngo to [front v] layer\nswitch costume to (1 v)\n\nwhen I receive [next v]\nnext costume\nif <(costume [number v]) = [1]> then\n    wait (0) seconds\n    broadcast (1 v)\nend\nif <(costume [number v]) = [2]> then\n    wait (0) seconds\n    broadcast (2 v)\nend\nif <(costume [number v]) = [3]> then\n    wait (0) seconds\n    broadcast (3 v)\nend\nif <(costume [number v]) = [4]> then\n    wait (0) seconds\n    broadcast (4 v)\nend\nif <(costume [number v]) = [5]> then\n    wait (0) seconds\n    broadcast (5 v)\nend\nif <(costume [number v]) = [6]> then\n    wait (0) seconds\n    broadcast (6 v)\nend\nif <(costume [number v]) = [7]> then\n    wait (0) seconds\n    broadcast (7 v)\nend\nif <(costume [number v]) = [8]> then\n    wait (0) seconds\n    broadcast (8 v)\nend\nif <(costume [number v]) = [9]> then\n    wait (0) seconds\n    broadcast (9 v)\nend\nif <(costume [number v]) = [10]> then\n    wait (0) seconds\n    broadcast (10 v)\nend\nif <(costume [number v]) = [11]> then\n    wait (0) seconds\n    broadcast (11 v)\nend\nif <(costume [number v]) = [12]> then\n    wait (0) seconds\n    broadcast (12 v)\nend\nif <(costume [number v]) = [13]> then\n    wait (0) seconds\n    broadcast (13 v)\nend\n\nwhen I receive [戻る v]\nswitch costume to ((costume [number v]) - (1))\nif <(costume [number v]) = [1]> then\n    wait (0) seconds\n    broadcast (1 v)\nend\nif <(costume [number v]) = [2]> then\n    wait (0) seconds\n    broadcast (2 v)\nend\nif <(costume [number v]) = [3]> then\n    wait (0) seconds\n    broadcast (3 v)\nend\nif <(costume [number v]) = [4]> then\n    wait (0) seconds\n    broadcast (4 v)\nend\nif <(costume [number v]) = [5]> then\n    wait (0) seconds\n    broadcast (5 v)\nend\nif <(costume [number v]) = [6]> then\n    wait (0) seconds\n    broadcast (6 v)\nend\nif <(costume [number v]) = [7]> then\n    wait (0) seconds\n    broadcast (7 v)\nend\nif <(costume [number v]) = [8]> then\n    wait (0) seconds\n    broadcast (8 v)\nend\nif <(costume [number v]) = [9]> then\n    wait (0) seconds\n    broadcast (9 v)\nend\nif <(costume [number v]) = [10]> then\n    wait (0) seconds\n    broadcast (10 v)\nend\nif <(costume [number v]) = [11]> then\n    wait (0) seconds\n    broadcast (11 v)\nend\nif <(costume [number v]) = [12]> then\n    wait (0) seconds\n    broadcast (12 v)\nend\nif <(costume [number v]) = [13]> then\n    wait (0) seconds\n    broadcast (13 v)\nend\n\nwhen flag clicked\nforever\n    set [ステージ v] to (costume [number v])\nend\n\n@スプライト2\n\nwhen flag clicked\nhide\n\nwhen I receive [クリア v]\ngo to [front v] layer\nshow\nset [ghost v] effect to (100)\nrepeat (20)\n    change [ghost v] effect by (-5)\nend\n\n@雪/Snow\n\nwhen flag clicked\ngo to [front v] layer\ngo [backward v] (2) layers\nhide\nforever\n    switch costume to ( v)\n    set size to (pick random (1) to (5)) %\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nshow\ngo to x: (pick random (-240) to (240)) y: (180)\nrepeat until <(y position) = [-180]>\n    if <(size) = [1]> then\n        turn right (1) degrees\n        change y by (-1)\n    end\n    if <(size) = [2]> then\n        turn right (1) degrees\n        change y by (-2)\n    end\n    if <(size) = [3]> then\n        turn right (1) degrees\n        change y by (-3)\n    end\n    if <(size) = [4]> then\n        turn right (1) degrees\n        change y by (-4)\n    end\n    if <(size) = [5]> then\n        turn right (1) degrees\n        change y by (-5)\n    end\nend\ndelete this clone\n\nif <touching color (#17b2ff)?> then\n    set [brightness v] effect to (0)\nelse\n    if <touching color (#00a8fc)?> then\n        set [brightness v] effect to (-10)\n    else\n        if <touching color (#0097e2)?> then\n            set [brightness v] effect to (-20)\n        else\n            if <touching color (#0078b4)?> then\n                set [brightness v] effect to (-30)\n            else\n                if <touching color (#005e8e)?> then\n                    set [brightness v] effect to (-40)\n                else\n                    if <touching color (#004668)?> then\n                        set [brightness v] effect to (-50)\n                    else\n                        if <touching color (#002f47)?> then\n                            set [brightness v] effect to (-60)\n                        else\n                            if <touching color (#001a27)?> then\n                                set [brightness v] effect to (-70)\n                            else\n                                if <touching color (#000000)?> then\n                                    set [brightness v] effect to (-80)\n                                else\n                                    set [brightness v] effect to (0)\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\n@スプライト1\n\nwhen flag clicked\ngo to x: (0) y: (0)\nset [ghost v] effect to (70)\ngo to [front v] layer\n\n@スプライト3\n\nwhen flag clicked\ngo to [front v] layer\ngo [backward v] (3) layers\nset size to (50) %\nhide\nset [remaining presents/残りのプレゼント v] to [5]\nset [1家 v] to [配っていない]\nset [2家 v] to [配っていない]\nset [3家 v] to [配っていない]\nset [4家 v] to [配っていない]\nset [5家 v] to [配っていない]\nset [time v] to [0]\nshow variable [remaining presents/残りのプレゼント v]\nshow variable [time v]\nshow variable [☁ world record v]\nrepeat until <(remaining presents/残りのプレゼント) = [0]>\n    wait (1) seconds\n    change [time v] by (1)\nend\nhide variable [remaining presents/残りのプレゼント v]\nbroadcast (クリア v)\nif <(time) < (☁ world record)> then\n    set [☁ world record v] to (time)\nend\n\nwhen I receive [3 v]\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nif <(ステージ) = [3]> then\n    go to x: (100) y: (15)\n    if <(1家) = [配っていない]> then\n        switch costume to (1 v)\n        wait until <<touching (player v)?> or <not <(ステージ) = [3]>>>\n        if <not <(ステージ) = [3]>> then\n            delete this clone\n        end\n        if <touching (player v)?> then\n            set [1家 v] to [配った]\n            start sound [Collect v]\n            change [remaining presents/残りのプレゼント v] by (-1)\n            repeat (4)\n                change [brightness v] effect by (25)\n            end\n            switch costume to (2 v)\n            repeat (4)\n                change [brightness v] effect by (-25)\n            end\n            wait until <not <(ステージ) = [3]>>\n            delete this clone\n        end\n    else\n        switch costume to (2 v)\n        wait until <not <(ステージ) = [3]>>\n        delete this clone\n    end\nend\nif <(ステージ) = [6]> then\n    go to x: (0) y: (15)\n    if <(2家) = [配っていない]> then\n        switch costume to (1 v)\n        wait until <<touching (player v)?> or <not <(ステージ) = [6]>>>\n        if <not <(ステージ) = [6]>> then\n            delete this clone\n        end\n        if <touching (player v)?> then\n            set [2家 v] to [配った]\n            start sound [Collect v]\n            change [remaining presents/残りのプレゼント v] by (-1)\n            repeat (4)\n                change [brightness v] effect by (25)\n            end\n            switch costume to (2 v)\n            repeat (4)\n                change [brightness v] effect by (-25)\n            end\n            wait until <not <(ステージ) = [6]>>\n            delete this clone\n        end\n    else\n        switch costume to (2 v)\n        wait until <not <(ステージ) = [6]>>\n        delete this clone\n    end\nend\nif <(ステージ) = [9]> then\n    go to x: (100) y: (15)\n    if <(3家) = [配っていない]> then\n        switch costume to (1 v)\n        wait until <<touching (player v)?> or <not <(ステージ) = [9]>>>\n        if <not <(ステージ) = [9]>> then\n            delete this clone\n        end\n        if <touching (player v)?> then\n            set [3家 v] to [配った]\n            start sound [Collect v]\n            change [remaining presents/残りのプレゼント v] by (-1)\n            repeat (4)\n                change [brightness v] effect by (25)\n            end\n            switch costume to (2 v)\n            repeat (4)\n                change [brightness v] effect by (-25)\n            end\n            wait until <not <(ステージ) = [9]>>\n            delete this clone\n        end\n    else\n        switch costume to (2 v)\n        wait until <not <(ステージ) = [9]>>\n        delete this clone\n    end\nend\nif <(ステージ) = [11]> then\n    go to x: (100) y: (15)\n    if <(4家) = [配っていない]> then\n        switch costume to (1 v)\n        wait until <<touching (player v)?> or <not <(ステージ) = [11]>>>\n        if <not <(ステージ) = [11]>> then\n            delete this clone\n        end\n        if <touching (player v)?> then\n            set [4家 v] to [配った]\n            start sound [Collect v]\n            change [remaining presents/残りのプレゼント v] by (-1)\n            repeat (4)\n                change [brightness v] effect by (25)\n            end\n            switch costume to (2 v)\n            repeat (4)\n                change [brightness v] effect by (-25)\n            end\n            wait until <not <(ステージ) = [11]>>\n            delete this clone\n        end\n    else\n        switch costume to (2 v)\n        wait until <not <(ステージ) = [11]>>\n        delete this clone\n    end\nend\nif <(ステージ) = [13]> then\n    go to x: (100) y: (15)\n    if <(5家) = [配っていない]> then\n        switch costume to (1 v)\n        wait until <<touching (player v)?> or <not <(ステージ) = [13]>>>\n        if <not <(ステージ) = [13]>> then\n            delete this clone\n        end\n        if <touching (player v)?> then\n            set [5家 v] to [配った]\n            start sound [Collect v]\n            change [remaining presents/残りのプレゼント v] by (-1)\n            repeat (4)\n                change [brightness v] effect by (25)\n            end\n            switch costume to (2 v)\n            repeat (4)\n                change [brightness v] effect by (-25)\n            end\n            wait until <not <(ステージ) = [13]>>\n            delete this clone\n        end\n    else\n        switch costume to (2 v)\n        wait until <not <(ステージ) = [13]>>\n        delete this clone\n    end\nend\n\nwhen I receive [6 v]\ncreate clone of (_myself_ v)\n\nwhen I receive [9 v]\ncreate clone of (_myself_ v)\n\nwhen I receive [11 v]\ncreate clone of (_myself_ v)\n\nwhen I receive [13 v]\ncreate clone of (_myself_ v)\n\nwhen flag clicked\n\n@スプライト4\n\nwhen I start as a clone\nswitch costume to (コスチューム2 v)\nset [星b v] to [No]\nforever\n    set [星a v] to <touching (mouse-pointer v)?>\n    if <touching (mouse-pointer v)?> then\n        wait (0.5) seconds\n        set [星b v] to [Yes]\n    end\nend\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\ncreate clone of (_myself_ v)\nset [ハートb v] to [No]\nforever\n    set [ハートa v] to <touching (mouse-pointer v)?>\n    if <touching (mouse-pointer v)?> then\n        wait (0.5) seconds\n        set [ハートb v] to [Yes]\n    end\nend\n\n
\n