Adventure -A platformer-


@Stage\n\nwhen I receive [title v]\nswitch backdrop to (down? v)\nforever\n    play sound [ParagonX9 - Chaoz Fantasy v] until done\nend\n\nwhen flag clicked\nswitch backdrop to (yeah v)\n\nwhen I receive [start v]\nswitch backdrop to (down?2 v)\n\n@title name\n\nwhen flag clicked\nset size to (10) %\npoint in direction (-90)\nhide\nclear graphic effects\nshow\ngo to x: (-1) y: (300)\nswitch costume to (25192810_32x326 v)\nrepeat until <(y position) < [-2]>\n    change y by (((-4) - (y position)) / (7.5))\n    turn right (((90) - (direction)) / (6)) degrees\n    change size by (((150) - (size)) / (5))\nend\nwait (0.5) seconds\nrepeat until <[300] < (y position)>\n    change y by (((-4) - (y position)) / (-7.5))\n    turn left (((90) - (direction)) / (6)) degrees\n    change size by (((150) - (size)) / (-5))\nend\nhide\nwait (0.1) seconds\nbroadcast (title v)\n\n@next level\n\nwhen flag clicked\nset [なし v] to [0]\nhide\ngo to [front v] layer\n\nwhen I receive [next level v]\nif <(なし) = [0]> then\n    switch costume to (なんか v)\n    go to [front v] layer\n    go to x: (-17) y: (0)\n    set [move ok? v] to [0]\n    show\n    set [勢い v] to [90]\n    repeat (20)\n        set [勢い v] to ((勢い) * (0.9))\n        change x by ((勢い) * (-1))\n    end\n    broadcast (next next level v)\nend\n\nwhen I receive [next next level v]\ngo to [front v] layer\nset [勢い v] to [90]\nrepeat (10)\n    set [勢い v] to ((勢い) * (0.9))\n    change x by ((勢い) * (-1))\nend\nhide\nset [move ok? v] to [1]\n\nset size to (50) %\n\ngo to [front v] layer\nrepeat (15)\n    switch costume to (costume2 v)\n    change size by (-70)\n    switch costume to (costume1 v)\nend\nhide\n\nshow\ngo to [front v] layer\nrepeat (15)\n    switch costume to (costume2 v)\n    change size by (70)\n    switch costume to (costume1 v)\nend\n\nwhen I receive [title v]\nforever\n    change [color v] effect by (1)\nend\n\nwhen [space v] key pressed\nset [なし v] to [1]\nwait until <not <key (space v) pressed?>>\nwait until <key (space v) pressed?>\nset [なし v] to [0]\n\n@Hero\n\nwhen flag clicked\nhide\nhide variable [time v]\n\nwhen I receive [も〜どりだよ☆ v]\nset [xvel v] to [0]\nset [yvel v] to [0]\ngo to x: (-201) y: (-50)\n\nwhen I receive [next level v]\nset [xvel v] to [0]\nset [yvel v] to [0]\ngo to x: (-201) y: (-50)\n\nwhen I receive [start v]\nshow variable [time v]\ngo to [front v] layer\ngo to x: (-201) y: (-50)\nshow\nset size to (100) %\nswitch costume to (1 v)\nset drag mode [not draggable v]\npoint in direction (90)\nset [xvel v] to [0]\nset [yvel v] to [0]\nset [move ok? v] to [1]\nforever\n    if <(Move ok?) = [1]> then\n        show\n        set rotation style [left-right v]\n        if <<<mouse down?> and <(x position) > (mouse x)>> or <key (left arrow v) pressed?>> then\n            change [xv v] by (-1)\n            point in direction (-90)\n        end\n        if <<<mouse down?> and <(x position) < (mouse x)>> or <key (right arrow v) pressed?>> then\n            change [xv v] by (1)\n            point in direction (90)\n        end\n        if <<<mouse down?> and <(mouse y) < (y position)>> or <key (down arrow v) pressed?>> then\n            switch costume to (コスチューム2 v)\n            set [xv v] to ((Xv) * (1.02))\n        else\n            switch costume to (コスチューム1 v)\n        end\n        set [xv v] to ((Xv) * (0.9))\n        change x by (Xv)\n        if <<touching color (#55ff5c)?> or <<<touching color (#37ac3b)?> or <touching color (#174718)?>> or <<touching color (#643400)?> or <touching color (#331a00)?>>>> then\n            change y by (1)\n            if <<touching color (#55ff5c)?> or <<<touching color (#37ac3b)?> or <touching color (#174718)?>> or <<touching color (#643400)?> or <touching color (#331a00)?>>>> then\n                change y by (1)\n                if <<touching color (#55ff5c)?> or <<<touching color (#37ac3b)?> or <touching color (#174718)?>> or <<touching color (#643400)?> or <touching color (#331a00)?>>>> then\n                    change y by (1)\n                    if <<touching color (#55ff5c)?> or <<<touching color (#37ac3b)?> or <touching color (#174718)?>> or <<touching color (#643400)?> or <touching color (#331a00)?>>>> then\n                        change y by (1)\n                        if <<touching color (#55ff5c)?> or <<<touching color (#37ac3b)?> or <touching color (#174718)?>> or <<touching color (#643400)?> or <touching color (#331a00)?>>>> then\n                            change y by (1)\n                            if <<touching color (#55ff5c)?> or <<<touching color (#37ac3b)?> or <touching color (#174718)?>> or <<touching color (#643400)?> or <touching color (#331a00)?>>>> then\n                                change x by ((Xv) * (-1))\n                                change y by (-5)\n                                if <<<mouse down?> and <(y position) < (mouse y)>> or <key (up arrow v) pressed?>> then\n                                    if <(Xv) > [0]> then\n                                        set [xv v] to [-7]\n                                    else\n                                        set [xv v] to [7]\n                                    end\n                                    set [yv v] to [10]\n                                else\n                                    set [xv 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 color (#55ff5c)?> or <<<touching color (#37ac3b)?> or <touching color (#174718)?>> or <<touching color (#643400)?> or <touching color (#331a00)?>>>> then\n            if <<<mouse down?> and <(y position) < (mouse y)>> or <key (up arrow v) pressed?>> then\n                set [yv v] to [15]\n                start sound [ぷよん v]\n                point in direction ((Yv) * (0.5))\n            end\n        end\n        change y by (1)\n        change [yv v] by (-1)\n        change y by (Yv)\n        if <<touching color (#55ff5c)?> or <<<touching color (#37ac3b)?> or <touching color (#174718)?>> or <<touching color (#643400)?> or <touching color (#331a00)?>>>> then\n            change y by ((Yv) * (-1))\n            set [yv v] to [0]\n        end\n        hide variable [xv v]\n        if <(x position) > [230]> then\n            broadcast (next level v)\n            set [yv v] to [0]\n            set [xv v] to [0]\n            go to x: (-201) y: (-50)\n        end\n        if <(y position) < [-170]> then\n            set [yv v] to [0]\n            set [xv v] to [0]\n            go to x: (-201) y: (-50)\n        end\n        if <touching (spake v)?> then\n            set [yv v] to [0]\n            set [xv v] to [0]\n            go to x: (-201) y: (-50)\n        end\n    end\nend\n\nbroadcast (next level v)\n\nset size to (150) %\n\n@Platformer?\n\nwhen flag clicked\nset [level! v] to [1]\nhide\ngo to x: (0) y: (0)\n\nwhen I receive [start v]\nshow\nswitch costume to (Level!)\n\nwhen I receive [next level v]\nchange [level! v] by (1)\nswitch costume to (Level!)\n\nwhen I receive [start v]\nshow variable [time v]\nset [time v] to [0]\nrepeat until <(Level!) = [13]>\n    change [time v] by (1)\n    wait (.9) seconds\nend\nif <(Time) < (☁ World!)> then\n    set [☁ world! v] to (Time)\nend\n\n@title!\n\nwhen flag clicked\nhide\n\nwhen I receive [title v]\nshow\ngo to x: (0) y: (50)\nreset timer\npoint in direction (90)\nforever\n    turn right ([sin v] of ((((timer) * (20)) * (20)) / (1)) ) degrees\nend\n\nwhen I receive [click. v]\nhide\n\nwhen I receive [start v]\nhide\n\nwhen I receive [menu. v]\nshow\n\n@Cloud\n\nwhen I receive [title v]\nswitch costume to (costume4 v)\nset [ghost v] effect to (0)\nshow\ngo to x: (100) y: (-75)\nwait until <<mouse down?> and <touching (mouse-pointer v)?>>\nbroadcast (Click. v)\nrepeat (20)\n    change [ghost v] effect by (5)\n    change y by (-5)\nend\nbroadcast (result v)\n\nwhen flag clicked\nhide\n\nwhen I receive [result v]\nset [ghost v] effect to (0)\nswitch costume to (costume2 v)\ngo to x: (0) y: (180)\nrepeat until <(y position) < [1]>\n    change y by (-10)\nend\nbroadcast (Please! v)\n\nrepeat (20)\n    change [ghost v] effect by (5)\n    change y by (-5)\nend\nbroadcast (result v)\n\nwhen I receive [menu. v]\nswitch costume to (costume4 v)\nset [ghost v] effect to (0)\nshow\ngo to x: (100) y: (-75)\nwait until <<mouse down?> and <touching (mouse-pointer v)?>>\nbroadcast (Click. v)\nrepeat (20)\n    change [ghost v] effect by (5)\n    change y by (-5)\nend\nbroadcast (result v)\n\nwhen I receive [start v]\nrepeat (20)\n    change [ghost v] effect by (5)\n    change y by (-5)\nend\n\n@Start!\n\nwhen I receive [title v]\nset size to (100) %\nswitch costume to (costume4 v)\nshow\ngo to x: (-100) y: (-75)\n\nwhen flag clicked\nhide\n\nwhen I receive [result v]\nshow\nset [ghost v] effect to (0)\nswitch costume to (costume2 v)\nset size to (80) %\ngo to x: (-180) y: (-107)\nwait until <<mouse down?> and <touching (mouse-pointer v)?>>\nbroadcast (menu. v)\n\nwhen I receive [click. v]\nrepeat (20)\n    change [ghost v] effect by (5)\n    change y by (-5)\nend\nbroadcast (result v)\n\nwhen I receive [menu. v]\nset size to (100) %\nswitch costume to (costume4 v)\nshow\ngo to x: (-100) y: (-75)\n\nwhen I receive [title v]\nshow\nset [ghost v] effect to (0)\nswitch costume to (costume4 v)\nset size to (100) %\ngo to x: (-100) y: (-75)\nwait until <<(costume [number v]) = [1]> and <<mouse down?> and <touching (mouse-pointer v)?>>>\nbroadcast (Start v)\n\nwhen I receive [menu. v]\nshow\nset [ghost v] effect to (0)\nswitch costume to (costume4 v)\nset size to (80) %\ngo to x: (-180) y: (-107)\nwait until <<mouse down?> and <touching (mouse-pointer v)?>>\nbroadcast (Start v)\n\nwhen I receive [start v]\nrepeat (20)\n    change [ghost v] effect by (5)\n    change y by (-5)\nend\n\n@result\n\nwhen flag clicked\nhide\nset [☁ world! v] to (☁ World!)\n\nwhen I start as a clone\nchange x by (50)\n\nwhen I receive [menu. v]\nhide\n\nwhen I receive [please! v]\nset [\(\) v] to [1]\nshow\ngo to x: (-21) y: (-3)\nrepeat (length of (☁ World!))\n    switch costume to (letter (\(\)) of (join (☁ World!) [s]))\n    create clone of (_myself_ v)\nend\n\n@spake\n\nwhen flag clicked\nhide\n\ndefine position (x) (y) okay? (yeah) move? (yes!) (???) (costume)\nif <(Level!) = (yeah)> then\nelse\n    hide\nend\nposition [26] [-70] okay? [10] move? [30] [10] [1]\nposition [26] [-70] okay? [11] move? [30] [11] [2]\nposition [4] [-81] okay? [12] move? [30] [12] [3]\n\nshow\nswitch costume to (costume)\ngo to x: (x) y: (y)\ngo [backward v] (???) layers\nforever\n    turn right ((yes!) / (10)) degrees\nend\n\nwhen I receive [next level v]\nforever\n    if <(Level!) = [10]> then\n        show\n        switch costume to (1 v)\n        go to x: (26) y: (-70)\n        go [backward v] (10) layers\n        repeat until <(Level!) = [11]>\n            turn right ((30) / (10)) degrees\n        end\n    else\n        if <(Level!) = [11]> then\n            show\n            switch costume to (2 v)\n            go to x: (26) y: (-70)\n            go [backward v] (10) layers\n            repeat until <(Level!) = [12]>\n                turn right ((30) / (10)) degrees\n            end\n        else\n            if <(Level!) = [12]> then\n                show\n                switch costume to (3 v)\n                go to x: (10) y: (-70)\n                go [backward v] (10) layers\n                repeat until <(Level!) = [13]>\n                    turn right ((30) / (10)) degrees\n                end\n            else\n                if <(Level!) = [13]> then\n                    hide\n                else\n                    hide\n                end\n            end\n        end\n    end\nend\n\ngo to x: (x) y: (y)\n\n@particles\n\nwhen flag clicked\n\nwhen I start as a clone\nset size to (pick random (40) to (80)) %\npoint in direction (pick random (-60) to (-90))\ngo to [back v] layer\nset [speed v] to [5]\nset [ghost v] effect to (pick random (50) to (75))\ngo to x: (238) y: (pick random (18) to (-182))\nshow\nforever\n    repeat until <<(x position) = [-246]> or <(x position) < [-230]>>\n        move (speed) steps\n    end\n    delete this clone\nend\n\nwhen I receive [start v]\nstop [other scripts in sprite v]\ndelete this clone\n\nwhen I receive [start v]\npoint in direction (-90)\nhide\nforever\n    create clone of (_myself_ v)\n    wait (.1) seconds\nend\n\n@スプライト1\n\nwhen flag clicked\nswitch costume to (サムネ v)\ngo to x: (0) y: (0)\nforever\n    hide\nend\n\n