[95% Self-made&Pen] Platformer

Instructions: Sorry, English is below. Please scroll here.\n\n◆僕がこのプロジェクトを作った理由◆\n▶︎@Donguri_sg <プラフォ作ってみたらぁ？\n▶︎純粋にPlatformerが作って見たかった\n▶︎自分にどれだけ拡散力があるのか見たかった\n\n拡散はしますが、決してハート星や参照数をたくさんいただけるとは思っていません。本気作品の準備です。\n\n▶︎量産型とは言わせない\n▶︎非量産型　@Donguri_sg様に大賛成\n\n◆使い方◆\n矢印キー、wasd、タップの3種類に対応してます。\nだんだん難しくなっていきます。\n\n◆English◆\nWhy I made this project?\n▶︎@Donguri_sg <Why don't you make a platformer?\n▶︎I genuinely wanted to see Platformer made\n▶︎I wanted to see how much diffusion power I have\n\nI will spread the word, but I never expect to get a lot of heart stars or references. This is a preparation for a serious work.\n\nDon't say ▶︎ mass-produced\nI'm all for ▶︎ non mass-produced @Donguri_sg\n\n◆How to use\nArrow keys, wasd, and tap.\nIt gets harder and harder.

@Stage\n\nwhen flag clicked\nset [タイマー v] to [0]\nwait (1) seconds\nset [タイマー v] to [1]\nrepeat until <(ステージ) = [30]>\n    wait (0.1) seconds\n    change [タイマー v] by (0.1)\nend\nset [タイマー v] to (round (タイマー))\nif <<(☁ WR) = []> and <(ターボモード？) = [0]>> then\n    set [☁ wr v] to (タイマー)\nelse\n    if <<(タイマー) < (☁ WR)> and <(ターボモード？) = [0]>> then\n        set [☁ wr v] to (タイマー)\n    end\nend\n\nset [☁ wr v] to []\n\n@主人公\n\nwhen flag clicked\nset [リスポーン v] to [0]\nhide\nbroadcast (初期設定 v)\n\nwhen I receive [すたあと v]\nforever\n    if <<<key (right arrow v) pressed?> or <<key (d v) pressed?> or <(タップ右) = [1]>>> and <(緊急横移動) = [0]>> then\n        if <(横移動速度) < [12]> then\n            change [横移動速度 v] by (3)\n        else\n            if <(横移動速度) < [20]> then\n                change [横移動速度 v] by (2)\n            end\n        end\n    end\n    if <<<key (left arrow v) pressed?> or <<key (a v) pressed?> or <(タップ左) = [1]>>> and <(緊急横移動) = [0]>> then\n        if <[-12] < (横移動速度)> then\n            change [横移動速度 v] by (-3)\n        else\n            if <[-20] < (横移動速度)> then\n                change [横移動速度 v] by (-2)\n            end\n        end\n    end\nend\n\nwhen I receive [すたあと v]\nforever\n    if <(横移動速度) < [0]> then\n        if <<not <key (right arrow v) pressed?>> or <<not <key (a v) pressed?>> or <not <(タップ右) = [1]>>>> then\n            change [横移動速度 v] by (1)\n        end\n    end\n    if <[0] < (横移動速度)> then\n        if <<not <key (right arrow v) pressed?>> or <<not <key (d v) pressed?>> or <not <(タップ左) = [1]>>>> then\n            change [横移動速度 v] by (-1)\n        end\n    end\nend\n\nwhen I receive [すたあと v]\nforever\n    change x by ((横移動速度) * (0.3))\n    change y by ((縦移動速度) * (0.8))\n    change x by ((緊急横移動) * (0.3))\n    change y by ((緊急縦移動) * (0.4))\nend\n\nwhen I receive [すたあと v]\nforever\n    if <<(x position) > [239]> and <(リスポーン) = [0]>> then\n        start sound [High Whoosh v]\n        ペンあげる\n        set x to (-200)\n        set y to (-120)\n        stop [other scripts in sprite v]\n        broadcast (ねくすと v)\n        ペンおろす\n        stop [this script v]\n    end\nend\n\nwhen I receive [ねくすと v]\nwait (0.5) seconds\nset [横移動速度 v] to [0]\nwait until <(更新？) = [0]>\nbroadcast (初期設定 v) and wait\nwait until <(更新？) = [2]>\nbroadcast (すたあと v)\n\ndefine プレイヤー絵画\nif <(リスポーン) = [0]> then\n    set pen (transparency v) to (0)\n    set pen color to (#000000)\n    set pen size to (30)\n    pen down\n    set pen color to (#ffffff)\n    set pen size to (20)\n    pen down\n    pen up\n    if <(横移動速度) > [0]> then\n        change x by (2)\n        set pen color to (#000000)\n        set pen size to (10)\n        pen down\n        pen up\n        change x by (-2)\n    else\n        if <(横移動速度) = [0]> then\n            set pen color to (#000000)\n            set pen size to (10)\n            pen down\n            pen up\n        else\n            change x by (-2)\n            set pen color to (#000000)\n            set pen size to (10)\n            pen down\n            pen up\n            change x by (2)\n        end\n    end\n    replace item (1) of [座標 v] with (x position)\n    replace item (2) of [座標 v] with (y position)\nend\n\ndefine ペンあげる\npen up\n\ndefine ペンおろす\npen down\n\ndefine ペン太さ (数値)\nset pen size to (30)\n\nwhen I receive [初期設定 v]\nbroadcast (分配 v)\ndelete all of [座標 v]\nrepeat (2)\n    add [] to [座標 v]\nend\nif <(リスポーン) = [1]> then\n    stop [other scripts in sprite v]\n    set [y v] to [1]\n    repeat (10)\n        change [y v] by (0.1)\n        プレイヤー絵画\n    end\nend\nwait until <(リスポーン) = [0]>\nペンあげる\ngo to x: (-200) y: (-10)\nset pen color to (#000000)\nペン太さ [50]\nペンおろす\nペンあげる\nset [横移動速度 v] to [0]\nbroadcast (すたあと v)\nset [縦移動速度 v] to [0]\n\nwhen I receive [分配 v]\nbroadcast (雲 v)\nbroadcast (回転トゲ v)\nbroadcast (スイッチ v)\nbroadcast (地面 v)\nbroadcast (動く地面 v)\nbroadcast (バネ v)\nbroadcast (sinハンマー v)\nbroadcast (障害物 v)\nbroadcast (トゲ横移動 v)\nbroadcast (cave v)\n\nwhen I receive [すたあと v]\nforever\n    プレイヤー絵画\nend\n\nwhen I receive [すたあと v]\nset [タップジャンプ v] to [0]\nset [タップ左 v] to [0]\nset [タップ右 v] to [0]\nforever\n    if <<mouse down?> and <(mouse x) > [0]>> then\n        set [タップ右 v] to [1]\n    end\n    if <<mouse down?> and <[0] > (mouse x)>> then\n        set [タップ左 v] to [1]\n    end\n    if <<mouse down?> and <(mouse y) > [0]>> then\n        set [タップジャンプ v] to [1]\n    end\n    if <not <<mouse down?> and <(mouse x) > [0]>>> then\n        set [タップ右 v] to [0]\n    end\n    if <not <<mouse down?> and <[0] > (mouse x)>>> then\n        set [タップ左 v] to [0]\n    end\n    if <not <<mouse down?> and <(mouse y) > [0]>>> then\n        set [タップジャンプ v] to [0]\n    end\nend\n\n@背後霊w\n\nwhen flag clicked\nset [緊急横移動 v] to [0]\nset [緊急縦移動 v] to [0]\nswitch costume to (正面 v)\nshow\nset size to (50) %\nset [ghost v] effect to (100)\n\nwhen I receive [すたあと v]\nforever\n    switch costume to (正面 v)\n    go to x: (item (1) of [座標 v]) y: (item (2) of [座標 v])\n    if <<(item (3) of [座標 v]) > [2]> and <[7] > (item (3) of [座標 v])>> then\n        switch costume to (下正面 v)\n    end\nend\n\nwhen I receive [すたあと v]\nforever\n    判定\nend\n\ndefine 判定\nif <<color (#a7ff66) is touching (#a85000)?> or <color (#00ff5d) is touching (#a7ff66)?>> then\n    set [横移動速度 v] to [0]\n    set [緊急横移動 v] to [-10]\n    if <<<key (up arrow v) pressed?> and <key (right arrow v) pressed?>> or <<<key (d v) pressed?> and <key (w v) pressed?>> or <<(タップジャンプ) = [1]> and <(タップ右) = [1]>>>> then\n        set [緊急横移動 v] to [-15]\n        set [緊急縦移動 v] to [50]\n        start sound [Zoop v]\n    end\nelse\n    if <[0] < (緊急縦移動)> then\n        change [緊急縦移動 v] by (-5)\n    end\n    if <(緊急横移動) < [0]> then\n        change [緊急横移動 v] by (5)\n    end\nend\nif <<color (#678cbf) is touching (#a85000)?> or <color (#678cbf) is touching (#a7ff66)?>> then\n    set [横移動速度 v] to [0]\n    set [緊急横移動 v] to [10]\n    if <<<key (up arrow v) pressed?> and <key (left arrow v) pressed?>> or <<<key (a v) pressed?> and <key (w v) pressed?>> or <<(タップ左) = [1]> and <(タップジャンプ) = [1]>>>> then\n        set [緊急横移動 v] to [-15]\n        set [緊急縦移動 v] to [50]\n        start sound [Zoop v]\n    end\nelse\n    if <[0] < (緊急縦移動)> then\n        change [緊急縦移動 v] by (-5)\n    end\n    if <[0] < (緊急横移動)> then\n        change [緊急横移動 v] by (-10)\n    end\nend\nif <color (#9966ff) is touching (#faff08)?> then\n    if <[-31] < (横移動速度)> then\n        change [横移動速度 v] by (-3)\n        set [特例措置中？ v] to [-1]\n    end\nend\nif <color (#9966ff) is touching (#08cdff)?> then\n    if <(横移動速度) < [31]> then\n        change [横移動速度 v] by (3)\n        set [特例措置中？ v] to [1]\n    end\nend\n\nwhen I receive [すたあと v]\nset [特例措置中？ v] to [0]\nchange [縦移動速度 v] by (-5)\nrepeat until <<<<touching color (#00ff5d)?> or <touching color (#a85000)?>> or <<touching color (#faff08)?> or <touching color (#08cdff)?>>> or <<touching color (#00b241)?> or <<touching color (#763800)?> or <<touching color (#56504d)?> or >>>>\n    set [縦移動速度 v] to [-15]\nend\nset [縦移動速度 v] to [0]\nbroadcast (かいし v)\nforever\n    if <[-1] < (縦移動速度)> then\n        wait until <<<not <key (up arrow v) pressed?>> and <<not <key (w v) pressed?>> and <not <(タップジャンプ) = [1]>>>> or <[9] < (縦移動速度)>>\n        repeat until <<<<touching color (#00ff5d)?> or <touching color (#a85000)?>> or <<touching color (#faff08)?> or <touching color (#08cdff)?>>> or <<touching color (#00b241)?> or <<touching color (#763800)?> or <<touching color (#56504d)?> or >>>>\n            change [縦移動速度 v] by (-1)\n            if <<not <(特例措置中？) = [0]>> and <[30] > ([abs v] of (横移動速度) )>> then\n                change [横移動速度 v] by ((特例措置中？) * (2))\n            end\n        end\n        set [縦移動速度 v] to [0]\n    end\nend\n\nwhen I receive [ねくすと v]\nstop [other scripts in sprite v]\n\nwhen I receive [かいし v]\nwait until <<<color (#9966ff) is touching (#00ff5d)?> or <color (#9966ff) is touching (#a85000)?>> or <<color (#9966ff) is touching (#faff08)?> or <<color (#9966ff) is touching (#08cdff)?> or <<color (#9966ff) is touching (#00b241)?> or <<color (#9966ff) is touching (#00b241)?> or >>>>>\nforever\n    if <<<key (up arrow v) pressed?> or <<key (w v) pressed?> or <(タップジャンプ) = [1]>>> and <<not <touching color (#ff9400)?>> or <not <touching color (#ff9400)?>>>> then\n        repeat until <<<<not <key (up arrow v) pressed?>> and <not <key (w v) pressed?>>> and <not <(タップジャンプ) = [1]>>> or <(縦移動速度) > [11]>>\n            change [縦移動速度 v] by (5)\n        end\n        wait until <<(縦移動速度) > [-1]> and <<<color (#9966ff) is touching (#00ff5d)?> or <color (#9966ff) is touching (#a85000)?>> or <<color (#9966ff) is touching (#faff08)?> or <<color (#9966ff) is touching (#08cdff)?> or <<color (#9966ff) is touching (#00b241)?> or <<color (#9966ff) is touching (#00b241)?> or >>>>>>\n        set [特例措置中？ v] to [0]\n    end\nend\n\nwhen I receive [すたあと v]\nset [リスポーン v] to [0]\nwait (0.3) seconds\nforever\n    if <<<touching color (#ff0000)?> or <<touching color (#b20000)?> or >> or <(item (2) of [座標 v]) < [-179]>> then\n        set [リスポーン v] to [1]\n        start sound [Crunch v]\n        broadcast (初期設定 v)\n        wait (0.5) seconds\n        set [リスポーン v] to [0]\n    end\nend\n\nwhen I receive [かいし v]\nforever\n    if  then\n        バネ特殊判定\n    end\nend\n\nwhen I receive [かいし v]\nforever\n    if  then\n        repeat (4)\n            set [バネ v] to (pick random (1) to (15))\n            wait (0.01) seconds\n        end\n    end\n    set [バネ v] to [0]\nend\n\ndefine バネ特殊判定\nstart sound [Siren Whistle v]\nset [縦移動速度 v] to [22]\nwait (0.1) seconds\nwait until <<(縦移動速度) > [-1]> and <<<color (#9966ff) is touching (#00ff5d)?> or <color (#9966ff) is touching (#a85000)?>> or <<color (#9966ff) is touching (#faff08)?> or <<color (#9966ff) is touching (#08cdff)?> or <<color (#9966ff) is touching (#00b241)?> or <<color (#9966ff) is touching (#00b241)?> or <<color (#9966ff) is touching (#56504d)?> or >>>>>>>\nset [特例措置中？ v] to [0]\n\nwhen I receive [かいし v]\nset [スイッチ押された？ v] to [0]\nforever\n    if <touching color (#ff7f7f)?> then\n        start sound [Machine v]\n        set [スイッチ押された？ v] to [1]\n    end\n    if <touching color (#4bff00)?> then\n        start sound [Machine v]\n        set [スイッチ押された？ v] to [2]\n    end\nend\n\nwhen I receive [すたあと v]\nforever\n    if <<(縦移動速度) > [-1]> and <<<color (#9966ff) is touching (#00ff5d)?> or <color (#9966ff) is touching (#a85000)?>> or <<color (#9966ff) is touching (#faff08)?> or <<color (#9966ff) is touching (#08cdff)?> or <<color (#9966ff) is touching (#00b241)?> or <<color (#9966ff) is touching (#00b241)?> or >>>>>> then\n        if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <(タップジャンプ) = [1]>>> then\n            play sound [Jump v] until done\n        end\n    end\nend\n\nwhen I receive [かいし v]\nset [スイッチ押された？ v] to [0]\nforever\n    if <color (#a7ff66) is touching (#00ff5d)?> then\n        change [横移動速度 v] by (-5)\n    end\n    if <color (#678cbf) is touching (#00ff5d)?> then\n        change [横移動速度 v] by (5)\n    end\nend\n\n@地面\n\ndefine 地面絵画\nif <(ステージ) = [1]> then\n    かく2 [-220] [-120] to [220] [-120] [50]\n    かく [-220] [-150] to [220] [-150] [50]\nend\nif <(ステージ) = [2]> then\n    かく2 [-220] [-120] to [-30] [-120] [40]\n    かく [-220] [-150] to [0] [-150] [50]\n    かく [0] [-150] to [0] [60] [50]\n    かく [0] [60] to [220] [60] [50]\n    塗りつぶし [5] [10] [220] [-180] [-220] [180] []\n    ペンで落とす [220] [110] [-70]\n    かく2 [-10] [70] to [230] [70] [30]\nend\nif <(ステージ) = [3]> then\n    かく2 [-230] [-150] to [230] [-150] [30]\n    かく [-230] [-180] to [230] [-180] [50]\nend\nif <(ステージ) = [4]> then\n    かく2 [-230] [-150] to [230] [-150] [30]\n    かく [-230] [-180] to [230] [-180] [50]\nend\nif <(ステージ) = [5]> then\n    かく2 [-250] [-120] to [-220] [-120] [15]\n    かく2 [-230] [-150] to [230] [-150] [30]\n    かく [-230] [-180] to [230] [-180] [50]\n    コンベア左 [-230] [-150] to [-20] [-150]\n    コンベア右 [20] [-150] to [230] [-150]\nend\nif <(ステージ) = [6]> then\n    かく2 [-80] [-50] to [230] [-150] [30]\n    かく2 [-230] [-50] to [-80] [-50] [30]\n    かく [-80] [-80] to [230] [-180] [50]\n    かく [-230] [-80] to [-80] [-80] [50]\nend\nif <(ステージ) = [7]> then\n    かく [-230] [-180] to [230] [-180] [50]\n    コンベア右 [-230] [-150] to [-130] [-150]\n    かく2 [80] [-150] to [230] [-150] [30]\nend\nif <(ステージ) = [8]> then\n    かく2 [10] [-150] to [150] [-150] [30]\n    かく2 [-250] [-120] to [-220] [-120] [15]\n    コンベア左 [-230] [-150] to [-100] [-150]\n    かく [-60] [-180] to [230] [-180] [50]\nend\nif <(ステージ) = [9]> then\n    かく2 [250] [110] to [225] [110] [60]\n    コンベア右 [-220] [-150] to [-120] [-150]\n    かく [220] [-180] to [220] [100] [50]\nend\nif <(ステージ) = [10]> then\n    かく2 [-230] [-150] to [230] [-150] [30]\n    かく [-230] [-180] to [230] [-180] [50]\nend\nif <(ステージ) = [11]> then\n    かく2 [-230] [-150] to [230] [-150] [30]\n    かく [-230] [-180] to [230] [-180] [50]\nend\nif <(ステージ) = [12]> then\n    かく2 [-230] [-150] to [230] [-150] [50]\n    かく2 [-230] [-30] to [-160] [-30] [40]\n    かく [-230] [-180] to [230] [-180] [50]\n    ペンで落とす [40] [-170] [-120]\n    塗りつぶし [-230] [-140] [60] [80] [-60] [-100] []\nend\nif <(ステージ) = [13]> then\n    かく2 [-230] [-150] to [230] [-150] [30]\n    かく [-230] [-180] to [230] [-180] [50]\n    かく [-230] [80] to [230] [80] [100]\nend\nif <(ステージ) = [14]> then\n    cave地面 [-300] [-150] to [300] [-150] [50]\nend\nif <(ステージ) = [15]> then\n    cave地面 [-300] [-150] to [300] [-150] [50]\n    cave地面 [-300] [130] to [300] [130] [100]\nend\nif <(ステージ) = [16]> then\n    cave地面 [-300] [-150] to [300] [-150] [50]\n    cave地面 [-300] [130] to [300] [130] [100]\nend\nif <(ステージ) = [17]> then\n    cave地面 [-300] [-150] to [300] [-150] [50]\nend\nif <(ステージ) = [18]> then\n    cave地面 [-300] [-150] to [300] [-150] [50]\n    cave地面 [0] [-50] to [-80] [-50] [20]\n    cave地面 [-230] [-120] to [-80] [-120] [30]\nend\nif <(ステージ) = [19]> then\n    cave地面 [-300] [-150] to [300] [-150] [50]\nend\nif <(ステージ) = [20]> then\n    かく2 [-230] [-160] to [230] [-160] [40]\n    かく [-230] [-180] to [230] [-180] [50]\n    塗りつぶし [-230] [160] [280] [-50] [-280] [40] []\nend\nif <(ステージ) = [21]> then\n    かく2 [-230] [-160] to [230] [-160] [40]\n    かく [-230] [-180] to [230] [-180] [50]\nend\nif <(ステージ) = [22]> then\n    かく2 [-230] [-160] to [230] [-160] [40]\n    かく [-230] [-180] to [230] [-180] [50]\n    塗りつぶし [-230] [80] [460] [80] [-460] [-80] []\n    かく [-230] [140] to [230] [140] [100]\nend\nif <(ステージ) = [23]> then\n    かく2 [-230] [-160] to [230] [-160] [40]\n    かく [-230] [-180] to [230] [-180] [50]\n    かく [-150] [-40] to [150] [-40] [20]\n    かく [-150] [-40] to [-150] [50] [20]\n    かく [-150] [50] to [-230] [50] [20]\n    かく [-150] [120] to [230] [120] [20]\nend\nif <(ステージ) = [24]> then\n    かく2 [-230] [-160] to [-200] [-160] [50]\n    かく [-230] [-180] to [-200] [-180] [50]\n    かく2 [-10] [-50] to [-70] [-50] [30]\n    塗りつぶし [-70] [-70] [60] [-100] [-60] [100] [30]\n    ペンで落とす [50] [-40] [-100]\n    ペンで落とす [50] [-40] [-140]\n    かく2 [110] [30] to [170] [30] [30]\n    塗りつぶし [110] [10] [60] [-200] [-60] [190] [30]\n    ペンで落とす [70] [140] [-20]\n    ペンで落とす [80] [140] [-80]\n    ペンで落とす [80] [140] [-150]\nend\nif <(ステージ) = [25]> then\n    かく2 [-230] [-160] to [-200] [-160] [50]\n    かく [-230] [-180] to [-200] [-180] [50]\n    かく2 [-10] [-50] to [-70] [-50] [30]\n    塗りつぶし [-70] [-70] [60] [-100] [-60] [100] [30]\n    ペンで落とす [50] [-40] [-100]\n    ペンで落とす [50] [-40] [-140]\n    かく2 [110] [30] to [170] [30] [30]\n    塗りつぶし [110] [10] [60] [-200] [-60] [190] [30]\n    ペンで落とす [70] [140] [-20]\n    ペンで落とす [80] [140] [-80]\n    ペンで落とす [80] [140] [-150]\nend\nif <(ステージ) = [26]> then\n    かく2 [-230] [-140] to [230] [-140] [50]\n    かく [-230] [-160] to [230] [-160] [50]\n    かく [-230] [60] to [50] [60] [20]\n    塗りつぶし [230] [180] [-50] [-140] [50] [140] [50]\nend\nif <(ステージ) = [27]> then\n    かく2 [-230] [-140] to [230] [-140] [50]\n    かく [-230] [-160] to [230] [-160] [50]\n    かく [-230] [60] to [-150] [60] [20]\n    塗りつぶし [150] [300] [-80] [-100] [200] [140] [80]\n    ペンで落とす [200] [180] [140]\nend\nif <(ステージ) = [28]> then\n    かく2 [-230] [-140] to [230] [-140] [50]\n    かく [-230] [-160] to [230] [-160] [50]\n    かく [-150] [60] to [-60] [60] [20]\n    かく2 [0] [-20] to [20] [-20] [20]\nend\nif <(ステージ) = [29]> then\n    かく2 [-230] [-140] to [230] [-140] [50]\n    かく [-230] [-160] to [230] [-160] [50]\nend\nif <(ステージ) = [30]> then\n    かく2 [-230] [-140] to [230] [-140] [50]\n    かく [-230] [-160] to [230] [-160] [50]\nend\n\nwhen I receive [地面 v]\nforever\n    地面絵画\nend\n\nwhen I receive [ねくすと v]\nstop [other scripts in sprite v]\n\ndefine かく (ax) (ay) to (bx) (by) (太さ)\npen up\nset pen color to (#a95100)\nset pen size to (太さ)\ngo to x: (ax) y: (ay)\npen down\ngo to x: (bx) y: (by)\npen up\n\ndefine かく2 (ax) (ay) to (bx) (by) (太さ)\nset pen color to (#00ff5d)\nset pen size to (太さ)\ngo to x: (ax) y: (ay)\npen down\ngo to x: (bx) y: (by)\npen up\npen up\n\ndefine 塗りつぶし (x) (y) (1x) (1y) (2x) (2y) (太さ)\nset pen color to (#a95100)\nif <(太さ) = []> then\n    set pen size to (60)\nelse\n    set pen size to (太さ)\nend\ngo to x: (x) y: (y)\npen down\nchange x by (1x)\nchange y by (1y)\nchange x by (2x)\nchange y by (2y)\npen up\n\ndefine ペンで落とす (太さ) (x) (y)\ngo to x: (x) y: (y)\nset pen size to (太さ)\npen down\npen up\n\nwhen flag clicked\nset [ステージ v] to [1]\n\nwhen flag clicked\nset [トゲ横移動 v] to [0]\n\ndefine コンベア左 (x) (y) to (2x) (2y)\nif <(コンベア) < ([abs v] of ((x) - (2x)) )> then\n    change [コンベア v] by (5)\nelse\n    set [コンベア v] to [0]\nend\npen up\nset pen color to (#f9ff00)\ngo to x: (x) y: (y)\nset pen size to (50)\npen down\ngo to x: (2x) y: (2y)\npen up\npen up\nset pen color to (#ffffff)\nset pen size to (10)\ngo to x: ((2x) - (コンベア)) y: (((y) + (2y)) / (2))\npen down\npoint in direction (180)\nmove (10) steps\npoint in direction (-60)\nmove (10) steps\npoint in direction (60)\nmove (10) steps\npen up\nif <(x) < (((x) + (コンベア)) - (([abs v] of ((x) - (2x)) ) / (-3)))> then\n    go to x: (((2x) - (コンベア)) - (([abs v] of ((x) - (2x)) ) / (-3))) y: (((y) + (2y)) / (2))\n    pen down\n    point in direction (180)\n    move (10) steps\n    point in direction (-60)\n    move (10) steps\n    point in direction (60)\n    move (10) steps\nend\npen up\nif <(x) < (((x) + (コンベア)) - (([abs v] of ((x) - (2x)) ) / (-6)))> then\n    go to x: (((2x) - (コンベア)) - (([abs v] of ((x) - (2x)) ) / (-6))) y: (((y) + (2y)) / (2))\n    pen down\n    point in direction (180)\n    move (10) steps\n    point in direction (-60)\n    move (10) steps\n    point in direction (60)\n    move (10) steps\nend\npen up\n\ndefine コンベア右 (x) (y) to (2x) (2y)\nif <(コンベア) < ([abs v] of ((x) - (2x)) )> then\n    change [コンベア v] by (5)\nelse\n    set [コンベア v] to [0]\nend\npen up\nset pen color to (#08cdff)\ngo to x: (x) y: (y)\nset pen size to (50)\npen down\ngo to x: (2x) y: (2y)\npen up\nset pen color to (#ffffff)\nset pen size to (10)\ngo to x: ((x) + (コンベア)) y: (((y) + (2y)) / (2))\npen down\npoint in direction (180)\nmove (10) steps\npoint in direction (60)\nmove (10) steps\npoint in direction (-60)\nmove (10) steps\npen up\nif <(x) < (((x) + (コンベア)) - (([abs v] of ((x) - (2x)) ) / (3)))> then\n    go to x: (((x) + (コンベア)) - (([abs v] of ((x) - (2x)) ) / (3))) y: (((y) + (2y)) / (2))\n    pen down\n    point in direction (180)\n    move (10) steps\n    point in direction (60)\n    move (10) steps\n    point in direction (-60)\n    move (10) steps\nend\npen up\nif <(x) < (((x) + (コンベア)) - (([abs v] of ((x) - (2x)) ) / (6)))> then\n    go to x: (((x) + (コンベア)) - (([abs v] of ((x) - (2x)) ) / (6))) y: (((y) + (2y)) / (2))\n    pen down\n    point in direction (180)\n    move (10) steps\n    point in direction (60)\n    move (10) steps\n    point in direction (-60)\n    move (10) steps\nend\npen up\n\ndefine cave地面 (ax) (ay) to (bx) (by) (太さ)\nset pen color to (#ff6b00)\nset pen size to (太さ)\ngo to x: (ax) y: (ay)\npen down\ngo to x: (bx) y: (by)\npen up\n\n@ねくすと\n\nwhen I receive [ねくすと v]\nset [大きさ v] to [0]\nset [x v] to [0]\nset [更新？ v] to [1]\npen up\nset pen (color v) to (70)\nset pen size to (7)\nset pen color to (#2a00ff)\ngo to x: (-240) y: (-180)\nrepeat (40)\n    上がってくる\n    change [x v] by (3)\nend\nrepeat (80)\n    erase all\n    背景作成\n    next\n    change [大きさ v] by (1)\nend\nwait (1) seconds\nchange [ステージ v] by (1)\nset [更新？ v] to [0]\nerase all\n\ndefine 上がってくる\nset pen (brightness v) to ((100) - (x))\npen down\nchange x by (480)\nchange y by (5)\nchange x by (-480)\nchange y by (5)\npen up\n\nwhen flag clicked\nset [更新？ v] to [0]\n\ndefine next\npoint in direction (90)\npen up\ngo to x: (-100) y: (0)\nset pen color to (#ffffff)\nset pen size to ((大きさ) / (10))\ngo to x: (join [-] ((大きさ) * (1.5))) y: (join [-] (大きさ))\npen down\nchange y by (大きさ)\npoint in direction (135)\nmove (大きさ) steps\npoint in direction (90)\nchange y by (大きさ)\npen up\ngo to x: (join [-] ((大きさ) * (0.45))) y: (join [-] ((大きさ) * (0.4)))\npen down\npoint in direction (90)\nmove ((大きさ) / (2)) steps\npoint in direction (0)\nrepeat (100)\n    move ((0.5) * ((大きさ) / (30))) steps\n    turn right (-3) degrees\nend\npen up\ngo to x: ((大きさ) * (0.3)) y: (0)\npen down\npoint in direction (150)\nmove (大きさ) steps\npen up\npoint in direction (3)\nmove (大きさ) steps\npen down\npoint in direction (-150)\nmove (大きさ) steps\npen up\ngo to x: (大きさ) y: (0)\npen down\npoint in direction (90)\nmove ((大きさ) / (2)) steps\npen up\nmove ((0) - ((大きさ) / (4))) steps\npen down\nchange y by (((5) * (大きさ)) / (12))\npoint in direction (180)\nmove ((大きさ) * (1.3)) steps\npen up\nset [更新？ v] to [2]\n\ndefine 背景作成\nset pen (color v) to (70)\nset pen size to (9)\nset pen color to (#2a00ff)\npen down\ngo to x: (-240) y: (-180)\nrepeat (40)\n    change pen (brightness v) by (-3.5)\n    change x by (480)\n    change y by (8)\n    change x by (-480)\n    change y by (8)\nend\n\n@地面_move\n\nwhen I receive [動く地面 v]\nwait (0.2) seconds\nforever\n    if <(ステージ) = [3]> then\n        動く地面 [180] [-70] [50] [0.5] [0]\n        動く地面-2 [40] [-30] [50] [-0.5]\n        動く地面-3 [130] [50]\n    end\n    if <(ステージ) = [10]> then\n        動く地面 [150] [-70] [50] [2] [0]\n        動く地面-2 [-150] [-70] [50] [-3]\n    end\n    if <(ステージ) = [12]> then\n        動く地面 [-180] [-50] [100] [-6.5] [0]\n    end\n    if <(ステージ) = [17]> then\n        動く地面 [30] [-50] [150] [ -2] [1]\n    end\n    if <(ステージ) = [18]> then\n        動く地面 [-170] [-50] [100] [-1.5] [1]\n    end\nend\n\ndefine 動く地面 (x) (y) (size) (スピード) (in cave?)\npen up\nif <(in cave?) = [0]> then\n    set pen color to (#00ff5d)\nelse\n    set pen color to (#ff6b00)\nend\nset pen size to (10)\ngo to x: (((トゲ横移動) * (スピード)) - (x)) y: (y)\npen down\nchange x by (size)\n\nwhen I receive [動く地面 v]\nset [トゲ横移動 v] to [0]\nwait (0.5) seconds\nforever\n    repeat (50)\n        change [トゲ横移動 v] by (1)\n    end\n    repeat (50)\n        change [トゲ横移動 v] by (-1)\n    end\nend\n\nwhen flag clicked\nerase all\n\nwhen I receive [ねくすと v]\nstop [other scripts in sprite v]\n\ndefine 動く地面-2 (x) (y) (size) (スピード)\npen up\nset pen color to (#00ff5d)\nset pen size to (10)\ngo to x: (((トゲ横移動) * (スピード)) - (x)) y: (y)\npen down\nchange x by (size)\n\ndefine 動く地面-3 (x) (y)\npen up\nset pen color to (#00ff5d)\nset pen size to (10)\ngo to x: (x) y: (y)\npen down\nchange x by ((トゲ横移動) * (-1))\nchange x by ((トゲ横移動) * (2))\n\n@回転トゲ\n\ndefine 回るトゲ (x) (y) (トゲの長さ)\nif <(ステージ) = [4]> then\n    if <[-360] < (回転トゲむき)> then\n        change [回転トゲむき v] by (-4)\n    else\n        set [回転トゲむき v] to [0]\n    end\nend\nif <(ステージ) = [12]> then\n    if <[-360] < (回転トゲむき)> then\n        change [回転トゲむき v] by (4)\n    else\n        set [回転トゲむき v] to [0]\n    end\nend\nif <(ステージ) = [14]> then\n    if <[-360] < (回転トゲむき)> then\n        change [回転トゲむき v] by (-3)\n    else\n        set [回転トゲむき v] to [0]\n    end\nend\nif <(ステージ) = [19]> then\n    if <[-360] < (回転トゲむき)> then\n        change [回転トゲむき v] by (-4)\n    else\n        set [回転トゲむき v] to [0]\n    end\nend\nif <(ステージ) = [29]> then\n    if <[-360] < (回転トゲむき)> then\n        change [回転トゲむき v] by (-5)\n    else\n        set [回転トゲむき v] to [0]\n    end\nend\ngo to x: (x) y: (y)\npoint in direction (回転トゲむき)\nmove (30) steps\npen down\nset pen size to (5)\nset pen color to (#ff0000)\npoint in direction ((-90) + (回転トゲむき))\nmove ((トゲの長さ) / (2)) steps\npoint in direction ((15) + (回転トゲむき))\nmove ((トゲの長さ) / (0.5)) steps\npoint in direction ((165) + (回転トゲむき))\nmove ((トゲの長さ) / (0.5)) steps\npoint in direction ((-90) + (回転トゲむき))\nmove ((トゲの長さ) / (2)) steps\npen up\npoint in direction ((回転トゲむき) + (180))\nmove (60) steps\npen down\npoint in direction ((-90) + ((回転トゲむき) + (180)))\nmove ((トゲの長さ) / (2)) steps\npoint in direction ((15) + ((回転トゲむき) + (180)))\nmove ((トゲの長さ) / (0.5)) steps\npoint in direction ((165) + ((回転トゲむき) + (180)))\nmove ((トゲの長さ) / (0.5)) steps\npoint in direction ((-90) + ((回転トゲむき) + (180)))\nmove ((トゲの長さ) / (2)) steps\npen up\npoint in direction ((回転トゲむき) + (0))\nmove (30) steps\npoint in direction ((回転トゲむき) + (90))\nmove (30) steps\npen down\npoint in direction ((-90) + ((回転トゲむき) + (90)))\nmove ((トゲの長さ) / (2)) steps\npoint in direction ((15) + ((回転トゲむき) + (90)))\nmove ((トゲの長さ) / (0.5)) steps\npoint in direction ((165) + ((回転トゲむき) + (90)))\nmove ((トゲの長さ) / (0.5)) steps\npoint in direction ((-90) + ((回転トゲむき) + (90)))\nmove ((トゲの長さ) / (2)) steps\npen up\npoint in direction ((回転トゲむき) + (90))\nmove (30) steps\npoint in direction ((回転トゲむき) + (270))\nmove (90) steps\npen down\npoint in direction ((-90) + ((回転トゲむき) + (270)))\nmove ((トゲの長さ) / (2)) steps\npoint in direction ((15) + ((回転トゲむき) + (270)))\nmove ((トゲの長さ) / (0.5)) steps\npoint in direction ((165) + ((回転トゲむき) + (270)))\nmove ((トゲの長さ) / (0.5)) steps\npoint in direction ((-90) + ((回転トゲむき) + (270)))\nmove ((トゲの長さ) / (2)) steps\npen up\n\nwhen I receive [回転トゲ v]\nset [回転トゲむき v] to [0]\nforever\n    if <(ステージ) = [4]> then\n        回るトゲ [100] [-30] [30]\n    end\n    if <(ステージ) = [12]> then\n        回るトゲ [80] [-90] [30]\n    end\n    if <(ステージ) = [14]> then\n        回るトゲ [100] [-40] [30]\n    end\n    if <(ステージ) = [19]> then\n        回るトゲ [100] [-40] [30]\n    end\n    if <(ステージ) = [29]> then\n        回るトゲ [100] [-20] [30]\n    end\nend\n\nwhen I receive [ねくすと v]\nstop [other scripts in sprite v]\n\n@バネ\n\nwhen I receive [バネ v]\nforever\n    if <(ステージ) = [11]> then\n        バネ [-130] [-130]\n        バネ [100] [-130]\n    end\n    if <(ステージ) = [22]> then\n        バネ [-130] [-140]\n        バネ [0] [-140]\n        バネ [100] [-140]\n        バネ [200] [-140]\n        バネ [-260] [-140]\n    end\n    if <(ステージ) = [23]> then\n        バネ [180] [-140]\n    end\n    if <(ステージ) = [26]> then\n        バネ [120] [-110]\n    end\nend\n\ndefine バネ (x) (y)\nset pen size to (7)\ngo to x: ((x) + (25)) y: ((y) + (3))\nset pen color to (#797979)\npen down\nif <<((item (1) of [座標 v]) - (50)) < (x)> and <(x) < ((item (1) of [座標 v]) - (-55))>> then\n    go to x: ((x) + (5)) y: ((y) + ((30) - (バネ)))\nelse\n    go to x: ((x) + (5)) y: ((y) + (30))\nend\npen up\nset x to ((x) + (25))\npen down\ngo to x: ((x) + (5)) y: ((y) + (3))\npen up\nset pen color to (#ffbb00)\ngo to x: (x) y: (y)\npen down\nset x to ((x) + (30))\npen up\nif <<((item (1) of [座標 v]) - (50)) < (x)> and <(x) < ((item (1) of [座標 v]) - (-60))>> then\n    go to x: (x) y: ((y) + ((35) - (バネ)))\n    pen down\n    go to x: ((x) + (30)) y: ((y) + ((35) - (バネ)))\n    pen up\nelse\n    go to x: (x) y: ((y) + (35))\n    pen down\n    go to x: ((x) + (30)) y: ((y) + (35))\n    pen up\nend\n\nwhen I receive [ねくすと v]\nstop [other scripts in sprite v]\n\nset [☁ wr v] to [0]\n\n@障害物\n\ndefine とげ (x) (y) (大きさ) (傾き)\nset pen size to (5)\npen up\ngo to x: (x) y: (y)\npen down\npoint in direction ((-90) + (傾き))\nmove ((大きさ) / (2)) steps\npoint in direction ((15) + (傾き))\nmove ((大きさ) / (0.5)) steps\npoint in direction ((165) + (傾き))\nmove ((大きさ) / (0.5)) steps\npoint in direction ((-90) + (傾き))\nmove ((大きさ) / (2)) steps\npen up\n\ndefine 赤い障害物 (x) (y) to (2x) (2y) (太さ)\nset pen size to (太さ)\ngo to x: (x) y: (y)\nset pen color to (#ff0000)\npen down\ngo to x: (2x) y: (2y)\npen up\n\nwhen I receive [障害物 v]\nforever\n    if <(ステージ) = [3]> then\n        赤い障害物 [230] [-180] to [230] [120] [20]\n    end\n    if <(ステージ) = [4]> then\n        とげ [-100] [-135] [35] []\n        とげ [235] [-135] [15] []\n    end\n    if <(ステージ) = [5]> then\n        とげ [-120] [-123] [25] []\n        とげ [0] [-123] [25] []\n        とげ [140] [-123] [30] []\n        とげ [230] [-123] [5] []\n    end\n    if <(ステージ) = [6]> then\n        とげ [220] [-130] [50] []\n        とげ [60] [-80] [50] [20]\n    end\n    if <(ステージ) = [7]> then\n        赤い障害物 [100] [-150] to [-90] [-150] [50]\n        とげ [-60] [-150] [40] []\n        とげ [-30] [-150] [45] []\n        とげ [0] [-150] [50] []\n        とげ [30] [-150] [50] []\n        とげ [60] [-150] [45] []\n    end\n    if <(ステージ) = [8]> then\n        とげ [-65] [-150] [25] []\n        とげ [-30] [-150] [25] []\n        とげ [180] [-150] [30] []\n        とげ [-30] [190] [75] [180]\n    end\n    if <(ステージ) = [10]> then\n        とげ [-65] [-135] [70] []\n        とげ [105] [-135] [70] []\n    end\n    if <(ステージ) = [11]> then\n        とげ [-20] [-135] [70] []\n        赤い障害物 [230] [-180] to [230] [30] [30]\n    end\n    if <(ステージ) = [12]> then\n        赤い障害物 [-120] [-145] to [230] [-145] [50]\n    end\n    if <(ステージ) = [13]> then\n        赤い障害物 [0] [5] to [230] [5] [50]\n        赤い障害物 [230] [5] to [230] [-60] [50]\n    end\n    if <(ステージ) = [14]> then\n        とげ [-80] [-125] [30] [0]\n        とげ [230] [-125] [10] [0]\n    end\n    if <(ステージ) = [15]> then\n        とげ [-110] [-125] [40] [0]\n        とげ [-40] [90] [40] [180]\n        とげ [120] [90] [40] [180]\n        とげ [230] [-125] [20] [0]\n        とげ [200] [80] [30] [180]\n    end\n    if <(ステージ) = [16]> then\n        赤い障害物 [-140] [-145] to [-30] [-145] [50]\n        とげ [-80] [-145] [30] []\n        とげ [200] [120] [80] [180]\n    end\n    if <(ステージ) = [17]> then\n        とげ [] [-125] [65] []\n        赤い障害物 [-230] [150] to [230] [150] [50]\n    end\n    if <(ステージ) = [18]> then\n        とげ [] [-125] [65] []\n        赤い障害物 [-230] [150] to [230] [150] [50]\n        とげ [-85] [-40] [1] []\n        とげ [100] [-125] [20] []\n        赤い障害物 [100] [-125] to [230] [-125] [30]\n    end\n    if <(ステージ) = [19]> then\n        とげ [200] [80] [70] [180]\n    end\n    if <(ステージ) = [20]> then\n        とげ [-200] [80] [35] [180]\n        とげ [-120] [80] [90] [180]\n        とげ [-40] [80] [80] [180]\n        とげ [40] [80] [60] [180]\n        とげ [220] [-140] [25] [0]\n    end\n    if <(ステージ) = [22]> then\n        赤い障害物 [-230] [50] to [230] [50] [50]\n    end\n    if <(ステージ) = [23]> then\n        赤い障害物 [230] [-180] to [230] [100] [30]\n        赤い障害物 [-230] [40] to [-160] [40] [10]\n        赤い障害物 [-150] [-50] to [150] [-50] [10]\n        赤い障害物 [-140] [-30] to [-140] [50] [10]\n    end\n    if <(ステージ) = [28]> then\n        とげ [180] [-115] [130] []\n    end\n    if <(ステージ) = [30]> then\n        赤い障害物 [230] [-180] to [230] [180] [40]\n    end\nend\n\nwhen I receive [ねくすと v]\nstop [other scripts in sprite v]\n\nset [リスポーン v] to [1]\nbroadcast (初期設定 v)\n\n@とげ_move\n\ndefine とげ (x) (y) (大きさ) (傾き) (速さ)\nset pen color to (#ff0000)\nif <<[100] < (トゲ横移動)> and <[100] > (トゲ横移動)>> then\n    change [トゲ横移動 v] by (10)\nend\nif <(トゲ横移動) > [100]> then\n    change [トゲ横移動 v] by (-10)\nend\nset pen size to (5)\npen up\ngo to x: ((x) + ((トゲ横移動) * (速さ))) y: (y)\npen down\npoint in direction ((-90) + (傾き))\nmove ((大きさ) / (2)) steps\npoint in direction ((15) + (傾き))\nmove ((大きさ) / (0.5)) steps\npoint in direction ((165) + (傾き))\nmove ((大きさ) / (0.5)) steps\npoint in direction ((-90) + (傾き))\nmove ((大きさ) / (2)) steps\npen up\n\nwhen I receive [トゲ横移動 v]\nset [トゲ横移動 v] to [0]\nforever\n    if <(ステージ) = [6]> then\n        とげ [-80] [-40] [40] [] [-2]\n    end\n    if <(ステージ) = [15]> then\n        とげ [0] [-125] [40] [] [2]\n    end\n    if <(ステージ) = [16]> then\n        とげ [100] [-125] [40] [] [2]\n    end\n    if <(ステージ) = [17]> then\n        とげ [120] [-50] [3] [] [-2]\n        とげ [-30] [-50] [3] [] [-2]\n    end\n    if <(ステージ) = [19]> then\n        とげ [-50] [-120] [35] [] [1]\n        とげ [-70] [-120] [30] [] [-2]\n    end\n    if <(ステージ) = [25]> then\n        とげ [-62] [-35] [20] [] [0.9]\n        とげ [110] [48] [30] [] [1.1]\n    end\nend\n\nwhen I receive [ねくすと v]\nstop [other scripts in sprite v]\n\n@sincosハンマー\n\nwhen I receive [sinハンマー v]\npen up\nforever\n    if <(ステージ) = [21]> then\n        [sin] [-40] [80] [150] [40] ハンマー [35] [180] [0]\n        [cos] [200] [-100] [30] [25] ハンマー [35] [-90] [0]\n        [sin] [200] [-100] [30] [25] ハンマー [35] [-90] [0]\n    end\n    if <(ステージ) = [23]> then\n        [cos] [0] [10] [60] [35] ハンマー [30] [180] [1]\n    end\n    if <(ステージ) = [24]> then\n        [cos] [-40] [-150] [70] [40] ハンマー [40] [0] [0]\n        [sin] [140] [-80] [70] [30] ハンマー [40] [0] [0]\n        [cos] [140] [-100] [90] [35] ハンマー [40] [0] [0]\n    end\n    if <(ステージ) = [25]> then\n        [cos] [-40] [170] [30] [30] ハンマー [40] [180] [0]\n        [sin] [140] [-75] [70] [30] ハンマー [15] [0] [0]\n    end\n    if <(ステージ) = [26]> then\n        [sin] [-80] [0] [70] [30] ハンマー [40] [0] [1]\n    end\n    if <(ステージ) = [29]> then\n        [sin] [] [120] [200] [30] ハンマー [40] [180] [0]\n    end\n    増加\nend\n\ndefine (sin or cos) (x) (y) (長さ) (針の大きさ) ハンマー (倍率) (向き) (特殊?)\ngo to x: (x) y: (y)\nset pen color to (#000000)\nset pen size to (40)\npen down\npen up\nif <(sin or cos) = [sin]> then\n    pen up\n    go to x: (x) y: (y)\n    set pen size to (30)\n    set pen color to (#7b7b7b)\n    pen down\n    point in direction ((([sin v] of (ハンマー度) ) * (倍率)) + (向き))\n    move (長さ) steps\n    set pen size to (5)\n    set pen color to (#ff0000)\n    pen down\n    point in direction ((-90) + ((([sin v] of (ハンマー度) ) * (倍率)) + (向き)))\n    move ((針の大きさ) / (2)) steps\n    point in direction ((15) + ((([sin v] of (ハンマー度) ) * (倍率)) + (向き)))\n    move ((針の大きさ) / (0.5)) steps\n    point in direction (((([sin v] of (ハンマー度) ) * (倍率)) + (向き)) + (165))\n    move ((針の大きさ) / (0.5)) steps\n    point in direction ((-90) + ((([sin v] of (ハンマー度) ) * (倍率)) + (向き)))\n    move ((針の大きさ) / (2)) steps\n    pen up\n    if <(特殊?) = [1]> then\n        point in direction (((([sin v] of (ハンマー度) ) * (倍率)) + (向き)) + (180))\n        set pen color to (#7b7b7b)\n        set pen size to (30)\n        pen down\n        move ((長さ) * (2)) steps\n        set pen size to (5)\n        set pen color to (#ff0000)\n        pen down\n        point in direction (((-90) + ((([sin v] of (ハンマー度) ) * (倍率)) + (向き))) + (180))\n        move ((針の大きさ) / (2)) steps\n        point in direction (((15) + ((([sin v] of (ハンマー度) ) * (倍率)) + (向き))) + (180))\n        move ((針の大きさ) / (0.5)) steps\n        point in direction (((165) + ((([sin v] of (ハンマー度) ) * (倍率)) + (向き))) + (180))\n        move ((針の大きさ) / (0.5)) steps\n        point in direction (((-90) + ((([sin v] of (ハンマー度) ) * (倍率)) + (向き))) + (180))\n        move ((針の大きさ) / (2)) steps\n    end\n    set pen color to (#7b7b7b)\n    set pen size to (30)\n    pen down\nelse\n    pen up\n    go to x: (x) y: (y)\n    set pen size to (30)\n    set pen color to (#7b7b7b)\n    pen down\n    point in direction ((([cos v] of (ハンマー度) ) * (倍率)) + (向き))\n    move (長さ) steps\n    set pen size to (5)\n    set pen color to (#ff0000)\n    pen down\n    point in direction ((-90) + ((([cos v] of (ハンマー度) ) * (倍率)) + (向き)))\n    move ((針の大きさ) / (2)) steps\n    point in direction ((15) + ((([cos v] of (ハンマー度) ) * (倍率)) + (向き)))\n    move ((針の大きさ) / (0.5)) steps\n    point in direction (((([cos v] of (ハンマー度) ) * (倍率)) + (向き)) + (165))\n    move ((針の大きさ) / (0.5)) steps\n    point in direction ((-90) + ((([cos v] of (ハンマー度) ) * (倍率)) + (向き)))\n    move ((針の大きさ) / (2)) steps\n    pen up\n    if <(特殊?) = [1]> then\n        point in direction (((([cos v] of (ハンマー度) ) * (倍率)) + (向き)) + (180))\n        set pen color to (#7b7b7b)\n        set pen size to (30)\n        pen down\n        move ((長さ) * (2)) steps\n        set pen size to (5)\n        set pen color to (#ff0000)\n        pen down\n        point in direction (((-90) + ((([cos v] of (ハンマー度) ) * (倍率)) + (向き))) + (180))\n        move ((針の大きさ) / (2)) steps\n        point in direction (((15) + ((([cos v] of (ハンマー度) ) * (倍率)) + (向き))) + (180))\n        move ((針の大きさ) / (0.5)) steps\n        point in direction (((165) + ((([cos v] of (ハンマー度) ) * (倍率)) + (向き))) + (180))\n        move ((針の大きさ) / (0.5)) steps\n        point in direction (((-90) + ((([cos v] of (ハンマー度) ) * (倍率)) + (向き))) + (180))\n        move ((針の大きさ) / (2)) steps\n    end\n    set pen color to (#7b7b7b)\n    set pen size to (30)\n    pen down\nend\npen up\n\nwhen I receive [ねくすと v]\nstop [other scripts in sprite v]\nset [ハンマー度 v] to [0]\n\nwhen flag clicked\nset [ハンマー度 v] to [0]\n\ndefine 増加\nchange [ハンマー度 v] by (5)\n\n@スイッチ\n\nwhen I receive [ねくすと v]\nstop [other scripts in sprite v]\n\nwhen I receive [スイッチ v]\nforever\n    if <(ステージ) = [26]> then\n        スイッチ [-200] [100] [30] [r]\n    end\n    if <(ステージ) = [27]> then\n        スイッチ [150] [-90] [30] [g]\n        スイッチ [-220] [100] [30] [r]\n    end\n    if <(ステージ) = [28]> then\n        スイッチ [-150] [100] [30] [g]\n        スイッチ [80] [-90] [30] [r]\n    end\nend\n\ndefine スイッチ (x) (y) (台の幅) (色)\ngo to x: ((x) + (15)) y: (y)\nset pen color to (#ffffff)\nif <(色) = [r]> then\n    set pen color to (#ff7f7f)\n    if <(スイッチ押された？) = [1]> then\n        set pen color to (#000000)\n    end\nend\nif <(色) = [g]> then\n    set pen color to (#4cff00)\n    if <(スイッチ押された？) = [2]> then\n        set pen color to (#000000)\n    end\nend\npen down\nset pen size to (30)\npen down\nchange y by (-10)\npen up\nset pen size to (20)\nset pen color to (#ffffff)\ngo to x: ((x) + ((台の幅) / (2))) y: ((y) - (20))\npen down\ngo to x: ((x) + (台の幅)) y: ((y) - (20))\ngo to x: (x) y: ((y) - (20))\npen up\n\n@スイッチ2\n\nwhen I receive [障害物 v]\nforever\n    if <(ステージ) = [26]> then\n        スイッチ障害物 [230] [0] to [230] [-100] [30]\n    end\n    if <(ステージ) = [27]> then\n        スイッチ地面 [-50] [-40] to [0] [-40] [10]\n        スイッチ障害物 [230] [30] to [230] [-100] [30]\n    end\n    if <(ステージ) = [28]> then\n        スイッチ障害物 [-50] [60] to [-50] [180] [30]\n        スイッチ地面 [130] [80] to [40] [80] [10]\n    end\nend\n\ndefine スイッチ障害物 (x) (y) to (2x) (2y) (太さ)\ngo to x: (x) y: (y)\nif <not <(スイッチ押された？) = [1]>> then\n    set pen color to (#ff0000)\n    set pen size to (太さ)\n    pen down\nend\ngo to x: (2x) y: (2y)\nset pen color to (#ffffff)\nset pen size to ((太さ) * (1.1))\npen down\npen up\ngo to x: (x) y: (y)\npen down\npen up\n\nwhen I receive [ねくすと v]\nstop [other scripts in sprite v]\n\ndefine スイッチ地面 (x) (y) to (2x) (2y) (太さ)\ngo to x: (x) y: (y)\nif <(スイッチ押された？) = [2]> then\n    set pen color to (#00ff5d)\n    set pen size to (太さ)\n    pen down\nend\ngo to x: (2x) y: (2y)\nset pen color to (#ffffff)\nset pen size to ((太さ) * (1.1))\npen down\npen up\ngo to x: (x) y: (y)\npen down\npen up\n\n@雲\n\nwhen I receive [雲 v]\nforever\n    if <not <<[13] < (ステージ)> and <(ステージ) < [20]>>> then\n        雲\n    else\n        白塗り\n    end\nend\n\ndefine 雲\nset pen color to (#5166f1)\nset pen (transparency v) to (20)\nset pen size to (5000)\npen down\npen up\ngo to x: (-170) y: (150)\nif <not <(ステージ) = [30]>> then\n    set pen size to (25)\n    set pen color to (#ffffff)\n    pen down\n    change x by (40)\n    pen up\n    change y by (-15)\n    pen down\n    change x by (30)\n    change x by (-80)\n    pen up\n    change y by (-15)\n    pen down\n    change x by (60)\n    change x by (-20)\n    pen up\nend\n\nwhen I receive [ねくすと v]\nstop [other scripts in sprite v]\n\ndefine 白塗り\nset pen color to (#ffffff)\nset pen (transparency v) to (0)\nset pen size to (5000)\npen down\npen up\n\n@cave\n\nwhen I receive [cave v]\nforever\n    if <(ステージ) = [13]> then\n        cave [190] [0]\n    end\n    if <<[13] < (ステージ)> and <(ステージ) < [20]>> then\n        ステージのずっとcave\n    end\n    if <(ステージ) = [20]> then\n        cave [-190] [0]\n    end\nend\n\ndefine cave (x) (y)\ngo to x: (x) y: (y)\nset pen size to (550)\nset pen color to (#000000)\nset pen (transparency v) to (70)\npen down\npen up\n\ndefine ステージのずっとcave\npen up\ngo to x: (0) y: (0)\nset pen color to (#000000)\nset pen (transparency v) to (5)\nset pen size to (1000)\npen down\npen up\nif <(リスポーン) = [0]> then\n    go to x: (item (1) of [座標 v]) y: (item (2) of [座標 v])\n    set pen color to (#ffffff)\n    set pen size to (175)\n    set pen (transparency v) to (70)\n    pen down\nend\n\nwhen I receive [ねくすと v]\nstop [other scripts in sprite v]\n\n@テロップ\n\nwhen flag clicked\nwait (1) seconds\nforever\n    if <(ステージ) = [30]> then\n        wait (0.5) seconds\n        forever\n            クリア\n            Time\n            WR\n        end\n    end\nend\n\ndefine クリア\npen up\ngo to x: (-170) y: (160)\nset pen color to (#000000)\nset pen size to (20)\npen down\nchange x by (-30)\npoint in direction (-135)\nmove (30) steps\npoint in direction (180)\nmove (30) steps\npoint in direction (135)\nmove (30) steps\npoint in direction (90)\nmove (30) steps\npen up\ngo to x: (-130) y: (160)\npen down\nchange y by (-70)\nchange x by (50)\npen up\ngo to x: (-50) y: (160)\npen down\nchange x by (40)\nchange x by (-40)\nchange y by (-35)\nchange x by (30)\nchange x by (-30)\nchange y by (-35)\nchange x by (40)\npen up\ngo to x: (30) y: (90)\npen down\nchange y by (30)\npoint in direction (30)\nmove (50) steps\npoint in direction (150)\nmove (50) steps\nchange x by (-35)\nchange x by (35)\nchange y by (-30)\npen up\ngo to x: (110) y: (160)\npen down\nchange y by (-70)\nchange y by (70)\nchange x by (30)\npoint in direction (135)\nmove (30) steps\npoint in direction (-120)\nmove (40) steps\npoint in direction (120)\nmove (50) steps\npen up\ngo to x: (200) y: (160)\npen down\nchange y by (-40)\npen up\nchange y by (-30)\npen down\npen up\n\ndefine Time\nset pen color to (#000000)\nset pen size to (10)\ngo to x: (-200) y: (50)\npen down\nchange x by (20)\nchange x by (-10)\nchange y by (-30)\npen up\ngo to x: (-160) y: (50)\npen down\nchange y by (-30)\npen up\ngo to x: (-140) y: (50)\npen down\nchange y by (-30)\nchange y by (30)\npoint in direction (135)\nmove (20) steps\npoint in direction (45)\nmove (20) steps\nchange y by (-30)\npen up\ngo to x: (-95) y: (50)\npen down\nchange x by (15)\nchange x by (-15)\nchange y by (-15)\nchange x by (10)\nchange x by (-10)\nchange y by (-15)\nchange x by (15)\npen up\ngo to x: (-65) y: (50)\npen down\npen up\nchange y by (-20)\npen down\npen up\ngo to x: (-45) y: (60)\npen down\nif <(letter (1) of (タイマー)) = [1]> then\n    1\nend\nif <(letter (1) of (タイマー)) = [2]> then\n    2\nend\nif <(letter (1) of (タイマー)) = [3]> then\n    3\nend\nif <(letter (1) of (タイマー)) = [4]> then\n    4\nend\nif <(letter (1) of (タイマー)) = [5]> then\n    5\nend\nif <(letter (1) of (タイマー)) = [6]> then\n    6\nend\nif <(letter (1) of (タイマー)) = [7]> then\n    7\nend\nif <(letter (1) of (タイマー)) = [8]> then\n    8\nend\nif <(letter (1) of (タイマー)) = [9]> then\n    9\nend\nif <(letter (1) of (タイマー)) = [0]> then\n    0\nend\npen up\nif <<(length of (タイマー)) = [2]> or <(length of (タイマー)) = [3]>> then\n    go to x: (-10) y: (60)\n    pen down\n    if <(letter (2) of (タイマー)) = [1]> then\n        1\n    end\n    if <(letter (2) of (タイマー)) = [2]> then\n        2\n    end\n    if <(letter (2) of (タイマー)) = [3]> then\n        3\n    end\n    if <(letter (2) of (タイマー)) = [4]> then\n        4\n    end\n    if <(letter (2) of (タイマー)) = [5]> then\n        5\n    end\n    if <(letter (2) of (タイマー)) = [6]> then\n        6\n    end\n    if <(letter (2) of (タイマー)) = [7]> then\n        7\n    end\n    if <(letter (2) of (タイマー)) = [8]> then\n        8\n    end\n    if <(letter (2) of (タイマー)) = [9]> then\n        9\n    end\n    if <(letter (2) of (タイマー)) = [0]> then\n        0\n    end\n    pen up\n    if <(length of (タイマー)) = [3]> then\n        go to x: (25) y: (60)\n        pen down\n        if <(letter (3) of (タイマー)) = [1]> then\n            1\n        end\n        if <(letter (3) of (タイマー)) = [2]> then\n            2\n        end\n        if <(letter (3) of (タイマー)) = [3]> then\n            3\n        end\n        if <(letter (3) of (タイマー)) = [4]> then\n            4\n        end\n        if <(letter (3) of (タイマー)) = [5]> then\n            5\n        end\n        if <(letter (3) of (タイマー)) = [6]> then\n            6\n        end\n        if <(letter (3) of (タイマー)) = [7]> then\n            7\n        end\n        if <(letter (3) of (タイマー)) = [8]> then\n            8\n        end\n        if <(letter (3) of (タイマー)) = [9]> then\n            9\n        end\n        if <(letter (3) of (タイマー)) = [0]> then\n            0\n        end\n    end\nend\n\ndefine 1\nchange y by (-40)\n\ndefine 2\nchange x by (20)\nchange y by (-20)\nchange x by (-20)\nchange y by (-20)\nchange x by (20)\n\ndefine 3\nchange x by (20)\nchange y by (-20)\nchange x by (-20)\nchange x by (20)\nchange y by (-20)\nchange x by (-20)\n\ndefine 4\nchange y by (-20)\nchange x by (15)\nchange y by (20)\nchange y by (-40)\n\ndefine 5\nchange x by (20)\nchange x by (-20)\nchange y by (-20)\nchange x by (20)\nchange y by (-20)\nchange x by (-20)\n\ndefine 6\nchange y by (-40)\nchange x by (20)\nchange y by (20)\nchange x by (-20)\n\ndefine 7\nchange y by (-10)\nchange y by (10)\nchange x by (20)\nchange y by (-40)\n\ndefine 8\nchange x by (20)\nchange y by (-40)\nchange x by (-20)\nchange y by (20)\nchange x by (20)\nchange x by (-20)\nchange y by (20)\n\ndefine 9\nchange x by (20)\nchange y by (-20)\nchange x by (-20)\nchange y by (20)\nchange x by (20)\nchange y by (-40)\nchange x by (-20)\n\ndefine 0\nchange y by (-40)\nchange x by (20)\nchange y by (40)\nchange x by (-20)\n\ndefine WR\npen up\nset pen color to (#000000)\nset pen size to (10)\ngo to x: (-200) y: (0)\npen down\npoint in direction (165)\nmove (30) steps\npoint in direction (15)\nmove (30) steps\npoint in direction (165)\nmove (30) steps\npoint in direction (15)\nmove (30) steps\npen up\ngo to x: (-150) y: (0)\npen down\nchange y by (-30)\nchange y by (30)\nchange x by (20)\npoint in direction (150)\nmove (10) steps\npoint in direction (-120)\nmove (20) steps\npoint in direction (120)\nmove (20) steps\npen up\ngo to x: (-105) y: (-25)\npen down\npen up\ngo to x: (-105) y: (-5)\npen down\npen up\ngo to x: (-85) y: (0)\npen down\nif <(letter (1) of (☁ WR)) = [1]> then\n    1\nend\nif <(letter (1) of (☁ WR)) = [2]> then\n    2\nend\nif <(letter (1) of (☁ WR)) = [3]> then\n    3\nend\nif <(letter (1) of (☁ WR)) = [4]> then\n    4\nend\nif <(letter (1) of (☁ WR)) = [5]> then\n    5\nend\nif <(letter (1) of (☁ WR)) = [6]> then\n    6\nend\nif <(letter (1) of (☁ WR)) = [7]> then\n    7\nend\nif <(letter (1) of (☁ WR)) = [8]> then\n    8\nend\nif <(letter (1) of (☁ WR)) = [9]> then\n    9\nend\nif <(letter (1) of (☁ WR)) = [0]> then\n    0\nend\npen up\nif <<(length of (☁ WR)) = [2]> or <(length of (☁ WR)) = [3]>> then\n    go to x: (-50) y: (0)\n    pen down\n    if <(letter (2) of (☁ WR)) = [1]> then\n        1\n    end\n    if <(letter (2) of (☁ WR)) = [2]> then\n        2\n    end\n    if <(letter (2) of (☁ WR)) = [3]> then\n        3\n    end\n    if <(letter (2) of (☁ WR)) = [4]> then\n        4\n    end\n    if <(letter (2) of (☁ WR)) = [5]> then\n        5\n    end\n    if <(letter (2) of (☁ WR)) = [6]> then\n        6\n    end\n    if <(letter (2) of (☁ WR)) = [7]> then\n        7\n    end\n    if <(letter (2) of (☁ WR)) = [8]> then\n        8\n    end\n    if <(letter (2) of (☁ WR)) = [9]> then\n        9\n    end\n    if <(letter (2) of (☁ WR)) = [0]> then\n        0\n    end\n    pen up\n    if <(length of (☁ WR)) = [3]> then\n        go to x: (-15) y: (0)\n        pen down\n        if <(letter (3) of (☁ WR)) = [1]> then\n            1\n        end\n        if <(letter (3) of (☁ WR)) = [2]> then\n            2\n        end\n        if <(letter (3) of (☁ WR)) = [3]> then\n            3\n        end\n        if <(letter (3) of (☁ WR)) = [4]> then\n            4\n        end\n        if <(letter (3) of (☁ WR)) = [5]> then\n            5\n        end\n        if <(letter (3) of (☁ WR)) = [6]> then\n            6\n        end\n        if <(letter (3) of (☁ WR)) = [7]> then\n            7\n        end\n        if <(letter (3) of (☁ WR)) = [8]> then\n            8\n        end\n        if <(letter (3) of (☁ WR)) = [9]> then\n            9\n        end\n        if <(letter (3) of (☁ WR)) = [0]> then\n            0\n        end\n    end\nend\n\n@サムネ\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\nforever\n    reset timer\nend\n\nwhen [timer v] > (0)\nshow\nswitch costume to (90a963a5-0885-4e3c-89f0-49b45182044e3 v)\nbroadcast (あ v)\n\n@Thank you for playing!\n\nwhen I receive [あ v]\nif <(username) = [Dragon-Blackstar]> then\nelse\n    go to [front v] layer\n    show\n    set [pixelate v] effect to (100)\n    repeat (30)\n        change [pixelate v] effect by (-4)\n    end\nend\nstop [all v]\n\nwhen flag clicked\ngo to x: (96) y: (148)\nhide\nset size to (120) %\n\n@ターボ検知\n\nwhen flag clicked\npoint in direction (90)\nforever\n    turn right (1) degrees\nend\n\nwhen flag clicked\nforever\n    wait (1) seconds\n    point in direction (90)\nend\n\nwhen flag clicked\nset [ターボモード？ v] to [0]\nforever\n    if <(direction) > [130]> then\n        set [ターボモード？ v] to [1]\n    end\nend\n\n@スプライト1\n\nwhen flag clicked\nwait (1) seconds\nforever\n    if <(ステージ) = [13]> then\n        repeat (100)\n            change volume by (-1)\n        end\n        stop [other scripts in sprite v]\n        broadcast (cave BGM v)\n    end\n    if <(ステージ) = [20]> then\n        repeat (100)\n            change volume by (-1)\n        end\n        stop [other scripts in sprite v]\n        broadcast (フィールドBGM2 v)\n    end\nend\n\nwhen I receive [cave bgm v]\nwait until <(ステージ) = [14]>\nset volume to (100) %\nforever\n    play sound [\[Typing-RPG\]ダンジョン「魔物の気配」 v] until done\nend\n\nwhen I receive [フィールドbgm v]\nwait (0.5) seconds\nset volume to (100) %\nforever\n    play sound [\[Typing-RPG\]フィールド「楽しき平原の旅」 v] until done\nend\n\nwhen flag clicked\nbroadcast (フィールドBGM v)\n\nwhen I receive [フィールドbgm2 v]\nwait until <(ステージ) = [21]>\nset volume to (100) %\nforever\n    play sound [\[Typing-RPG\]フィールド「楽しき平原の旅」 v] until done\nend\n\n@乗っ取りや無変更防止用\n\nwhen flag clicked\n\ndefine これは@Dragon-Blackstar,@Dragon-Blackstar_RPG,@garbage_garbage(本垢)@sab_garbageの作品です。\ncreate clone of (_myself_ v)\nこれは@Dragon-Blackstar,@Dragon-Blackstar_RPG,@garbage_garbage(本垢)@sab_garbageの作品です。\n\nwhen I start as a clone\nforever\n    go to (random position v)\n    show\n    これは@Dragon-Blackstar,@Dragon-Blackstar_RPG,@garbage_garbage(本垢)@sab_garbageの作品です。\nend\n\nforever\n    これは@Dragon-Blackstar,@Dragon-Blackstar_RPG,@garbage_garbage(本垢)@sab_garbageの作品です。\n    これは@Dragon-Blackstar,@Dragon-Blackstar_RPG,@garbage_garbage(本垢)@sab_garbageの作品です。\n    これは@Dragon-Blackstar,@Dragon-Blackstar_RPG,@garbage_garbage(本垢)@sab_garbageの作品です。\nend\n\n