Moonview　- Platformer

Instructions: 矢印キーで移動、ジャンプ、しゃがむ\nトゲに当たるとリスタート\n緑に光る場所でしゃがみつづけるとパワーが溜まり、\n下キーを離すと大ジャンプができる。\n大ジャンプは決まった飛び方をする\nあと、慣性が独特です

@Stage\n\nwhen flag clicked\n\nforever\n    set [pan left/right v] effect to (([sin v] of ((timer) * (1000)) ) * (100))\nend\n\n@Gobo\n\ndefine 表示位置に着く (x) (y) (大きさ)\ngo to x: (0) y: (0)\nコスチューム管理\nset [コスチューム保存用 v] to (costume [name v])\nset size to (100) %\nswitch costume to (端 v)\ngo to x: (((-1) * (真背景x)) + ((x) * (拡大率))) y: (((-1) * (真背景y)) + ((y) * (拡大率)))\nswitch costume to (コスチューム保存用)\nset size to ((大きさ) * (拡大率)) %\n\nwhen flag clicked\nhide\n\nif <(移動モード) = [3]> then\n    broadcast (ショットキャンセル v)\n    set [移動モード v] to [0]\nend\n\nset [背景y v] to (((y) + (10)) * (拡大率))\n\ndefine 埋まらないようにする (大きさ)\nchange [y v] by (0.05)\nchange y by (0.5)\nrepeat until <not <touching (スプライト2 v)?>>\n    change [y v] by (0.05)\n    change y by (0.5)\nend\nchange [y v] by (-0.05)\nchange y by (-0.5)\n\ngo to x: (0) y: (0)\n\nchange [y v] by (-1)\n\ndefine 背景位置\nif <<((5) * (拡大率)) = (((-1) * (主観目標x)) + ((x) * (拡大率)))> or <((5) * (拡大率)) < (((-1) * (主観目標x)) + ((x) * (拡大率)))>> then\n    set [主観目標x v] to (((x) + (-5)) * (拡大率))\nelse\n    if <<((-5) * (拡大率)) = (((-1) * (主観目標x)) + ((x) * (拡大率)))> or <(((-1) * (主観目標x)) + ((x) * (拡大率))) < ((-5) * (拡大率))>> then\n        set [主観目標x v] to (((x) + (5)) * (拡大率))\n    end\nend\nif <<((5) * (拡大率)) = (((-1) * (主観目標y)) + ((y) * (拡大率)))> or <((5) * (拡大率)) < (((-1) * (主観目標y)) + ((y) * (拡大率)))>> then\n    set [主観目標y v] to (((y) + (-5)) * (拡大率))\nelse\n    if <<((-5) * (拡大率)) = (((-1) * (主観目標y)) + ((y) * (拡大率)))> or <(((-1) * (主観目標y)) + ((y) * (拡大率))) < ((-5) * (拡大率))>> then\n        set [主観目標y v] to (((y) + (5)) * (拡大率))\n    end\nend\nif <<((5) * (拡大率)) = (((-1) * (主観目標y)) + ((y) * (拡大率)))> or <((5) * (拡大率)) < (((-1) * (主観目標y)) + ((y) * (拡大率)))>> then\n    set [主観目標y v] to (((y) + (-5)) * (拡大率))\nelse\n    if <<((-5) * (拡大率)) = (((-1) * (主観目標y)) + ((y) * (拡大率)))> or <(((-1) * (主観目標y)) + ((y) * (拡大率))) < ((-5) * (拡大率))>> then\n        set [主観目標y v] to (((y) + (5)) * (拡大率))\n    end\nend\nif <<<(移動モード) = [4]> or <(移動モード) = [2]>> or <(移動モード) = [1]>> then\n    set [主観目標x v] to (((x) + ((20) * ([sin v] of (ショット向き) ))) * (拡大率))\n    set [主観目標y v] to (((y) + ((20) * ([cos v] of (ショット向き) ))) * (拡大率))\nend\nif <(移動モード) = [3]> then\n    set [主観目標x v] to (((x) + (((20) - (((20) / ((フック移動距離) * (0.5))) * (発動中F))) * ([sin v] of (ショット向き) ))) * (拡大率))\n    set [主観目標y v] to (((y) + (((20) - (((20) / (フック移動距離)) * (発動中F))) * ([cos v] of (ショット向き) ))) * (拡大率))\nend\nif <(背景モード) = [2]> then\n    set [主観目標x v] to (真背景x)\n    set [主観目標y v] to (真背景y)\nend\nif <(移動モード) = [7]> then\n    set [主観目標x v] to ((x) * (拡大率))\n    set [主観目標y v] to (((y) + (5)) * (拡大率))\nend\nset [主観目標x v] to ((主観目標x) + ((((真主観目標x) * (拡大率)) - (主観目標x)) / (2)))\nset [主観目標y v] to ((主観目標y) + ((((真主観目標y) * (拡大率)) - (主観目標y)) / (2)))\nカメラ制御\nif <(背景モード) = [0]> then\n    set [真背景x v] to (主観目標x)\n    set [真背景y v] to (主観目標y)\nend\nif <(背景モード) = [4]> then\n    set [真背景x v] to (主観目標x)\n    set [主観目標y v] to ((カメラ固定時y) * (拡大率))\nend\nif <(背景モード) = [5]> then\n    set [真背景y v] to (主観目標y)\n    set [主観目標x v] to ((カメラ固定時x) * (拡大率))\nend\nif <(背景モード) = [1.1]> then\n    set [主観目標y v] to ((カメラ固定時y) * (拡大率))\nend\nif <(背景モード) = [1.2]> then\n    set [主観目標x v] to ((カメラ固定時x) * (拡大率))\nend\n\nif <(背景モード) = [0]> then\n    if <<((5) * (拡大率)) = (((-1) * (背景x)) + ((x) * (拡大率)))> or <((5) * (拡大率)) < (((-1) * (背景x)) + ((x) * (拡大率)))>> then\n        set [背景x v] to (((x) + (-5)) * (拡大率))\n    else\n        if <<((-5) * (拡大率)) = (((-1) * (背景x)) + ((x) * (拡大率)))> or <(((-1) * (背景x)) + ((x) * (拡大率))) < ((-5) * (拡大率))>> then\n            set [背景x v] to (((x) + (5)) * (拡大率))\n        end\n    end\n    if <<((5) * (拡大率)) = (((-1) * (背景y)) + ((y) * (拡大率)))> or <((5) * (拡大率)) < (((-1) * (背景y)) + ((y) * (拡大率)))>> then\n        set [背景y v] to (((y) + (-5)) * (拡大率))\n    else\n        if <<((-5) * (拡大率)) = (((-1) * (背景y)) + ((y) * (拡大率)))> or <(((-1) * (背景y)) + ((y) * (拡大率))) < ((-5) * (拡大率))>> then\n            set [背景y v] to (((y) + (5)) * (拡大率))\n        end\n    end\nend\n\ndefine 左右移動\nif <<not <(移動モード) = [7]>> and <<(しゃがみ) = [0]> and <not <(よこ移動不可か) = [3]>>>> then\n    if <not <(よこ移動不可か) = [1]>> then\n        if <key (right arrow v) pressed?> then\n            if <(歩行フレーム) = [n]> then\n                set [歩行フレーム v] to [0]\n            end\n            change [歩行フレーム v] by (1)\n            if <(着地) = [1]> then\n                if <(移動モード) = [0]> then\n                    change [横そくど v] by (0.3)\n                else\n                    if <(移動モード) = [1]> then\n                        change [x v] by (0.2)\n                    end\n                end\n            else\n                if <(移動モード) = [0]> then\n                    change [横そくど v] by (0.02)\n                    if <[1.2] < (横そくど)> then\n                        set [横そくど v] to [1.2]\n                    end\n                end\n            end\n        end\n    end\n    if <not <(よこ移動不可か) = [2]>> then\n        if <key (left arrow v) pressed?> then\n            if <(歩行フレーム) = [n]> then\n                set [歩行フレーム v] to [0]\n            end\n            change [歩行フレーム v] by (1)\n            if <(着地) = [1]> then\n                if <(移動モード) = [0]> then\n                    change [横そくど v] by (-0.3)\n                else\n                    if <(移動モード) = [1]> then\n                        change [x v] by (-0.2)\n                    end\n                end\n            else\n                if <(移動モード) = [0]> then\n                    change [横そくど v] by (-0.02)\n                    if <(横そくど) < [-1.2]> then\n                        set [横そくど v] to [-1.2]\n                    end\n                end\n            end\n        end\n    end\nend\nif <<not <<(歩行フレーム) = [a]> or <(歩行フレーム) = [b]>>> and <<(しゃがみ) = [1]> or <not <<key (right arrow v) pressed?> or <key (left arrow v) pressed?>>>>> then\n    set [歩行フレーム v] to [n]\nend\npoint in direction (向き保存)\nif <(移動モード) = [0]> then\n    if <key (right arrow v) pressed?> then\n        point in direction (90)\n    end\n    if <key (left arrow v) pressed?> then\n        point in direction (-90)\n    end\nend\nif <(着地) = [1]> then\n    set [横そくど v] to ((横そくど) * (0.75))\nelse\n    set [横そくど v] to (横そくど)\nend\n\nswitch costume to (床判定 v)\n\nchange [y v] by ((-0.5) * (重力))\n\nset [主観目標x v] to (背景x)\nset [主観目標y v] to (背景y)\n\ndefine カメラ制御\nif <<(カメラ番号) = [6]> and <(拡大率) = [6]>> then\n    if <((2100) - (((10) - (拡大率)) * (245))) < ([abs v] of (主観目標x) )> then\n        if <[0] < (主観目標x)> then\n            set [主観目標x v] to ((2100) - (((10) - (拡大率)) * (245)))\n        else\n            set [主観目標x v] to ((-1) * ((2100) - (((10) - (拡大率)) * (245))))\n        end\n    end\nelse\n    if <((2200) - (((10) - (拡大率)) * (245))) < ([abs v] of (主観目標x) )> then\n        if <[0] < (主観目標x)> then\n            set [主観目標x v] to ((2200) - (((10) - (拡大率)) * (245)))\n        else\n            set [主観目標x v] to ((-1) * ((2200) - (((10) - (拡大率)) * (245))))\n        end\n    end\nend\nif <((1300) - (((10) - (拡大率)) * (145))) < ([abs v] of (主観目標y) )> then\n    if <[0] < (主観目標y)> then\nend\n\nif <[220] < ([abs v] of ((主観目標x) / (拡大率)) )> then\n    if <[0] < (主観目標x)> then\n        set [主観目標x v] to ((220) * (拡大率))\n    else\n        set [主観目標x v] to ((-1) * ((220) * (拡大率)))\n    end\nend\nif <((130) * ((拡大率) - (1))) < ([abs v] of (主観目標y) )> then\n    if <[0] < (主観目標y)> then\n        set [主観目標y v] to ((130) * (拡大率))\n    else\n        set [主観目標y v] to ((-130) * ((拡大率) - (1)))\n    end\nend\nif <<[-100] < (主x)> and <[140] < ([abs v] of ((主観目標y) / (拡大率)) )>> then\n    if <[0] < (主観目標y)> then\n        set [主観目標y v] to ((140) * (拡大率))\n    else\n        set [主観目標y v] to ((-140) * (拡大率))\n    end\nend\n\n表示位置に着く (x) (y) [5]\n\ndefine 埋まらない最終調整\nset [コスチューム保存用 v] to (costume [number v])\nswitch costume to (床判定 v)\nrepeat until <not <touching (スプライト1 v)?>>\n    switch costume to (端 v)\n    change y by (1)\n    switch costume to (床判定 v)\nend\nswitch costume to (コスチューム保存用)\nchange y by ((拡大率) * (-0.5))\n\nstart sound [pop v]\n\nif <touching (スプライト1 v)?> then\n    埋まらない最終調整\nend\n\nsay <touching (スプライト1 v)?>\n\ndefine 壁埋まらないようにする (壁向き)\nchange [x v] by ((0.05) * (壁向き))\nchange x by ((0.5) * (壁向き))\nrepeat until <not <touching (スプライト2 v)?>>\n    change [x v] by ((0.05) * (壁向き))\n    change x by ((0.5) * (壁向き))\nend\nchange [x v] by ((-0.05) * (壁向き))\nchange x by ((-0.5) * (壁向き))\n\ngo to x: (0) y: (0)\n\nwhen flag clicked\nbroadcast (真のスタート v)\n\nif <[0] < (横そくど)> then\n    if <<(((-5) * (横そくど)) * (拡大率)) = (((-1) * (主観目標x)) + ((x) * (拡大率)))> or <(((-5) * (横そくど)) * (拡大率)) < (((-1) * (主観目標x)) + ((x) * (拡大率)))>> then\n        set [主観目標x v] to (((x) + ((5) * (横そくど))) * (拡大率))\n    else\n        if <<(((-5) * (横そくど)) * (拡大率)) = (((-1) * (主観目標x)) + ((x) * (拡大率)))> or <(((-1) * (主観目標x)) + ((x) * (拡大率))) < (((-5) * (横そくど)) * (拡大率))>> then\n            set [主観目標x v] to (((x) + ((5) * (横そくど))) * (拡大率))\n        end\n    end\nelse\n    if <<(((-5) * (横そくど)) * (拡大率)) = (((-1) * (主観目標x)) + ((x) * (拡大率)))> or <(((-1) * (主観目標x)) + ((x) * (拡大率))) < (((-5) * (横そくど)) * (拡大率))>> then\n        set [主観目標x v] to (((x) + ((5) * (横そくど))) * (拡大率))\n    else\n        if <<(((-5) * (横そくど)) * (拡大率)) = (((-1) * (主観目標x)) + ((x) * (拡大率)))> or <(((-5) * (横そくど)) * (拡大率)) < (((-1) * (主観目標x)) + ((x) * (拡大率)))>> then\n            set [主観目標x v] to (((x) + ((5) * (横そくど))) * (拡大率))\n        end\n    end\nend\n\nwhen I receive [真のスタート v]\nshow\nset [着地 v] to [0]\nset rotation style [left-right v]\ngo to x: (0) y: (0)\ngo to [front v] layer\npoint in direction (90)\nswitch costume to (gobo-a v)\nset [しゃがみ v] to [0]\nset [移動モード v] to [0]\nset [横そくど v] to [0]\nset [x v] to [-220]\nset [y v] to [-140]\nset [重力 v] to [0]\nset [主x v] to (x)\nset [主y v] to (y)\nset [歩行フレーム v] to [0]\nforever\n    set [向き保存 v] to (direction)\n    point in direction (90)\n    set [よこ移動不可か v] to [0]\n    set [埋まらない処理したか v] to [0]\n    if <not <(移動モード) = [7]>> then\n        change [重力 v] by (-0.2)\n        if <(移動モード) = [3]> then\n            set [横そくど v] to [0]\n            set [重力 v] to [0]\n            change [x v] by ((2) * ([sin v] of (ショット向き) ))\n            change [y v] by ((2) * ([cos v] of (ショット向き) ))\n        else\n            if <(移動モード) = [4]> then\n                set [横そくど v] to [0]\n                set [重力 v] to [0]\n            else\n                if <(移動モード) = [5]> then\n                    change [x v] by (横そくど)\n                else\n                    change [x v] by (横そくど)\n                end\n            end\n        end\n    end\n    if <(着地) = [1]> then\n        set [着地足音用 v] to [0]\n    else\n        set [着地足音用 v] to [1]\n    end\n    set [着地 v] to [0]\n    if <touching (cat v)?> then\n        set [x v] to (リスポーンx)\n        set [y v] to (リスポーンy)\n        set [移動モード v] to [0]\n    end\n    switch costume to (端 v)\n    set size to (50) %\n    switch costume to (gobo-a v)\n    go to x: ((横そくど) * (10)) y: (0)\n    if <touching (スプライト3 v)?> then\n        set [横そくど v] to [0]\n        set [重力 v] to [0]\n        set [x v] to (リスポーンx)\n        set [y v] to (リスポーンy)\n        set [移動モード v] to [0]\n        set [背景モード v] to [0]\n    end\n    switch costume to (端 v)\n    set size to (50) %\n    switch costume to (頭上判定 v)\n    if <<[0] < (重力)> and <touching (スプライト2 v)?>> then\n        set [重力 v] to [0]\n    end\n    switch costume to (端 v)\n    set size to (50) %\n    switch costume to (壁判定 v)\n    if <touching (スプライト2 v)?> then\n        set [横そくど v] to [0]\n        set [よこ移動不可か v] to [1]\n        switch costume to (端 v)\n        set size to (50) %\n        switch costume to (壁判定2 v)\n        if <touching (スプライト2 v)?> then\n            set [よこ移動不可か v] to [3]\n        else\n            switch costume to (壁判定4 v)\n            if <touching (スプライト2 v)?> then\n                壁埋まらないようにする [-1]\n            end\n        end\n        if <(移動モード) = [3]> then\n            broadcast (ショットキャンセル v)\n            set [移動モード v] to [0]\n        end\n    end\n    switch costume to (端 v)\n    set size to (50) %\n    switch costume to (壁判定2 v)\n    if <touching (スプライト2 v)?> then\n        set [横そくど v] to [0]\n        set [よこ移動不可か v] to [2]\n        switch costume to (端 v)\n        set size to (50) %\n        switch costume to (壁判定 v)\n        if <touching (スプライト2 v)?> then\n            set [よこ移動不可か v] to [3]\n        else\n            switch costume to (壁判定5 v)\n            if <touching (スプライト2 v)?> then\n                壁埋まらないようにする [1]\n            end\n        end\n        if <(移動モード) = [3]> then\n            broadcast (ショットキャンセル v)\n            set [移動モード v] to [0]\n        end\n    end\n    switch costume to (端 v)\n    set size to (50) %\n    switch costume to (床判定 v)\n    set y to (0)\n    change y by (-5)\n    set [しゃがみ v] to [0]\n    if <touching (スプライト2 v)?> then\n        set y to (0)\n        地面までつく\n        if <(着地足音用) = [1]> then\n            start sound [足音・革靴3 v]\n        end\n        set [着地 v] to [1]\n        if <key (down arrow v) pressed?> then\n            set [しゃがみ v] to [1]\n        end\n        set [埋まらない処理したか v] to [1]\n        埋まらないようにする [5]\n        set [重力 v] to [0]\n        if <<key (up arrow v) pressed?> and <(移動モード) = [0]>> then\n            set [重力 v] to [2.3]\n        end\n        if <not <(ジャンパy力) = [0]>> then\n            set [重力 v] to (ジャンパy力)\n            set [ジャンパy力 v] to [0]\n            set [着地 v] to [0]\n        end\n        if <<(着地) = [1]> and <<(移動モード) = [6]> or <(移動モード) = [5]>>> then\n            set [移動モード v] to [0]\n            set [よこ移動不可か v] to [0]\n        end\n    else\n        set y to (0)\n    end\n    if <<(ジャンパx力) = [0]> and <<(移動モード) = [6]> or <(移動モード) = [5]>>> then\n        if <[4] > (重力)> then\n            set [移動モード v] to [0]\n        end\n    end\n    if <not <(移動モード) = [7]>> then\n        change [y v] by (重力)\n    end\n    if <(埋まらない処理したか) = [0]> then\n        switch costume to (端 v)\n        set size to (50) %\n        switch costume to (床判定 v)\n        set y to ((重力) * (10))\n        if <touching (スプライト2 v)?> then\n            set [着地 v] to [1]\n            埋まらないようにする [5]\n            set [重力 v] to [0]\n            if <(着地足音用) = [1]> then\n                start sound [足音・革靴3 v]\n            end\n        end\n    end\n    左右移動\n    背景位置\n    表示位置に着く (x) (y) [6]\n    set [y保存用 v] to (y)\n    set [主x v] to (x)\n    set [主y v] to (y)\n    set [真主観目標x v] to ((主観目標x) / (拡大率))\n    set [真主観目標y v] to ((主観目標y) / (拡大率))\n    set [一個前の拡大率 v] to (拡大率)\nend\n\n表示位置に着く (x) (y保存用) [5]\n背景位置\n\nwhen I receive [真のスタート v]\nclear sound effects\nforever\n    set [pan left/right v] effect to ((x position) / (5))\n    if <(移動モード) = [2]> then\n        if <(発動中F) = [-1]> then\n            start sound [チェーン・鎖・巻く8 v]\n            wait (0) seconds\n        else\n            start sound [チェーン・鎖・巻く6 v]\n            wait (0) seconds\n        end\n    end\n    if <(移動モード) = [3]> then\n        start sound [チェーン・鎖・巻く8 v]\n        wait (0) seconds\n    end\nend\n\nchange [y v] by (重力)\n\nset [背景x v] to (主観目標x)\nset [背景y v] to (主観目標y)\n\nset [主観目標x v] to (背景x)\nset [主観目標y v] to (背景y)\nset [背景x v] to [n]\nset [背景y v] to [n]\n\nset [拡大率 v] to [7]\n\nset [拡大率 v] to [2]\n\nrepeat (10)\n    change [拡大率 v] by (((2) - (拡大率)) / (4))\n    背景位置\n    if <(カメラ移動キャンセル) = [1]> then\n        stop [this script v]\n    end\nend\nset [拡大率 v] to [2]\n背景位置\n\nrepeat (10)\n    change [拡大率 v] by (((7) - (拡大率)) / (4))\n    背景位置\n    if <(カメラ移動キャンセル) = [1]> then\n        stop [this script v]\n    end\nend\nset [拡大率 v] to [7]\n背景位置\n\nset [拡大率 v] to [10]\n\ndefine コスチューム管理\nif <(歩行フレーム) = [a]> then\n    switch costume to (ゲット2 v)\nelse\n    if <(歩行フレーム) = [b]> then\n        switch costume to (ゲット v)\n    else\n        if <(着地) = [0]> then\n            if <[0] > (重力)> then\n                switch costume to (ジャンプ2 v)\n            else\n                switch costume to (ジャンプ v)\n            end\n        else\n            if <(しゃがみ) = [1]> then\n                switch costume to (しゃがみ v)\n            else\n                if <not <(歩行フレーム) = [n]>> then\n                    switch costume to (join [歩行] (item ((歩行フレーム) mod (length of [歩行コスチュームズ v])) of [歩行コスチュームズ v]))\n                    if <((歩行フレーム) mod (length of [歩行コスチュームズ v])) = [0]> then\n                        switch costume to (歩行4 v)\n                        start sound [足音・革靴2 v]\n                    end\n                    if <((歩行フレーム) mod (length of [歩行コスチュームズ v])) = [13]> then\n                        start sound [足音・革靴01 v]\n                    end\n                    if <(歩行フレーム) = [1]> then\n                        start sound [足音・革靴2 v]\n                    end\n                end\n                if <(歩行フレーム) = [n]> then\n                    switch costume to (待機 v)\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [カメラモード変更 v]\nif <(カメラ番号) = [1]> then\n    set [背景モード v] to [0]\n    repeat until <[0.3] > ([abs v] of ((9) - (拡大率)) )>\n        change [拡大率 v] by ((0.3) * ((<(拡大率) < [9]> * (2)) - (1)))\n        背景位置\n        if <not <(カメラ番号) = [1]>> then\n            stop [this script v]\n        end\n    end\n    set [拡大率 v] to [9]\n    背景位置\n    set [リスポーンx v] to [-220]\n    set [リスポーンy v] to [-140]\nelse\n    if <(カメラ番号) = [2]> then\n        set [背景モード v] to [0]\n        repeat until <[0.3] > ([abs v] of ((6) - (拡大率)) )>\n            change [拡大率 v] by ((0.3) * ((<(拡大率) < [6]> * (2)) - (1)))\n            背景位置\n            if <not <(カメラ番号) = [2]>> then\n                stop [this script v]\n            end\n        end\n        set [拡大率 v] to [6]\n        背景位置\n    else\n        if <(カメラ番号) = [3]> then\n            set [背景モード v] to [0]\n            repeat until <[0.3] > ([abs v] of ((9) - (拡大率)) )>\n                change [拡大率 v] by ((0.3) * ((<(拡大率) < [9]> * (2)) - (1)))\n                背景位置\n                if <not <(カメラ番号) = [3]>> then\n                    stop [this script v]\n                end\n            end\n            set [拡大率 v] to [9]\n            背景位置\n            set [リスポーンx v] to [1]\n            set [リスポーンy v] to [-7.7]\n        else\n            if <(カメラ番号) = [4]> then\n                set [背景モード v] to [0]\n                repeat until <[0.3] > ([abs v] of ((8) - (拡大率)) )>\n                    change [拡大率 v] by ((0.3) * ((<(拡大率) < [8]> * (2)) - (1)))\n                    背景位置\n                    if <not <(カメラ番号) = [4]>> then\n                        stop [this script v]\n                    end\n                end\n                set [拡大率 v] to [8]\n                背景位置\n                set [リスポーンx v] to [34.3]\n                set [リスポーンy v] to [-143]\n            else\n                if <(カメラ番号) = [5]> then\n                    [20] Fで [180] [-100] [4] まで拡大 (カメラ番号)\n                else\n                    if <(カメラ番号) = [6]> then\n                        set [背景モード v] to [0]\n                        repeat until <[0.3] > ([abs v] of ((6) - (拡大率)) )>\n                            change [拡大率 v] by ((0.3) * ((<(拡大率) < [6]> * (2)) - (1)))\n                            背景位置\n                            if <not <(カメラ番号) = [6]>> then\n                                stop [this script v]\n                            end\n                        end\n                        set [拡大率 v] to [6]\n                        背景位置\n                        set [リスポーンx v] to [170]\n                        set [リスポーンy v] to [-19]\n                    else\n                        if <(カメラ番号) = [7]> then\n                            set [背景モード v] to [0]\n                            repeat until <[0.3] > ([abs v] of ((5) - (拡大率)) )>\n                                change [拡大率 v] by ((0.3) * ((<(拡大率) < [5]> * (2)) - (1)))\n                                背景位置\n                                if <not <(カメラ番号) = [7]>> then\n                                    stop [this script v]\n                                end\n                            end\n                            set [拡大率 v] to [5]\n                            背景位置\n                        else\n                            if <(カメラ番号) = [8]> then\n                                [25] Fで [-10] [30] [1] まで拡大 (カメラ番号)\n                            else\n                                if <(カメラ番号) = [9]> then\n                                    [10] Fで [200] [-8] [6] まで拡大 (カメラ番号)\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nif <<key (x v) pressed?> and <(移動モード) = [1]>> then\n    broadcast (ショットキャンセル v)\n    set [移動モード v] to [0]\nend\nif <<key (z v) pressed?> and <<(移動モード) = [1]> and <(拡大率) = (ショット時拡大率)>>> then\n    broadcast (ショット発射 v)\n    set [発動中f v] to [0]\n    set [移動モード v] to [2]\nend\nif <<key (z v) pressed?> and <(移動モード) = [0]>> then\n    broadcast (ショット準備 v)\n    set [移動モード v] to [1]\n    set [ショット向き v] to (direction)\n    set [角度速度 v] to [0]\nend\nif <(移動モード) = [1]> then\n    if <key (down arrow v) pressed?> then\n        if <(direction) = [90]> then\n            if <(角度速度) < [1]> then\n                set [角度速度 v] to [1]\n            else\n                change [角度速度 v] by (0.1)\n            end\n            change [ショット向き v] by (角度速度)\n            if <(ショット向き) > [150]> then\n                set [ショット向き v] to [150]\n                set [角度速度 v] to [0]\n            end\n        else\n            if <[-1] < (角度速度)> then\n                set [角度速度 v] to [-1]\n            else\n                change [角度速度 v] by (-0.1)\n            end\n            change [ショット向き v] by (角度速度)\n            if <[-150] > (ショット向き)> then\n                set [ショット向き v] to [-150]\n                set [角度速度 v] to [0]\n            end\n        end\n    end\n    if <key (up arrow v) pressed?> then\n        if <(direction) = [90]> then\n            if <[-1] < (角度速度)> then\n                set [角度速度 v] to [-1]\n            else\n                change [角度速度 v] by (-0.1)\n            end\n            change [ショット向き v] by (角度速度)\n            if <[20] > (ショット向き)> then\n                set [ショット向き v] to [20]\n                set [角度速度 v] to [0]\n            end\n        else\n            if <(角度速度) < [1]> then\n                set [角度速度 v] to [1]\n            else\n                change [角度速度 v] by (0.1)\n            end\n            change [ショット向き v] by (角度速度)\n            if <(ショット向き) > [-20]> then\n                set [ショット向き v] to [-20]\n                set [角度速度 v] to [0]\n            end\n        end\n    end\n    if <not <<key (up arrow v) pressed?> or <key (down arrow v) pressed?>>> then\n        set [角度速度 v] to [0]\n    end\nend\n\ngo to x: (0) y: (0)\nset [コスチューム保存用 v] to (costume [name v])\nset size to (100) %\nswitch costume to (端 v)\ngo to x: (((-1) * (真背景x)) + ((x) * (拡大率))) y: (((-1) * (真背景y)) + ((y) * (拡大率)))\nswitch costume to (コスチューム保存用)\nset size to ((大きさ) * (拡大率)) %\n\nwhen I receive [スーパージャンプ！！ v]\nset [着地 v] to [0]\nset [横そくど v] to (ジャンパx力)\nset [よこ移動不可か v] to [3]\npoint in direction ((-90) * ((<[0] > (ジャンパx力)> * (2)) - (1)))\nif <(ジャンパ時拡大率) = [0]> then\n    set [移動モード v] to [6]\nelse\n    set [移動モード v] to [5]\n    set [カメラ番号 v] to [0]\n    repeat until <[0.3] > ([abs v] of ((ジャンパ時拡大率) - (拡大率)) )>\n        change [拡大率 v] by ((0.3) * ((<(拡大率) < (ジャンパ時拡大率)> * (2)) - (1)))\n        背景位置\n    end\n    set [拡大率 v] to (ジャンパ時拡大率)\n    背景位置\nend\n\nchange [y v] by (重力)\n\nset [重力 v] to (ジャンパy力)\n\nchange [y v] by (0.05)\nchange y by (0.5)\n\ndefine 地面までつく\nchange [y v] by (-0.05)\nchange y by (-0.5)\nrepeat until <touching (スプライト2 v)?>\n    change [y v] by (-0.05)\n    change y by (-0.5)\nend\n\ndefine (f) Fで主観 (拡大率) (終了後背景モード) (移動中背景モード) (カメラ番号)\nset [背景モード v] to (移動中背景モード)\nset [背景移動用 v] to (f)\ndelete all of [移動拡大保存用 v]\nadd (真背景x) to [移動拡大保存用 v]\nadd (真背景y) to [移動拡大保存用 v]\nadd (拡大率) to [移動拡大保存用 v]\nrepeat (f)\n    change [真背景x v] by ((((真主観目標x) * (拡大率)) - (真背景x)) / (背景移動用))\n    change [真背景y v] by ((((真主観目標y) * (拡大率)) - (真背景y)) / (背景移動用))\n    change [拡大率 v] by (((拡大率) - (item (3) of [移動拡大保存用 v])) / (f))\n    change [背景移動用 v] by (-1)\n    if <(背景移動用) = [0]> then\n        set [背景モード v] to (終了後背景モード)\n    end\n    if <not <(カメラ番号) = (カメラ番号)>> then\n        stop [this script v]\n    end\n    背景位置\nend\n\nrepeat until <[0.3] > ([abs v] of ((8) - (拡大率)) )>\n    change [拡大率 v] by ((0.3) * ((<(拡大率) < [8]> * (2)) - (1)))\n    背景位置\n    if <not <(カメラ番号) = [4]>> then\n        stop [this script v]\n    end\nend\nset [拡大率 v] to [8]\n背景位置\nset [リスポーンx v] to [33]\nset [リスポーンy v] to [-143]\n\ndefine (f) Fで (x) (y) (拡大率) まで拡大 (カメラ番号)\nset [カメラ移動キャンセル v] to [0]\nset [背景モード v] to [1]\ndelete all of [移動拡大保存用 v]\nadd (真背景x) to [移動拡大保存用 v]\nadd (真背景y) to [移動拡大保存用 v]\nadd (拡大率) to [移動拡大保存用 v]\nrepeat (f)\n    change [真背景x v] by ((((x) * (拡大率)) - (item (1) of [移動拡大保存用 v])) / (f))\n    change [真背景y v] by ((((y) * (拡大率)) - (item (2) of [移動拡大保存用 v])) / (f))\n    change [拡大率 v] by (((拡大率) - (item (3) of [移動拡大保存用 v])) / (f))\n    if <not <(カメラ番号) = (カメラ番号)>> then\n        stop [this script v]\n    end\n    背景位置\nend\nset [背景モード v] to [2]\n\nif <(背景モード) = [0]> then\n\nwhen I receive [コイン獲得 v]\nset [背景モード v] to [0]\nset [カメラ番号 v] to [0]\nset [移動モード v] to [7]\nset [歩行フレーム v] to [a]\nrepeat until <[0.5] > ([abs v] of ((10) - (拡大率)) )>\n    change [拡大率 v] by ((0.5) * ((<(拡大率) < [10]> * (2)) - (1)))\n    背景位置\nend\nset [拡大率 v] to [10]\n背景位置\nwait (0.7) seconds\nset [歩行フレーム v] to [b]\nbroadcast (ゲット v)\nstart sound [決定、ボタン押下11 v]\nstart sound [one23 v]\nrepeat (20)\n    change [拡大率 v] by ((0.5) * ((11) - (拡大率)))\n    背景位置\nend\nset [拡大率 v] to [11]\nwait (1) seconds\nset [歩行フレーム v] to [0]\nset [移動モード v] to [0]\n\n@スプライト1\n\nset [真主観目標x v] to ((主観目標x) / (拡大率))\nset [真主観目標y v] to ((主観目標y) / (拡大率))\n\nwhen flag clicked\nhide\nset [カメラ番号 v] to [0]\n\nset [真背景x v] to (背景x)\nset [真背景y v] to (背景y)\n\n((真背景x) / (拡大率)) ((真背景y) / (拡大率)) を中心に (拡大率) にする\n\ndefine (x) (y) を中心に (拡大率) にする\nset [拡大率 v] to (拡大率)\nset [背景x v] to ((x) * (拡大率))\nset [背景y v] to ((y) * (拡大率))\n\nif <key (right arrow v) pressed?> then\n    change [背景x v] by (5)\nend\nif <key (left arrow v) pressed?> then\n    change [背景x v] by (-5)\nend\nif <key (up arrow v) pressed?> then\n    change [背景y v] by (5)\nend\nif <key (down arrow v) pressed?> then\n    change [背景y v] by (-5)\nend\n\nif <key (right arrow v) pressed?> then\n    change [背景x v] by (5)\nend\nif <key (left arrow v) pressed?> then\n    change [背景x v] by (-5)\nend\nif <key (up arrow v) pressed?> then\n    change [背景y v] by (5)\nend\nif <key (down arrow v) pressed?> then\n    change [背景y v] by (-5)\nend\n\ndefine (f) Fで (x) (y) (拡大率) まで拡大\nset [カメラ移動キャンセル v] to [0]\nset [背景モード v] to [1]\ndelete all of [移動拡大保存用 v]\nadd (真背景x) to [移動拡大保存用 v]\nadd (真背景y) to [移動拡大保存用 v]\nadd (拡大率) to [移動拡大保存用 v]\nrepeat (f)\n    change [真背景x v] by ((((x) * (拡大率)) - (item (1) of [移動拡大保存用 v])) / (f))\n    change [真背景y v] by ((((y) * (拡大率)) - (item (2) of [移動拡大保存用 v])) / (f))\n    change [拡大率 v] by (((拡大率) - (item (3) of [移動拡大保存用 v])) / (f))\n    if <(カメラ移動キャンセル) = [1]> then\n        stop [this script v]\n    end\nend\nset [背景モード v] to [2]\n\ndefine (f) Fで主観 (拡大率) (終了後背景モード) (移動中背景モード)\nset [背景モード v] to (移動中背景モード)\nset [背景移動用 v] to (f)\ndelete all of [移動拡大保存用 v]\nadd (真背景x) to [移動拡大保存用 v]\nadd (真背景y) to [移動拡大保存用 v]\nadd (拡大率) to [移動拡大保存用 v]\nrepeat (f)\n    change [背景x v] by ((((真主観目標x) * (拡大率)) - (真背景x)) / (背景移動用))\n    change [背景y v] by ((((真主観目標y) * (拡大率)) - (真背景y)) / (背景移動用))\n    change [拡大率 v] by (((拡大率) - (item (3) of [移動拡大保存用 v])) / (f))\n    change [背景移動用 v] by (-1)\n    if <(背景移動用) = [0]> then\n        set [背景モード v] to (終了後背景モード)\n    end\nend\n\nwhen flag clicked\n\nforever\n    if <not <(背景モード) = [1]>> then\n        if <key (a v) pressed?> then\n            [20] Fで [0] [-100] [5] まで拡大\n        end\n        if <key (q v) pressed?> then\n            [20] Fで主観 [5] [] []\n        end\n        if <key (z v) pressed?> then\n            [20] Fで主観 [7] [] []\n        end\n    end\nend\n\n[20] Fで主観 [7] [] []\n\nwhen flag clicked\nset [リスポーンx v] to [0]\nset [リスポーンy v] to [0]\nset [背景モード v] to [0]\nset [真背景y v] to [0]\nset [真背景x v] to [0]\nset [カメラ番号 v] to [0]\nset [カメラ固定時x v] to [0]\nset [カメラ固定時y v] to [0]\nset [ショット時拡大率 v] to [4]\n\nif <<not <(カメラ番号) = [1]>> and <(主x) < [-170]>> then\n    set [カメラ固定時y v] to [-150]\n    set [カメラ番号 v] to [1]\nend\nif <<not <(カメラ番号) = [2]>> and <<(主y) < [-80]> and <<[-155] < (主x)> and <(主x) < [-60]>>>> then\n    set [リスポーンx v] to [-150]\n    set [リスポーンy v] to [-151]\n    set [カメラ固定時y v] to [-140]\n    set [カメラ番号 v] to [2]\n    [10] Fで主観 [8] [4] [1.1]\nend\nif <<not <(カメラ番号) = [3]>> and <<<[-17.001] < (主x)> and <(主x) < [50]>> and <(主y) < [-80]>>> then\n    set [カメラ固定時x v] to [-21]\n    set [カメラ番号 v] to [3]\n    set [背景モード v] to [5]\nend\nif <<not <(カメラ番号) = [3]>> and <<<[-43] < (主x)> and <(主x) < [20]>> and <<[-80] < (主y)> and <(主y) < [-54]>>>> then\n    set [カメラ固定時x v] to [-21]\n    set [カメラ番号 v] to [3]\n    [10] Fで主観 [8] [5] [1.2]\nend\nif <<not <(カメラ番号) = [4]>> and <<<[-85] < (主x)> and <(主x) < [-50]>> and <[-70] < (主y)>>> then\n    set [カメラ番号 v] to [4]\n    [10] Fで [-60] [-60] [7] まで拡大\nend\nif <<not <(カメラ番号) = [5]>> and <<<[-45] < (主x)> and <(主x) < [5]>> and <[-46] < (主y)>>> then\n    set [カメラ番号 v] to [5]\n    set [カメラ固定時y v] to [-40]\n    [10] Fで主観 [9] [4] [1.1]\nend\nif <<not <(カメラ番号) = [6]>> and <<(主x) < [-90]> and <[-33] < (主y)>>> then\n    set [カメラ番号 v] to [6]\n    [10] Fで [-130] [-10] [5] まで拡大\nend\nif <<not <(カメラ番号) = [7]>> and <<[15] < (主x)> and <(主x) < [50]>>> then\n    set [カメラ番号 v] to [7]\n    set [リスポーンx v] to [20]\n    set [リスポーンy v] to [-41]\n    set [カメラ固定時y v] to [-30]\n    [5] Fで主観 [8] [4] [1.1]\nend\nif <<not <(カメラ番号) = [8]>> and <<<[55] < (主x)> and <(主x) < [150]>> and <(主y) < [-110]>>> then\n    set [カメラ番号 v] to [8]\n    set [カメラ固定時y v] to [-140]\n    [20] Fで主観 [8] [4] [1.1]\nend\nif <<not <(カメラ番号) = [9]>> and <<<[100] < (主x)> and <<[-110] < (主y)> and <(主y) < [-90]>>> or <<[160] < (主x)> and <(主y) < [-90]>>>> then\n    set [カメラ番号 v] to [9]\n    [10] Fで主観 [16] [0] [1]\nend\nif <<not <(カメラ番号) = [10]>> and <<[100] < (主x)> and <<[-78] < (主y)> and <(主y) < [35]>>>> then\n    set [カメラ番号 v] to [10]\n    set [リスポーンx v] to [113]\n    set [リスポーンy v] to [-73.7]\n    [10] Fで [170] [-20] [3] まで拡大\nend\nif <<not <(カメラ番号) = [11]>> and <<[110] < (主x)> and <[45] < (主y)>>> then\n    set [カメラ番号 v] to [11]\n    [20] Fで主観 [8] [0] [1]\nend\n\n[10] Fで主観 [5] [0] [0]\n\nset [カメラ固定時y v] to [20]\n\n[1] Fで (pick random (3) to (-3)) (pick random (23) to (17)) [5] まで拡大\n\nforever\n    (pick random (3) to (-3)) (pick random (23) to (17)) を中心に [7] にする\nend\n\nwhen I receive [ショット準備 v]\nset [カメラ移動キャンセル v] to [0]\nrepeat (10)\n    change [拡大率 v] by (((ショット時拡大率) - (拡大率)) / (2))\n    if <(カメラ移動キャンセル) = [1]> then\n        stop [this script v]\n    end\nend\nset [拡大率 v] to (ショット時拡大率)\n\n[5] Fで ((主x) + (20)) ((主y) + (20)) [6] まで拡大\n\nwhen I receive [ショットキャンセル v]\nset [カメラ移動キャンセル v] to [1]\nset [背景モード v] to [0]\nset [真主観目標x v] to ((真背景x) / (拡大率))\nset [真主観目標y v] to ((真背景y) / (拡大率))\nrepeat (10)\n    change [拡大率 v] by (((10) - (拡大率)) / (2))\n    if <(カメラ移動キャンセル) = [0]> then\n        stop [this script v]\n    end\nend\nset [拡大率 v] to [10]\n\nwhen I receive [ショット発動 v]\nset [カメラ移動キャンセル v] to [0]\nrepeat ((フック移動距離) / (2))\n    change [拡大率 v] by ((((10) - (ショット時拡大率)) / (フック移動距離)) * (2))\n    if <(カメラ移動キャンセル) = [1]> then\n        stop [this script v]\n    end\nend\nset [拡大率 v] to [10]\n\nwhen I receive [真のスタート v]\nshow\nswitch costume to (モード1 v)\nset size to (1000) %\nswitch costume to (xy-grid-20px v)\nset [画面中心x v] to [0]\nset [画面中心y v] to [0]\nset [背景x v] to [n]\nset [背景y v] to [n]\nset [拡大率 v] to [9]\nset [真拡大率 v] to [10]\nset [主観目標x v] to [0]\nset [主観目標y v] to [0]\nset [真主観目標x v] to [-220]\nset [真主観目標y v] to [-140]\nbroadcast (背景 v)\nforever\n    go to x: ((-1) * (真背景x)) y: ((-1) * (真背景y))\n    switch costume to (コスチューム7 v)\n    set size to ((拡大率) * (100)) %\n    if <not <<(移動モード) = [7]> or <(移動モード) = [5]>>> then\n        カメラモード判定\n    end\n    switch costume to (コスチューム8 v)\n    set [背景x v] to (真背景x)\n    set [背景y v] to (真背景y)\nend\n\n[10] Fで主観 [10] [0] [0]\n\n[10] Fで主観 [2] [0] [0]\n\n[0] [0] を中心に [5] にする\n\n[10] Fで主観 [7] [0] [0]\n\n[10] Fで主観 [1.5] [0] [0]\n\ndefine カメラ制御\nif <((2200) - (((10) - (拡大率)) * (245))) < ([abs v] of (主観目標x) )> then\n    if <[0] < (主観目標x)> then\n        set [主観目標x v] to ((2200) - (((10) - (拡大率)) * (245)))\n    else\n        set [主観目標x v] to ((-1) * ((2200) - (((10) - (拡大率)) * (245))))\n    end\nend\nif <((1300) - (((10) - (拡大率)) * (145))) < ([abs v] of (主観目標y) )> then\n    if <[0] < (主観目標y)> then\n        set [主観目標y v] to ((1300) - (((10) - (拡大率)) * (145)))\n    else\n        set [主観目標y v] to ((-1) * ((1300) - (((10) - (拡大率)) * (145))))\n    end\nend\nif <<[-100] < (主x)> and <[140] < ([abs v] of ((主観目標y) / (拡大率)) )>> then\n    if <[0] < (主観目標y)> then\n        set [主観目標y v] to ((140) * (拡大率))\n    else\n        set [主観目標y v] to ((-140) * (拡大率))\n    end\nend\nif <(背景モード) = [0]> then\n    set [真背景x v] to (主観目標x)\n    set [真背景y v] to (主観目標y)\nend\nif <(背景モード) = [4]> then\n    set [真背景x v] to (主観目標x)\n    set [主観目標y v] to ((カメラ固定時y) * (拡大率))\nend\nif <(背景モード) = [5]> then\n    set [真背景y v] to (主観目標y)\n    set [主観目標x v] to ((カメラ固定時x) * (拡大率))\nend\nif <(背景モード) = [1.1]> then\n    set [主観目標y v] to ((カメラ固定時y) * (拡大率))\nend\nif <(背景モード) = [1.2]> then\n    set [主観目標x v] to ((カメラ固定時x) * (拡大率))\nend\n\n[10] Fで主観 [1] [0] [0]\n\n[10] Fで主観 [2] [0] [1]\n\n[0] [0] を中心に [10] にする\n\nrepeat (10)\n    change [拡大率 v] by (((2) - (拡大率)) / (2))\n    if <(カメラ移動キャンセル) = [1]> then\n        stop [this script v]\n    end\nend\nset [拡大率 v] to [2]\n\nrepeat (10)\n    change [拡大率 v] by (((7) - (拡大率)) / (2))\n    if <(カメラ移動キャンセル) = [1]> then\n        stop [this script v]\n    end\nend\nset [拡大率 v] to [7]\n\nset [拡大率 v] to [7]\nカメラ制御\n\nset [拡大率 v] to [3]\nカメラ制御\n\nset [拡大率 v] to [7]\n\nset [拡大率 v] to [3]\n\ndefine カメラモード判定\nset [カメラ番号変更あり v] to [0]\nset [カメラ判定用 v] to [0]\nrepeat (9)\n    change [カメラ判定用 v] by (1)\n    switch costume to (join [モード] (カメラ判定用))\n    if <<not <(カメラ番号) = (カメラ判定用)>> and <touching (gobo v)?>> then\n        set [カメラ番号 v] to (カメラ判定用)\n        set [カメラ番号変更あり v] to [1]\n    end\nend\nif <(カメラ番号変更あり) = [1]> then\n    broadcast (カメラモード変更 v)\nend\n\nforever\n    go to x: ((-1) * (真背景x)) y: ((-1) * (真背景y))\n    switch costume to (コスチューム7 v)\n    set size to ((拡大率) * (100)) %\n    switch costume to (コスチューム8 v)\nend\n\n@スプライト2\n\nwhen flag clicked\nhide\n\nwhen I receive [真のスタート v]\nshow\nset [ghost v] effect to (100)\ngo to x: (0) y: (0)\nswitch costume to (コスチューム1 v)\nset size to (1000) %\nswitch costume to (コスチューム6 v)\nforever\n    go to x: ((-10) * (主x)) y: ((-10) * (主y))\nend\n\nclear graphic effects\n\n@スプライト3\n\nwhen flag clicked\nhide\n\nwhen I receive [真のスタート v]\nshow\nset [ghost v] effect to (100)\ngo to x: (0) y: (0)\nswitch costume to (コスチューム1 v)\nset size to (1000) %\nswitch costume to (コスチューム2 v)\nforever\n    go to x: ((-10) * (主x)) y: ((-10) * (主y))\nend\n\n@スプライト5\n\nwhen flag clicked\nset [brightness v] effect to (20)\nforever\n    go to x: ((-0.05) * (真背景x)) y: ((-0.05) * (真背景y))\n    switch costume to (コスチューム1 v)\n    set size to (((拡大率) * (10)) - (-80)) %\n    switch costume to (後ろ背景 v)\n    if <((拡大率) * (20)) < (size)> then\n    go to [back v] layer\nend\n\nset size to ((拡大率) * (20)) %\n\n@スプライト6\n\nwhen flag clicked\nhide\nset [雲の数 v] to [0]\n初期雲生成\nforever\n    set [雲層 v] to ((((timer) mod (1)) / (8)) + (0.1))\n    set [雲x v] to ((-260) / ((雲層) / (2)))\n    create clone of (_myself_ v)\n    wait (pick random (1.1) to (3)) seconds\nend\n\nif <((拡大率) * (20)) < (size)> then\n\nwhen I start as a clone\ngo to [back v] layer\ngo [forward v] ((雲の数) * ((雲層) * (2))) layers\nset [ghost v] effect to (pick random (0) to (20))\nshow\nchange [雲の数 v] by (1)\nif <(pick random (1) to (10)) = [1]> then\n    set [brightness v] effect to (-20)\nelse\n    set [brightness v] effect to (pick random (-30) to (-25))\nend\nset [雲の種 v] to (pick random (1) to (3))\nforever\n    set size to ((((拡大率) * (35)) - (-200)) * (雲層)) %\n    switch costume to (コスチューム1 v)\n    go to x: ((((-0.1) * (雲層)) * (真背景x)) + (((雲x) * ((雲層) * (1))) * ((1) + ((拡大率) * (0.1))))) y: ((((-0.1) * (雲層)) * (真背景y)) + ((((0) + (170)) * (雲層)) + ((5) * (拡大率))))\n    switch costume to (雲の種)\n    change [雲x v] by (5)\n    if <((260) / (雲層)) < (雲x)> then\n        change [雲の数 v] by (-1)\n        delete this clone\n    end\nend\n\nset [雲層 v] to (() + (0.05))\n\nset [雲x v] to ((-260) / (雲層))\n\ndefine 初期雲生成\nset [雲よう v] to [0.1]\nrepeat (3)\n    repeat ((0.7) / (雲よう))\n        set [雲x v] to (pick random ((-260) / ((雲層) / (2))) to ((260) / ((雲層) / (2))))\n        set [雲層 v] to ((雲よう) + (pick random (0.05) to (-0.05)))\n        create clone of (_myself_ v)\n    end\n    change [雲よう v] by (0.1)\nend\n\n@つきのひかり\n\nwhen flag clicked\npoint in direction (90)\ngo to x: (162) y: (119)\nset [月でるか v] to [0]\nset size to (100) %\nshow\ngo to [back v] layer\nset [月種 v] to [1]\ncreate clone of (_myself_ v)\nset [月種 v] to [2]\ncreate clone of (_myself_ v)\nset [月種 v] to [3]\ncreate clone of (_myself_ v)\nforever\n    switch costume to (コスチューム3 v)\n    set [月でるか v] to [0]\n    if <not <<touching (スプライト5 v)?> or <<touching (スプライト1 v)?> or <touching (スプライト6 v)?>>>> then\n        set [月でるか v] to [1]\n    end\n    switch costume to (コスチューム6 v)\n    go to [back v] layer\n    go [forward v] (2) layers\nend\n\nwhen I start as a clone\nif <(月種) = [1]> then\n    switch costume to (コスチューム5 v)\n    set [ghost v] effect to (50)\n    go to [back v] layer\n    set [月用 v] to [100]\n    forever\n        if <(月でるか) = [1]> then\n            change [月用 v] by (((15) - (月用)) / (3))\n        else\n            change [月用 v] by (((110) - (月用)) / (3))\n        end\n        set [ghost v] effect to ((月用) + ((2) * ([sin v] of ((timer) * (500)) )))\n        go to [back v] layer\n    end\nelse\n    if <(月種) = [2]> then\n        switch costume to (コスチューム4 v)\n        set size to (80) %\n        set [ghost v] effect to (100)\n        go to [back v] layer\n        set [月用 v] to [100]\n        forever\n            if <(月でるか) = [1]> then\n                change [月用 v] by (((50) - (月用)) / (3))\n            else\n                change [月用 v] by (((110) - (月用)) / (3))\n            end\n            set [ghost v] effect to (月用)\n            go to [back v] layer\n            go [forward v] (3) layers\n        end\n    else\n        if <(月種) = [3]> then\n            switch costume to (キラーん2 v)\n            set size to (140) %\n            set [ghost v] effect to (100)\n            go to [back v] layer\n            set [月用 v] to [100]\n            set [月用2 v] to [5]\n            set [月用3 v] to [140]\n            forever\n                if <(月でるか) = [1]> then\n                    change [月用2 v] by (1)\n                    if <[30] < (月用2)> then\n                        if <[0.5] < (((80) - (月用)) / (50))> then\n                            change [月用 v] by (0.5)\n                        else\n                            change [月用 v] by (((80) - (月用)) / (50))\n                        end\n                    else\n                        set [月用 v] to [30]\n                    end\n                else\n                    change [月用 v] by (((110) - (月用)) / (3))\n                    set [月用2 v] to [0]\n                    set [月用3 v] to [140]\n                end\n                set [ghost v] effect to (月用)\n                go to [back v] layer\n                go [forward v] (1) layers\n                set size to ((月用3) + ((5) * ([sin v] of ((timer) * (100)) ))) %\n            end\n        end\n    end\nend\n\nset [月種 v] to [2]\ncreate clone of (_myself_ v)\n\nif <(月でるか) = [1]> then\n    set [月用 v] to ((30) - (((月用2) * ([abs v] of (月用2) )) / (1000)))\n    change [月用2 v] by (-0.1)\n    change size by (((月用2) * ([abs v] of (月用2) )) / (1000))\nelse\n    change [月用 v] by (((110) - (月用)) / (3))\n    set [月用2 v] to [0]\n    set size to (140) %\nend\nset [ghost v] effect to (月用)\ngo to [back v] layer\ngo [forward v] (1) layers\n\nchange [月用3 v] by (-0.5)\n\n@ジャンプポイント\n\ndefine (文字列) を (文字) で区切る\nset [一時保存用 v] to []\nset [i v] to [0]\ndelete all of [outputs v]\nrepeat (length of (文字列))\n    change [i v] by (1)\n    if <(letter (i) of (文字列)) = (letter (1) of (文字))> then\n        if <not <(一時保存用) = []>> then\n            add (一時保存用) to [outputs v]\n            set [一時保存用 v] to []\n        end\n    else\n        set [一時保存用 v] to (join (一時保存用) (letter (i) of (文字列)))\n    end\nend\nif <not <(一時保存用) = []>> then\n    add (一時保存用) to [outputs v]\n    set [一時保存用 v] to []\nend\n\nwhen flag clicked\nhide\n\ndefine 表示位置に着く (x) (y) (大きさ)\nset [コスチューム保存用 v] to (costume [name v])\nswitch costume to (端 v)\ngo to x: (((-1) * (真背景x)) + ((x) * (拡大率))) y: (((-1) * (真背景y)) + ((y) * (拡大率)))\nswitch costume to (コスチューム保存用)\nset size to ((大きさ) * (拡大率)) %\n\nwhen I receive [真のスタート v]\nset [溜まり度 v] to [0]\nset [ジャンパy力 v] to [0]\nset [陣番号 v] to [1]\nset [jp種類 v] to [1]\ncreate clone of (_myself_ v)\nchange [陣番号 v] by (1)\ncreate clone of (_myself_ v)\nchange [陣番号 v] by (1)\ncreate clone of (_myself_ v)\nchange [陣番号 v] by (1)\ncreate clone of (_myself_ v)\nforever\n    set [溜まり度 v] to ((溜まり度) * (0.9))\nend\n\nwhen I start as a clone\nif <(jp種類) = [1]> then\n    clear graphic effects\n    set [jpよう v] to [0]\n    set [jp用２ v] to [8]\n    set [jp用３ v] to [10]\n    switch costume to (陣 v)\n    forever\n        change [jpよう v] by ((溜まり度) + (1))\n        (item (陣番号) of [ジャンプポイント機能 v]) を [/] で区切る\n        表示位置に着く (item (1) of [outputs v]) (item (2) of [outputs v]) [100]\n        show\n        go to [front v] layer\n        if <[1.5] < (溜まり度)> then\n            set [brightness v] effect to ((40) + ((10) * ([sin v] of ((timer) * (150)) )))\n        else\n            set [brightness v] effect to ((10) + ((10) * ([sin v] of ((timer) * (150)) )))\n        end\n        set [ghost v] effect to ((jp用３) + ((5) * ([sin v] of ((timer) * (100)) )))\n        if <<<[240] > ([abs v] of (x position) )> and <[180] > ([abs v] of (y position) )>> and <<(jp用２) = (jpよう)> or <(jp用２) < (jpよう)>>> then\n            if <<not <(陣番号) = [4]>> or <<<[5] > ([abs v] of ((item (2) of [outputs v]) - (主y)) )> and <[3] > ([abs v] of ((item (1) of [outputs v]) - (主x)) )>> and <(陣番号) = [4]>>> then\n                set [jp種類 v] to [2]\n                create clone of (_myself_ v)\n                set [jp種類 v] to [1]\n            end\n        end\n        if <<(jp用２) = (jpよう)> or <(jp用２) < (jpよう)>> then\n            change [jp用２ v] by (8)\n        end\n        switch costume to (陣 v)\n        if <<[1] > ([abs v] of ((item (2) of [outputs v]) - (主y)) )> and <[3] > ([abs v] of ((item (1) of [outputs v]) - (主x)) )>> then\n            if <(陣番号) = [1]> then\n                switch costume to (陣2 v)\n            end\n            if <(しゃがみ) = [1]> then\n                if <(溜まり度) < [0.15]> then\n                    start sound [se_maoudamashii_retro26 v]\n                end\n                change [溜まり度 v] by (0.15)\n                if <[1.42] < (溜まり度)> then\n                    if <(溜まり度) < [1.5]> then\n                        start sound [決定、ボタン押下11 v]\n                    end\n                    set [溜まり度 v] to [1.8]\n                end\n            end\n            if <<(しゃがみ) = [0]> and <(溜まり度) = [1.62]>> then\n                set [溜まり度 v] to [3]\n                set [ジャンパx力 v] to (item (3) of [outputs v])\n                set [ジャンパy力 v] to (item (4) of [outputs v])\n                set [ジャンパ時拡大率 v] to (item (5) of [outputs v])\n                broadcast (スーパージャンプ！！ v)\n                start sound [場面転換・スライド表現02 v]\n            end\n        end\n        if <(陣番号) = [4]> then\n            if <<[5] > ([abs v] of ((item (2) of [outputs v]) - (主y)) )> and <[3] > ([abs v] of ((item (1) of [outputs v]) - (主x)) )>> then\n                change [jp用３ v] by (((10) - (jp用３)) * (0.5))\n            else\n                change [jp用３ v] by (((111) - (jp用３)) * (0.5))\n            end\n        end\n    end\nelse\n    if <(jp種類) = [2]> then\n        clear graphic effects\n        set [jpx v] to (item (1) of [outputs v])\n        set [jpy v] to ((item (2) of [outputs v]) - (3))\n        set [jpよう v] to ((360) mod ((360) * ([sin v] of ((timer) * (200)) )))\n        set [jp用２ v] to [100]\n        set [jp用３ v] to [0]\n        repeat until <[30] < (jp用３)>\n            switch costume to (たま v)\n            change [jpy v] by (((溜まり度) + (1)) * (0.2))\n            change [jpよう v] by ((溜まり度) + (1))\n            change [jp用３ v] by ((溜まり度) + (1))\n            表示位置に着く ((jpx) + ((3.7) * ([sin v] of ((jpよう) * (5)) ))) (jpy) [100]\n            show\n            go to [front v] layer\n            set [brightness v] effect to ((10) + ((30) * ([sin v] of ((jpよう) * (5)) )))\n            set [ghost v] effect to ((jp用２) + ((5) * ([sin v] of ((jpよう) * (10)) )))\n            if <[5] > (jp用３)> then\n                change [jp用２ v] by (((溜まり度) + (1)) * (-20))\n            end\n            if <(jp用３) > [25]> then\n                change [jp用２ v] by (((溜まり度) + (1)) * (15))\n            end\n        end\n        delete this clone\n    end\nend\n\n@スプライト7\n\ndefine 表示位置に着く (x) (y) (大きさ)\nset [コスチューム保存用 v] to (costume [name v])\nswitch costume to (端 v)\ngo to x: (((-1) * (真背景x)) + ((x) * (拡大率))) y: (((-1) * (真背景y)) + ((y) * (拡大率)))\nswitch costume to (コスチューム保存用)\nset size to ((大きさ) * (拡大率)) %\n\nwhen flag clicked\nhide\ndelete all of [コイン獲得状況 v]\nadd [0] to [コイン獲得状況 v]\nadd [0] to [コイン獲得状況 v]\nadd [0] to [コイン獲得状況 v]\nadd [0] to [コイン獲得状況 v]\nadd [0] to [コイン獲得状況 v]\nset [コイン用 v] to [1]\nset [コイン番号 v] to [0]\nchange [コイン番号 v] by (1)\nset [コインx v] to [38]\nset [コインy v] to [152]\ncreate clone of (_myself_ v)\nchange [コイン番号 v] by (1)\nset [コインx v] to [233]\nset [コインy v] to [2]\ncreate clone of (_myself_ v)\nchange [コイン番号 v] by (1)\nset [コインx v] to [-13.5]\nset [コインy v] to [-137]\ncreate clone of (_myself_ v)\nchange [コイン番号 v] by (1)\nset [コインx v] to [-68]\nset [コインy v] to [60.5]\ncreate clone of (_myself_ v)\nchange [コイン番号 v] by (1)\nset [コインx v] to [-120.2]\nset [コインy v] to [182.7]\ncreate clone of (_myself_ v)\nset [コイン番号 v] to [0]\n\nwhen I start as a clone\nif <(コイン用) = [0]> then\n    go [forward v] (1) layers\n    switch costume to (キラキラ v)\n    set [コイン用 v] to [0]\n    change [コインx v] by (pick random (-3.1) to (3.1))\n    change [コインy v] by (pick random (-3.1) to (3.1))\n    repeat (5)\n        change [コイン用 v] by (10)\n        表示位置に着く (コインx) (コインy) (コイン用)\n    end\n    repeat (3)\n        表示位置に着く (コインx) (コインy) (コイン用)\n    end\n    repeat (5)\n        表示位置に着く (コインx) (コインy) (コイン用)\n        change [コイン用 v] by (-10)\n    end\n    delete this clone\nelse\n    set [コイン用２ v] to [0]\n    show\n    forever\n        change [コイン用２ v] by (1)\n        switch costume to (コイン v)\n        if <<<[240] > ([abs v] of (x position) )> and <[180] > ([abs v] of (y position) )>> and <((コイン用２) mod (30)) = [0]>> then\n            set [コイン用 v] to [0]\n            create clone of (_myself_ v)\n            set [コイン用 v] to [1]\n        end\n        表示位置に着く (コインx) (コインy) [100]\n        if <touching (gobo v)?> then\n            start sound [決定、ボタン押下41 v]\n            broadcast (コイン獲得 v)\n            set [獲得するコイン v] to (コイン番号)\n            delete this clone\n        end\n    end\nend\n\nwhen I receive [ゲット v]\nif <(コイン番号) = [0]> then\n    go to [front v] layer\n    switch costume to (コイン v)\n    show\n    set [コイン用 v] to [0]\n    set [コイン用２ v] to [0]\n    repeat (20)\n        change [コイン用２ v] by (1)\n        change [コイン用 v] by (((80) - (コイン用)) * (0.5))\n        set [コインx v] to (主x)\n        set [コインy v] to ((主y) + (7))\n        表示位置に着く (コインx) (コインy) (コイン用)\n        if <((コイン用２) mod (5)) = [0]> then\n            set [コイン番号 v] to (コイン用)\n            set [コイン用 v] to [0]\n            create clone of (_myself_ v)\n            set [コイン用 v] to (コイン番号)\n        end\n    end\n    repeat (25)\n        change [コイン用２ v] by (1)\n        set [コインx v] to (主x)\n        set [コインy v] to ((主y) + (7))\n        表示位置に着く (コインx) (コインy) (コイン用)\n        if <((コイン用２) mod (5)) = [0]> then\n            set [コイン番号 v] to (コイン用)\n            set [コイン用 v] to [0]\n            create clone of (_myself_ v)\n            set [コイン用 v] to (コイン番号)\n        end\n        if <(コイン用２) = [30]> then\n            replace item (獲得するコイン) of [コイン獲得状況 v] with [1]\n        end\n    end\n    hide\n    set [コイン番号 v] to [0]\nend\n\n@スプライト8\n\nwhen I receive [真のスタート v]\nshow\nforever\n    switch costume to (コスチューム7 v)\n    set size to ((拡大率) * (100)) %\n    switch costume to (隠し v)\n    go to x: ((-1) * (真背景x)) y: ((-1) * (真背景y))\n    go to [front v] layer\n    go to x: ((-1) * (真背景x)) y: ((-1) * (真背景y))\n    if <touching (gobo v)?> then\n        change [ghost v] effect by (10)\n    else\n        change [ghost v] effect by (-10)\n    end\nend\n\nwhen I receive [背景 v]\nforever\n    go to x: ((-1) * (真背景x)) y: ((-1) * (真背景y))\nend\n\n@スプライト4\n\nwhen flag clicked\nset volume to (0) %\nforever\n    start sound [atmosphere3 v]\n    wait (2.9) seconds\nend\n\nwhen I receive [カメラモード変更 v]\nif <(カメラ番号) = [1]> then\n    repeat (10)\n        change volume by (-10)\n    end\nelse\n    if <(カメラ番号) = [2]> then\n        repeat (10)\n            change volume by (10)\n        end\n    else\n        if <(カメラ番号) = [3]> then\n            repeat (10)\n                change volume by (10)\n            end\n        else\n            if <(カメラ番号) = [4]> then\n                repeat (10)\n                    change volume by (-10)\n                end\n            else\n                if <(カメラ番号) = [5]> then\n                    repeat (10)\n                        change volume by (-10)\n                    end\n                else\n                    if <(カメラ番号) = [6]> then\n                        repeat (10)\n                            change volume by (10)\n                        end\n                    else\n                        if <(カメラ番号) = [7]> then\n                            repeat (10)\n                                change volume by (10)\n                            end\n                        else\n                            if <(カメラ番号) = [8]> then\n                                repeat (10)\n                                    change volume by (10)\n                                end\n                            else\n                                if <(カメラ番号) = [9]> then\n                                    repeat (10)\n                                        change volume by (10)\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen flag clicked\ngo to x: (0) y: (0)\nshow\nclear graphic effects\nwait (0) seconds\nrepeat (3)\n    change [ghost v] effect by (25)\nend\nhide\n\n@スプライト10\n\nwhen flag clicked\nhide\nset volume to (0) %\nforever\n    start sound [wind_at_night2 v]\n    wait (90) seconds\nend\n\nwhen I receive [カメラモード変更 v]\nif <(カメラ番号) = [1]> then\n    repeat (10)\n        change volume by (-10)\n    end\nelse\n    if <(カメラ番号) = [2]> then\n        repeat (10)\n            change volume by (10)\n        end\n    else\n        if <(カメラ番号) = [3]> then\n            repeat (10)\n                change volume by (10)\n            end\n        else\n            if <(カメラ番号) = [4]> then\n                repeat (10)\n                    change volume by (-10)\n                end\n            else\n                if <(カメラ番号) = [5]> then\n                    repeat (10)\n                        change volume by (-10)\n                    end\n                else\n                    if <(カメラ番号) = [6]> then\n                        repeat (10)\n                            change volume by (10)\n                        end\n                    else\n                        if <(カメラ番号) = [7]> then\n                            repeat (10)\n                                change volume by (10)\n                            end\n                        else\n                            if <(カメラ番号) = [8]> then\n                                repeat (10)\n                                    change volume by (10)\n                                end\n                            else\n                                if <(カメラ番号) = [9]> then\n                                    repeat (10)\n                                        change volume by (10)\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ngo to x: (0) y: (0)\ngo to [front v] layer\nshow\n\n@スプライト11\n\nwhen flag clicked\nhide\nset volume to (0) %\nforever\n    start sound [coming_of_terror v]\n    wait (7) seconds\nend\n\nwhen I receive [カメラモード変更 v]\nif <(カメラ番号) = [1]> then\n    repeat (10)\n        change volume by (10)\n    end\nelse\n    if <(カメラ番号) = [2]> then\n        repeat (10)\n            change volume by (-10)\n        end\n    else\n        if <(カメラ番号) = [3]> then\n            repeat (10)\n                change volume by (-10)\n            end\n        else\n            if <(カメラ番号) = [4]> then\n                repeat (10)\n                    change volume by (10)\n                end\n            else\n                if <(カメラ番号) = [5]> then\n                    repeat (10)\n                        change volume by (10)\n                    end\n                else\n                    if <(カメラ番号) = [6]> then\n                        repeat (10)\n                            change volume by (-10)\n                        end\n                    else\n                        if <(カメラ番号) = [7]> then\n                            repeat (10)\n                                change volume by (-10)\n                            end\n                        else\n                            if <(カメラ番号) = [8]> then\n                                repeat (10)\n                                    change volume by (-10)\n                                end\n                            else\n                                if <(カメラ番号) = [9]> then\n                                    repeat (10)\n                                        change volume by (-10)\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\n@スプライト12\n\nwhen flag clicked\nhide\nset volume to (0) %\nforever\n    start sound [strong_wind1 v]\n    wait (26) seconds\nend\n\nwhen I receive [カメラモード変更 v]\nif <(カメラ番号) = [1]> then\n    repeat (10)\n        change volume by (-10)\n    end\nelse\n    if <(カメラ番号) = [2]> then\n        repeat (10)\n            change volume by (-10)\n        end\n    else\n        if <(カメラ番号) = [3]> then\n            repeat (10)\n                change volume by (-10)\n            end\n        else\n            if <(カメラ番号) = [4]> then\n                repeat (10)\n                    change volume by (-10)\n                end\n            else\n                if <(カメラ番号) = [5]> then\n                    repeat (10)\n                        change volume by (-10)\n                    end\n                else\n                    if <(カメラ番号) = [6]> then\n                        repeat (10)\n                            change volume by (-10)\n                        end\n                    else\n                        if <(カメラ番号) = [7]> then\n                            repeat (10)\n                                change volume by (10)\n                            end\n                        else\n                            if <(カメラ番号) = [8]> then\n                                repeat (10)\n                                    change volume by (10)\n                                end\n                            else\n                                if <(カメラ番号) = [9]> then\n                                    repeat (10)\n                                        change volume by (-10)\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\n@スプライト9\n\nwhen flag clicked\nhide\nset [コイン表示番号 v] to [0]\nset [コイン表示するか v] to [0]\ngo to x: (98) y: (-170)\nrepeat (5)\n    change [コイン表示番号 v] by (1)\n    create clone of (_myself_ v)\n    change x by (30)\nend\nset [コイン表示番号 v] to [0]\nwait (0.1) seconds\nset [コイン表示するか v] to [1]\nwait (2) seconds\nset [コイン表示するか v] to [0]\nbroadcast (コイン表示管理 v)\n\nwhen I start as a clone\nif <(コイン表示番号) = [e]> then\n    go to [front v] layer\n    set size to (80) %\n    switch costume to (コイン2 v)\n    repeat (5)\n        change size by (((120) - (size)) * (0.7))\n    end\n    repeat (10)\n        change size by (((120) - (size)) * (0.7))\n        change [ghost v] effect by (10)\n    end\n    delete this clone\nelse\n    set size to (400) %\n    show\n    set [ghost v] effect to (100)\n    switch costume to (コイン3 v)\n    wait until <(item (コイン表示番号) of [コイン獲得状況 v]) = [1]>\n    repeat (2)\n        change size by (80)\n    end\n    switch costume to (コイン v)\n    start sound [決定、ボタン押下46 v]\n    set [コイン表示番号 v] to [e]\n    create clone of (_myself_ v)\n    repeat (2)\n        change size by (-72)\n    end\nend\n\nwhen I start as a clone\nif <not <(コイン表示番号) = [e]>> then\n    forever\n        if <(コイン表示するか) = [1]> then\n            change y by (2)\n            if <[-160] < (y position)> then\n                set y to (-160)\n            end\n            change [ghost v] effect by (-20)\n        else\n            change y by (-2)\n            if <(y position) < [-175]> then\n                set y to (-175)\n            end\n            change [ghost v] effect by (20)\n        end\n    end\nend\n\nwhen I receive [ゲット v]\nif <(コイン表示番号) = [0]> then\n    stop [other scripts in sprite v]\n    wait (0.2) seconds\n    set [コイン表示するか v] to [1]\n    wait (1.5) seconds\n    set [コイン表示するか v] to [0]\n    broadcast (コイン表示管理 v)\nend\n\nwhen I receive [コイン表示管理 v]\nif <(コイン表示番号) = [0]> then\n    forever\n        if <not <<<<(着地) = [0]> or <key (right arrow v) pressed?>> or <key (left arrow v) pressed?>> or <key (up arrow v) pressed?>>> then\n            あ\n        else\n            set [コイン表示するか v] to [0]\n        end\n    end\nend\n\ndefine あ\nrepeat (30)\n    if <<<<(着地) = [0]> or <key (right arrow v) pressed?>> or <key (left arrow v) pressed?>> or <key (up arrow v) pressed?>> then\n        stop [this script v]\n    end\n    wait (0) seconds\nend\nset [コイン表示するか v] to [1]\n\nset [コイン表示番号 v] to [e]\ncreate clone of (_myself_ v)\n\n@流星\n\ndefine (文字列) を (文字) で区切る\nset [一時保存用 v] to []\nset [i v] to [0]\ndelete all of [output v]\nrepeat (length of (文字列))\n    change [i v] by (1)\n    if <(letter (i) of (文字列)) = (letter (1) of (文字))> then\n        if <not <(一時保存用) = []>> then\n            add (一時保存用) to [output v]\n            set [一時保存用 v] to []\n        end\n    else\n        set [一時保存用 v] to (join (一時保存用) (letter (i) of (文字列)))\n    end\nend\nif <not <(一時保存用) = []>> then\n    add (一時保存用) to [output v]\n    set [一時保存用 v] to []\nend\n\nwhen flag clicked\ndelete all of [流星 v]\nforever\n    erase all\n    if <not <(length of [流星 v]) = [0]>> then\n        流星\n    end\n    if <(pick random (1) to (2000)) = [1]> then\n        add (join (pick random (150) to (400)) (join [/] (join (pick random (240) to (260)) (join [/] (pick random (-95) to (-115)))))) to [流星 v]\n    end\n    if <<<(カメラ番号) = [8]> or <(カメラ番号) = [7]>> and <(pick random (1) to (500)) = [1]>> then\n        add (join (pick random (150) to (400)) (join [/] (join (pick random (240) to (260)) (join [/] (pick random (-95) to (-115)))))) to [流星 v]\n    end\nend\n\ndefine 流星\nset [流星様 v] to [0]\nrepeat (length of [流星 v])\n    change [流星様 v] by (1)\n    (item (流星様) of [流星 v]) を [/] で区切る\n    go to x: (item (1) of [output v]) y: (item (2) of [output v])\n    point in direction (item (3) of [output v])\n    turn right (180) degrees\n    pen up\n    set pen color to (#ffffff)\n    set pen size to (1)\n    set pen (transparency v) to (10)\n    repeat (200)\n        if <[50] > (direction)> then\n            pen up\n        else\n            pen down\n        end\n        turn right (0.04) degrees\n        move (1) steps\n        change pen (transparency v) by (0.5)\n    end\n    pen up\n    go to x: (item (1) of [output v]) y: (item (2) of [output v])\n    point in direction (item (3) of [output v])\n    turn left (1.2) degrees\n    move (30) steps\n    replace item (流星様) of [流星 v] with (join (x position) (join [/] (join (y position) (join [/] (direction)))))\n    if <[-170] > (direction)> then\n        delete (流星様) of [流星 v]\n        change [流星様 v] by (-1)\n    end\nend\n\n