horizon platformer

Instructions: これは@karikunn様とのコラボ作品です！\n@karikunn様の作品！↓\nhttps://scratch.mit.edu/projects/410523981\n\n\n@rento1904のフォロー↓\nhttps://scratch.mit.edu/users/rento1904/\n\n@rento1904の過去のアクションゲーム集\nhttps://scratch.mit.edu/studios/26713045/\n\n\n日本語説明は下でーす\n\nYou can jump with the up key.\nYou can move with the left and right keys and crouch with the down key.\n\n\n上キーでジャンプ、左右キーで移動、下キーでしゃがみます。\n\n\n音‥https://scratch.mit.edu/projects/112534706/\n　　ありがとうございます！\n\nリプレイの案‥@yessusitarou様(中は完全自作)\n参考・@nakaokun様、@KOBANEKO521様\nOP‥ha_na827様\n　　神オープニング！！\n#games　　　　\n#rentogames\n#ranto1904\n#rento\n#action\n#square\n#squareaction\n#2020\n#platformer\n#karikunn 様

@Stage\n\nwhen flag clicked\ndelete all of [時間 v]\ndelete all of [状態 v]\ndelete all of [状態2 v]\nswitch backdrop to (背景1 v)\n\nwhen I receive [start v]\nreset timer\nswitch backdrop to (3 v)\n\nwhen I receive [tugi v]\nadd (timer) to [時間 v]\nreset timer\n\n@クリア用\n\nwhen I receive [完了 v]\nあ\n\nset volume to (100) %\ngo to [back v] layer\nshow\n\nforever\n    if <touching (主人公 v)?> then\n        forever\n            glide (0.5) secs to (主人公 v)\n        end\n    end\nend\n\nwhen I receive [start v]\nwait until <(backdrop [number v]) = [15]>\nbroadcast (clear v)\nif <(☁ world record) > (time)> then\n    あい\nend\n\nwhen flag clicked\nset [kuria v] to [0]\n\nwhen I receive [clear v]\nset [kuria v] to [1]\n\ndefine あ\nrepeat (length of (username))\n    add (letter (join (letter (番号) of (☁ あ)) (letter ((番号) + (1)) of (☁ あ))) of (名前読み込み)) to [saikoukiroku v]\n    change [番号 v] by (2)\nend\nset [最高記録保持者 v] to (join (join (join (join (join (item (1) of [saikoukiroku v]) (item (2) of [saikoukiroku v])) (join (item (3) of [saikoukiroku v]) (join (item (4) of [saikoukiroku v]) (join (item (5) of [saikoukiroku v]) (item (6) of [saikoukiroku v]))))) (join (join (join (item (7) of [saikoukiroku v]) (item (8) of [saikoukiroku v])) (item (9) of [saikoukiroku v])) (item (10) of [saikoukiroku v]))) (join (item (11) of [saikoukiroku v]) (join (item (12) of [saikoukiroku v]) (item (13) of [saikoukiroku v])))) (join (item (14) of [saikoukiroku v]) (join (item (15) of [saikoukiroku v]) (join (join (item (16) of [saikoukiroku v]) (item (17) of [saikoukiroku v])) (join (item (18) of [saikoukiroku v]) (join (item (19) of [saikoukiroku v]) (item (20) of [saikoukiroku v])))))))\n\ndefine あい\ndelete all of [saikoukiroku v]\nset [☁ world record v] to (time)\nset [☁ あ v] to []\nset [番号 v] to [1]\nrepeat (length of (username))\n    set [ローマ字位置 v] to [1]\n    set [名前読み込み v] to [!!!!!!!!!ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_]\n    repeat until <(letter (番号) of (username)) = (letter (ローマ字位置) of (名前読み込み))>\n        change [ローマ字位置 v] by (1)\n    end\n    if <(length of (ローマ字位置)) = [1]> then\n        set [ローマ字位置 v] to (join [0] (ローマ字位置))\n    end\n    set [☁ あ v] to (join (☁ あ) (ローマ字位置))\n    change [番号 v] by (1)\nend\nbroadcast (完了 v)\n\nset [番号 v] to [1]\n\nwhen flag clicked\n\nrepeat (length of (username))\n    add [] to [saikoukiroku v]\n    change [番号 v] by (2)\nend\nset [最高記録保持者 v] to (join (join (join (join (join (item (1) of [saikoukiroku v]) (item (2) of [saikoukiroku v])) (join (item (3) of [saikoukiroku v]) (join (item (4) of [saikoukiroku v]) (join (item (5) of [saikoukiroku v]) (item (6) of [saikoukiroku v]))))) (join (join (join (item (7) of [saikoukiroku v]) (item (8) of [saikoukiroku v])) (item (9) of [saikoukiroku v])) (item (10) of [saikoukiroku v]))) (join (item (11) of [saikoukiroku v]) (join (item (12) of [saikoukiroku v]) (item (13) of [saikoukiroku v])))) (join (item (14) of [saikoukiroku v]) (join (item (15) of [saikoukiroku v]) (join (join (item (16) of [saikoukiroku v]) (item (17) of [saikoukiroku v])) (join (item (18) of [saikoukiroku v]) (join (item (19) of [saikoukiroku v]) (item (20) of [saikoukiroku v])))))))\n\n@主人公\n\nwhen flag clicked\nhide\nset [time v] to [0]\nswitch costume to (1 v)\nset size to (100) %\npoint in direction (90)\n\nwhen flag clicked\nset [time v] to [0]\n\nwhen I receive [clear v]\nif <(time) > [15]> then\n    set [a v] to [1]\n    stop all sounds\n    if <(☁ world record) > (time)> then\n        set [☁ world record v] to (time)\n    end\nend\n\nwhen flag clicked\nhide variable [time v]\n\nwhen I receive [clear v]\nstop all sounds\nset volume to (0) %\n\ndefine 青振れチェック\nif <<touching color (#00d567)?> or <touching color (#0047ff)?>> then\n    change y by (1)\nend\n\ndefine 青振れ2\nif <<touching color (#00d567)?> or <touching color (#0047ff)?>> then\n    change y by ((0) - (y))\n    set [y v] to [0]\nend\n\ndefine y (あげる)\nchange y by (あげる)\n\nwhen I receive [start v]\nforever\n    if <mouse down?> then\n        if <(mouse x) > [10]> then\n            change [x v] by (1)\n            point in direction (90)\n        end\n        if <(mouse x) < [-10]> then\n            change [x v] by (-1)\n            point in direction (-90)\n        end\n    end\nend\n\nwhen I receive [start v]\nforever\n    if <mouse down?> then\n        if <(mouse y) < [-105]> then\n            switch costume to (1 v)\n        else\n            switch costume to (2 v)\n        end\n    end\nend\n\nwhen I receive [start v]\nforever\n    if <mouse down?> then\n        if <(mouse y) > (y position)> then\n            set [y v] to [15]\n            change y by (3)\n            wait (1.5) seconds\n        end\n    end\nend\n\nwhen I receive [start v]\ndelete all of [x v]\ndelete all of [y v]\nset [リプレイ v] to [0]\nshow\nset volume to (100) %\nset size to (100) %\nshow\ngo to x: (-180) y: (50)\nset [x v] to [0]\nset [y v] to [0]\nreset timer\nforever\n    if <(リプレイ) = [1]> then\n        stop [this script v]\n    end\n    change [y v] by (-1)\n    if <key (left arrow v) pressed?> then\n        point in direction (-90)\n        change [x v] by (-1)\n    end\n    if <key (right arrow v) pressed?> then\n        point in direction (90)\n        change [x v] by (1)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\n    青振れチェック\n    青振れチェック\n    青振れチェック\n    if <<touching color (#00d567)?> or <touching color (#0047ff)?>> then\n        change y by (1)\n        if <<touching color (#00d567)?> or <touching color (#0047ff)?>> then\n            change y by (-4)\n            change x by ((x) * (-1))\n            if <<key (up arrow v) pressed?> or <<(mouse y) > [-10]> and <mouse down?>>> then\n                set [y v] to [15]\n                if <(x) > [0]> then\n                    set [x v] to [-10]\n                else\n                    set [x v] to [10]\n                end\n            else\n                set [x v] to [0]\n            end\n        end\n    end\n    change y by (y)\n    青振れ2\n    y [-1]\n    if <<key (up arrow v) pressed?> and <<touching color (#00d567)?> or <touching color (#0047ff)?>>> then\n        start sound [ジャンプ2 v]\n        set [y v] to [15]\n    end\n    黄色チェック\n    if <<touching color (#838383)?> or <touching color (#323232)?>> then\n        wait (0.05) seconds\n        go to x: (-200) y: (50)\n        set [x v] to [0]\n        set [y v] to [0]\n    end\n    if <touching color (#00f7ff)?> then\n        set [y v] to [23]\n    end\n    if <(x position) > [233]> then\n        broadcast (tugi v)\n        go to x: (-196) y: (50)\n    end\n    if <key (down arrow v) pressed?> then\n        switch costume to (2 v)\n    else\n        switch costume to (1 v)\n    end\n    change y by (1)\n    if <(y position) < [-180]> then\n        go to x: (-180) y: (50)\n    end\nend\n\nwhen I receive [start v]\nset [a v] to [0]\nset [time v] to [0]\nforever\n    change [time v] by (1)\n    wait (1) seconds\n    if <(a) = [1]> then\n        stop [this script v]\n    end\nend\n\nstart sound [bgm v]\n\nwhen I receive [start v]\nplay sound [春風 v] until done\nplay sound [春風 v] until done\nplay sound [春風 v] until done\nplay sound [春風 v] until done\nplay sound [春風 v] until done\nplay sound [春風 v] until done\nplay sound [春風 v] until done\nplay sound [春風 v] until done\n\nwhen flag clicked\n\nforever\n    if <(☁ world record) = [0]> then\n        set [☁ world record v] to (☁ 仮record)\n        if <(c) = [1]> then\n            stop [this script v]\n        end\n    end\nend\n\nbroadcast (tugi v)\n\nwhen I receive [tugi v]\nnext backdrop\n\nwhen I receive [start v]\ndelete all of [背景 v]\nrepeat until <(リプレイ) = [1]>\n    add (x position) to [x v]\n    add (y position) to [y v]\n    add (costume [name v]) to [状態 v]\n    add (direction) to [状態2 v]\n    add (backdrop [name v]) to [背景 v]\nend\n\nwait (0.5) seconds\n\nwhen [space v] key pressed\nif <(kuria) = [1]> then\n    broadcast (リプレイ v)\n    set [リプレイ v] to [1]\n    set [kuria v] to [0]\nend\n\nwhen I receive [リプレイ v]\nswitch backdrop to (3 v)\nrepeat until <(length of [x v]) = [0]>\n    go to x: (item (1) of [x v]) y: (item (1) of [y v])\n    switch costume to (item (1) of [状態 v])\n    削除\nend\n\ndefine 削除\nswitch backdrop to (item (1) of [背景 v])\npoint in direction (item (1) of [状態2 v])\ndelete (1) of [x v]\ndelete (1) of [y v]\ndelete (1) of [状態 v]\ndelete (1) of [状態2 v]\ndelete (1) of [背景 v]\n\n@タイトル\n\nwhen flag clicked\nhide\n\n@スプライト5\n\nwhen flag clicked\nforever\n    if <[39] < (direction)> then\n        stop [all v]\n    end\nend\n\nwhen flag clicked\nhide\nforever\n    turn right (1) degrees\n    wait (0) seconds\nend\n\nwhen flag clicked\nset rotation style [don't rotate v]\nforever\n    point in direction (0)\n    wait (1) seconds\nend\n\n@アイコン\n\nwhen I receive [op終わりぃぃ！ v]\nwait (0.5) seconds\nglide (0.3) secs to x: (0) y: (0)\nrepeat (10)\n    change size by (10)\n    change [ghost v] effect by (10)\nend\nbroadcast (start v)\n\nwhen flag clicked\nset [変数 v] to [1]\nshow\nset size to (20) %\ngo to x: (0) y: (-100)\npoint in direction (90)\ngo to x: (0) y: (-150)\nwait (0.001) seconds\nrepeat (51)\n    change y by (変数)\n    turn right (7) degrees\n    change [変数 v] by (0.1)\nend\nturn right (3) degrees\ngo to x: (0) y: (0)\nset size to (100) %\nrepeat (22)\n    change size by (-1)\nend\nrepeat (29)\n    change x by (-3)\n    change y by (-1)\nend\nbroadcast (文字ぃぃ！ v)\nrepeat (4)\n    change x by (-3)\n    change y by (-1)\nend\nbroadcast (動け！ v)\n\nwhen I receive [動け！ v]\nrepeat (10)\n    turn right (15) degrees\n    wait (0.1904) seconds\n    turn left (30) degrees\n    wait (0.1904) seconds\n    turn right (15) degrees\nend\n\n@文字１\n\nwhen I receive [op終わりぃぃ！ v]\nwait (0.5) seconds\nrepeat (10)\n    change size by (-10)\n    change [ghost v] effect by (10)\nend\n\nwhen I receive [文字ぃぃ！ v]\nshow\nset size to (33) %\ngo to x: (235) y: (-40)\nrepeat (6)\n    change x by (-7)\n    change size by (7)\nend\nbroadcast (タイトルぅぅ！ v)\nrepeat (4)\n    change x by (-7)\n    change size by (7)\nend\n\nwhen flag clicked\nhide\n\n@文字２\n\nwhen flag clicked\nhide\nset size to (19) %\n\nwhen I receive [タイトルぅぅ！ v]\ngo to x: (0) y: (170)\nshow\nrepeat (1)\n    repeat (50)\n        change y by (-0.8)\n        change size by (4)\n    end\nend\nwait (0.1904) seconds\nbroadcast (OP終わりぃぃ！ v)\n\nwhen I receive [op終わりぃぃ！ v]\nwait (0.5) seconds\nrepeat (10)\n    change size by (-10)\n    change [ghost v] effect by (10)\nend\n\n@スプライト6\n\nwhen flag clicked\nforever\n    go to [back v] layer\nend\n\nwhen flag clicked\nhide\nhide variable [☁ world record v]\nhide variable [最高記録保持者 v]\nhide variable [time v]\n\nwhen I receive [start v]\nshow variable [time v]\nshow variable [最高記録保持者 v]\nshow variable [☁ world record v]\nshow\n\n