Factory Platformer(工場プラットフォーマー)改正版

Instructions: これは改正版です。\nーーーーーーー操作方法ーーーーーーーーーーーーーー\nwasdキーまたは矢印キーまたは画面タップで操作。\nモバイル対応ってことさ！\nーーーーーーーその他色々ーーーーーーーーーーーーー\nギミックは多くしたつもり。レンチは最後に出てくるからサムネ詐欺じゃないよ。あとガラス瓶には気をつけよう！\nステージも多いしグラフィックもこだわりたかったので\nクソ時間かかった。\nーーーーーーー改正した所ーーーーーーーーーーーーー\n１．壁キックの音。「ジャンプのときと一緒。\n２．タイム時間の追加\n３．軽量化「いらんブロックを消しただけ。」\nーーーーーーーー作者雑談1ーーーーーーーーーーーー\nなんか釣り場行ったらフグを陸に捨てるバカがいる。人間にとって邪魔でもふぐはふぐなりに頑張って生きてるんだからちゃんと海に逃がしてあげよう。でもふぐ捨てる人ってだいたい釣り歴20年とかベテラン臭匂わせてる人。だからそういう人が捨てたふぐを逃がすと怒る。「そんなもん逃がすんじゃねぇ」って。え？僕が悪いん？\nーーーーーーーーーー雑談2ーーーーーーーーーーーー\n最近恥ずかしかったこと。\n学年に名字がおんなじ人がいてその人が呼ばれたとき僕も行ったら「誰？」って反応された。\nーーーーーーーーーーーーーーーーーーーーーーーーー\n

