Scroll platformer!!!　スクロールプラットフォーマー！！！　scrollplatformer  

Instructions: 日本語は下\n\n　English\n　Must press the flag twice\n【Method of operation】\ncomputer\n- Operate with arrow keys\n・Hip drop by pressing the up arrow key and the down arrow key in order\n\nmobile\nkey replacement\n・Upward arrow key ➡Press above the character\n・Down arrow key ➡Press below the character\n・Right arrow key ➡ Press right from character\n・Left arrow key ➡ Press left from character\n・Hip drop is not allowed\n\n【clear】\n・It is clear when you go to the end\n\n　日本語\n　旗2回押し必須\n【操作方法】\nPC\n・矢印キーで操作\n・上向き矢印キーと下向き矢印キーを順番に押すとヒップドロップ\n\nモバイル\nキーの置き換え\n・上向き矢印キー➡キャラより上を押す\n・下向き矢印キー➡キャラより下を押す\n・右向き矢印キー➡キャラより右を押す\n・左向き矢印キー➡キャラより左を押す\n・ヒップドロップはできません\n\n【クリア】\n・一番奥まで行くとクリアです

@Stage\n\nwhen flag clicked\nswitch backdrop to (now loading... v)\n\nwhen I receive [読み込み完了 v]\nswitch backdrop to (朝 v)\nforever\n    wait (30) seconds\n    switch backdrop to (昼 v)\n    wait (30) seconds\n    switch backdrop to (夕方 v)\n    wait (30) seconds\n    switch backdrop to (夜 v)\n    wait (30) seconds\n    switch backdrop to (朝 v)\nend\n\n@主人公\n\ndefine 着地\nrepeat until <not <<touching color (#b87d00)?> or <<touching color (#10fd00)?> or <touching color (#f2ff66)?>>>>\n    change y by (1)\nend\n\nwhen I receive [読み込み完了 v]\nforever\n    if <touching (バネ v)?> then\n        change [speedy v] by (20)\n    end\n    if <<touching color (#b77803)?> or <<touching color (#f3ff72)?> or <touching color (#b87e03)?>>> then\n        バク修正\n    end\nend\n\nwhen flag clicked\nrepeat (100)\n    set [goal v] to [0]\n    set [key v] to [0]\n    set [scroll v] to [0]\n    reset timer\n    set [speedy v] to [0]\n    go to x: (-170) y: (34)\n    set size to (100) %\n    switch costume to (1 v)\n    set [speedx v] to [0]\n    set [リスポーン地点 v] to [1]\n    hide\n    point in direction (90)\n    show list [world ranking　世界ランキング v]\nend\n\ndefine バク修正\nrepeat until <not <<touching color (#b77803)?> or <<touching color (#f3ff72)?> or <touching color (#b87e03)?>>>>\n    set [speedy v] to [0]\n    change y by (-3)\nend\n\nwhen I receive [読み込み完了 v]\nreset timer\nset [speedy v] to [0]\ngo to x: (-170) y: (34)\nshow\nwait (0.000001) seconds\nbroadcast (再開 v)\nforever\n    play sound [Inferno v] until done\nend\n\nwhen I receive [読み込み完了 v]\nshow\nforever\n    change y by (speedy)\n    change [speedy v] by (-1)\n    if <<touching color (#f2ff66)?> or <<touching color (#b87d00)?> or <<touching color (#10fd00)?> or <<touching color (#b87d00)?> and <key (up arrow v) pressed?>>>>> then\n        set [speedy v] to [0]\n    end\n    着地\nend\n\nwhen I receive [読み込み完了 v]\nforever\n    if <<<mouse down?> and <(y position) < (mouse y)>> or <key (up arrow v) pressed?>> then\n        change y by (-1)\n        if <<touching color (#b87d00)?> or <<touching color (#f2ff66)?> or <<touching (バネ v)?> or <touching color (#10fd00)?>>>> then\n            start sound [ニュッ2 v]\n            change [speedy v] by (15)\n        end\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    else\n        switch costume to (1 v)\n    end\n    change [color v] effect by (10)\nend\n\nwhen I receive [読み込み完了 v]\ngo to x: (-120) y: (-93)\nforever\n    if <<<mouse down?> and <(x position) < (mouse x)>> or <key (right arrow v) pressed?>> then\n        point in direction (90)\n        change [speedx v] by (1.2)\n    end\n    if <<<mouse down?> and <(mouse x) < (x position)>> or <key (left arrow v) pressed?>> then\n        point in direction (-90)\n        change [speedx v] by (-1.2)\n    end\n    if <(speedx) > [12]> then\n        set [speedx v] to [12]\n    end\n    set [speedx v] to ((speedx) / (1.1))\n    change x by (speedx)\n    if <touching color (#b87d00)?> then\n        change x by (((0) - (speedx)) * (3))\n        set [speedx v] to [0]\n        if <<<mouse down?> and <(y position) < (mouse y)>> or <key (up arrow v) pressed?>> then\n            start sound [ニュッ2 v]\n            set [speedy v] to [13]\n            set [speedx v] to ((speedx) - (5))\n        else\n            set [speedx v] to [0]\n        end\n    end\n    if <<touching color (#ff0000)?> or <(y position) < [-171]>> then\n        start sound [「うっ！」 v]\n        hide\n        broadcast (OUT v) and wait\n        broadcast (復活 v)\n        show\n        set [speedx v] to [0]\n        go to x: (-30) y: (0)\n    end\nend\n\nwhen I receive [読み込み完了 v]\nwait (0.1) seconds\nforever\n    if <[0] < (x position)> then\n        change [scroll v] by (x position)\n        set x to (0)\n    end\nend\n\n@地面\n\nwhen flag clicked\nrepeat (100)\n    go to x: (0) y: (0)\n    hide\n    switch costume to (コスチューム1 v)\n    hide variable [time v]\n    set [screen v] to [0]\n    set [計算 v] to [0]\n    set [out v] to [0]\n    set [スクロールy v] to [0]\n    delete all of [リスポーン地点 v]\n    add [0] to [リスポーン地点 v]\n    add [0] to [リスポーン地点 v]\n    add [0] to [リスポーン地点 v]\n    delete all of [world ranking　世界ランキング v]\nend\n\nwhen I start as a clone\nswitch costume to ((screen) + (1))\nshow\nforever\n    set x to (((480) * (screen)) - (scroll))\n    set [計算 v] to (((480) * (screen)) - (scroll))\n    if <(計算) < [-480]> then\n        delete this clone\n    end\n    if <(OUT) = [1]> then\n        delete this clone\n    end\nend\n\nwhen I receive [読み込み完了 v]\nset [screen v] to [0]\ncreate clone of (_myself_ v)\nforever\n    if <(screen) < ([ceiling v] of ((scroll) / (480)) )> then\n        change [screen v] by (1)\n        create clone of (_myself_ v)\n    end\n    set [screen2 v] to (screen)\nend\n\nwhen I receive [out v]\nhide\nset [out v] to [1]\nrepeat (10)\n    set [speedy v] to [0]\n    go to x: (0) y: (0)\n    set [scroll v] to (item (1) of [リスポーン地点 v])\n    set [screen v] to (item (2) of [リスポーン地点 v])\n    set [計算 v] to (item (3) of [リスポーン地点 v])\nend\ncreate clone of (_myself_ v)\nset [out v] to [0]\n\n@広告\n\nwhen I receive [読み込み完了 v]\nforever\n    show\n    go to x: (159) y: (196)\n    wait (pick random (5) to (10)) seconds\n    repeat (4)\n        change y by (-6.5)\n    end\n    repeat (4)\n        change y by (-3.5)\n    end\n    repeat (6)\n        change y by (0.4)\n    end\n    start sound [ポップ v]\n    repeat (4)\n        change y by (-0.7)\n    end\n    wait (4) seconds\n    repeat (8)\n        change y by (1.5)\n    end\n    repeat (6)\n        change y by (3.5)\n    end\n    go to [front v] layer\nend\n\n@サムネ\n\nwhen flag clicked\nhide\nforever\n    set [time2 v] to (timer)\nend\n\nwhen [timer v] > (time2)\nshow\ngo to [front v] layer\n\nwhen I receive [読み込み完了 v]\nwait (1) seconds\nrepeat until <(screen2) = [20]>\n    set [time v] to (round (timer))\nend\nset [goal v] to [1]\nbroadcast (ユーザー名数値化 v) and wait\nshow variable [time v]\nif <not <(username) = [koguss]>> then\n    if <(time) < (☁ No.1 記録)> then\n        repeat (3)\n            set [☁ no.5　ユーザー名 v] to (☁ No.4　ユーザー名)\n            set [☁ no.5 記録 v] to (☁ No.4 記録)\n            set [☁ no.4　ユーザー名 v] to (☁ No.3　ユーザー名)\n            set [☁ no.4 記録 v] to (☁ No.3 記録)\n            set [☁ no.3　ユーザー名 v] to (☁ No.2 ユーザー名)\n            set [☁ no.3 記録 v] to (☁ No.2 記録)\n            set [☁ no.2 ユーザー名 v] to (☁ World record 世界記録　No.1 ユーザー名)\n            set [☁ no.2 記録 v] to (☁ No.1 記録)\n            set [☁ world record 世界記録　no.1 ユーザー名 v] to (ユーザー名)\n            set [☁ no.1 記録 v] to (time)\n        end\n        ランキング作成\n    end\n    if <<(time) < (☁ No.2 記録)> and <(☁ No.1 記録) < (time)>> then\n        repeat (3)\n            set [☁ no.5　ユーザー名 v] to (☁ No.4　ユーザー名)\n            set [☁ no.5 記録 v] to (☁ No.4 記録)\n            set [☁ no.4　ユーザー名 v] to (☁ No.3　ユーザー名)\n            set [☁ no.4 記録 v] to (☁ No.3 記録)\n            set [☁ no.3　ユーザー名 v] to (☁ No.2 ユーザー名)\n            set [☁ no.3 記録 v] to (☁ No.2 記録)\n            set [☁ no.2 ユーザー名 v] to (ユーザー名)\n            set [☁ no.2 記録 v] to (time)\n        end\n        ランキング作成\n    end\n    if <<(time) < (☁ No.3 記録)> and <(☁ No.2 記録) < (time)>> then\n        repeat (3)\n            set [☁ no.5　ユーザー名 v] to (☁ No.4　ユーザー名)\n            set [☁ no.5 記録 v] to (☁ No.4 記録)\n            set [☁ no.4　ユーザー名 v] to (☁ No.3　ユーザー名)\n            set [☁ no.4 記録 v] to (☁ No.3 記録)\n            set [☁ no.3　ユーザー名 v] to (ユーザー名)\n            set [☁ no.3 記録 v] to (time)\n        end\n        ランキング作成\n    end\n    if <<(time) < (☁ No.4 記録)> and <(☁ No.3 記録) < (time)>> then\n        repeat (3)\n            set [☁ no.5　ユーザー名 v] to (☁ No.4　ユーザー名)\n            set [☁ no.5 記録 v] to (☁ No.4 記録)\n            set [☁ no.4　ユーザー名 v] to (ユーザー名)\n            set [☁ no.4 記録 v] to (time)\n        end\n        ランキング作成\n    end\n    if <<(time) < (☁ No.5 記録)> and <(☁ No.4 記録) < (time)>> then\n        repeat (3)\n            set [☁ no.5　ユーザー名 v] to (ユーザー名)\n            set [☁ no.5 記録 v] to (time)\n        end\n        ランキング作成\n    end\nend\nランキング作成\n\ndefine ランキング作成\ndelete all of [world ranking　世界ランキング v]\nset [復元するユーザー名 v] to (☁ World record 世界記録　No.1 ユーザー名)\nbroadcast (ユーザー名復元 v) and wait\nadd (join (join (join (join (☁ No.1 記録) [　]) [...]) [　]) (復元したユーザー名)) to [world ranking　世界ランキング v]\nset [復元するユーザー名 v] to (☁ No.2 ユーザー名)\nbroadcast (ユーザー名復元 v) and wait\nadd (join (join (join (join (☁ No.2 記録) [　]) [...]) [　]) (復元したユーザー名)) to [world ranking　世界ランキング v]\nset [復元するユーザー名 v] to (☁ No.3　ユーザー名)\nbroadcast (ユーザー名復元 v) and wait\nadd (join (join (join (join (☁ No.3 記録) [　]) [...]) [　]) (復元したユーザー名)) to [world ranking　世界ランキング v]\nset [復元するユーザー名 v] to (☁ No.4　ユーザー名)\nbroadcast (ユーザー名復元 v) and wait\nadd (join (join (join (join (☁ No.4 記録) [　]) [...]) [　]) (復元したユーザー名)) to [world ranking　世界ランキング v]\nset [復元するユーザー名 v] to (☁ No.5　ユーザー名)\nbroadcast (ユーザー名復元 v) and wait\nadd (join (join (join (join (☁ No.5 記録) [　]) [...]) [　]) (復元したユーザー名)) to [world ranking　世界ランキング v]\nhide list [world ranking　世界ランキング v]\nwait (1) seconds\nstop [this script v]\n\n@第4種ターボ対策ソフト2\n\nwhen I receive [読み込み完了 v]\nhide\nforever\n    go to [front v] layer\nend\n\nwhen I receive [読み込み完了 v]\nforever\n    set [tabo v] to (timer)\n    wait (0) seconds\n    if <(tabo) = (timer)> then\n        go to [front v] layer\n        show\n    else\n        hide\n    end\nend\n\n@Now Loading...\n\nwhen flag clicked\ngo to x: (-150) y: (-100)\nrepeat (2)\n    erase all\nend\npen down\nset pen color to (#9e9e9e)\nset pen size to (40)\ngo to x: (150) y: (-100)\npen up\ngo to x: (-145) y: (-100)\npen down\nset pen color to (#58f017)\nset pen size to (30)\nglide (1) secs to x: (145) y: (-100)\nwait (0.2) seconds\nerase all\nbroadcast (読み込み完了 v)\n\n@中間\n\nwhen I receive [読み込み完了 v]\ncreate clone of (_myself_ v)\nforever\n    if <(screen) < ([ceiling v] of ((scroll) / (480)) )> then\n        change [screen v] by (1)\n        create clone of (_myself_ v)\n    end\nend\n\nwhen I start as a clone\nswitch costume to ((screen) + (1))\nif <not <[整理 v] contains (costume [number v])?>> then\n    show\nend\nforever\n    set x to (((480) * (screen)) - (scroll))\n    set [計算 v] to (((480) * (screen)) - (scroll))\n    if <(計算) < [-480]> then\n        delete this clone\n    end\n    if <(OUT) = [1]> then\n        delete this clone\n    end\nend\n\nwhen I receive [out v]\nhide\nset [out v] to [1]\nif <(リスポーン地点) = [1]> then\n    repeat (10)\n        set [scroll v] to [0]\n        set [screen v] to [0]\n        set [計算 v] to [0]\n        go to x: (0) y: (0)\n    end\n    create clone of (_myself_ v)\nend\nset [out v] to [0]\n\nwhen I start as a clone\nforever\n    if <touching (主人公 v)?> then\n        add (costume [number v]) to [整理 v]\n        delete all of [リスポーン地点 v]\n        start sound [成功音 v]\n        hide\n        add (scroll) to [リスポーン地点 v]\n        add (screen) to [リスポーン地点 v]\n        add (計算) to [リスポーン地点 v]\n        delete this clone\n    end\nend\n\nwhen flag clicked\nrepeat (10)\n    hide\n    delete all of [整理 v]\n    set [screen v] to [0]\nend\n\n@地面2\n\nwhen flag clicked\nhide\n\nwhen I receive [out v]\nshow\ngo to [front v] layer\nswitch costume to (screen2)\n\nwhen I receive [復活 v]\nhide\n\n@ユーザー名復元\n\nwhen I receive [ユーザー名数値化 v]\nrepeat (3)\n    set [数 v] to [1]\n    set [数値化仮 v] to []\n    repeat (length of (username))\n        switch costume to (letter (数) of (username))\n        if <(length of (costume [number v])) = [2]> then\n            set [数値化仮 v] to (join (数値化仮) (costume [number v]))\n        else\n            set [数値化仮 v] to (join (数値化仮) (join [0] (costume [number v])))\n        end\n        change [数 v] by (1)\n    end\n    set [ユーザー名 v] to (数値化仮)\nend\n\nwhen I receive [ユーザー名復元 v]\nrepeat (3)\n    set [復元用 v] to []\n    set [復元数 v] to [1]\n    set [復元したユーザー名 v] to []\n    repeat ((length of (復元するユーザー名)) / (2))\n        set [復元用 v] to (letter (復元数) of (復元するユーザー名))\n        change [復元数 v] by (1)\n        set [復元用 v] to (join (復元用) (letter (復元数) of (ユーザー名)))\n        switch costume to (復元用)\n        set [復元したユーザー名 v] to (join (復元したユーザー名) (costume [name v]))\n        change [復元数 v] by (1)\n        set [復元用 v] to []\n    end\nend\n\n