Cap Boys' Platformer (Japanese)
@Stage\n\nwhen flag clicked\nforever\n    play sound [魔王魂 BGM ネオロック82 v] until done\nend\n\n@サムネ\n\nwhen flag clicked\nshow\ngo to [front v] layer\ngo to x: (0) y: (0)\nset [ghost v] effect to (100)\n\nwhen I receive [ゴール v]\nhide\n\nset [☁ 最速タイム v] to [999999999999]\n\n@ゴール\n\nwhen I receive [ゴール v]\nchange [☁ クリア回数 v] by (1)\nset [現在のクリア率 v] to (join (((☁ クリア回数) / (☁ 挑戦回数)) * (100)) [%])\nshow variable [☁ クリア回数 v]\nshow variable [☁ 挑戦回数 v]\nshow variable [現在のクリア率 v]\nset [ghost v] effect to (100)\nshow\nclear graphic effects\nbroadcast (ハイスコア計算 v) and wait\nbroadcast (ハイスコア表示 v) and wait\nplay sound [Cheer v] until done\nstop [all v]\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\n\n@タイトル\n\nwhen flag clicked\nshow\nset [現在のクリア率 v] to (join (((☁ クリア回数) / (☁ 挑戦回数)) * (100)) [%])\nshow variable [☁ クリア回数 v]\nshow variable [☁ 挑戦回数 v]\nshow variable [現在のクリア率 v]\ngo to x: (0) y: (0)\nrepeat (100)\n    change [ghost v] effect by (1)\nend\nhide variable [☁ クリア回数 v]\nhide variable [☁ 挑戦回数 v]\nhide variable [現在のクリア率 v]\n\nwhen I receive [ゴール v]\nhide\n\nwhen I receive [リセット v]\nchange [☁ 挑戦回数 v] by (1)\n\n@最速クリア者表示\n\nwhen flag clicked\nreset timer\ngo to x: (0) y: (0)\nhide\nhide variable [ハイスコア表示 v]\nforever\n    if <key (h v) pressed?> then\n        broadcast (ハイスコア表示 v) and wait\n    else\n        hide\n        hide variable [ハイスコア表示 v]\n        hide variable [タイム v]\n    end\nend\n\ndefine 数字 (数字) →文字\nset [答え v] to []\nrepeat ((length of (数字)) / (2))\n    set [答え v] to (join (答え) (item (join (letter (((length of (答え)) * (2)) + (1)) of (数字)) (letter (((length of (答え)) * (2)) + (2)) of (数字))) of [文字表 v]))\nend\n\ndefine 文字 (文字) →数字\nset [答え v] to []\nrepeat (length of (文字))\n    if <(item # of (letter (((length of (答え)) / (2)) + (1)) of (文字)) in [文字表 v]) < [10]> then\n        set [答え v] to (join (答え) (join [0] (item # of (letter (((length of (答え)) / (2)) + (1)) of (文字)) in [文字表 v])))\n    else\n        set [答え v] to (join (答え) (item # of (letter (((length of (答え)) / (2)) + (1)) of (文字)) in [文字表 v]))\n    end\nend\n\nwhen I receive [ハイスコア表示 v]\n数字 (☁ 最速クリア者) →文字\nset [ハイスコア表示 v] to (join (答え) (join [:] (☁ 最速タイム)))\nshow variable [ハイスコア表示 v]\nshow variable [タイム v]\nshow\n\nwhen I receive [ハイスコア計算 v]\nstop [other scripts in sprite v]\nset [タイム v] to (timer)\nif <(タイム) < (☁ 最速タイム)> then\n    文字 (username) →数字\n    repeat (2)\n        set [☁ 最速クリア者 v] to (答え)\n        wait (0) seconds\n        set [☁ 最速タイム v] to (タイム)\n        wait (0) seconds\n    end\nend\n\n文字 [akinarin] →数字\n\nset [☁ 最速クリア者 v] to [1121192411281924]\n\nwhen flag clicked\nforever\n    set [タイム v] to (timer)\nend\n\n@地面\n\nwhen flag clicked\ndelete all of [雲情報 v]\ngo to x: (0) y: (0)\nhide\n雲生成\nforever\n    描画\nend\n\ndefine 表示 (x座標) (y座標) (コスチューム)\nswitch costume to (画面の大きさ無効 v)\ngo to x: ((x座標) - (X)) y: ((y座標) - (Y))\nswitch costume to (コスチューム)\nstamp\n\ndefine 描画\nerase all\n雲描画 [0]\nclear graphic effects\n背景奥描画\nclear graphic effects\nset [leftbottomx v] to (((X) - ((X) mod (40))) - ((40) * (6)))\nset [leftbottomy v] to (((Y) - ((Y) mod (40))) - ((40) * (4)))\nset [tilex v] to (([floor v] of ((X) / (40)) ) + (1))\nset [tilex' v] to [0]\nrepeat (14)\n    set [tiley v] to (([floor v] of ((Y) / (40)) ) + (1))\n    set [tiley' v] to [0]\n    repeat (10)\n        表示 ((leftBottomX) + ((40) * (tileX'))) ((leftBottomY) + ((40) * (tileY'))) (letter (tileY) of (item (tileX) of [背景前の情報 v]))\n        表示 ((leftBottomX) + ((40) * (tileX'))) ((leftBottomY) + ((40) * (tileY'))) (letter (tileY) of (item (tileX) of [地面の情報 v]))\n        change [tiley v] by (1)\n        change [tiley' v] by (1)\n    end\n    change [tilex v] by (1)\n    change [tilex' v] by (1)\nend\n\ndefine 雲生成\nrepeat (30)\n    add (join [雲] (pick random (1) to (3))) to [雲情報 v]\n    add (pick random (-240) to (300)) to [雲情報 v]\n    add (pick random (-180) to (200)) to [雲情報 v]\n    add (pick random (10) to (300)) to [雲情報 v]\n    add (pick random (-20) to (20)) to [雲情報 v]\nend\n\ndefine 雲描画 (番号)\nif <(番号) < (length of [雲情報 v])> then\n    switch costume to (画面の大きさ無効 v)\n    go to x: ((item ((番号) + (2)) of [雲情報 v]) - ((X) / (100))) y: ((item ((番号) + (3)) of [雲情報 v]) - ((Y) / (100)))\n    switch costume to (item ((番号) + (1)) of [雲情報 v])\n    set size to (item ((番号) + (4)) of [雲情報 v]) %\n    set [brightness v] effect to ((番号) + (5))\n    stamp\n    雲描画 ((番号) + (5))\nend\n\ndefine 地面生成\ndelete all of [背景奥の情報 v]\nadd [土草草] to [背景奥の情報 v]\nadd [土草草草] to [背景奥の情報 v]\nadd [土草草草草] to [背景奥の情報 v]\nadd [土草草草草] to [背景奥の情報 v]\nadd [土草草草草] to [背景奥の情報 v]\nadd [土草草草] to [背景奥の情報 v]\nadd [土草草] to [背景奥の情報 v]\nadd [土草] to [背景奥の情報 v]\nadd [土] to [背景奥の情報 v]\nadd [土岩岩] to [背景奥の情報 v]\nadd [土岩岩岩岩岩] to [背景奥の情報 v]\nadd [土岩岩岩岩岩岩岩] to [背景奥の情報 v]\nadd [土岩岩岩岩岩岩] to [背景奥の情報 v]\nadd [土岩岩岩岩岩] to [背景奥の情報 v]\nadd [土岩岩] to [背景奥の情報 v]\nadd [土] to [背景奥の情報 v]\nadd [砂] to [背景奥の情報 v]\ndelete all of [地面の情報 v]\ndelete all of [背景前の情報 v]\n地面追加 [土草]\n地面追加 [土草青]\nrepeat (3)\n    地面追加 [土草]\nend\n地面追加 [土草雑]\n地面追加 [土土草]\n地面追加 [土土草]\n地面追加 []\n地面追加 []\n地面追加 [土土土草]\n地面追加 [土土土土草黄]\n地面追加 [土土土土土草]\n地面追加 [土土土土土土草]\n地面追加 [土土土土草青]\nrepeat (6)\n    地面追加 [土土土草]\nend\n地面追加 [土土土土草]\n地面追加 [土土草]\n背前追加 [空空空水水]\nrepeat (4)\n    地面追加 [土草]\n    背前追加 [空空水水水]\nend\n地面追加 [土草雑空草]\n背前追加 [空空水水]\nrepeat (4)\n    地面追加 [土草]\n    背前追加 [空空水水水]\nend\n地面追加 [土草空空草]\n背前追加 [空空水水]\n地面追加 [土草雑]\n背前追加 [空空水水水]\nrepeat (2)\n    地面追加 [土草]\n    背前追加 [空空水水水]\nend\n地面追加 [土土土土土草青]\n地面追加 [土土土土土草]\n地面追加 [土土土土土草人]\n地面追加 [土土土土土草]\n地面追加 [土土土土土草]\n地面追加 [土土土土土草]\n地面追加 [土土土土土土草]\n地面追加 [土土土土土土土草]\n地面追加 [土土土土土土土土草]\n地面追加 [土土土土土土土土土土草]\nrepeat (5)\n    地面追加 [土土土土土土土土土土土草]\nend\n地面追加 [土土土土土土土土土土土土土草]\n地面追加 [土土土土土土土土土土土土土土草]\n地面追加 [土土土土土土土土土土土土土土草石]\n地面追加 [土土土土土土土土土土土土土土土草]\n地面追加 [土土土土土土土土土土土土土土土土岩]\n地面追加 [土土土土土土土土土土土土土土土土岩]\n地面追加 [土土土土土土土土土土土土土土土土岩岩]\n地面追加 [土土土土土土土土土土土土土土土土岩岩中]\n地面追加 [土土土土土土土土土土土土土土土土岩岩]\n地面追加 [土土土土土土土土土土土土土土土土岩岩い空空空い岩岩]\n地面追加 [土土土土土土土土土土土土土土土土岩岩岩いいいいい岩岩岩岩]\nrepeat (7)\n    地面追加 [土土土土土土土土土土土土土土土土岩岩岩いいいいい岩岩岩岩岩岩岩岩]\nend\n地面追加 [土土土土土土土土土土土土土土土土岩岩岩石いいいい岩岩岩岩岩岩岩岩]\n背前追加 [空空空空空空空空空空空空空空空空空空空い]\nrepeat (5)\n    地面追加 [土土土土土土土土土土土土土土土土岩岩岩いいいいい岩岩岩岩岩岩岩岩]\nend\n地面追加 [土土土土土土土土土土土土土土土土岩岩岩人いいいい岩岩岩岩岩岩岩岩]\n背前追加 [空空空空空空空空空空空空空空空空空空空い]\nrepeat (5)\n    地面追加 [土土土土土土土土土土土土土土土土岩岩岩いいいいい岩岩岩岩岩岩岩岩]\nend\n地面追加 [土土土土土土土土土土土土土土土土岩岩まいいいいい岩岩岩岩岩岩岩岩]\n地面追加 [土土土土土土土土土土土土土土土土岩マまいいいいい岩岩岩岩岩岩岩岩]\n地面追加 [土土土土土土土土土土土土土土土土岩岩岩いいいいい岩岩岩岩岩岩岩岩]\n地面追加 [土土土土土土土土土土土土土土土土岩岩岩岩いいいい岩岩岩岩岩岩岩岩]\n地面追加 [土土土土土土土土土土土土土土土土岩岩岩いいいいい岩岩岩岩岩岩岩岩]\nrepeat (2)\n    地面追加 [土土土土土土土土土土土土土土土土岩マまいいいいい岩岩岩岩岩岩岩岩]\nend\nrepeat (2)\n    地面追加 [土土土土土土土土土土土土土土土土岩岩まいいいいい岩岩岩岩岩岩岩岩]\nend\nrepeat (3)\n    地面追加 [土土土土土土土土土土土土土土土土岩岩岩いいいいい岩岩岩岩岩岩岩岩]\nend\n地面追加 [土土土土土土土土土土土土土土土土岩岩岩中いいいい岩岩岩岩岩岩岩岩]\n背前追加 [空空空空空空空空空空空空空空空空空空空い]\n地面追加 [土土土土土土土土土土土土土土土土岩岩岩いいいいい岩岩岩岩岩岩岩岩]\n地面追加 [土土土土土土土土土土土土土土土土岩岩岩人いいいい岩岩岩岩岩岩岩岩]\n背前追加 [空空空空空空空空空空空空空空空空空空空い]\n地面追加 [土土土土土土土土土土土土土土土土岩岩岩いいいいい岩岩岩岩岩岩岩岩]\nrepeat (3)\n    地面追加 [土土土土土土土土土土土土土土土土岩岩岩岩いいいい岩岩岩岩岩岩岩岩]\nend\nrepeat (6)\n    地面追加 [土土土土土土土土土土土土土土土土岩岩岩まいいいい岩岩岩岩岩岩岩岩]\nend\nrepeat (2)\n    地面追加 [土土土土土土土土土土土土土土土土岩岩岩岩いいいい岩岩岩岩岩岩岩岩]\nend\nrepeat (5)\n    地面追加 [土土土土土土土土土土土土土土土土岩岩岩まいいいい岩岩岩岩岩岩岩岩]\nend\n地面追加 [土土土土土土土土土土土土土土土土岩岩岩岩石いいい岩岩岩岩岩岩岩岩]\n背前追加 [空空空空空空空空空空空空空空空空空空空空い]\nrepeat (2)\n    地面追加 [土土土土土土土土土土土土土土土土岩岩岩岩いいいい岩岩岩岩岩岩岩岩]\nend\nrepeat (6)\n    地面追加 [土土土土土土土土土土土土土土土土岩岩マまいいいい岩岩岩岩岩岩岩岩]\nend\nrepeat (2)\n    地面追加 [土土土土土土土土土土土土土土土土岩岩岩岩いいいい岩岩岩岩岩岩岩岩]\nend\n地面追加 [土土土土土土土土土土土土土土土土岩岩岩岩中いいい岩岩岩岩岩岩岩岩]\n背前追加 [空空空空空空空空空空空空空空空空空空空空い]\n地面追加 [土土土土土土土土土土土土土土土土岩岩岩岩いいいい岩岩岩岩岩岩岩岩]\n地面追加 [土土土土土土土土土土土土土土土土岩岩岩岩人いいい岩岩岩岩岩岩岩岩]\n背前追加 [空空空空空空空空空空空空空空空空空空空空い]\nrepeat (3)\n    地面追加 [土土土土土土土土土土土土土土土土岩岩岩岩いいいい岩岩岩岩岩岩岩岩]\nend\nrepeat (10)\n    地面追加 [土土土土土土土土土土土土土土土土岩ママまいいいい岩岩岩岩岩岩岩岩]\nend\nrepeat (3)\n    地面追加 [土土土土土土土土土土土土土土土土岩岩岩岩いいいい岩岩岩岩岩岩岩岩]\nend\n地面追加 [土土土土土土土土土土土土土土土土岩岩岩岩い空空い岩岩岩岩岩岩岩岩]\n地面追加 [土土土土土土土土土土土土土土土土岩岩岩岩]\n地面追加 [土土土土土土土土土土土土土土土土岩岩岩岩]\n地面追加 [土土土土土土土土土土土土土土土土岩岩]\n地面追加 [土土土土土土土土土土土土土土土土岩中]\n地面追加 [土土土土土土土土土土土土土土土土草]\n地面追加 [土土土土土土土土土土土土土土土土草人]\n地面追加 [土土土土土土土土土土土土土土土土草青]\n地面追加 [土土土土土土土土土土土土土土草雑]\nrepeat (4)\n    地面追加 [土土土土土土土土土土土草]\nend\n地面追加 [土土砂砂砂砂砂砂]\n背前追加 [空空空水水水水水水]\n地面追加 [土土砂砂砂]\n背前追加 [空空空水水水水水水]\n地面追加 [土土砂サ]\n背前追加 [空空空水水水水水水]\nrepeat (6)\n    地面追加 [土土砂]\n    背前追加 [空空空水水水水水水]\nend\n地面追加 [土土砂人]\n背前追加 [空空空水水水水水水]\nrepeat (3)\n    地面追加 [土土砂]\n    背前追加 [空空空水水水水水水]\nend\n地面追加 [土土砂砂砂]\n背前追加 [空空空水水水水水水]\n地面追加 [土土砂砂砂砂砂]\n背前追加 [空空空水水水水水水]\n地面追加 [土土砂砂砂砂砂砂]\n背前追加 [空空空水水水水水水]\n地面追加 [土土砂砂砂砂砂砂砂]\n地面追加 [土土土土砂砂砂砂砂]\n地面追加 [土土土土土砂砂砂砂]\n地面追加 [土土土土土土土砂砂]\n地面追加 [土土土土土土土土砂]\n地面追加 [土土土土土土土土土土]\n地面追加 [土土土土土土土土土土草]\n地面追加 [土土土土土土土土土土草柵]\n地面追加 [土土土土土土土土土土草黄]\nrepeat (5)\n    地面追加 [土土土土土土土土土土草]\nend\n背前追加 [空空空空空空空空空空空空空草草草草]\n地面追加 [土土土土土土土土土土草]\n背前追加 [空空空空空空空空空空空空空草草草草草]\n地面追加 [土土土土土土土土土土草]\n背前追加 [空空空空空空空空空空空木木木木木草草]\n地面追加 [土土土土土土土土土土草黄]\n背前追加 [空空空空空空空空空空空空空草草草草草]\n地面追加 [土土土土土土土土土土草]\n背前追加 [空空空空空空空空空空空空空草草草草]\n地面追加 [土土土土土土土土土土草雑]\n地面追加 [土土土土土土土土土土草雑]\n地面追加 [土土土土土土土土土土草]\n背前追加 [空空空空空空空空空空空木木木岩／]\n地面追加 [土土土土土土土土土土草]\n背前追加 [空空空空空空空空空空空木窓窓岩木／]\n地面追加 [土土土土土土土土土土草]\n背前追加 [空空空空空空空空空空空木窓窓岩木￥]\n地面追加 [土土土土土土土土土土草]\n背前追加 [空空空空空空空空空空空木木木岩￥]\n地面追加 [土土土土土土土土土土草青]\n地面追加 [土土土土土土土土土土草]\n背前追加 [空空空空空空空空空空空木木木岩／]\n地面追加 [土土土土土土土土土土草人]\n背前追加 [空空空空空空空空空空空木窓窓岩木／]\n地面追加 [土土土土土土土土土土草]\n背前追加 [空空空空空空空空空空空木窓窓岩木￥]\n地面追加 [土土土土土土土土土土草中]\n背前追加 [空空空空空空空空空空空木木木岩￥]\nrepeat (3)\n    地面追加 [土土土土土土土土土土草]\nend\nrepeat (3)\n    地面追加 [土土土土土土土土土土土野]\nend\n地面追加 [土土土土土土土土土土草人]\n地面追加 [土土土土土土土土土土草]\n地面追加 [土土土土土土土土土土草]\n地面追加 [土土土土土土土土土土草柵]\n地面追加 [土土土土土土土土土土草]\n地面追加 [土土土土土土土土草]\n地面追加 [土土土土土土草]\nrepeat (5)\n    地面追加 [土土土土草]\nend\n地面追加 [土土土土草針]\nrepeat (6)\n    地面追加 [土土土土草]\nend\n地面追加 [土土土土草針針]\nrepeat (3)\n    地面追加 [土土土土草]\nend\n地面追加 [土土土土草中]\n地面追加 [土土土土草雑]\n地面追加 [土土土土草人]\nrepeat (3)\n    地面追加 [土土土土草]\nend\n地面追加 [土土土土草針]\n地面追加 [土土土土草針]\nrepeat (5)\n    地面追加 [土土土土草]\nend\n地面追加 [土土土土草針針]\n地面追加 [土土土土草針針]\nrepeat (3)\n    地面追加 [土土土土草]\nend\n地面追加 [土土土土草草]\nrepeat (3)\n    地面追加 [土土土土草]\nend\n地面追加 [土土土土草針針針]\n地面追加 [土土土土草針針針]\n地面追加 [土土土土草草]\nrepeat (5)\n    地面追加 [土土土土草]\nend\n地面追加 [土土土土草青]\n地面追加 [土土土土草]\nrepeat (4)\n    地面追加 [土草]\n    背前追加 [空空水水]\nend\n地面追加 [土草雑]\n背前追加 [空空水水]\n地面追加 [土草針]\n背前追加 [空空水水]\nrepeat (4)\n    地面追加 [土草]\n    背前追加 [空空水水]\nend\nrepeat (3)\n    地面追加 [土土土土草]\nend\n地面追加 [土土土土草中]\n地面追加 [土土土土草]\n地面追加 [土土土土草]\n地面追加 [土土土土草人]\n地面追加 [土土土土草]\n地面追加 [土土土土土草]\n地面追加 [土土土土土土草黄]\nrepeat (3)\n    地面追加 [土土土土土土土草]\nend\n地面追加 [土土土土土草]\n地面追加 [土土土土土草]\n地面追加 [空空空木木木]\n地面追加 [空空空空木木]\n地面追加 [空空空空空木]\n地面追加 [空空空空空木]\n地面追加 [空空空空空木石]\n地面追加 [空空空空空木]\nrepeat (5)\n    地面追加 []\nend\n地面追加 [空空空空空木]\n地面追加 [木木木木木木]\n地面追加 [空空空空空木]\n地面追加 [空空空空空木]\n地面追加 [空空空空空木]\n地面追加 [空空空空空木空空空空木]\n地面追加 [空空空空空木空空空空木]\n地面追加 [空空空空空木空空空空木]\n地面追加 []\n背前追加 [水水水水水水水水水水水]\n地面追加 [空空空空空木空空空空木]\n地面追加 [空空空空空木空空空空木]\n地面追加 [木木木木木木木木木木木]\n地面追加 [空空空空空空空空空空木]\n地面追加 [空空空空空空空空空空木]\n地面追加 [空空空空空空空空空空木木木木木木]\n地面追加 [空空空空空空空空空空木空空空空木]\n地面追加 [空空空空空空空空空空空空空空空木石]\n地面追加 [空空空空空空空空空空空空空空空木]\nrepeat (5)\n    地面追加 []\nend\n地面追加 [空空空空空空空空空空空空空空空木]\nrepeat (2)\n    地面追加 [空空空空空空空空空空空空木空空木]\nend\n地面追加 [空空空空空空空空空空空空木木木木]\nrepeat (2)\n    地面追加 [空空空空空空空空空空空空木空空木]\nend\n地面追加 [空空空空空空空空空空空空木雑]\n地面追加 [空空空空空空空空空空空空木]\n地面追加 [空空空空空空空空空空空空木青]\nrepeat (5)\n    地面追加 [空空空空空空空空空空空空木]\nend\n地面追加 [空空空空空空空空空空空空木木木木木木]\n地面追加 [空空空空空空空空空空空空木空空空空木]\nrepeat (5)\n    地面追加 [空空空空空空空空空空空空空空空空空木]\nend\n地面追加 [空空空空空空空空空空空空空空空空空木人]\nrepeat (2)\n    地面追加 [空空空空空空空空空空空空空空空空空木]\nend\n地面追加 [空空空空空空空空空空空空空空空空空木]\n地面追加 [木木木木木木木木木木木木木木木木木木木木木木木木木木きき木木木木木木木木木木草草草草草]\n地面追加 [木木木木木木木木木木木木木木木木木木木木木木木木木木きき木木木木木木木木木木草草草]\n地面追加 [木木木木木木木木木木木木木木木木木木木木木木木木木木人き木木木木木木木木木木草草草草草]\n背前追加 [空空空空空空空空空空空空空空空空空空空空空空空空空空き]\n地面追加 [木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木草草]\n地面追加 [木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木草草]\n地面追加 [木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木草草中]\n地面追加 [空空空空空空空空空空空空空空空空空空空空空空空空空空空空木木木木空空空草草草草草草草草]\n地面追加 [空空空空空空空空空空空空空空空空空空空空空空空空空空空空空木木空空空空空空空空草草草草草人]\n地面追加 [空空空空空空空空空空空空空空空空空空空空空空空空空空空空空空木木木]\n地面追加 [空空空空空空空空空空空空空空空空空空空空空空空空空空空空空空空空木木木]\n地面追加 [空空空空空空空空空空空空空空空空空空空空空空空空空空空空空空空空空空空木木]\n地面追加 [空空空空空空空空空空空空空空空空空空空空空空空空空空空空空空空空木木木]\n地面追加 [土土土草]\n背前追加 [空空空空水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水]\n地面追加 [岩土土草]\n地面追加 [岩岩土草雑]\n地面追加 [岩岩岩岩]\n地面追加 [岩岩岩砂]\n地面追加 [岩岩砂砂]\n地面追加 [岩砂砂砂]\nrepeat (3)\n    地面追加 [砂砂砂砂]\nend\n地面追加 [砂砂砂砂ボ]\nrepeat (2)\n    地面追加 [砂砂砂砂]\nend\n地面追加 [砂砂砂砂ボ]\nrepeat (2)\n    地面追加 [砂砂砂砂]\nend\n地面追加 [砂砂砂砂ボ]\nrepeat (5)\n    地面追加 [砂砂砂砂]\nend\n地面追加 [砂砂砂砂人]\n地面追加 [砂砂砂砂中]\nrepeat (3)\n    地面追加 [砂砂砂砂]\nend\n地面追加 [砂砂砂砂空空空空砂]\nrepeat (4)\n    地面追加 [砂砂砂砂ボ空空空砂]\n    repeat (2)\n        地面追加 [砂砂砂砂空空空ぼ砂]\n    end\nend\nrepeat (5)\n    地面追加 [砂砂砂砂]\nend\n地面追加 [砂砂砂砂中]\n地面追加 [砂砂砂砂]\n地面追加 [砂砂砂砂人]\nrepeat (5)\n    地面追加 [砂砂砂砂]\nend\n地面追加 [砂砂砂砂ピ]\n地面追加 [砂砂砂砂ピピ像空空ピ]\n背前追加 [空空空空空空ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピ空空空空ピ]\n背前追加 [空空空空空空ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピ空空空空ピピ]\n背前追加 [空空空空空空ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピピ空空空空ピピピ]\n背前追加 [空空空空空空空ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピピ空空空空ピピピピ]\n背前追加 [空空空空空空空ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピピ空空空空ピピピピピ]\n背前追加 [空空空空空空空ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピピボ空空ぼピピピピピピ]\n背前追加 [空空空空空空空ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピピ空空空空ピピピピピピピ]\n背前追加 [空空空空空空空ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピピ空空空空ピピピピピピピピ]\n背前追加 [空空空空空空空ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピピボ空空ぼピピピピピピピピ空空空空ピ]\n背前追加 [空空空空空空空ぴぴぴぴ空空空空空空空空ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピピ空空空空ピピピピピピピピ空空空空ピピ]\n背前追加 [空空空空空空空ぴぴぴぴ空空空空空空空空ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピピ空空空空ピピピピピピピピ人空空空ピピピ]\n背前追加 [空空空空空空空ぴぴぴぴ空空空空空空空空ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピピ空空空空ピピピピピピピピピピピピピピピピ]\n背前追加 [空空空空空空空ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピま空空空ぼピピピピピピピピピピピピピピピピ]\n背前追加 [空空空空空空空ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピま空空空ぼピピピピピピピピピピピピピピピピ]\n背前追加 [空空空空空空空ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピま空空空ぼピピピピピピピピピピピピピピピピ]\n背前追加 [空空空空空空空ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピま空空空ぼピピピピピピピピピピピピピピピピ]\n背前追加 [空空空空空空空ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピピ空空空空ピピピピピピピピピピピピピピピピ]\n背前追加 [空空空空空空空ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピピ像空空ピピピピピピピピピピピピピピピピピ]\n背前追加 [空空空空空空空ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピピボ空空ピピピピピピピピピピピピピピピピピ]\n背前追加 [空空空空空空空ぴぴぴぴ]\nrepeat (2)\n    地面追加 [砂砂砂砂ピピピ空空空ピピピピピピピピピピピピピピピピピ]\n    背前追加 [空空空空空空空ぴぴぴぴ]\nend\n地面追加 [砂砂砂砂ピピピピ空空空ピピピピピピピピピピピピピピピピ]\n背前追加 [空空空空空空空空ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピピピピ空空空ピピピピピピピピピピピピピピピ]\n背前追加 [空空空空空空空空空ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピ空空空空空空ピピピピピピピピピピピピピピピ]\n背前追加 [空空空空空空水水水ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピサ空空空空空ピピピピピピピピピピピピピピピ]\n背前追加 [空空空空空空水水水ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピ針空空空空空ピピピピピピピピピピピピピピピ]\n背前追加 [空空空空空空水水水ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピ空針空空空空ピピピピピピピピピピピピピピピ]\n背前追加 [空空空空空空水水水ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピ空空針空空空ピピピピピピピピピピピピピピピ]\n背前追加 [空空空空空空水水水ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピ空空空空空空ピピピピピピピピピピピピピピピ]\n背前追加 [空空空空空空水水水ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピ中空空空空空ピピピピピピピピピピピピピピピ]\n背前追加 [空空空空空空水水水ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピ空空空空空空ピピピピピピピピピピピピピピピ]\n背前追加 [空空空空空空水水水ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピ空空空空空空ピピピピピピピピピピピピピピピ]\n背前追加 [空空空空空空水水水ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピ空針空空空空ピピピピピピピピピピピピピピピ]\n背前追加 [空空空空空空水水水ぴぴぴぴ]\nrepeat (2)\n    地面追加 [砂砂砂砂ピピ空空空空空空ピピピピピピピピピピピピピピピ]\n    背前追加 [空空空空空空水水水ぴぴぴぴ]\nend\n地面追加 [砂砂砂砂ピピ針空空空空空ピピピピピピピピピピピピピピピ]\n背前追加 [空空空空空空水水水ぴぴぴぴ]\n地面追加 [砂砂砂砂ピピ針空空空空空ピピピピピピピピピピピピピピピ]\n背前追加 [空空空空空空水水水ぴぴぴぴ]\nrepeat (6)\n    地面追加 [砂砂砂砂ピピ針空空針空空ピピピピピピピピピピピピピピピ]\n    背前追加 [空空空空空空水水水ぴぴぴぴ]\nend\n地面追加 [砂砂砂砂ピピ針空空ピピピピピピピピピピピピピピピピピピ]\n背前追加 [空空空空空空水水水水水水ぴ]\n地面追加 [砂砂砂砂ピピ針空空空空空ピピピピピピピピピピピピピピピ]\n背前追加 [空空空空空空水水水水水水ぴ]\nrepeat (3)\n    地面追加 [砂砂砂砂ピピ針空空空空空空空空空空空ピピピピピピピピピ]\n    背前追加 [空空空空空空水水水水水水水水水水水水]\nend\n地面追加 [砂砂砂砂ピピピピピピ中空空空空空空空ピピピピピピピピピ]\n背前追加 [空空空空空空水水水水水水水水水水水水]\n地面追加 [砂砂砂砂ピピピピピピ空空空空空空空空ピピピピピピピピピ]\n背前追加 [空空空空空空水水水水水水水水水水水水]\nrepeat (3)\n    repeat (3)\n        地面追加 [砂砂砂砂ピピピピピピ針空空空空空空針ピピピピピピピピピ]\n        背前追加 [空空空空空空水水水水水水ぴぴぴぴ水水]\n    end\n    repeat (2)\n        地面追加 [砂砂砂砂ピピピピピピ針針空空空空針針ピピピピピピピピピ]\n        背前追加 [空空空空空空水水水水水水水水水水水水]\n    end\nend\nrepeat (2)\n    repeat (4)\n        地面追加 [砂砂砂砂ピピピピピピ針針空空空空針針ピピピピピピピピピ]\n        背前追加 [空空空空空空水水水水水水水ぴ水水水水]\n    end\n    repeat (4)\n        地面追加 [砂砂砂砂ピピピピピピ針針空空空空針針ピピピピピピピピピ]\n        背前追加 [空空空空空空水水水水水水水水ぴ水水水]\n    end\nend\nrepeat (2)\n    地面追加 [砂砂砂砂ピピピピピピ針空空空空針針針ピピピピピピピピピ]\n    背前追加 [空空空空空空水水水水水水水水水水水水]\nend\nrepeat (2)\n    地面追加 [砂砂砂砂ピピピピピピ針針空空空針針針ピピピピピピピピピ]\n    背前追加 [空空空空空空水水水水水水水水水水水水]\nend\nrepeat (2)\n    地面追加 [砂砂砂砂ピピピピピピ針針針空空空針針ピピピピピピピピピ]\n    背前追加 [空空空空空空水水水水水水水水水水水水]\nend\nrepeat (2)\n    地面追加 [砂砂砂砂ピピピピピピ針針針針空空空針ピピピピピピピピピ]\n    背前追加 [空空空空空空水水水水水水水水水水水水]\nend\nrepeat (10)\n    地面追加 [砂砂砂砂ピピピピピピ空空空空空空空空ピピピピピピピピピ]\n    背前追加 [空空空空空空ぴぴぴぴぴぴぴぴぴぴぴぴ]\nend\n地面追加 [砂砂砂砂ピピピピピピゴ空空空空空空空ピピピピピピピピピ]\n背前追加 [空空空空空空ぴぴぴぴぴぴぴぴぴぴぴぴ]\nrepeat (3)\n    地面追加 [砂砂砂砂ピピピピピピ空空空空空空空空ピピピピピピピピピ]\n    背前追加 [空空空空空空ぴぴぴぴぴぴぴぴぴぴぴぴ]\nend\nrepeat (10)\n    地面追加 [砂砂砂砂ピピピピピピピピピピピピピピピピピピピピピピピ]\nend\n\nwhen I receive [リセット v]\ndelete all of [人情報 v]\n地面生成\nbroadcast (人生成 v)\n\ndefine 地面追加 (地面)\nadd (地面) to [地面の情報 v]\nset [手ごろな変数 v] to [0]\nrepeat (length of (地面))\n    change [手ごろな変数 v] by (1)\n    if <[敵の種類 v] contains (letter (手ごろな変数) of (地面))?> then\n        add (letter (手ごろな変数) of (地面)) to [敵情報 v]\n        add ((40) * ((length of [地面の情報 v]) - (7))) to [敵情報 v]\n        add ((40) * ((手ごろな変数) - (5))) to [敵情報 v]\n        create clone of (敵 v)\n    end\n    if <[人の種類 v] contains (letter (手ごろな変数) of (地面))?> then\n        add (letter (手ごろな変数) of (地面)) to [人情報 v]\n        add ((40) * ((length of [地面の情報 v]) - (7))) to [人情報 v]\n        add ((40) * ((手ごろな変数) - (5))) to [人情報 v]\n    end\nend\n\nwhen I receive [ground test v]\n地面生成\n描画\nstop [all v]\n\ndefine 背景奥描画\nset [brightness v] effect to (-20)\nset size to (80) %\nset [leftbottomx v] to ((((X) / (80)) - (((X) / (80)) mod (40))) - ((40) * (6)))\nset [leftbottomy v] to ((((Y) / (80)) - (((Y) / (80)) mod (40))) - ((40) * (4)))\nset [tilex v] to (([floor v] of ((X) / (3200)) ) + (1))\nset [tilex' v] to [0]\nrepeat (14)\n    set [tiley v] to (([floor v] of ((Y) / (3200)) ) + (1))\n    set [tiley' v] to [0]\n    repeat (10)\n        if <[水ブロック v] contains (letter (tileY) of (item (tileX) of [背景奥の情報 v]))?> then\n            背景奥表示 ((leftBottomX) + ((40) * (tileX'))) ((leftBottomY) + ((40) * (tileY'))) [水中]\n        end\n        背景奥表示 ((leftBottomX) + ((40) * (tileX'))) ((leftBottomY) + ((40) * (tileY'))) (letter (tileY) of (item (tileX) of [背景奥の情報 v]))\n        change [tiley v] by (1)\n        change [tiley' v] by (1)\n    end\n    change [tilex v] by (1)\n    change [tilex' v] by (1)\nend\n\ndefine 背景奥表示 (x) (y) (コスチューム)\nswitch costume to (画面の大きさ無効 v)\ngo to x: ((x) - ((X) / (80))) y: ((y) - ((Y) / (80)))\nswitch costume to (コスチューム)\nstamp\n\ndefine 背前追加 (データ)\nrepeat (((length of [地面の情報 v]) - (length of [背景前の情報 v])) - (1))\n    add [] to [背景前の情報 v]\nend\nadd (データ) to [背景前の情報 v]\n\n@Player\n\nwhen flag clicked\nset [ゴール? v] to [false]\nset [x v] to [25]\nset [y v] to [25]\nset [中間地点x v] to [-55]\nset [中間地点y v] to [25]\nset [帽子 v] to [キャップ]\nswitch costume to (キャップ v)\nset size to (100) %\nbroadcast (リセット v)\nset rotation style [left-right v]\nwait (0.1) seconds\nforever\n    set [前の中x v] to (中間地点x)\n    行動計算\n    if <not <(中間地点x) = (前の中x)>> then\n        start sound [Rip v]\n    end\n    change [myy v] by (myYV)\n    change [myx v] by (myXV)\n    表示\n    if <(myY) < [-150]> then\n        start sound [Crunch v]\n        broadcast (リセット v) and wait\n    end\n    if <<<[-240] < (x position)> and <(x position) < [240]>> and <<touching (敵 v)?> or <touching (雷 v)?>>> then\n        start sound [Crunch v]\n        broadcast (リセット v) and wait\n    end\n    if <(マグマ?) = [true]> then\n        start sound [Crunch v]\n        broadcast (リセット v) and wait\n    end\nend\n\ndefine 行動計算\nset [元のコスチューム v] to (costume [name v])\nswitch costume to (当たり判定用 v)\nif <<<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > [100]>>> and <(myYV) > [0]>> then\n    change [myyv v] by (-0.2)\nelse\n    change [myyv v] by (-0.5)\nend\nif <<key (right arrow v) pressed?> or <<mouse down?> and <(mouse x) > [100]>>> then\n    set [myxv v] to (((myXV) + (1)) / (1.1))\nend\nif <<key (left arrow v) pressed?> or <<mouse down?> and <[-100] > (mouse x)>>> then\n    set [myxv v] to (((myXV) - (1)) / (1.1))\nend\nif <not <<<key (right arrow v) pressed?> or <key (left arrow v) pressed?>> or <<mouse down?> and <<(mouse x) > [100]> or <[-100] > (mouse x)>>>>> then\n    set [myxv v] to ((myXV) / (1.1))\nend\n触れている地面の方向\nif <(ゴール?) = [true]> then\n    broadcast (ゴール v) and wait\nend\n水チェック\nif <<<[触れている地面の方向 v] contains [左上]?> and <((myX) mod (40)) < [30]>> or <<[触れている地面の方向 v] contains [右上]?> and <[10] < ((myX) mod (40))>>> then\n    set [myyv v] to [0]\n    change [myy v] by ((0) - ((myY) mod (40)))\nend\nif <<<[触れている地面の方向 v] contains [右上]?> and <[10] < ((myY) mod (40))>> or <<[触れている地面の方向 v] contains [右下]?> and <((myY) mod (40)) < [30]>>> then\n    change [myx v] by ((0) - ((myX) mod (40)))\n    if <(上ボタンが押された?) = [true]> then\n        set [myxv v] to [-8]\n        set [myyv v] to [6]\n    else\n        set [myxv v] to [0]\n    end\nend\nif <<<[触れている地面の方向 v] contains [左下]?> and <((myX) mod (40)) < [30]>> or <<[触れている地面の方向 v] contains [右下]?> and <[10] < ((myX) mod (40))>>> then\n    change [myy v] by (((() - (myY)) mod (40)) - (0.5))\n    if <(上ボタンが押された?) = [true]> then\n        set [myyv v] to ((6) + (([abs v] of (myXV) ) * (0.1)))\n    else\n        set [myyv v] to [0]\n    end\nend\nif <<<[触れている地面の方向 v] contains [左上]?> and <[10] < ((myY) mod (40))>> or <<[触れている地面の方向 v] contains [左下]?> and <((myY) mod (40)) < [30]>>> then\n    set [myxv v] to [0]\n    change [myx v] by ((() - (myX)) mod (40))\n    if <(上ボタンが押された?) = [true]> then\n        set [myxv v] to [8]\n        set [myyv v] to [6]\n    else\n        set [myxv v] to [0]\n    end\nend\nif <(myX) < [-240]> then\n    set [myx v] to [-240]\n    if <(myXV) < [0]> then\n        set [myxv v] to [0]\n    end\nend\nif <(水ですか水ですか?) = [true]> then\n    set [myxv v] to ((myXV) / (1.2))\n    set [myyv v] to ((myYV) / (1.2))\n    if <<key (up arrow v) pressed?> or <<mouse down?> and <[100] < (mouse y)>>> then\n        set [myyv v] to [4]\n    end\nend\nマグマチェック\n\nwhen I receive [リセット v]\nset [myx v] to (中間地点x)\nset [myy v] to (中間地点y)\nset [hp v] to [50]\nset [myxv v] to [0]\nset [myyv v] to [0]\n\ndefine 触れている地面の方向\ndelete all of [触れている地面の方向 v]\nset [タイル v] to (letter (([ceiling v] of ((myY) / (40)) ) + (5)) of (item (([ceiling v] of ((myX) / (40)) ) + (7)) of [地面の情報 v]))\nif <[地面ブロック v] contains (タイル)?> then\n    add [右上] to [触れている地面の方向 v]\nend\nif <(タイル) = [中]> then\n    set [中間地点x v] to (([ceiling v] of ((myX) / (40)) ) * (40))\n    set [中間地点y v] to (([ceiling v] of ((myY) / (40)) ) * (40))\nend\nif <(タイル) = [ゴ]> then\n    set [ゴール? v] to [true]\nend\nset [タイル v] to (letter (([floor v] of ((myY) / (40)) ) + (5)) of (item (([ceiling v] of ((myX) / (40)) ) + (7)) of [地面の情報 v]))\nif <[地面ブロック v] contains (タイル)?> then\n    add [右下] to [触れている地面の方向 v]\nend\nif <(タイル) = [中]> then\n    set [中間地点x v] to (([ceiling v] of ((myX) / (40)) ) * (40))\n    set [中間地点y v] to (([floor v] of ((myY) / (40)) ) * (40))\nend\nif <(タイル) = [ゴ]> then\n    set [ゴール? v] to [true]\nend\nset [タイル v] to (letter (([ceiling v] of ((myY) / (40)) ) + (5)) of (item (([floor v] of ((myX) / (40)) ) + (7)) of [地面の情報 v]))\nif <[地面ブロック v] contains (タイル)?> then\n    add [左上] to [触れている地面の方向 v]\nend\nif <(タイル) = [中]> then\n    set [中間地点x v] to (([floor v] of ((myX) / (40)) ) * (40))\n    set [中間地点y v] to (([ceiling v] of ((myY) / (40)) ) * (40))\nend\nif <(タイル) = [ゴ]> then\n    set [ゴール? v] to [true]\nend\nset [タイル v] to (letter (([floor v] of ((myY) / (40)) ) + (5)) of (item (([floor v] of ((myX) / (40)) ) + (7)) of [地面の情報 v]))\nif <[地面ブロック v] contains (タイル)?> then\n    add [左下] to [触れている地面の方向 v]\nend\nif <(タイル) = [中]> then\n    set [中間地点x v] to (([floor v] of ((myX) / (40)) ) * (40))\n    set [中間地点y v] to (([floor v] of ((myY) / (40)) ) * (40))\nend\nif <(タイル) = [ゴ]> then\n    set [ゴール? v] to [true]\nend\n\nwhen flag clicked\nforever\n    カメラ動作\nend\n\nwhen flag clicked\nset [上ボタンが押された? v] to [false]\nforever\n    if <<key (up arrow v) pressed?> or <<mouse down?> and <[100] < (mouse y)>>> then\n        set [上ボタンが押された? v] to [true]\n        wait (0.1) seconds\n        set [上ボタンが押された? v] to [false]\n    end\n    wait until <not <<key (up arrow v) pressed?> or <<mouse down?> and <[100] < (mouse y)>>>>\nend\n\ndefine カメラ動作\nchange [x v] by (((myX) - (X)) * (0.2))\nchange [y v] by (((myY) - (Y)) * (0.2))\nif <(X) < [20]> then\n    set [x v] to [20]\nend\nif <(Y) < [20]> then\n    set [y v] to [20]\nend\n\ndefine マグマチェック\nset [マグマ? v] to [false]\nset [タイル v] to (letter (([ceiling v] of (((myY) + (0.5)) / (40)) ) + (5)) of (item (([ceiling v] of ((myX) / (40)) ) + (7)) of [地面の情報 v]))\nset [マグマ? v] to <<(マグマ?) = [true]> or <[攻撃的なブロック v] contains (タイル)?>>\nset [タイル v] to (letter (([floor v] of (((myY) + (0.5)) / (40)) ) + (5)) of (item (([ceiling v] of ((myX) / (40)) ) + (7)) of [地面の情報 v]))\nset [マグマ? v] to <<(マグマ?) = [true]> or <[攻撃的なブロック v] contains (タイル)?>>\nset [タイル v] to (letter (([ceiling v] of (((myY) + (0.5)) / (40)) ) + (5)) of (item (([floor v] of ((myX) / (40)) ) + (7)) of [地面の情報 v]))\nset [マグマ? v] to <<(マグマ?) = [true]> or <[攻撃的なブロック v] contains (タイル)?>>\nset [タイル v] to (letter (([floor v] of (((myY) + (0.5)) / (40)) ) + (5)) of (item (([floor v] of ((myX) / (40)) ) + (7)) of [地面の情報 v]))\nset [マグマ? v] to <<(マグマ?) = [true]> or <[攻撃的なブロック v] contains (タイル)?>>\n\ndefine 水チェック\nset [水ですか水ですか? v] to [false]\nset [タイル v] to (letter (([ceiling v] of (((myY) + (0.5)) / (40)) ) + (5)) of (item (([ceiling v] of ((myX) / (40)) ) + (7)) of [背景前の情報 v]))\nset [水ですか水ですか? v] to <<(水ですか水ですか?) = [true]> or <[水ブロック v] contains (タイル)?>>\nset [タイル v] to (letter (([floor v] of (((myY) + (0.5)) / (40)) ) + (5)) of (item (([ceiling v] of ((myX) / (40)) ) + (7)) of [背景前の情報 v]))\nset [水ですか水ですか? v] to <<(水ですか水ですか?) = [true]> and <[水ブロック v] contains (タイル)?>>\nset [タイル v] to (letter (([ceiling v] of (((myY) + (0.5)) / (40)) ) + (5)) of (item (([floor v] of ((myX) / (40)) ) + (7)) of [背景前の情報 v]))\nset [水ですか水ですか? v] to <<(水ですか水ですか?) = [true]> or <[水ブロック v] contains (タイル)?>>\nset [タイル v] to (letter (([floor v] of (((myY) + (0.5)) / (40)) ) + (5)) of (item (([floor v] of ((myX) / (40)) ) + (7)) of [背景前の情報 v]))\nset [水ですか水ですか? v] to <<(水ですか水ですか?) = [true]> and <[水ブロック v] contains (タイル)?>>\n\nwhen flag clicked\npoint in direction (90)\nforever\n    if <<key (right arrow v) pressed?> or <<mouse down?> and <[0] < (mouse x)>>> then\n        point in direction (90)\n    end\n    if <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < [0]>>> then\n        point in direction (-90)\n    end\nend\n\ndefine 表示\nswitch costume to (∞の広さ v)\ngo to x: ((myX) - (X)) y: ((myY) - (Y))\nswitch costume to (帽子)\n\ndefine 会話 (言葉)\nstart sound [High Whoosh v]\nsay (言葉)\nwait until <<key (z v) pressed?> or <mouse down?>>\nwait until <not <<key (z v) pressed?> or <mouse down?>>>\nsay []\nwait (0.1) seconds\n\nwhen I receive [へぇぇ v]\n会話 [へぇぇ]\n\nwhen I receive [だから暑いのか v]\n会話 [だから暑いのか]\n会話 [でも何でここに?]\n\nwhen I receive [余裕だよ v]\n会話 [余裕だよ]\n\nwhen I receive [お前もな v]\n会話 [お前もな]\n\nwhen I receive [え？ v]\n会話 [え?]\n\nwhen I receive [スゴイネー v]\n会話 [スゴイネー]\n\nwhen I receive [2回目 v]\n会話 [また?]\n\nwhen I receive [すいすい? v]\n会話 [「すいすい」と言いながら泳ぐ奴初めてみた]\n\nwhen I receive [ああ v]\n会話 [ああ]\n\nwhen I receive [起きてるの? v]\n会話 [起きてるのか?]\n\nwhen I receive [わざと v]\n会話 [わざとらしいな]\n\nwhen I receive [難しかったよ v]\n会話 [難しかったよ]\n\nset [myx v] to [10720]\nset [myy v] to [40]\n\nwhen I receive [良い帽子だな v]\n会話 [良い帽子だな]\n\nwhen I receive [おっと v]\n会話 [おっと舐めてもらっちゃ困るな]\n会話 [こんなプラットフォーマー余裕でクリアしてやるよ]\n\nwhen I receive [そやで v]\n会話 [そやで]\n\nset [myx v] to [16238]\nset [myy v] to [80]\n\nwhen I receive [ナポレオン? v]\n会話 [ナポレオンなのか?]\n\nwhen I receive [それは大変だな v]\n会話 [それは大変だな]\n\nwhen I receive [寒がりでは? v]\n会話 [寒がりじゃなかったのか?]\n\nwhen I receive [そうなのか? v]\n会話 [そうなのか?]\n\nwhen I receive [どんな匂い? v]\n会話 [どんな匂いがするんだ?]\n\nwhen I receive [凄いな! v]\n会話 [凄いな!]\n\nwhen I receive [サンドイッチが欲しいやつ v]\n会話 [サンドイッチが欲しいやつを知ってるぜ]\n\nwhen I receive [礼なら v]\n会話 [礼なら砂漠にいた奴に言え]\n会話 [おれは運んだだけさ]\n\n@人\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\nshow\nwait (0.1) seconds\nset rotation style [left-right v]\nforever\n    if <(気づいてる) = [false]> then\n        if <((((item ((番号) + (2)) of [人情報 v]) - (X)) * ((item ((番号) + (2)) of [人情報 v]) - (X))) + (((item ((番号) + (3)) of [人情報 v]) - (Y)) * ((item ((番号) + (3)) of [人情報 v]) - (Y)))) < [250000]> then\n            say (item (((番号) / (3)) + (1)) of [最初の言葉 v])\n        else\n            say []\n        end\n        if <<((((item ((番号) + (2)) of [人情報 v]) - (X)) * ((item ((番号) + (2)) of [人情報 v]) - (X))) + (((item ((番号) + (3)) of [人情報 v]) - (Y)) * ((item ((番号) + (3)) of [人情報 v]) - (Y)))) < [20000]> and <<key (z v) pressed?> or <<mouse down?> and <touching (mouse-pointer v)?>>>> then\n            wait until <not <<key (z v) pressed?> or <mouse down?>>>\n            say []\n            NPCの会話\n            change [話した回数 v] by (1)\n            wait (1) seconds\n        end\n    end\nend\n\ndefine 表示 (x座標) (y座標) (コスチューム)\nswitch costume to (∞の広さ v)\ngo to x: ((x座標) - (X)) y: ((y座標) - (Y))\nswitch costume to (コスチューム)\n\nwhen I start as a clone\nshow\nforever\n    if <(item ((番号) + (1)) of [人情報 v]) = [人]> then\n        point towards (player v)\n        表示 (item ((番号) + (2)) of [人情報 v]) (item ((番号) + (3)) of [人情報 v]) (join [一般人] (番号))\n    end\nend\n\ndefine 会話 (言葉)\nstart sound [High Whoosh v]\nsay (言葉)\nwait until <<key (z v) pressed?> or <mouse down?>>\nwait until <not <<key (z v) pressed?> or <mouse down?>>>\nsay []\nwait (0.1) seconds\n\nwhen I receive [人生成 v]\n高速\n\ndefine 高速\nset [番号 v] to [0]\nrepeat ((length of [人情報 v]) / (3))\n    create clone of (_myself_ v)\n    change [番号 v] by (3)\nend\n\nwhen I receive [リセット v]\ndelete this clone\n\nwhen flag clicked\nset [話した回数 v] to [0]\nset [気づいてる v] to [false]\nset [サンドイッチ? v] to [false]\ndelete all of [最初の言葉 v]\nadd [こんにちは!\(zまたはクリックで次\)] to [最初の言葉 v]\nadd [この先は危険だ] to [最初の言葉 v]\nadd [あっつ] to [最初の言葉 v]\nadd [あついぜ] to [最初の言葉 v]\nadd [おーい] to [最初の言葉 v]\nadd [すいすい] to [最初の言葉 v]\nadd [わいわい] to [最初の言葉 v]\nadd [すやすや] to [最初の言葉 v]\nadd [痛そう] to [最初の言葉 v]\nadd [やあ] to [最初の言葉 v]\nadd [ねむ] to [最初の言葉 v]\nadd [Hello!] to [最初の言葉 v]\nadd [涼しい] to [最初の言葉 v]\nadd [暑いな] to [最初の言葉 v]\nadd [へえ] to [最初の言葉 v]\nadd [] to [最初の言葉 v]\n\ndefine NPCの会話\nif <(番号) = [0]> then\n    if <(話した回数) = [0]> then\n        会話 [いい天気だね\(zまたはクリックで次 以下略\)]\n        会話 [こんな日はハイキングが一番]\n        broadcast (へぇぇ v) and wait\n    else\n        if <(帽子) = [サンドイッチ]> then\n            会話 [ありがとう！サンドイッチ、大好きなんだ！]\n        else\n            if <(サンドイッチ?) = [true]> then\n                会話 [そのサンドイッチを僕にくれるのか?]\n                broadcast (ああ v) and wait\n                会話 [ありがとう！]\n                broadcast (礼なら v) and wait\n                replace item (1) of [最初の言葉 v] with [ありがとう]\n                会話 [お礼にサンドイッチの帽子をあげるよ]\n                set [帽子 v] to [サンドイッチ]\n            else\n                会話 [僕はね、ハイキングでサンドイッチを食べるのが好きなんだ]\n                broadcast (へぇぇ v) and wait\n                会話 [でも、サンドイッチを入れて鞄を忘れてね]\n                broadcast (それは大変だな v) and wait\n                会話 [うん、だから今日は我慢するしかないな....]\n                replace item (1) of [最初の言葉 v] with [まあ、仕方ないよね]\n            end\n        end\n    end\nend\nif <(番号) = [3]> then\n    if <(話した回数) = [0]> then\n        会話 [マグマがあるんだ]\n        broadcast (だから暑いのか v) and wait\n        会話 [さあ?]\n    else\n        if <(話した回数) = [1]> then\n            会話 [おれは寒がりなんだ]\n            会話 [だから、いつもここにいる]\n            broadcast (へぇぇ v) and wait\n            会話 [マグマには気をつけろよ]\n        else\n            会話 [向こうの村で新しい帽子が流行っているらしい]\n            会話 [おれはこれが好きだけどな]\n            会話 [マグマのトンネルじゃ、他の帽子では暑すぎる]\n            broadcast (寒がりでは? v) and wait\n            会話 [限度があるだろう]\n        end\n    end\nend\nif <(番号) = [6]> then\n    if <(話した回数) = [0]> then\n        会話 [マグマはどうだった?]\n        broadcast (余裕だよ v) and wait\n        会話 [その調子だ]\n    else\n        会話 [君はここまで来れたが、ここまで来れない人もいるんだ]\n        broadcast (そうなのか? v) and wait\n        会話 [ああ、だから今度、マグマの上に橋が架かるのさ]\n    end\nend\nif <(番号) = [9]> then\n    if <(話した回数) = [0]> then\n        会話 [よくここまで来れたな]\n        broadcast (お前もな v) and wait\n        会話 [もうそろそろ出口だ]\n        会話 [最後は大ジャンプだぞ]\n    else\n        会話 [大ジャンプは苦手か?]\n        broadcast (ああ v) and wait\n        会話 [助走をつけて、長く上を押すんだぞ]\n    end\nend\nif <(番号) = [12]> then\n    if <(帽子) = [鬼]> then\n        if <(話した回数) < [5]> then\n            会話 [お前も鬼にならないか?]\n            broadcast (2回目 v) and wait\n            会話 [ははははは冗談だよ]\n            会話 [何度も言うのがNPCの宿命なんだ]\n        else\n            会話 [お前も鬼にならないか?]\n            broadcast (2回目 v) and wait\n            会話 [何回も話しかけてくるから言うしかないんだよ]\n            会話 [話しかけすぎだって]\n        end\n    else\n        会話 [お前も鬼にならないか?]\n        broadcast (え？ v) and wait\n        会話 [冗談だよ]\n        会話 [今、この帽子が流行っているんだ]\n        会話 [あれ？なんて偶然だろう]\n        会話 [帽子をもう1個持っていたよ]\n        broadcast (スゴイネー v) and wait\n        会話 [ははは冗談だよ]\n        会話 [帽子をここで配っているんだ]\n        会話 [1個あげるよ]\n        set [帽子 v] to [鬼]\n    end\nend\nif <(番号) = [15]> then\n    if <(話した回数) = [0]> then\n        broadcast (すいすい? v) and wait\n        会話 [俺も見たことないね]\n        会話 [もうすぐ村がある]\n    else\n        if <(話した回数) = [1]> then\n            会話 [「すいすい」というのを指摘されたことはなかったよ]\n            broadcast (そうなのか? v) and wait\n            会話 [うん、むこうの村の人たちは僕がこう言うことに慣れているんだ]\n        else\n            会話 [泳ぐっていいよね]\n            broadcast (ああ v) and wait\n            会話 [マリオでも、水中ステージが一番好きだよ]\n        end\n    end\nend\nif <(番号) = [18]> then\n    if <(話した回数) = [0]> then\n        会話 [外から来たのかい?]\n        broadcast (ああ v) and wait\n        会話 [やっぱり。そんな感じがしたよ]\n    else\n        会話 [外から来た奴は匂いが違うんだ]\n        broadcast (どんな匂い? v) and wait\n        会話 [都会の匂いさ]\n    end\nend\nif <(番号) = [21]> then\n    if <(話した回数) = [0]> then\n        会話 [この村の先は針がある]\n        会話 [気をつけろ]\n        会話 [上を長く押すのがコツなんだ]\n        broadcast (起きてるの? v) and wait\n        会話 [むにゃむにゃ]\n        broadcast (わざと v) and wait\n    else\n        会話 [上を長く押すんだぞ]\n        会話 [ところで、]\n        会話 [こうやって目を閉じてすやすやしていたら]\n        会話 [誰も起きていることに気づかない]\n        broadcast (気づいているよ v) and wait\n        会話 [えっそうなの]\n    end\nend\nif <(番号) = [24]> then\n    if <(話した回数) = [0]> then\n        会話 [ここの針は痛そうだから見ているだけで嫌なんだ]\n        broadcast (ああ v) and wait\n        会話 [ぼ、ぼくは喰らったことないけどね]\n        broadcast (スゴイネー v) and wait\n        会話 [次はもっと針が太くなるよ]\n    else\n        if <(話した回数) = [1]> then\n            会話 [ホントに針が刺さったことないよ]\n            broadcast (ああ v) and wait\n            会話 [疑ってないよね！？]\n        else\n            会話 [やっぱりばれた？]\n            会話 [本当は毎回針にぶつかるんだ]\n        end\n    end\nend\nif <(番号) = [27]> then\n    if <(話した回数) = [0]> then\n        会話 [針はどうだった?]\n        broadcast (難しかったよ v) and wait\n        会話 [まあな]\n        会話 [ここからはアスレチックだよ]\n        会話 [痛くないから大丈夫]\n    else\n        会話 [アスレチックは楽しいぜ]\n        会話 [あそこで遊ぶのが俺の日課なんだ]\n    end\nend\nif <(番号) = [30]> then\n    wait until <not <<key (z v) pressed?> or <mouse down?>>>\n    if <(話した回数) = [0]> then\n        会話 [どんどん登っていこう]\n        broadcast (ああ v) and wait\n    else\n        会話 [壁キックは苦手?]\n        broadcast (ああ v) and wait\n        会話 [PCなら→を押しっぱなしで↑をタイミングよく押す]\n        会話 [モバイルなら右上をタイミングよく押すんだ]\n    end\nend\nif <(番号) = [33]> then\n    if <(帽子) = [ハット]> then\n        会話 [友達が帽子屋なんだ]\n    else\n        say []\n        broadcast (良い帽子だな v) and wait\n        会話 [そうだろう？]\n        会話 [一つやるよ]\n        set [帽子 v] to [ハット]\n    end\nend\nif <(番号) = [36]> then\n    if <(話した回数) = [0]> then\n        会話 [涼しいね]\n        会話 [ここを抜けると砂漠さ]\n        会話 [下に枝があるよ]\n    else\n        会話 [やっぱり木登りが一番]\n        broadcast (ああ v) and wait\n        会話 [実はプロ木登り選手なんだ]\n        会話 [この先の砂漠は苦手だけどね]\n        会話 [下に枝があるよ]\n    end\nend\nif <(番号) = [39]> then\n    if <(話した回数) = [0]> then\n        会話 [ここからはどんどん難しくなる]\n        会話 [初心者はここらでお手上げだぜ]\n        broadcast (おっと v) and wait\n        会話 [その調子だ]\n    else\n        if <(話した回数) = [1]> then\n            会話 [サンドイッチを作りすぎて困っているんだ]\n            会話 [誰か貰ってくれないかな?]\n            broadcast (サンドイッチが欲しいやつ v) and wait\n            会話 [そうなのか！届けてくれ！]\n            set [サンドイッチ? v] to [true]\n        else\n            会話 [サンドイッチを貰ってくれる奴がいてよかった！]\n        end\n    end\nend\nif <(番号) = [42]> then\n    if <(話した回数) = [0]> then\n        会話 [君、やるやんか]\n        broadcast (そやで v) and wait\n        会話 [もうすぐピラミッドや]\n    else\n        会話 [ピラミッドは難しくて挫折者が多いんや]\n        会話 [僕もその一人や]\n    end\nend\nif <(番号) = [45]> then\n    if <(帽子) = [ナポレオン]> then\n        会話 [実は帽子屋をしているんだ]\n    else\n        会話 [見つかったな]\n        broadcast (ナポレオン? v) and wait\n        会話 [違う、ナポレオンの帽子を作ったの]\n        会話 [彼はエジプトに遠征したからね]\n        会話 [あげるよ]\n        set [帽子 v] to [ナポレオン]\n    end\nend\n\nwhen I receive [気づいているよ v]\nif <(番号) = [18]> then\n    set [気づいてる v] to [true]\n    会話 [気づいているよ]\n    set [気づいてる v] to [false]\nend\n\n@推しトレ用サムネ\n\nwhen flag clicked\nhide\n\n
矢印で移動 モバイルは画面をタップ\nzで会話      モバイルはNPCをタップ\nhで最速クリア者表示\n（現在、最速は @atsumaru_udon さん です）\n\n沢山、NPCに話しかけてみて下さい。\nクリアできた人はコメント欄に。\n途中で躓いたひとは、どこで止まったかを教えて下さい。今後の参考にします。