【拡散希望】Water - A Platformer

Instructions: 傾向２ｐありがとう\nThanks for the trend ２p\n音楽傾向３位あありがとう\nMusic Trend #3 Oh thank you!

@Stage\n\nwhen I receive [end v]\nwait (2) seconds\nforever\n    play sound (pick random (1) to (2)) until done\nend\n\n@suraimu\n\nwhen I receive [intro v]\ndelete this clone\n\nwhen I receive [intro v]\nhide\nstart sound [Subtact - My Heart v]\nreset timer\nclone [back] [1]\nclone [cycle1] [1]\nwait (0.5) seconds\nclone [cycle2] [1]\nwait (0.3) seconds\nclone [P] [20]\nclone [texts] [1]\nwait (0) seconds\nclone [text ] [1]\nwait (0) seconds\nclone [textr] [1]\nwait (0) seconds\nclone [texta] [1]\nwait (0) seconds\nclone [texti] [1]\nwait (0) seconds\nclone [textm] [1]\nwait (0) seconds\nclone [textu2] [1]\nwait (2) seconds\nclone [square1] [1]\nwait (0.0) seconds\nclone [square2] [1]\nwait (0.05) seconds\nclone [square3] [1]\nwait (0.3) seconds\nclone [square4] [1]\nwait (0.0) seconds\nclone [square5] [1]\nwait (0.05) seconds\nclone [square6] [1]\nwait (0.4) seconds\nclone [P] [20]\nclone [LOGO2] [1]\nclone [LOGO1] [1]\nwait (1.7) seconds\nclone [P] [20]\nclone [cycle3] [1]\nwait (0.4) seconds\nclone [P] [20]\nclone [cycle4] [1]\nwait (1) seconds\nclone [end1] [1]\nwait (0.3) seconds\nclone [end2] [1]\n\ndefine clone (id) (#)\nset [id v] to (id)\nrepeat (#)\n    set [id v] to (id)\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nshow\nif < (ID) contains [back]?> then\n    clear graphic effects\n    go to [front v] layer\n    switch costume to (back v)\nend\nif < (ID) contains [cycle]?> then\n    go to x: (0) y: (0)\n    clear graphic effects\n    go to [front v] layer\n    switch costume to (square v)\n    if < (ID) contains [1]?> then\n        go to x: (0) y: (-130)\n        set [brightness v] effect to (100)\n    end\n    if < (ID) contains [2]?> then\n        go to x: (0) y: (130)\n        set [color v] effect to (56)\n    end\n    if < (ID) contains [3]?> then\n        go to x: (130) y: (0)\n        set [brightness v] effect to (100)\n    end\n    if < (ID) contains [4]?> then\n        go to x: (-130) y: (0)\n        set [color v] effect to (56)\n    end\n    set size to (100) %\n    repeat (30)\n        switch costume to (size hack v)\n        change size by (((830) - (size)) / (5))\n        switch costume to (square v)\n    end\nend\nif < (ID) contains [text]?> then\n    point in direction (90)\n    go to [front v] layer\n    go to x: (0) y: (0)\n    if < (ID) contains [s]?> then\n        switch costume to (not fill text s v)\n        set size to (30) %\n    end\n    if < (ID) contains [ ]?> then\n        switch costume to (not fill text u v)\n        set size to (30) %\n    end\n    if < (ID) contains [r]?> then\n        switch costume to (not fill text r v)\n        set size to (30) %\n    end\n    if < (ID) contains [a]?> then\n        switch costume to (not fill text a v)\n        set size to (30) %\n    end\n    if < (ID) contains [i]?> then\n        switch costume to (not fill text i v)\n        set size to (30) %\n    end\n    if < (ID) contains [m]?> then\n        switch costume to (not fill text m v)\n        set size to (30) %\n    end\n    if < (ID) contains [u]?> then\n        switch costume to (not fill text u2 v)\n        set size to (30) %\n    end\n    repeat (10)\n        change size by (((100) - (size)) / (4))\n    end\nend\nif < (ID) contains [text]?> then\n    point in direction (90)\n    go to [front v] layer\n    go to x: (0) y: (0)\n    if < (ID) contains [s]?> then\n        switch costume to (text s v)\n        set size to (30) %\n    end\n    if < (ID) contains [ ]?> then\n        switch costume to (text u v)\n        set size to (30) %\n    end\n    if < (ID) contains [r]?> then\n        switch costume to (text r v)\n        set size to (30) %\n    end\n    if < (ID) contains [a]?> then\n        switch costume to (text a v)\n        set size to (30) %\n    end\n    if < (ID) contains [i]?> then\n        switch costume to (text i v)\n        set size to (30) %\n    end\n    if < (ID) contains [m]?> then\n        switch costume to (text m v)\n        set size to (30) %\n    end\n    if < (ID) contains [u]?> then\n        switch costume to (text u2 v)\n        set size to (30) %\n    end\n    repeat (10)\n        change size by (((100) - (size)) / (4))\n    end\n    point in direction (91)\n    repeat (75)\n        turn right ([abs v] of (((90) - (direction)) / (6)) ) degrees\n    end\nend\nif < (ID) contains [end]?> then\n    go to x: (0) y: (0)\n    clear graphic effects\n    switch costume to (コスチューム1 v)\n    change [color v] effect by (46)\n    if < (ID) contains [1]?> then\n    if < (ID) contains [2]?> then\n        change [ghost v] effect by (50)\n    end\n    broadcast (end v)\n    set [y v] to [1]\n    repeat (300)\n        switch costume to (pos hack v)\n        go to [front v] layer\n        change y by (y)\n        switch costume to (コスチューム1 v)\n        change [y v] by (-1.2)\n    end\n    delete this clone\nend\nif < (ID) contains [LOGO]?> then\n    point in direction (90)\n    go to [front v] layer\n    go to x: (0) y: (0)\n    switch costume to ( v)\n    set size to (100) %\n    if < (ID) contains [1]?> then\n        switch costume to (logo v)\n        go to x: (0) y: (344)\n    end\n    if < (ID) contains [2]?> then\n        switch costume to (logo2 v)\n        go to x: (0) y: (-344)\n    end\n    repeat (30)\n        change y by (((0) - (y position)) / (5))\n    end\n    repeat (10)\n        change size by (((130) - (size)) / (4))\n    end\n    repeat (3)\n        change size by (((145) - (size)) / (4))\n    end\n    repeat (30)\n        change size by (((20) - (size)) / (4))\n    end\nend\nif < (ID) contains [square]?> then\n    point in direction (90)\n    go to [front v] layer\n    go to x: (0) y: (0)\n    switch costume to ( v)\n    set size to (100) %\n    if < (ID) contains [1]?> then\n        set [brightness v] effect to (-100)\n        set [ghost v] effect to (40)\n        go to x: (130) y: (-515)\n    end\n    if < (ID) contains [2]?> then\n        set [brightness v] effect to (100)\n        go to x: (130) y: (-515)\n    end\n    if < (ID) contains [3]?> then\n        set [brightness v] effect to (47)\n        go to x: (130) y: (-515)\n    end\n    if < (ID) contains [4]?> then\n        set [brightness v] effect to (-100)\n        set [ghost v] effect to (40)\n        go to x: (-130) y: (-515)\n    end\n    if < (ID) contains [5]?> then\n        set [brightness v] effect to (100)\n        go to x: (-130) y: (-515)\n    end\n    if < (ID) contains [6]?> then\n        set [brightness v] effect to (47)\n        go to x: (-130) y: (-515)\n    end\n    repeat until <[-225] < (y position)>\n        change y by (((y position) + (517)) / (2))\n    end\n    repeat until <[-150] < (y position)>\n        change y by (((0) - (y position)) / (6))\n    end\n    repeat until <[-2.5] < (y position)>\n        switch costume to (pos hack v)\n        change y by (((-2) - (y position)) / (8))\n        switch costume to ( v)\n    end\nend\n\nrepeat (10)\n    change size by (((200) - (size)) / (4))\nend\n\nwhen I receive [end v]\nif <not < (ID) contains [end]?>> then\n    delete this clone\nend\n\nwhen I start as a clone\nif <(ID) = [P]> then\n    go to [front v] layer\n    clear graphic effects\n    set [brightness v] effect to (100)\n    switch costume to (pick random (23) to (24))\n    go to x: (0) y: (0)\n    point in direction (pick random (0) to (360))\n    set size to (pick random (50) to (100)) %\n    set [temp v] to (pick random (5.0) to (20.0))\n    repeat until <<<([abs v] of (x position) ) > [150]> or <([abs v] of (y position) ) > [150]>> or <(timer) > ((Keyframe) + (2))>>\n        go to [front v] layer\n        move (Temp) steps\n        set [temp v] to ((Temp) * (.97))\n        turn right (pick random (-5.0) to (5.0)) degrees\n    end\n    repeat (10)\n        go to [front v] layer\n        move (Temp) steps\n        set [temp v] to ((Temp) * (.97))\n        change [ghost v] effect by (10)\n        change size by (-5)\n    end\n    delete this clone\nend\n\nshow\n\nwhen I receive [intro v]\nwait (0.8) seconds\n\nwhen flag clicked\nbroadcast (intro v)\n\n@water\n\nwhen I receive [end v]\nwait (2) seconds\nshow\nforever\n    あああああああああああ\nend\n\nwhen flag clicked\nhide\n\ndefine あああああああああああ\ngo to [front v] layer\nset [ghost v] effect to (50)\n\n@地面\n\nwhen flag clicked\nswitch costume to (1 \(1\) v)\nhide\n\nwhen I receive [end v]\nwait (2) seconds\nshow\n\nwhen I receive [next v]\nnext costume\n\n@player\n\nwhen flag clicked\nhide\n\ndefine 初期設定プログラム\nshow\npoint in direction (90)\nset [x v] to [0]\nset [y v] to [0]\nswitch costume to (右 v)\ngo to x: (-200) y: (-50)\n\nwhen I receive [end v]\n初期設定プログラム\nset rotation style [left-right v]\nwait (2) seconds\nforever\n    if <touching (water v)?> then\n        change [y v] by (-1)\n        set [y v] to [-1.2]\n        if <<key (up arrow v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>> then\n            set [y v] to [3]\n        end\n    end\n    if <<key (right arrow v) pressed?> or <<<mouse down?> and <(x position) < (mouse x)>> or <key (d v) pressed?>>> then\n        point in direction (90)\n        change [x v] by (1.1)\n    end\n    if <<key (left arrow v) pressed?> or <<<mouse down?> and <(mouse x) < (x position)>> or <key (a v) pressed?>>> then\n        point in direction (-90)\n        change [x v] by (-1.1)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\n    if <touching (地面 v)?> then\n        change y by (1)\n        if <touching (地面 v)?> then\n            change y by (1)\n            if <touching (地面 v)?> then\n                change y by (1)\n                if <touching (地面 v)?> then\n                    change y by (1)\n                    if <touching (地面 v)?> then\n                        change y by (1)\n                        if <touching (地面 v)?> then\n                            set [地面 v] to [0]\n                            change x by ((x) * (-1))\n                            change y by (-5)\n                            if <<key (up arrow v) pressed?> or <<<mouse down?> and <(mouse y) > (y position)>> or <key (w v) pressed?>>> then\n                                if <(x) < [0]> then\n                                    set [x v] to [10]\n                                else\n                                    set [x v] to [-10]\n                                end\n                                set [y 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    change y by (1)\n    change [y v] by (-0.5)\n    change y by (y)\n    if <touching (地面 v)?> then\n        change y by ((y) * (-1))\n        set [y v] to [0]\n    end\n    if <[240] < (x position)> then\n        初期設定プログラム\n        broadcast (next v)\n    end\n    if <<touching (とげ v)?> or <<(y position) < [-180]> or <touching (とげ v)?>>> then\n        初期設定プログラム\n        start sound [crashed oof v]\n    end\nend\n\nwhen I receive [end v]\nforever\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nswitch costume to (ｃｌｏｎｅ v)\nrepeat (6)\n    change size by (-5)\n    change [ghost v] effect by (7)\nend\ndelete this clone\n\n@アワ\n\nwhen I receive [end v]\nwait (2) seconds\nforever\n    wait (pick random (0.1) to (0.3)) seconds\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\ngo to [front v] layer\npoint in direction (pick random (-360) to (360))\nshow\nset size to (pick random (20) to (40)) %\ngo to (player v)\nrepeat until <touching (_edge_ v)?>\n    change y by (2)\nend\ndelete this clone\n\n@スプライト1\n\nwhen flag clicked\nhide\n\nwhen I receive [end v]\nwait (2) seconds\nshow\nforever\n    go to [front v] layer\n    player 移動\nend\n\ndefine player 移動\ngo to (player v)\n\n@とげ\n\nwhen flag clicked\nswitch costume to (コスチューム2 v)\n\nwhen I receive [next v]\nnext costume\n\n@広告\n\nwhen flag clicked\nswitch costume to (コスチューム2 v)\n\nwhen I receive [next v]\nnext costume\n\n@魚\n\nwhen I receive [end v]\nhide\nwait (2) seconds\nforever\n    wait (pick random (1) to (1.5)) seconds\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nshow\nset size to (40) %\nswitch costume to (pick random (1) to (4))\ngo to (random position v)\npoint in direction (pick random (90) to (-90))\nrepeat until <touching (_edge_ v)?>\n    move (6) steps\nend\ndelete this clone\n\n@スプライト2\n\nwhen I receive [end v]\nforever\n    reset timer\n    go to [front v] layer\n    set [ghost v] effect to (100)\n    go to [front v] layer\nend\n\nwhen flag clicked\ngo to [front v] layer\nset [ghost v] effect to (100)\ngo to [front v] layer\n\nwhen [timer v] > (0.1)\ngo to [front v] layer\n\n