▲Summer tryangle platformer▲

Instructions: 日本語は下\nUse the right arrow key to move to the right\nUse the left arrow key to move to the left\nJump with the up arrow key\nWhen you touch the needle or lava, from the beginning\n日本語\n右矢印キーで右に進む\n左矢印キーで左に進む\n上矢印キーでジャンプ\n針、溶岩に触れると最初から\n\n夏の夕方を意識しました！

@Stage\n\nwhen flag clicked\nswitch backdrop to (背景1 v)\n\nwhen I receive [a v]\nswitch backdrop to (背景１ v)\n\n@主人公\n\nwhen flag clicked\nset size to (100) %\nforever\n    reset timer\nend\n\nwhen flag clicked\nhide variable [time v]\nhide\n\nwhen I start as a clone\nset [ghost v] effect to (0)\nset size to (100) %\nrepeat (10)\n    change size by (-7)\n    change [ghost v] effect by (10)\nend\ndelete this clone\n\ndefine リセット\nset [x v] to [0]\nset [y v] to [0]\nset size to (100) %\nshow\nset rotation style [left-right v]\npoint in direction (90)\ngo to [front v] layer\ngo to x: (-199) y: (-30)\ndelete this clone\n\nwhen I receive [処理終了時リセット v]\nリセット\n\nwhen flag clicked\n\nwhen I receive [a v]\nhide variable [☁ 世界最高記録　world record v]\nset [time v] to [0]\nset [x v] to [0]\nset [y v] to [0]\nhide variable [x v]\nshow variable [time v]\nhide variable [y v]\nswitch backdrop to (背景1 v)\nset size to (100) %\nshow\nset rotation style [left-right v]\npoint in direction (90)\ngo to [front v] layer\ngo to x: (-199) y: (-30)\nforever\n    if <<key (right arrow v) pressed?> or <<(x position) < (mouse x)> and <mouse down?>>> then\n        point in direction (90)\n        change [x v] by (1)\n    end\n    if <<key (left arrow v) pressed?> or <<(mouse x) < (x position)> and <mouse down?>>> then\n        point in direction (-90)\n        change [x v] by (-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                            change y by (1)\n                            if <touching (地面 v)?> then\n                                change x by ((x) * (-1))\n                                change y by (-5)\n                                if <<key (up arrow v) pressed?> or <<(y position) < (mouse y)> and <mouse down?>>> then\n                                    if <(x) > [0]> then\n                                        set [x v] to [-8]\n                                    else\n                                        set [x v] to [8]\n                                    end\n                                    set [y v] to [13]\n                                else\n                                    set [x v] to [0]\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (-1)\n    if <<key (up arrow v) pressed?> or <<(y position) < (mouse y)> and <mouse down?>>> then\n        if <touching (地面 v)?> then\n            start sound [じゃん v]\n            set [y v] to [14]\n        end\n    end\n    change [y v] by (-1)\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  then\n        broadcast (next v)\n    end\n    if <touching (とげ v)?> then\n        リセット\n    end\nend\n\nwhen I receive [a v]\nforever\n    create clone of (_myself_ v)\nend\n\nwhen I receive [a v]\n\nwhen I receive [a v]\nforever\n    play sound [Mystery2 v] until done\nend\n\nchange size by (10)\n\nset rotation style [all around v]\n\n@地面\n\nwhen flag clicked\nset [大きさ（地面） v] to [100]\nhide variable [☁ 世界最高記録　world record v]\nhide variable [大きさ（地面） v]\nset size to (100) %\nshow\ngo to [front v] layer\ngo to x: (0) y: (0)\nswitch costume to (コスチューム1 v)\n\nwhen I receive [next v]\nnext costume\nbroadcast (処理終了時リセット v)\n\nwhen flag clicked\nhide\n\nwhen I receive [a v]\nshow\nforever\n    repeat until <(costume [name v]) = [最終ステージ]>\n        wait (1) seconds\n        change [time v] by (1)\n    end\n    if <(costume [name v]) = [最終ステージ]> then\n        show variable [time v]\n    end\nend\n\nwhen flag clicked\nset [time v] to [0]\n\n@Cerulean's Assets\n\ndefine Smooth Glide To X: (x) Y: (y) at Speed: (speed)\nset [prex v] to (x position)\nset [prey v] to (y position)\nset [postx v] to (x)\nset [posty v] to (y)\nrepeat ((speed) * ((speed) / ((speed) / (5))))\n    change x by (((x) / (speed)) - ((x position) / (speed)))\n    change y by (((y) / (speed)) - ((y position) / (speed)))\nend\nset x to (PostX)\nset y to (PostY)\n\nwhen flag clicked\nforever\n    change [speed v] by (((0) - (speed)) / (5))\nend\n\nwhen I start as a clone\nif <(Clone ID) = [50]> then\n    go to [back v] layer\n    set size to (10) %\n    switch costume to (chevron v)\n    point in direction (90)\n    show\n    repeat until <(size) > [750]>\n        switch costume to (costume1 v)\n        change size by (speed)\n        switch costume to (chevron v)\n    end\n    delete this clone\nend\n\ndefine Chev\nflash\nset [clone id v] to [50]\nset [speed v] to [50]\ncreate clone of (_myself_ v)\n\ndefine Spin2\nrepeat (3)\n    set [dir v] to (direction)\n    turn right (32) degrees\nend\nrepeat until <(round (direction)) = (round (90))>\n    set [dir v] to (direction)\n    turn right (((90) - (direction)) / (9)) degrees\nend\n\ndefine Size Hack l Size: (size) Speed: (speed) Costume (costume)\nrepeat until <(round (size)) = (size)>\n    switch costume to (costume1 v)\n    change size by (((size) - (size)) / (speed))\n    switch costume to (costume)\nend\n\nwhen I start as a clone\nif <(Clone ID) = [LE]> then\n    show\n    switch costume to (le v)\n    go to [back v] layer\n    go [forward v] (1) layers\n    go to x: (LE X) y: (LE Y)\n    set [spd v] to [15]\n    repeat (13)\n        move (spd) steps\n        change [spd v] by (-0.75)\n        next costume\n    end\n    repeat (2)\n        move (spd) steps\n        change [spd v] by (-0.75)\n        next costume\n        change [ghost v] effect by (5)\n    end\n    repeat (10)\n        change [ghost v] effect by (9)\n        move (spd) steps\n        change [spd v] by (-0.8)\n    end\nend\n\ndefine LE Burst (x) (y) color (c) amount (a) bright (b) dir (d)\nset [le x v] to (x)\nset [le y v] to (y)\nset [color v] effect to (c)\nset [brightness v] effect to (b)\npoint in direction (d)\nrepeat (a)\n    Clone [LE]\n    turn right ((360) / (a)) degrees\nend\nclear graphic effects\npoint in direction (90)\n\ndefine Clone ()\nset [clone id v] to ()\ncreate clone of (_myself_ v)\nset [clone id v] to [0]\n\nLE Burst [] [] color [130] amount [10] bright [70] dir [90]\n\nLE Burst [] [] color [20] amount [10] bright [0] dir [90]\n\nwhen I start as a clone\nif <(Clone ID) = [BG Fractal]> then\n    show\n    switch costume to (blank v)\n    set size to (130) %\n    switch costume to (shines v)\n    repeat (44)\n        switch costume to (blank v)\n        change size by (((60) - (size)) / (8))\n        switch costume to (shines v)\n    end\nend\n\nwhen flag clicked\nstart sound [Axwell Λ Ingrosso - More Than You Know v]\nwait (1) seconds\nChev\nSpin2\n\nwhen I start as a clone\nif <(Clone ID) = [BG Fractal]> then\n    point in direction (90)\n    show\n    go to x: (pick random (-15) to (15)) y: (pick random (-15) to (15))\n    switch costume to (shines v)\n    go to [back v] layer\n    go [backward v] (1) layers\n    show\n    set size to (100) %\n    set [ghost v] effect to (100)\n    repeat (20)\n        change [ghost v] effect by (-5)\n    end\n    repeat (20)\n        change [ghost v] effect by (5)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone ID) = [6]> then\n    show\n    go to [back v] layer\n    set [ghost v] to [100]\n    switch costume to (pick random (20) to (22))\n    set size to (pick random (50) to (20)) %\n    set [ghost v] effect to (pick random (20) to (40))\n    set [cerulean's assets: x v] to (pick random (-0.5) to (0.5))\n    set [cerulean's assets: y v] to (pick random (-0.5) to (0.5))\n    go to (random position v)\n    repeat until <(ghost) < [50]>\n        turn right ((size) / (10)) degrees\n        change x by (((size) / (pick random (20) to (30))) * (Cerulean's Assets: x))\n        change y by (((size) / (pick random (20) to (30))) * (Cerulean's Assets: y))\n        change [ghost v] by (round (((size) / (pick random (20) to (30))) * (-1)))\n        set [ghost v] effect to (ghost)\n        change size by (0.2)\n    end\n    repeat until <(ghost) > [99]>\n        turn right ((size) / (10)) degrees\n        change x by (((size) / (pick random (20) to (30))) * (Cerulean's Assets: x))\n        change y by (((size) / (pick random (20) to (30))) * (Cerulean's Assets: y))\n        change [ghost v] by ((size) / (pick random (20) to (30)))\n        set [ghost v] effect to (ghost)\n        change size by (0.2)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone ID) = [5]> then\n    point in direction (90)\n    go to x: (0) y: (0)\n    set [brightness v] effect to (100)\n    switch costume to (bg v)\n    show\n    set [ghost v] effect to (0)\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\nend\n\nwhen flag clicked\nforever\n    change size by (((100) - (size)) / (5))\nend\n\ndefine beat\ngo to [front v] layer\ngo to x: (0) y: (0)\nset [brightness v] effect to (100)\nshow\nset [brightness v] effect to (70)\nset [brightness v] to [70]\nset size to (110) %\nrepeat (10)\n    change [brightness v] effect by (-7)\n    change [brightness v] by (-7)\nend\n\nwhen flag clicked\nwait (1.7) seconds\n1/1 shockwave | size: [200] at: [] [100]\nChev\nbeat\nwait (0.4) seconds\n1/1 shockwave | size: [200] at: [] [-100]\nChev\nbeat\nwait (0.15) seconds\nChev\nbeat\nwait (0.15) seconds\nwait () seconds\nChev\nbeat\nwait (0.15) seconds\nbroadcast (message1 v)\nChev\nbeat\nwait (0) seconds\nChev\nLE Burst [0] [0] color [110] amount [8] bright [0] dir [90]\nbeat\nwait (0.2) seconds\n1/1 shockwave | size: [300] at: [0] [0]\nChev\nwait (0.4) seconds\nChev\nwait (0.4) seconds\nChev\nbroadcast (message1 v)\nwait (1) seconds\nset [clone id v] to [22]\ncreate clone of (_myself_ v)\n\ndefine flash\nset [clone id v] to [5]\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(Clone ID) = [50]> then\n    forever\n        set [brightness v] effect to (brightness)\n        set [color v] effect to (color)\n    end\nend\n\nwhen flag clicked\nforever\n    Clone [BG Fractal]\n    wait (0.1) seconds\nend\n\nwhen flag clicked\nforever\n    Clone [6]\nend\n\nLE Burst [0] [0] color [100] amount [8] bright [-30] dir [90]\n\nwhen I start as a clone\nif < (Clone ID) contains [shockwave]?> then\n    clear graphic effects\n    switch costume to (Clone ID)\n    Go to x: (Cerulean's Assets: x) y: (Cerulean's Assets: y)\n    hide\n    wait ((delay) / (10)) seconds\n    point in direction (direction)\n    show\n    Set size to [10] %\n    set [t v] to [0]\n    repeat (19)\n        Set size to ((size) + (((size) - (size)) / (5))) %\n        set [fisheye v] effect to (([ceiling v] of (([tan v] of (t) ) * (68.6)) ) * (t))\n        change [t v] by (5)\n    end\n    repeat (10)\n        Set size to ((size) + (((size) - (size)) / (5))) %\n        change [ghost v] effect by (25)\n    end\n    delete this clone\nend\n\ndefine Clone (type) (x) (y)\nset [clone id v] to (type)\nset [cerulean's assets: x v] to (x)\nset [cerulean's assets: y v] to (y)\ncreate clone of (_myself_ v)\n\ndefine Set size to (size) %\nSize ph | costume: (costume [name v]) size: (size) movement x: [%] y: [%]\n\ndefine 1/1 shockwave | size: (size) at: (x) (y)\nset [size v] to (size)\nset [direction v] to [90]\nset [delay v] to [0]\nClone [shockwave1/1] (x) (y)\n\ndefine Go to x: (x) y: (y)\nSize ph | costume: (costume [name v]) size: (size) movement x: (x) y: (y)\n\ndefine Size ph | costume: (costume) size: (size) movement x: (tx) y: (ty)\nswitch costume to (blank v)\nset size to (999999999999999999999) %\nswitch costume to (bg v)\nif <not <(tx) = [%]>> then\n    go to x: (tx) y: (ty)\nend\nif <[130] > (size)> then\n    switch costume to (bg v)\nelse\n    switch costume to (blank v)\nend\nset size to (size) %\nswitch costume to (costume)\n\n1/1 shockwave | size: [200] at: [-220] [150]\n\n1/1 shockwave | size: [200] at: [220] [150]\nwait (0) seconds\n1/1 shockwave | size: [200] at: [220] [-150]\n\nwhen I receive [message1 v]\nchange [color v] effect by (25)\nchange [color v] by (25)\nwait (0.15) seconds\nchange [color v] effect by (25)\nchange [color v] by (25)\nwait (0.15) seconds\nset [color v] effect to (0)\nset [color v] to [0]\n\nwhen I start as a clone\nif <(Clone ID) = [BG Fractal]> then\n    forever\n        set [brightness v] effect to (brightness)\n        set [color v] effect to (color)\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [6]> then\n    forever\n        set [brightness v] effect to (brightness)\n        set [color v] effect to (color)\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [22]> then\n    go to [front v] layer\n    Size Hack l Size: [667] Speed: [5] Costume [costume4]\n    wait (2) seconds\n    broadcast (a v)\nend\n\nwhen I receive [a v]\nhide\nbroadcast (スタート v)\nstop [this script v]\n\nwhen flag clicked\nshow\n\nwhen I receive [a v]\n\nbroadcast (a v)\n\nbroadcast (a v)\n\nplay sound [Laser1 v] until done\n\nforever\n\n@とげ\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nset size to (100) %\nshow\ngo to [back v] layer\n\nwhen I receive [next v]\nnext costume\n\nwhen [timer v] > (0)\nshow\nswitch costume to (コスチューム9 v)\ngo to [back v] layer\n\n@スプライト1\n\nwhen flag clicked\nhide\n\nshow\n\n