【PLAIN】*platformer*     　　　　　　　　　　　　　 pino-graphic
@Stage\n\n@(ﾟ∀ﾟ)ｱﾋｬ\n\ndefine 初期化\npoint in direction (90)\nset size to (40) %\nclear graphic effects\nset [y v] to [0]\nset [x v] to [0]\ngo to x: (-210) y: (-80)\n\nwhen flag clicked\ngo to [back v] layer\nset [stage v] to [1]\n初期化\nforever\n    if <<key (right arrow v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>> then\n        switch costume to (1 v)\n        change [x v] by (0.9)\n    end\n    if <<key (left arrow v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>> then\n        switch costume to (2 v)\n        change [x v] by (-0.9)\n    end\n    change x by (X)\n    set [x v] to ((X) * (0.92))\n    if <touching (地面 v)?> then\n        change y by (1)\n    end\n    if <touching (地面 v)?> then\n        change y by (1)\n    end\n    if <touching (地面 v)?> then\n        change y by (1)\n    end\n    if <touching (地面 v)?> then\n        change y by (1)\n    end\n    if <touching (地面 v)?> then\n        change y by (-3)\n        change x by ((X) * (-1.16))\n        if <<key (up arrow v) pressed?> or <<(mouse y) > [20]> and <mouse down?>>> then\n            if <(X) > [0]> then\n                set [x v] to [-6]\n            else\n                set [x v] to [6]\n            end\n            set [y v] to [10]\n        else\n            set [x v] to [0]\n        end\n    end\n    change y by (-1)\n    if <touching (地面 v)?> then\n        if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > [20]>>> then\n            set [y v] to [12]\n        end\n    end\n    change [y v] by (-0.8)\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 <(x position) > [239]> then\n        broadcast (nextstage v)\n        change [stage v] by (1)\n        初期化\n    end\n    if <(y position) < [-179]> then\n        初期化\n    end\n    if <touching (アハハ！ v)?> then\n        start sound [Whiz v]\n        repeat (30)\n            turn right (15) degrees\n            change size by (-1)\n            change y by (10)\n        end\n        初期化\n    end\nend\n\nwhen flag clicked\nforever\n    play sound [Nebula v] until done\nend\n\n@地面\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\ngo to [back v] layer\n\nwhen I receive [nextstage v]\nnext costume\nif <(stage) = [9]> then\n    broadcast (f v)\nend\n\n@せなか\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\ngo to [back v] layer\n\nwhen I receive [nextstage v]\nnext costume\n\n@アハハ！\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\ngo to [back v] layer\n\nwhen I receive [nextstage v]\nnext costume\n\n@タイマー\n\nwhen I receive [f v]\nset [a v] to [1]\ncreate clone of (_myself_ v)\nwait (0) seconds\nset [a v] to [2]\ncreate clone of (_myself_ v)\nwait (0) seconds\nset [a v] to [3]\ncreate clone of (_myself_ v)\nwait (0) seconds\nset [a v] to [4]\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nif <(timer) < [100]> then\n    if <(a) = [4]> then\n        go to x: (30) y: (80)\n        switch costume to (コスチューム11 v)\n    else\n        if <(a) = [1]> then\n            go to x: (-40) y: (80)\n            switch costume to ((letter (1) of (timer)) + (1))\n        else\n            if <(a) = [2]> then\n                go to x: (0) y: (80)\n                switch costume to ((letter (2) of (timer)) + (1))\n            else\n                go to x: (60) y: (80)\n                switch costume to ((letter (4) of (timer)) + (1))\n            end\n        end\n    end\nelse\n    go to x: (-20) y: (80)\n    switch costume to (コスチューム12 v)\nend\n\nwhen flag clicked\nhide\n\n@スプライト1\n\nwhen flag clicked\nhide\n\n
　↑\n← →\n\nMobile friendly\n\n100s is over 100s\n\n\n\nちなみに主は42.7sです。