3D Platformer モチモチスライム【2】！！ 100%PEN （スマホ対応）

Instructions: 100% PEN 3D Scroll Game!!  ♡☆\n青色がゴール。\n赤色に触れたらリスタート。\n矢印キーまたはマウスorタップで操作。\n製作者の記録は92.204秒です。\nクリア者↓（先着10名　もう締め切り）\n\n@sugisan\n@Mineshokunn\n@tomarunjyaneezo\n@qurlay\n@knt2011\n@purple-yellow-orange\n@262104HI\n@tetudoutomoya\n@yuhaku\n@k11so100

@Stage\n\n@PEN\n\ndefine 線を引く (ｘ) (ｙ) 、 (ｘ２) (ｙ２) 太さ (太さ)\nset [x v] to (ｘ)\nset [x2 v] to (ｘ２)\nset [y v] to (ｙ)\nset [y2 v] to (ｙ２)\nif <not <<(x) = (x2)> or <(y) = (y2)>>> then\n    set [変化の割合 v] to (((y2) - (y)) / ((x2) - (x)))\n    set [切片 v] to ((y) - ((変化の割合) * (x)))\n    if <(x) > [240]> then\n        set [y v] to (((変化の割合) * (240)) + (切片))\n    end\n    if <[-240] > (x)> then\n        set [y v] to (((変化の割合) * (-240)) + (切片))\n    end\n    if <(y) > [180]> then\n        set [x v] to (((180) - (切片)) / (変化の割合))\n    end\n    if <[-180] > (y)> then\n        set [x v] to (((-180) - (切片)) / (変化の割合))\n    end\n    if <(x2) > [240]> then\n        set [y2 v] to (((変化の割合) * (240)) + (切片))\n    end\n    if <[-240] > (x2)> then\n        set [y2 v] to (((変化の割合) * (-240)) + (切片))\n    end\n    if <(y2) > [180]> then\n        set [x2 v] to (((180) - (切片)) / (変化の割合))\n    end\n    if <[-180] > (y2)> then\n        set [x2 v] to (((-180) - (切片)) / (変化の割合))\n    end\nend\nif <not <<<(x) < [-239]> and <(x2) < [-239]>> or <<[239] < (x)> and <[239] < (x2)>>>> then\n    if <not <<<(y) < [-179]> and <(y2) < [-179]>> or <<[179] < (y)> and <[179] < (y2)>>>> then\n        pen up\n        go to x: (x) y: (y)\n        set pen size to (太さ)\n        pen down\n        go to x: (x2) y: (y2)\n    end\nend\n\ndefine 裏面なしの線を引く (ｘ) (ｙ) (ｚ) 、 (ｘ２) (ｙ２) (z2) 太さ (太さ) モード (0～4)\n二次元化 (ｘ) (ｙ) (ｚ) 、 (ｘ２) (ｙ２) (z2) 線を引く [0] 太さ (太さ)\nif <<<(x) < (x2)> and <not <(0～4) = [3]>>> and <not <(0～4) = [4]>>> then\n    if <(0～4) = [1]> then\n        if <(ｙ) < ((カメラ歪みy) + (((ｙ) - (カメラ歪みy)) * (((視力) - (ｚ)) / (視力))))> then\n            線を引く (x) (y) 、 (x2) (y2) 太さ (太さ)\n        end\n    end\n    if <(0～4) = [2]> then\n        if <((カメラ歪みy) + (((ｙ) - (カメラ歪みy)) * (((視力) - (ｚ)) / (視力)))) < (ｙ)> then\n            線を引く (x) (y) 、 (x2) (y2) 太さ (太さ)\n        end\n    end\n    if <(0～4) = [0]> then\n        線を引く (x) (y) 、 (x2) (y2) 太さ (太さ)\n    end\nend\nif <(0～4) = [3]> then\n    if <(ｙ) < (y)> then\n        線を引く (x) (y) 、 (x2) (y2) 太さ (太さ)\n    end\nend\nif <(0～4) = [4]> then\n    if <(y) < (ｙ)> then\n        線を引く (x) (y) 、 (x2) (y2) 太さ (太さ)\n    end\nend\n\ndefine 壁 (縦) ✖ (横) を (ｘ) 、 (ｙ) 、に作る (色) 色\nif <<[360] > ([abs v] of (ｘ) )> or <[360] > ([abs v] of ((ｘ) + (横)) )>> then\n    if <(色) = [1]> then\n        set pen color to (#fdba47)\n    end\n    if <(色) = [2]> then\n        set pen color to (#ff8c00)\n        set pen (saturation v) to (40)\n    end\n    if <(色) = [3]> then\n        set pen color to (#0077ff)\n        set pen (saturation v) to (40)\n    end\n    if <(色) = [4]> then\n        set pen color to (#ff0000)\n        set pen (color v) to ((10) - ((10) * ((2) * ([abs v] of ((動くブロック) - (0.5)) ))))\n        set pen (saturation v) to (40)\n        set pen (brightness v) to (100)\n    end\n    if <(色) = [5]> then\n        set pen color to (#e60973)\n        set pen (saturation v) to (40)\n        set pen (brightness v) to (100)\n    end\n    if <(色) = [6]> then\n        set pen color to (#0943e6)\n        set pen (saturation v) to (40)\n        set pen (brightness v) to (100)\n    end\n    if <(ステージ) = [3]> then\n        set pen (brightness v) to (60)\n    end\n    add (色) to [色 v]\n    add (色) to [色 v]\n    add (色) to [色 v]\n    add (色) to [色 v]\n    add ((ｘ) - ((太さ) / (1))) to [x v]\n    add ((ｙ) - ((太さ) / (2))) to [y v]\n    add (((ｘ) + (横)) + ((太さ) / (1))) to [x2 v]\n    add ((ｙ) - ((太さ) / (2))) to [y2 v]\n    add (((ｘ) + (横)) + ((太さ) / (1))) to [x v]\n    add (((ｙ) + (縦)) + ((太さ) / (2))) to [y v]\n    add (((ｘ) + (横)) + ((太さ) / (1))) to [x2 v]\n    add ((ｙ) - ((太さ) / (2))) to [y2 v]\n    add ((ｘ) - ((太さ) / (1))) to [x v]\n    add (((ｙ) + (縦)) + ((太さ) / (2))) to [y v]\n    add (((ｘ) + (横)) + ((太さ) / (1))) to [x2 v]\n    add (((ｙ) + (縦)) + ((太さ) / (2))) to [y2 v]\n    add ((ｘ) - ((太さ) / (1))) to [x v]\n    add (((ｙ) + (縦)) + ((太さ) / (2))) to [y v]\n    add ((ｘ) - ((太さ) / (1))) to [x2 v]\n    add ((ｙ) - ((太さ) / (2))) to [y2 v]\n    set [塗りつぶし用変数 v] to [0]\n    repeat ([abs v] of ([floor v] of (((ｙ) - ((カメラ歪みy) + (((ｙ) - (カメラ歪みy)) * (((視力) - (100)) / (視力))))) / (太さ)) ) )\n        change [塗りつぶし用変数 v] by (太さ)\n        二次元化 (ｘ) (ｙ) [100] 、 [] [] [100] 線を引く [0] 太さ []\n        set [変化の割合 v] to (((ｙ) - (y)) / ((ｘ) - (x)))\n        set [切片 v] to ((y) - ((変化の割合) * (x)))\n        二次元化 ((ｘ) + (横)) (ｙ) [100] 、 [] [] [] 線を引く [] 太さ []\n        set [変化の割合２ v] to (((ｙ) - (y)) / (((ｘ) + (横)) - (x)))\n        set [切片２ v] to ((y) - ((変化の割合２) * (x)))\n        裏面なしの線を引く ((((ｙ) - (塗りつぶし用変数)) - (切片)) / (変化の割合)) ((ｙ) - (塗りつぶし用変数)) [0.01] 、 ((((ｙ) - (塗りつぶし用変数)) - (切片２)) / (変化の割合２)) ((ｙ) - (塗りつぶし用変数)) [0.01] 太さ (太さ) モード [2]\n    end\n    set [塗りつぶし用変数 v] to [0]\n    if <(色) = [1]> then\n        set pen color to (#8ffd47)\n        if <(ステージ) = [3]> then\n            set pen (brightness v) to (60)\n        end\n    end\n    repeat ([abs v] of ([floor v] of ((((ｙ) + (縦)) - ((カメラ歪みy) + ((((ｙ) + (縦)) - (カメラ歪みy)) * (((視力) - (100)) / (視力))))) / (太さ)) ) )\n        二次元化 (ｘ) ((ｙ) + (縦)) [100] 、 [] [] [100] 線を引く [0] 太さ []\n        set [変化の割合 v] to ((((ｙ) + (縦)) - (y)) / ((ｘ) - (x)))\n        set [切片 v] to ((y) - ((変化の割合) * (x)))\n        二次元化 ((ｘ) + (横)) ((ｙ) + (縦)) [100] 、 [] [] [] 線を引く [] 太さ []\n        set [変化の割合２ v] to ((((ｙ) + (縦)) - (y)) / (((ｘ) + (横)) - (x)))\n        set [切片２ v] to ((y) - ((変化の割合２) * (x)))\n        裏面なしの線を引く (((((ｙ) + (縦)) - (塗りつぶし用変数)) - (切片)) / (変化の割合)) (((ｙ) + (縦)) - (塗りつぶし用変数)) [0.001] 、 (((((ｙ) + (縦)) - (塗りつぶし用変数)) - (切片２)) / (変化の割合２)) (((ｙ) + (縦)) - (塗りつぶし用変数)) [0.001] 太さ (太さ) モード [1]\n        change [塗りつぶし用変数 v] by ((-1) * (太さ))\n    end\n    if <(色) = [1]> then\n        set pen color to (#fdba47)\n        if <(ステージ) = [3]> then\n            set pen (brightness v) to (60)\n        end\n    end\n    set [塗りつぶし用変数 v] to [0]\n    repeat (([floor v] of ((縦) / (太さ)) ) + (1))\n        裏面なしの線を引く (ｘ) (((ｙ) + (縦)) - (塗りつぶし用変数)) [100] 、 (ｘ) (((ｙ) + (縦)) - (塗りつぶし用変数)) [0] 太さ (太さ) モード [0]\n        change [塗りつぶし用変数 v] by (太さ)\n    end\n    set [塗りつぶし用変数 v] to [0]\n    裏面なしの線を引く (ｘ) (ｙ) [100] 、 (ｘ) (ｙ) [0] 太さ (太さ) モード [0]\n    repeat (([floor v] of ((縦) / (太さ)) ) + (1))\n        裏面なしの線を引く ((ｘ) + (横)) (((ｙ) + (縦)) - (塗りつぶし用変数)) [0] 、 ((ｘ) + (横)) (((ｙ) + (縦)) - (塗りつぶし用変数)) [100] 太さ (太さ) モード [0]\n        change [塗りつぶし用変数 v] by (太さ)\n    end\n    裏面なしの線を引く ((ｘ) + (横)) (ｙ) [100] 、 ((ｘ) + (横)) (ｙ) [0] 太さ (太さ) モード [2]\n    set [塗りつぶし用変数 v] to [0]\n    repeat (([floor v] of ((縦) / (太さ)) ) + (1))\n        裏面なしの線を引く (ｘ) (((ｙ) + (縦)) - (塗りつぶし用変数)) [0] 、 ((ｘ) + (横)) (((ｙ) + (縦)) - (塗りつぶし用変数)) [0] 太さ (太さ) モード [0]\n        change [塗りつぶし用変数 v] by (太さ)\n    end\n    裏面なしの線を引く (ｘ) (ｙ) [0] 、 ((ｘ) + (横)) (ｙ) [0] 太さ (太さ) モード [0]\n    change pen (saturation v) by (70)\n    裏面なしの線を引く (ｘ) (ｙ) [100] 、 (ｘ) ((ｙ) + (縦)) [99.999] 太さ (太さ) モード [0]\n    if <(色) = [1]> then\n        set pen color to (#8af544)\n        change pen (saturation v) by (70)\n        if <(ステージ) = [3]> then\n            set pen (brightness v) to (60)\n        end\n    end\n    裏面なしの線を引く (ｘ) ((ｙ) + (縦)) [100] 、 (ｘ) ((ｙ) + (縦)) [0.001] 太さ (太さ) モード [0]\n    if <(色) = [1]> then\n        set pen color to (#fdba47)\n        change pen (saturation v) by (70)\n        if <(ステージ) = [3]> then\n            set pen (brightness v) to (60)\n        end\n    end\n    裏面なしの線を引く (ｘ) (ｙ) [100] 、 (ｘ) (ｙ) [0.001] 太さ (太さ) モード [0]\n    裏面なしの線を引く (ｘ) (ｙ) [100] 、 ((ｘ) + (横)) (ｙ) [100] 太さ (太さ) モード [4]\n    裏面なしの線を引く ((ｘ) + (横)) (ｙ) [0.001] 、 ((ｘ) + (横)) (ｙ) [100] 太さ (太さ) モード [0]\n    裏面なしの線を引く ((ｘ) + (横)) (ｙ) [99.999] 、 ((ｘ) + (横)) ((ｙ) + (縦)) [100] 太さ (太さ) モード [0]\n    裏面なしの線を引く ((ｘ) + (横)) (ｙ) [100] 、 (ｘ) (ｙ) [100] 太さ (太さ) モード [4]\n    if <(色) = [1]> then\n        set pen color to (#8af544)\n        change pen (saturation v) by (70)\n        if <(ステージ) = [3]> then\n            set pen (brightness v) to (60)\n        end\n    end\n    裏面なしの線を引く ((ｘ) + (横)) ((ｙ) + (縦)) [0.001] 、 ((ｘ) + (横)) ((ｙ) + (縦)) [100] 太さ (太さ) モード [0]\n    if <(色) = [1]> then\n        set pen color to (#fdba47)\n        change pen (saturation v) by (70)\n        if <(ステージ) = [3]> then\n            set pen (brightness v) to (60)\n        end\n    end\n    二次元化 (ｘ) (ｙ) [0] 、 (ｘ) ((ｙ) + (縦)) [0] 線を引く [1] 太さ (太さ)\n    二次元化 (ｘ) (ｙ) [0] 、 ((ｘ) + (横)) (ｙ) [0] 線を引く [1] 太さ (太さ)\n    裏面なしの線を引く (ｘ) (ｙ) [0.001] 、 (ｘ) (ｙ) [100] 太さ (太さ) モード [4]\n    裏面なしの線を引く ((ｘ) + (横)) (ｙ) [0.001] 、 ((ｘ) + (横)) (ｙ) [100] 太さ (太さ) モード [4]\n    二次元化 ((ｘ) + (横)) (ｙ) [0] 、 ((ｘ) + (横)) ((ｙ) + (縦)) [0] 線を引く [1] 太さ (太さ)\n    if <(色) = [1]> then\n        set pen color to (#8af544)\n        change pen (saturation v) by (70)\n        if <(ステージ) = [3]> then\n            set pen (brightness v) to (60)\n        end\n    end\n    二次元化 (ｘ) ((ｙ) + (縦)) [0] 、 ((ｘ) + (横)) ((ｙ) + (縦)) [0] 線を引く [1] 太さ (太さ)\n    裏面なしの線を引く ((ｘ) + (横)) ((ｙ) + (縦)) [0.001] 、 ((ｘ) + (横)) ((ｙ) + (縦)) [100] 太さ (太さ) モード [3]\n    裏面なしの線を引く (ｘ) ((ｙ) + (縦)) [100] 、 ((ｘ) + (横)) ((ｙ) + (縦)) [100] 太さ (太さ) モード [3]\n    裏面なしの線を引く (ｘ) ((ｙ) + (縦)) [0.001] 、 (ｘ) ((ｙ) + (縦)) [100] 太さ (太さ) モード [3]\n    if <(色) = [1]> then\n        set pen color to (#fdba47)\n        change pen (saturation v) by (70)\n        if <(ステージ) = [3]> then\n            set pen (brightness v) to (60)\n        end\n    end\n    change pen (saturation v) by (-70)\nend\n\ndefine 二次元化 (ｘ) (ｙ) (ｚ) 、 (ｘ２) (ｙ２) (ｚ２) 線を引く (0or1) 太さ (太さ)\nset [x v] to ((ｘ) * (((視力) - (ｚ)) / (視力)))\nset [y v] to ((カメラ歪みy) + (((ｙ) - (カメラ歪みy)) * (((視力) - (ｚ)) / (視力))))\nset [x2 v] to ((ｘ２) * (((視力) - (ｚ２)) / (視力)))\nset [y2 v] to ((カメラ歪みy) + (((ｙ２) - (カメラ歪みy)) * (((視力) - (ｚ２)) / (視力))))\nif <(((視力) - (ｚ)) / (視力)) < [0]> then\n    set [x v] to [0]\n    set [y v] to (カメラ歪みy)\nend\nif <(((視力) - (ｚ２)) / (視力)) < [0]> then\n    set [x2 v] to [0]\n    set [y2 v] to (カメラ歪みy)\nend\nif <(0or1) = [1]> then\n    線を引く (x) (y) 、 (x2) (y2) 太さ (太さ)\nend\n\ndefine 描画\nset [当たり判定 v] to [0]\ngo to x: (0) y: (0)\nerase all\n背景描画\nset pen color to (#390be6)\nset pen (brightness v) to (100)\nset pen (saturation v) to (40)\nset pen (color v) to (115)\ndelete all of [x v]\ndelete all of [x2 v]\ndelete all of [y v]\ndelete all of [y2 v]\ndelete all of [色 v]\nif <(ステージ) = [1]> then\n    壁 [50] ✖ [300] を ((0) - (カメラ横)) 、 ((0) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [200] を ((500) - (カメラ横)) 、 ((0) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [150] を ((850) - (カメラ横)) 、 ((100) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [600] を ((1200) - (カメラ横)) 、 ((100) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [50] を ((1350) - (カメラ横)) 、 ((150) - (カメラ縦)) 、に作る [4] 色\n    壁 [50] ✖ [50] を ((1550) - (カメラ横)) 、 ((150) - (カメラ縦)) 、に作る [4] 色\n    壁 [50] ✖ [100] を ((1950) - (カメラ横)) 、 ((200) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((2200) - (カメラ横)) 、 ((300) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((2650) - (カメラ横)) 、 ((300) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((2450) - (カメラ横)) 、 ((400) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((2900) - (カメラ横)) 、 ((400) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((3100) - (カメラ横)) 、 ((300) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((3300) - (カメラ横)) 、 ((400) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((3500) - (カメラ横)) 、 ((500) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [200] を ((3850) - (カメラ横)) 、 ((500) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [200] を ((4150) - (カメラ横)) 、 ((500) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [50] を ((4250) - (カメラ横)) 、 ((650) - (カメラ縦)) 、に作る [3] 色\nend\nif <(ステージ) = [2]> then\n    壁 [50] ✖ [300] を ((0) - (カメラ横)) 、 ((0) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((400) - (カメラ横)) 、 ((100) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [425] を ((725) - (カメラ横)) 、 ((0) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((1250) - (カメラ横)) 、 ((100) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((600) - (カメラ横)) 、 ((200) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((1050) - (カメラ横)) 、 ((200) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((1250) - (カメラ横)) 、 ((300) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((1500) - (カメラ横)) 、 ((300) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [200] を ((1600) - (カメラ横)) 、 ((100) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [200] を ((1950) - (カメラ横)) 、 ((100) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [200] を ((2350) - (カメラ横)) 、 ((200) - (カメラ縦)) 、に作る [4] 色\n    壁 [50] ✖ [100] を ((2200) - (カメラ横)) 、 ((200) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((2000) - (カメラ横)) 、 ((300) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [300] を ((2300) - (カメラ横)) 、 ((400) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((2650) - (カメラ横)) 、 ((200) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [200] を ((2700) - (カメラ横)) 、 ((450) - (カメラ縦)) 、に作る [4] 色\n    壁 [50] ✖ [100] を ((2850) - (カメラ横)) 、 ((200) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((3050) - (カメラ横)) 、 ((300) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [200] を ((3200) - (カメラ横)) 、 ((400) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [200] を ((3600) - (カメラ横)) 、 ((200) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((3900) - (カメラ横)) 、 ((300) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((3800) - (カメラ横)) 、 ((425) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((4150) - (カメラ横)) 、 ((450) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [50] を ((4600) - (カメラ横)) 、 ((100) - (カメラ縦)) 、に作る [3] 色\n    壁 [50] ✖ [300] を ((4350) - (カメラ横)) 、 ((250) - (カメラ縦)) 、に作る [1] 色\n    set [太さ v] to [50]\n    set pen color to (#ff0000)\n    set pen (color v) to ((10) - ((10) * ((2) * ([abs v] of ((動くブロック) - (0.5)) ))))\n    set pen (saturation v) to (80)\n    set pen (brightness v) to (100)\n    線を引く (((-100) - (カメラ横)) + ((マグマ移動) * (6))) [180] 、 (((-100) - (カメラ横)) + ((マグマ移動) * (6))) [-180] 太さ (太さ)\n    add [4] to [色 v]\n    add [なにか] to [x v]\n    add (((-100) - (カメラ横)) + ((マグマ移動) * (6))) to [y v]\n    add (((-100) - (カメラ横)) + ((マグマ移動) * (6))) to [x2 v]\n    add [-180] to [y2 v]\n    set [太さ v] to [16]\nend\nif <(ステージ) = [3]> then\n    壁 [50] ✖ [300] を ((0) - (カメラ横)) 、 ((0) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((450) - (カメラ横)) 、 ((100) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を (((700) - (カメラ横)) + ((100) * (動くブロック))) 、 ((100) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を (((1200) - (カメラ横)) + ((-100) * (動くブロック))) 、 ((100) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((1400) - (カメラ横)) 、 (((-500) - (カメラ縦)) + ((600) * (動くブロック))) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((1400) - (カメラ横)) 、 ((-100) - (カメラ縦)) 、に作る [4] 色\n    壁 [50] ✖ [50] を ((1850) - (カメラ横)) 、 (((250) - (カメラ縦)) + ((100) * (動くブロック))) 、に作る [4] 色\n    壁 [50] ✖ [50] を ((1850) - (カメラ横)) 、 (((200) - (カメラ縦)) + ((-100) * (動くブロック))) 、に作る [4] 色\n    壁 [50] ✖ [100] を ((1700) - (カメラ横)) 、 ((100) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [500] を ((2000) - (カメラ横)) 、 ((100) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [50] を (((2250) - (カメラ横)) + ((200) * (動くブロック))) 、 ((150) - (カメラ縦)) 、に作る [4] 色\n    壁 [50] ✖ [50] を (((2300) - (カメラ横)) + ((-200) * (動くブロック))) 、 ((150) - (カメラ縦)) 、に作る [4] 色\n    壁 [50] ✖ [100] を (((2750) - (カメラ横)) + ((-100) * (動くブロック))) 、 ((100) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [400] を ((3000) - (カメラ横)) 、 ((100) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((3600) - (カメラ横)) 、 ((100) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [50] を ((3700) - (カメラ横)) 、 ((150) - (カメラ縦)) 、に作る [4] 色\n    壁 [50] ✖ [100] を ((3850) - (カメラ横)) 、 ((100) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((4100) - (カメラ横)) 、 ((100) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((4300) - (カメラ横)) 、 ((200) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((4100) - (カメラ横)) 、 ((300) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((4300) - (カメラ横)) 、 ((425) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [100] を ((4500) - (カメラ横)) 、 ((500) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [50] を ((4600) - (カメラ横)) 、 ((550) - (カメラ縦)) 、に作る [4] 色\n    壁 [50] ✖ [100] を ((4700) - (カメラ横)) 、 ((600) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [350] を ((4900) - (カメラ横)) 、 ((600) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [200] を ((5350) - (カメラ横)) 、 ((600) - (カメラ縦)) 、に作る [1] 色\n    壁 [200] ✖ [50] を ((5350) - (カメラ横)) 、 (((650) - (カメラ縦)) + ((200) * (動くブロック))) 、に作る [1] 色\n    壁 [50] ✖ [400] を ((5700) - (カメラ横)) 、 ((600) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [400] を ((6100) - (カメラ横)) 、 ((650) - (カメラ縦)) 、に作る [1] 色\n    壁 [50] ✖ [400] を ((6500) - (カメラ横)) 、 ((700) - (カメラ縦)) 、に作る [1] 色\n    壁 [100] ✖ [100] を ((7000) - (カメラ横)) 、 ((800) - (カメラ縦)) 、に作る [3] 色\nend\n\ndefine 移動\nif <(操作可能) = [1]> then\n    set [ジャンプする v] to [0]\n    set [移動する v] to [0]\n    if <mouse down?> then\n        if <[10] < (mouse y)> then\n            set [ジャンプする v] to [1]\n        end\n        if <[20] < ([abs v] of (mouse x) )> then\n            if <[0] < (mouse x)> then\n                set [移動する v] to [1]\n            else\n                set [移動する v] to [2]\n            end\n        end\n    end\n    set [当たり判定 v] to [0]\n    当たり判定\n    if <(当たり判定) = [1]> then\n        change [プレーヤー縦 v] by (20)\n        set [当たり判定 v] to [0]\n        当たり判定\n        if <(当たり判定) = [0]> then\n            change [プレーヤー縦 v] by (-20)\n            set [当たり判定 v] to [0]\n            当たり判定\n            repeat until <(当たり判定) = [0]>\n                change [プレーヤー縦 v] by (1)\n                change [カメラ縦 v] by (1)\n                set [当たり判定 v] to [0]\n                当たり判定\n            end\n        else\n            change [プレーヤー縦 v] by (-20)\n            repeat until <(当たり判定) = [0]>\n                change [プレーヤー横 v] by ((-1) * (進んでいる方向))\n                set [当たり判定 v] to [0]\n                当たり判定\n            end\n            change [カメラ横 v] by (プレーヤー横)\n            change [カメラ縦 v] by (プレーヤー縦)\n            set [歩行加速 v] to [0]\n        end\n    end\n    change [プレーヤー縦 v] by (-3)\n    set [当たり判定 v] to [0]\n    当たり判定\n    if <(当たり判定) = [1]> then\n        change [プレーヤー縦 v] by (3)\n        change [重力加速 v] by ((-2) * ((重力加速) / ([abs v] of (重力加速) )))\n        change [重力加速 v] by ((-2) * ((重力加速) / ([abs v] of (重力加速) )))\n        change [重力加速 v] by ((-2) * ((重力加速) / ([abs v] of (重力加速) )))\n        if <<key (up arrow v) pressed?> or <(ジャンプする) = [1]>> then\n            set [重力加速 v] to [20]\n            change [プレーヤー縦 v] by (重力加速)\n            set [当たり判定 v] to [0]\n            当たり判定\n            if <(当たり判定) = [0]> then\n                start sound [Jump2 v]\n                change [カメラ縦 v] by (プレーヤー縦)\n            else\n                set [重力加速 v] to [0]\n            end\n        end\n    else\n        change [プレーヤー縦 v] by (3)\n        if <[-16] < (重力加速)> then\n            change [重力加速 v] by (-2)\n        end\n        change [プレーヤー縦 v] by (重力加速)\n        set [当たり判定 v] to [0]\n        当たり判定\n        if <(当たり判定) = [1]> then\n            repeat until <(当たり判定) = [0]>\n                set [当たり判定 v] to [0]\n                当たり判定\n                change [プレーヤー縦 v] by ((-1) * (ジャンプした))\n            end\n            change [重力加速 v] by ((-2) * ((重力加速) / ([abs v] of (重力加速) )))\n            change [重力加速 v] by ((-2) * ((重力加速) / ([abs v] of (重力加速) )))\n            change [重力加速 v] by ((-2) * ((重力加速) / ([abs v] of (重力加速) )))\n        end\n        change [カメラ縦 v] by (プレーヤー縦)\n    end\n    if <[0] < (重力加速)> then\n        set [ジャンプした v] to [1]\n    end\n    if <(重力加速) < [0]> then\n        set [ジャンプした v] to [-1]\n    end\n    set [プレーヤー縦 v] to [0]\n    set [当たり判定 v] to [0]\n    当たり判定\n    if <<key (right arrow v) pressed?> or <(移動する) = [1]>> then\n        set [向き v] to [1]\n        if <(歩行加速) < [12]> then\n            change [歩行加速 v] by (1)\n        end\n    end\n    if <<key (left arrow v) pressed?> or <(移動する) = [2]>> then\n        set [向き v] to [-1]\n        if <[-12] < (歩行加速)> then\n            change [歩行加速 v] by (-1)\n        end\n    end\n    if <[0] < (歩行加速)> then\n        set [進んでいる方向 v] to [1]\n    end\n    if <(歩行加速) < [0]> then\n        set [進んでいる方向 v] to [-1]\n    end\n    repeat (1)\n        if <not <<<key (right arrow v) pressed?> or <(移動する) = [1]>> or <<key (left arrow v) pressed?> or <(移動する) = [2]>>>> then\n            change [歩行加速 v] by ((-1) * (([abs v] of (歩行加速) ) / (歩行加速)))\n        else\n            if <<key (right arrow v) pressed?> and <key (left arrow v) pressed?>> then\n                change [歩行加速 v] by ((-1) * (([abs v] of (歩行加速) ) / (歩行加速)))\n            end\n        end\n    end\n    change [カメラ横 v] by (歩行加速)\n    set [当たり判定 v] to [0]\n    set [プレーヤー横 v] to [0]\n    set [プレーヤー縦 v] to [0]\n    set [プレーヤーの圧縮 v] to ((((1.5) - ((重力加速) / (15))) * (50)) + (25))\n    if <(カメラ縦) < [-200]> then\n        broadcast (ゲームオーバー v)\n    end\nend\n\ndefine 当たり判定 (ｘ) (y) 、 (ｘ２) (ｙ２)\nset [変化の割合 v] to (((y) - (ｙ２)) / ((ｘ) - (ｘ２)))\nset [切片 v] to ((y) - ((変化の割合) * (ｘ)))\nset [当たり判定用変数 v] to [0]\nrepeat (length of [x v])\n    change [当たり判定用変数 v] by (1)\n    if <(item (当たり判定用変数) of [x v]) = (item (当たり判定用変数) of [x2 v])> then\n        if <not <(ｘ) = (ｘ２)>> then\n            set [y v] to (((変化の割合) * (item (当たり判定用変数) of [x v])) + (切片))\n            set [x v] to (item (当たり判定用変数) of [x v])\n            if <(y) < ((((item (当たり判定用変数) of [y2 v]) + (item (当たり判定用変数) of [y v])) / (2)) + (([abs v] of ((item (当たり判定用変数) of [y2 v]) - (item (当たり判定用変数) of [y v])) ) / (2)))> then\n                if <(y) > ((((item (当たり判定用変数) of [y2 v]) + (item (当たり判定用変数) of [y v])) / (2)) - (([abs v] of ((item (当たり判定用変数) of [y2 v]) - (item (当たり判定用変数) of [y v])) ) / (2)))> then\n                    if <(x) > ((((ｘ２) + (ｘ)) / (2)) - (([abs v] of ((ｘ２) - (ｘ)) ) / (2)))> then\n                        if <(x) < ((((ｘ２) + (ｘ)) / (2)) + (([abs v] of ((ｘ２) - (ｘ)) ) / (2)))> then\n                            set [当たり判定 v] to [1]\n                            if <(item (当たり判定用変数) of [色 v]) = [4]> then\n                                broadcast (ゲームオーバー v)\n                            end\n                            if <(item (当たり判定用変数) of [色 v]) = [3]> then\n                                broadcast (次のステージ v)\n                                stop [this script v]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    else\n        set [変化の割合２ v] to (((item (当たり判定用変数) of [y v]) - (item (当たり判定用変数) of [y2 v])) / ((item (当たり判定用変数) of [x v]) - (item (当たり判定用変数) of [x2 v])))\n        set [切片２ v] to ((item (当たり判定用変数) of [y v]) - ((変化の割合２) * (item (当たり判定用変数) of [x v])))\n        set [x v] to (((切片２) - (切片)) / ((変化の割合) - (変化の割合２)))\n        set [y v] to (((変化の割合) * (x)) + (切片))\n        if <(y) < ((((y) + (ｙ２)) / (2)) + (([abs v] of ((y) - (ｙ２)) ) / (2)))> then\n            if <(y) > ((((y) + (ｙ２)) / (2)) - (([abs v] of ((y) - (ｙ２)) ) / (2)))> then\n                if <(x) < ((((item (当たり判定用変数) of [x v]) + (item (当たり判定用変数) of [x2 v])) / (2)) + (([abs v] of ((item (当たり判定用変数) of [x v]) - (item (当たり判定用変数) of [x2 v])) ) / (2)))> then\n                    if <(x) > ((((item (当たり判定用変数) of [x v]) + (item (当たり判定用変数) of [x2 v])) / (2)) - (([abs v] of ((item (当たり判定用変数) of [x v]) - (item (当たり判定用変数) of [x2 v])) ) / (2)))> then\n                        set [当たり判定 v] to [1]\n                        if <(item (当たり判定用変数) of [色 v]) = [4]> then\n                            broadcast (ゲームオーバー v)\n                        end\n                        if <(item (当たり判定用変数) of [色 v]) = [3]> then\n                            broadcast (次のステージ v)\n                            stop [this script v]\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine プレーヤー\npen up\ngo to x: (0) y: (0)\nset pen color to (#6898ff)\nset pen size to (3)\npoint in direction (0)\npen up\nrepeat (180)\n    move ((プレーヤーの大きさ) + (2)) steps\n    set y to ((y position) * ((プレーヤーの圧縮) / (100)))\n    pen down\n    go to x: (0) y: (0)\n    turn right (2) degrees\n    pen up\nend\npen up\nset pen color to (#00d8ff)\npoint in direction (0)\nrepeat (180)\n    move (プレーヤーの大きさ) steps\n    set y to ((y position) * ((プレーヤーの圧縮) / (100)))\n    pen down\n    go to x: (0) y: (0)\n    turn right (2) degrees\n    pen up\nend\ngo to x: (0) y: (0)\npoint in direction (90)\nmove ((8) * (向き)) steps\nchange y by (4)\nset y to ((y position) * ((プレーヤーの圧縮) / (100)))\nset pen color to (#ffffff)\nset pen size to (14)\npen down\npen up\nset pen color to (#000000)\nset pen size to (8)\npen down\npen up\ngo to x: (0) y: (0)\npoint in direction (90)\nmove ((14) * (向き)) steps\nchange y by (-6)\nset y to ((y position) * ((プレーヤーの圧縮) / (100)))\ninsert (カメラ横) at (1) of [プレーヤーの位置x v] \ninsert (カメラ縦) at (1) of [プレーヤーの位置ｙ v] \ninsert (向き) at (1) of [プレーヤー向き v] \ninsert (プレーヤーの圧縮) at (1) of [プレーヤー圧縮 v] \n\ndefine 当たり判定\n当たり判定 ((プレーヤー横) - (プレーヤーの大きさ)) (プレーヤー縦) 、 (プレーヤー横) ((プレーヤー縦) - (プレーヤーの大きさ))\n当たり判定 ((プレーヤー横) + (プレーヤーの大きさ)) (プレーヤー縦) 、 (プレーヤー横) ((プレーヤー縦) - (プレーヤーの大きさ))\n当たり判定 ((プレーヤー横) - (プレーヤーの大きさ)) (プレーヤー縦) 、 ((プレーヤー横) + (4)) ((プレーヤー縦) + (プレーヤーの大きさ))\n当たり判定 ((プレーヤー横) + (プレーヤーの大きさ)) (プレーヤー縦) 、 ((プレーヤー横) - (4)) ((プレーヤー縦) + (プレーヤーの大きさ))\n\ndefine 雲描画\nchange [雲のｘ v] by (-2)\nset pen color to (#ababab)\n線を引く (雲のｘ) (雲のY) 、 ((雲のｘ) + (120)) (雲のY) 太さ [30]\n線を引く ((雲のｘ) + (20)) ((雲のY) + (20)) 、 ((雲のｘ) + (100)) ((雲のY) + (20)) 太さ [30]\nif <(雲のｘ) < [-400]> then\n    set [雲のｘ v] to [300]\n    set [雲のy v] to (pick random (50) to (130))\nend\nchange [雲２ｘ v] by (-2)\n線を引く (雲２ｘ) (雲２ｙ) 、 ((雲２ｘ) + (120)) (雲２ｙ) 太さ [30]\n線を引く ((雲２ｘ) + (20)) ((雲２ｙ) + (20)) 、 ((雲２ｘ) + (100)) ((雲２ｙ) + (20)) 太さ [30]\nif <(雲２ｘ) < [-400]> then\n    set [雲２ｘ v] to [300]\n    set [雲２ｙ v] to (pick random (50) to (130))\nend\nif <(ステージ) = [2]> then\n    set pen color to (#ffffff)\nelse\n    if <(ステージ) = [3]> then\n        set pen color to (#c2c2c2)\n    else\n        set pen color to (#ffffff)\n    end\nend\n線を引く ((雲のｘ) - (3)) ((雲のY) + (3)) 、 (((雲のｘ) + (120)) - (3)) ((雲のY) + (3)) 太さ [30]\n線を引く (((雲のｘ) + (20)) - (3)) (((雲のY) + (20)) + (3)) 、 (((雲のｘ) + (100)) - (3)) (((雲のY) + (20)) + (3)) 太さ [30]\n線を引く ((雲２ｘ) - (3)) ((雲２ｙ) + (3)) 、 (((雲２ｘ) + (120)) - (3)) ((雲２ｙ) + (3)) 太さ [30]\n線を引く (((雲２ｘ) + (20)) - (3)) (((雲２ｙ) + (20)) + (3)) 、 (((雲２ｘ) + (100)) - (3)) (((雲２ｙ) + (20)) + (3)) 太さ [30]\n\ndefine 枠\npen up\nset pen color to (#ffffff)\nset pen size to (16)\ngo to x: (-240) y: (-180)\npoint in direction (90)\npen down\nrepeat (2)\n    move (480) steps\n    turn left (90) degrees\n    move (360) steps\n    turn left (90) degrees\nend\npen up\n\nwhen I receive [ゲームオーバー v]\nset [操作可能 v] to [0]\nset [マグマ移動 v] to [0]\nset [ゲームオーバーｘ v] to ((カメラ横) - (50))\nset [ゲームオーバーｙ v] to ((カメラ縦) - (50))\nrepeat until <<([abs v] of ((カメラ縦) - (100)) ) < [10]> and <([abs v] of ((カメラ横) - (100)) ) < [10]>>\n    set [カメラ横 v] to ((ゲームオーバーｘ) + (100))\n    set [カメラ縦 v] to ((ゲームオーバーｙ) + (100))\n    set [マグマ移動 v] to [0]\n    set [重力加速 v] to [0]\n    set [歩行加速 v] to [0]\n    描画\n    枠\n    if <[300] < (round ((ゲームオーバーｘ) * (0.1)))> then\n        set [ゲームオーバーｘ v] to ((ゲームオーバーｘ) - ((300) * ((ゲームオーバーｘ) / ([abs v] of (ゲームオーバーｘ) ))))\n        set [ゲームオーバーｙ v] to ((ゲームオーバーｙ) * (0.99))\n    else\n        set [ゲームオーバーｘ v] to (round ((ゲームオーバーｘ) * (0.9)))\n        set [ゲームオーバーｙ v] to (round ((ゲームオーバーｙ) * (0.9)))\n    end\nend\nset [カメラ横 v] to [100]\nset [カメラ縦 v] to [100]\nset [マグマ移動 v] to [0]\nset [操作可能 v] to [1]\n\ndefine 繰り返す\n描画\n移動\nプレーヤー\n悪魔作成\n枠\nマグマ移動\n\nchange [fps計算 v] by (1)\nif <[9] < (fps計算)> then\n    set [fps v] to ((1) / (((timer) - (タイマー)) / (10)))\n    set [タイマー v] to (timer)\n    set [fps計算 v] to [0]\nend\n\nwhen flag clicked\nreset timer\nstop [other scripts in sprite v]\nset [ステージ v] to [1]\nset [カメラ歪みy v] to [30]\nbroadcast (BGM v)\nbroadcast (スタート v)\nset [動くブロック v] to [0]\n\nwhen I receive [bgm v]\nif <(ステージ) = [3]> then\n    play sound [bgm_maoudamashii_cyber25 v] until done\nelse\n    if <(ステージ) = [2]> then\n        play sound [bgm_maoudamashii_orchestra24 v] until done\n    else\n        play sound [魔王魂 音楽 v] until done\n    end\nend\nbroadcast (BGM v)\n\nwhen I receive [次のステージ v]\nif <[1] < (timer)> then\n    stop [other scripts in sprite v]\n    if <(ステージ) = [3]> then\n        stop [other scripts in sprite v]\n        set [☁ clear time v] to (timer)\n        play sound [Win v] until done\n        pen up\n        go to x: (0) y: (0)\n        say [GOAL !!] for (2) seconds\n        forever\n            say (join [Clear time] (☁ Clear time)) for (2) seconds\n            say [Thank you for playing !!] for (2) seconds\n            say [プレイしてくれてありがとう！！] for (2) seconds\n        end\n    else\n        stop [other scripts in sprite v]\n        play sound [Win v] until done\n        pen up\n        go to x: (0) y: (0)\n        set pen color to (#000000)\n        set pen (transparency v) to (100)\n        repeat (40)\n            set pen size to (999)\n            change pen (transparency v) by (-1)\n            pen down\n        end\n        change [ステージ v] by (1)\n        set [プレーヤー縦 v] to [100]\n        set [プレーヤー横 v] to [100]\n        broadcast (スタート v)\n        broadcast (BGM v)\n    end\nend\n\nwhen I receive [スタート v]\nset volume to (40) %\nset [雲のｘ v] to [300]\nset [雲のy v] to (pick random (50) to (140))\nset [雲２ｘ v] to [700]\nset [雲２ｙ v] to (pick random (50) to (140))\nset [視力 v] to [320]\nset pen (transparency v) to (0)\nset [太さ v] to [16]\nset [歩行加速 v] to [0]\nset [向き v] to [1]\nset [進んでいる方向 v] to [1]\nset [カメラ縦 v] to [100]\nset [カメラ横 v] to [100]\nset [重力加速 v] to [0]\nset [歩行加速 v] to [0]\nset [マグマ移動 v] to [0]\nset [プレーヤーの大きさ v] to [16]\nset [操作可能 v] to [1]\nforever\n    繰り返す\nend\n\nwhen I receive [スタート v]\nset [操作可能 v] to [1]\nset [ゲームオーバー v] to [0]\nforever\n    repeat until <[0.999] < (動くブロック)>\n        動くブロック [0]\n    end\n    repeat until <([abs v] of (動くブロック) ) < [0.001]>\n        動くブロック [1]\n    end\nend\n\nwhen I receive [ゲームオーバー v]\nif <(ゲームオーバー) = [0]> then\n    set [ゲームオーバー v] to [1]\n    start sound [Oops2 v]\nend\nwait (1) seconds\nset [ゲームオーバー v] to [0]\n\ndefine 背景描画\nif <(ステージ) = [2]> then\n    set pen color to (#ffae87)\n    set pen size to (999)\n    pen down\nelse\n    if <(ステージ) = [3]> then\n        set pen color to (#000000)\n        set pen size to (999)\n        pen down\n    else\n        set pen color to (#96fff9)\n        set pen size to (999)\n        pen down\n    end\nend\n雲描画\n\ndefine マグマ移動\nchange [マグマ移動 v] by (1)\n\ndefine 動くブロック (数)\nif <(数) = [0]> then\n    set [動くブロック用変数 v] to ((動くブロック) - (1))\n    set [動くブロック v] to (((動くブロック用変数) * (0.9)) + (1))\nelse\n    set [動くブロック v] to ((動くブロック) * (0.9))\nend\n\nset [ステージ v] to [2]\n\ndefine 悪魔 (x) (y) (向き) (圧縮)\nif <<<(ステージ) = [3]> and <[3000] < (カメラ横)>> and <([abs v] of (x) ) < [240]>> then\n    broadcast (悪魔登場 v)\n    pen up\n    go to x: (x) y: (y)\n    set pen color to (#9c68ff)\n    set pen size to (3)\n    point in direction (0)\n    pen up\n    repeat (180)\n        move ((プレーヤーの大きさ) + (2)) steps\n        set y to ((((y position) - (y)) * ((圧縮) / (100))) + (y))\n        pen down\n        go to x: (x) y: (y)\n        turn right (2) degrees\n        pen up\n    end\n    pen up\n    set pen color to (#6700ce)\n    point in direction (0)\n    repeat (180)\n        move (プレーヤーの大きさ) steps\n        set y to ((((y position) - (y)) * ((圧縮) / (100))) + (y))\n        pen down\n        go to x: (x) y: (y)\n        turn right (2) degrees\n        pen up\n    end\n    go to x: (x) y: (y)\n    point in direction (90)\n    move ((8) * (向き)) steps\n    change y by (4)\n    set y to ((((y position) - (y)) * ((圧縮) / (100))) + (y))\n    set pen color to (#ffffff)\n    set pen size to (14)\n    pen down\n    pen up\n    set pen color to (#ff0000)\n    set pen size to (8)\n    pen down\n    pen up\n    go to x: (x) y: (y)\n    point in direction (90)\n    move ((14) * (向き)) steps\n    change y by (-6)\n    set y to ((((y position) - (y)) * ((圧縮) / (100))) + (y))\n    if <([sqrt v] of (((x) * (x)) + ((y) * (y))) ) < [32]> then\n        broadcast (ゲームオーバー v)\n    end\nend\n\ndefine 悪魔作成\nset [悪魔の速さ v] to [20]\n悪魔 ((item (悪魔の速さ) of [プレーヤーの位置x v]) - (カメラ横)) ((item (悪魔の速さ) of [プレーヤーの位置ｙ v]) - (カメラ縦)) (item (悪魔の速さ) of [プレーヤー向き v]) (item (悪魔の速さ) of [プレーヤー圧縮 v])\ndelete (悪魔の速さ) of [プレーヤーの位置x v]\ndelete (悪魔の速さ) of [プレーヤーの位置ｙ v]\ndelete (悪魔の速さ) of [プレーヤー向き v]\ndelete (悪魔の速さ) of [プレーヤー圧縮 v]\n\nset [ステージ v] to [3]\nset [カメラ横 v] to [5000]\nset [カメラ縦 v] to [700]\n\nwhen I receive [スタート v]\nwait (5) seconds\nwait until <<(ステージ) = [3]> and <[3000] < (カメラ横)>>\nplay sound [Dun Dun Dunnn v] until done\n\nwhen I receive [ゲームオーバー v]\nwait (5) seconds\nwait until <<(ステージ) = [3]> and <[3000] < (カメラ横)>>\nplay sound [Dun Dun Dunnn v] until done\n\nset [ステージ v] to [3]\nset [カメラ横 v] to [2750]\nset [カメラ縦 v] to [200]\n\n@1E036E6B-FA51-42BE-B896-02C54521D40E\n\nwhen flag clicked\nhide\n\nshow\nset size to (103) %\n\n