@Stage\n\nwhen I receive [スタート v]\nforever\n    wait (1) seconds\nend\n\nstart sound [Hi Na Tabla v]\n\nwhen flag clicked\nswitch backdrop to (背景2 v)\n\nwhen [s v] key pressed\n\nwhen [s v] key pressed\n\nnext backdrop\n\nwhen flag clicked\nforever\n    wait (10) seconds\n    next backdrop\nend\n\nwhen flag clicked\n\nforever\n    \nend\n\nwhen flag clicked\nforever\n    if <<(backdrop [number v]) = [1]> or <(backdrop [number v]) = [11]>> then\n        broadcast (６６６６ v)\n    end\nend\n\nwhen flag clicked\nforever\n    \nend\n\nwhen flag clicked\nforever\n    if <(backdrop [number v]) = [6]> then\n        broadcast (777777 v)\n    end\nend\n\nwhen I receive [スタート v]\nforever\n    play sound [いお v] until done\nend\n\n@キャラクター\n\nwhen flag clicked\nforever\n    if <(ok) = [1]> then\n        set rotation style [left-right v]\n        if <<key (right arrow v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>> then\n            point in direction (-90)\n            change [x v] by (1)\n        end\n        if <<key (left arrow v) pressed?> or <<mouse down?> and <(x position) > (mouse x)>>> then\n            point in direction (90)\n            change [x v] by (-1)\n        end\n        set [x v] to ((x) * (0.9))\n    end\nend\n\nwhen I receive [next v]\nshow\nset size to (55) %\nset [y v] to [0]\nset [x v] to [0]\nset [ジャンプ v] to [1]\ngo to x: (-213) y: (-40)\nwait (0.4) seconds\nset [ok v] to [1]\n\nwhen backdrop switches to [背景10 v]\nbroadcast (ゴール v)\n\nwhen flag clicked\n\nforever\n    if <touching (障害物 v)?> then\n        change [y v] by (8)\n    end\nend\n\nwhen flag clicked\nforever\n    set [製作者記録producer record v] to [128]\nend\n\nwhen I receive [wa-i v]\nstop [other scripts in sprite v]\nset [☁ 記録record v] to (秒Seconds)\nshow variable [☁ 記録record v]\nif <<(☁ 世界記録World record) > (☁ 記録record)> and <(秒Seconds) > [0]>> then\n    set [☁ 世界記録world record v] to (秒Seconds)\n    wait (1) seconds\nend\nshow variable [☁ 世界記録world record v]\n\nwhen I receive [wa-i v]\nshow\nset size to (55) %\nset [y v] to [0]\nset [x v] to [0]\nset [ジャンプ v] to [1]\ngo to x: (-213) y: (-40)\npoint in direction (-90)\nwait (0.4) seconds\nset [ok v] to [1]\n\nwhen I receive [スタート v]\nset [☁ 記録record v] to [0]\nhide variable [☁ 記録record v]\nhide variable [☁ 世界記録world record v]\n\nwhen I receive [スタート v]\ngo to x: (-213) y: (-40)\nshow\nset [ジャンプ v] to [1]\nset [ok v] to [1]\nset [y v] to [0]\nset [x v] to [0]\nforever\n    if <(ok) = [1]> then\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 (-4)\n                                change x by ((0) - (x))\n                                if <<key (up arrow v) pressed?> or <<(y position) < (mouse y)> and <mouse down?>>> then\n                                    set [y v] to [13]\n                                    if <[0] < (x)> then\n                                        start sound [革靴で歩く v]\n                                        set [x v] to [-7]\n                                    else\n                                        set [x v] to [7]\n                                    end\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 v] by (-1)\n        change y by (y)\n        if <touching (地面 v)?> then\n            if <[0] > (y)> then\n                set [ジャンプ v] to [0]\n            else\n                set [ジャンプ v] to [1]\n            end\n            change y by ((0) - (y))\n            set [y v] to [0]\n        end\n        change y by (-1)\n        if <<<key (up arrow v) pressed?> or <<(y position) < (mouse y)> and <mouse down?>>> and <<(ジャンプ) = [0]> and <touching (地面 v)?>>> then\n            set [ジャンプ v] to [1]\n            set [y v] to [13]\n        end\n        if <[230] < (x position)> then\n            broadcast (次 v)\n            go to x: (-190) y: (-20)\n            set [y v] to [0]\n            set [x v] to [0]\n            hide\n            set [ok v] to [0]\n        end\n        if <<<<touching (障害物 v)?> or <touching (ライト v)?>> or <touching (障害物2 v)?>> or <touching (障害物3 v)?>> then\n            repeat (20)\n                change [ghost v] effect by (5)\n            end\n            hide\n            set [ghost v] effect to (0)\n            set size to (55) %\n            go to x: (-190) y: (-20)\n            set [ok v] to [1]\n            set [y v] to [0]\n            set [x v] to [0]\n            show\n        end\n    end\nend\n\nwhen I receive [スタート v]\nforever\n    if <key (up arrow v) pressed?> then\n        if <touching (地面 v)?> then\n            play sound [革靴で歩く v] until done\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    set [製作者記録producer record v] to [82]\nend\n\nwhen I receive [消す v]\nset [ok v] to [0]\nwait (2) seconds\nset [ok v] to [1]\n\nwhen flag clicked\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\npoint in direction (90)\nforever\n    if <not <key (any v) pressed?>> then\n        switch costume to (コスチューム1 v)\n    end\n    if <key (right arrow v) pressed?> then\n        switch costume to (コスチューム3 v)\n        if <key (up arrow v) pressed?> then\n            switch costume to (コスチューム4 v)\n        end\n    end\n    if <key (left arrow v) pressed?> then\n        switch costume to (コスチューム3 v)\n        if <key (up arrow v) pressed?> then\n            switch costume to (コスチューム4 v)\n        end\n    end\n    if <<key (up arrow v) pressed?> and <not <<key (right arrow v) pressed?> or <key (left arrow v) pressed?>>>> then\n        switch costume to (コスチューム6 v)\n    end\nend\n\n@押す\n\nwhen I receive [ボタン v]\nshow\nif <touching (キャラクター v)?> then\n    start sound [決定ボタンを押す31 v]\n    hide\n    broadcast (消す v)\n    start sound [建物が少し崩れる1 v]\nend\n\nwhen I receive [の v]\nhide\n\n@地面\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\ngo to x: (0) y: (0)\n\nwhen I receive [next v]\nnext costume\n\nforever\n    point towards (mouse-pointer v)\nend\n\nshow\nforever\n    if <key (right arrow v) pressed?> then\n        change [x v] by (0.5)\n    end\n    if <key (left arrow v) pressed?> then\n        change [x v] by (-0.5)\n    end\n    if <(x) < [-460]> then\n        next costume\n    end\nend\n\nbroadcast (wa-i v)\n\nwhen flag clicked\nhide variable [☁ 記録record v]\nhide variable [☁ 世界記録world record v]\n\nwhen flag clicked\ngo to x: (0) y: (0)\nforever\n    if <<(costume [number v]) = [16]> or <<(costume [number v]) = [13]> or <<(costume [number v]) = [10]> or <<<(costume [number v]) = [5]> or <(costume [number v]) = [6]>> or <(costume [number v]) = [7]>>>>> then\n        set [i v] to [1]\n    else\n        set [i v] to [0]\n    end\nend\n\nwhen flag clicked\nforever\n    if <(costume [number v]) = [8]> then\n        broadcast (ボタン v)\n    else\n        broadcast (の v)\n    end\nend\n\nwhen I receive [消す v]\nrepeat (10)\n    wait (0.01) seconds\n    go to x: (0) y: (0)\n    wait (0.01) seconds\n    go to x: (2) y: (1)\n    wait (0.01) seconds\n    go to x: (1) y: (2)\n    wait (0.01) seconds\n    go to x: (-1) y: (-1)\nend\ngo to x: (0) y: (0)\n\nwhen flag clicked\nforever\n    if <<(costume [number v]) = [12]> or <(costume [number v]) = [17]>> then\n        broadcast (w v)\n    else\n        broadcast (ww v)\n    end\nend\n\nwhen flag clicked\ngo to x: (0) y: (0)\nforever\n    if <(costume [number v]) = [15]> then\n        set [6 v] to [1]\n    else\n        set [6 v] to [0]\n    end\nend\n\nwhen I receive [４ v]\nswitch costume to (コスチューム2 \(1\) v)\n\nif <(7) = [0]> then\n\nwhen I receive [消す v]\nswitch costume to (コスチューム9 v)\n\nwhen flag clicked\nset [maru v] to [0]\nrepeat until <(costume [number v]) = [19]>\n    if <(costume [number v]) = [18]> then\n        broadcast (fgu v)\n    else\n        broadcast (gy v)\n    end\nend\n\nwhen flag clicked\nforever\n    if <<(costume [number v]) = [19]> or <(costume [number v]) = [20]>> then\n        broadcast (gu v)\n        set [maru v] to [1]\n    else\n        broadcast (gi v)\n    end\nend\n\nwhen I receive [ghftyfujr v]\nswitch costume to (コスチューム20 v)\n\n@NEXT\n\nwhen I receive [次 v]\ngo to [front v] layer\nhide\nshow\ngo to x: (591) y: (0)\nglide (0.5) secs to x: (0) y: (0)\nwait (0.2) seconds\nbroadcast (NEXT v)\nglide (0.5) secs to x: (-591) y: (0)\nhide\n\nwhen flag clicked\nhide\n\n@障害物\n\nwhen I receive [消す v]\nrepeat (10)\n    wait (0.01) seconds\n    go to x: (35) y: (27)\n    wait (0.01) seconds\n    go to x: (37) y: (28)\n    wait (0.01) seconds\n    go to x: (36) y: (29)\n    wait (0.01) seconds\n    go to x: (34) y: (26)\nend\ngo to x: (35) y: (27)\n\nwhen flag clicked\ngo to x: (35) y: (27)\nswitch costume to (コスチューム1 v)\ngo to [back v] layer\ngo [forward v] (1) layers\n\nwhen I receive [next v]\nnext costume\n\n@かざり\n\nwhen I receive [消す v]\nrepeat (10)\n    wait (0.01) seconds\n    go to x: (0) y: (0)\n    wait (0.01) seconds\n    go to x: (2) y: (1)\n    wait (0.01) seconds\n    go to x: (1) y: (2)\n    wait (0.01) seconds\n    go to x: (-1) y: (-1)\nend\ngo to x: (0) y: (0)\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\ngo to x: (0) y: (0)\n\nwhen I receive [next v]\nnext costume\n\nwhen flag clicked\ngo to [back v] layer\n\n@エフェクト\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nforever\n    if <(i) = [1]> then\n        wait (pick random (0.1) to (0.5)) seconds\n        create clone of (_myself_ v)\n    end\nend\n\nwhen I start as a clone\nshow\nset [ghost v] effect to (0)\nset size to (30) %\nset y to (-80)\nchange x by (pick random (-30) to (100))\nrepeat (50)\n    change y by (pick random (1) to (5))\n    change [ghost v] effect by (2)\nend\ndelete this clone\n\nhide\n\n@レンチ\n\nwhen flag clicked\ngo to x: (36) y: (15)\nset size to (100) %\nhide\n\nwhen I receive [fgu v]\nshow\nif <touching (キャラクター v)?> then\n    set size to (60) %\n    broadcast (hj v)\nend\n\nwhen I receive [gy v]\nhide\n\nwhen I receive [hj v]\nforever\n    glide (0.000001) secs to (キャラクター v)\n    show\nend\n\n@ライト\n\nwhen flag clicked\ngo to x: (36) y: (28)\nhide\n\nwhen I receive [消す v]\nwait (2) seconds\nrepeat (10)\n    change y by (30)\nend\nhide\n\nwhen I receive [ボタン v]\nshow\nstop [this script v]\n\nwhen flag clicked\nforever\n    next costume\nend\n\n@設備\n\nwhen I receive [gu v]\nshow\n\nwhen I receive [gi v]\nhide\n\nwhen this sprite clicked\nif <(maru) = [1]> then\n    set [88889 v] to [0]\n    switch costume to (コスチューム2 v)\n    broadcast (ghftyfujr v)\nend\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nset [88889 v] to [1]\n\n@煙エフェクト\n\nwhen flag clicked\nhide\n\nwhen I receive [gi v]\nrepeat until <(88889) = [0]>\n    wait (pick random (0.01) to (0.1)) seconds\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nset [brightness v] effect to (pick random (-30) to (30))\ngo to [back v] layer\ngo to (設備 v)\nshow\nset size to (pick random (10) to (50)) %\nchange x by (pick random (-20) to (20))\nset [color v] effect to (20)\nrepeat (50)\n    change y by (pick random (1) to (5))\n    change [ghost v] effect by (1.3)\nend\ndelete this clone\n\n@サムネイル\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nforever\n    reset timer\nend\n\nwhen [timer v] > (0.1)\ngo to [front v] layer\nset [ghost v] effect to (100)\nshow\nrepeat (50)\n    change [ghost v] effect by (-2)\nend\n\n@スプライト1\n\nwhen flag clicked\ngo to x: (0) y: (0)\nswitch costume to (コスチューム1 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム2 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム3 v)\ncreate clone of (_myself_ v)\ngo to x: (50) y: (-120)\nswitch costume to (コスチューム4 v)\ncreate clone of (_myself_ v)\n\nwhen flag clicked\nforever\n    if <(表示) = [1]> then\n        play sound [Water \(1\) v] until done\n    end\nend\n\nwhen I start as a clone\nset [表示 v] to [1]\nshow\nforever\n    if <(costume [number v]) = [2]> then\n        change y by ([sin v] of (動き) )\n        change [動き v] by (11)\n        go to [front v] layer\n    end\n    if <(costume [number v]) = [3]> then\n        change y by ([cos v] of (動き) )\n    end\n    if <(costume [number v]) = [4]> then\n        change y by ([sin v] of (動き) )\n        if <<touching (mouse-pointer v)?> and <mouse down?>> then\n            start sound [決定ボタンを押す2 v]\n            repeat (10)\n                change [ghost v] effect by (10)\n                change size by (5)\n            end\n            wait (0.8) seconds\n            stop all sounds\n            broadcast (スタート v)\n            set [表示 v] to [0]\n            stop [this script v]\n        end\n    end\nend\n\nwhen I start as a clone\nforever\n    if <(表示) = [0]> then\n        delete this clone\n    end\nend\n\nbroadcast (スタート v)\n\n@障害物2\n\nwhen flag clicked\nhide\nforever\n    turn right (-4) degrees\nend\n\nwhen I receive [w v]\nshow\n\nwhen I receive [ww v]\nhide\n\n@時間\n\nwhen I start as a clone\ngo to [front v] layer\nshow\nforever\n    if <(letter (1) of (時間の流れ)) = [-]> then\n        switch costume to (コスチューム10 v)\n    end\n    switch costume to (letter (時間) of (時間の流れ))\n    if <(letter (時間) of (時間の流れ)) = [.]> then\n        switch costume to (コスチューム12 v)\n    end\n    if <(letter (時間) of (時間の流れ)) = [e]> then\n        switch costume to (コスチューム13 v)\n    end\n    if <(letter (時間) of (時間の流れ)) = [+]> then\n        switch costume to (コスチューム14 v)\n    end\n    if <(letter (時間) of (時間の流れ)) = [G]> then\n        switch costume to (コスチューム15 v)\n    end\n    if <(length of (時間の流れ)) < (時間)> then\n        hide\n    else\n        show\n    end\n    go to [front v] layer\nend\n\nwhen I receive [スタート v]\nset [ghost v] effect to (0)\nset size to (70) %\nset [時間の流れ v] to [0]\nhide\nset [時間 v] to [0]\ngo to x: (145) y: (167)\nrepeat (37)\n    change [時間 v] by (1)\n    create clone of (_myself_ v)\n    change x by (((size) / (100)) * (12))\nend\n\nwhen I receive [スタート v]\nrepeat until <([costume # v] of [地面 v]) = [21]>\n    wait (1) seconds\n    change [時間の流れ v] by (1)\nend\n\n@スプライト2\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\ngo to [front v] layer\nshow\n\n@障害物3\n\nwhen flag clicked\nset [whirl v] effect to (0)\nforever\n    go to [back v] layer\n    go [forward v] (1) layers\n    change [こう v] by (2)\n    change [whirl v] effect by ([sin v] of (こう) )\nend\n\n