<PC & Mobile> 100% Pen Platformer 2
@Stage\n\n@Pen\n\ndelete all of [x1 v]\ndelete all of [x2 v]\ndelete all of [y1 v]\ndelete all of [y2 v]\ndelete all of [x長さ v]\ndelete all of [y長さ v]\ndelete all of [x中心 v]\ndelete all of [y中心 v]\ndelete all of [色 v]\ndelete all of [太さ v]\nブロック追加 x1 [-100] x2 [100] y1 [-50] y2 [-100] 色 [18943] 太さ [10]\nブロック追加 x1 [250] x2 [300] y1 [-200] y2 [-250] 色 [18943] 太さ [10]\nブロック追加 x1 [400] x2 [450] y1 [-150] y2 [-100] 色 [18943] 太さ [10]\nブロック追加 x1 [550] x2 [600] y1 [-50] y2 [0] 色 [18943] 太さ [10]\nブロック追加 x1 [400] x2 [450] y1 [50] y2 [100] 色 [2490283] 太さ [10]\nブロック追加 x1 [400] x2 [450] y1 [200] y2 [250] 色 [2490283] 太さ [10]\nブロック追加 x1 [550] x2 [600] y1 [350] y2 [400] 色 [18943] 太さ [10]\nブロック追加 x1 [625] x2 [675] y1 [350] y2 [400] 色 [16711680] 太さ [10]\nブロック追加 x1 [700] x2 [750] y1 [350] y2 [400] 色 [18943] 太さ [10]\nブロック追加 x1 [850] x2 [900] y1 [350] y2 [400] 色 [2490283] 太さ [10]\nブロック追加 x1 [1000] x2 [1050] y1 [350] y2 [500] 色 [16711680] 太さ [10]\nブロック追加 x1 [1100] x2 [1200] y1 [350] y2 [450] 色 [18943] 太さ [10]\nブロック追加 x1 [1250] x2 [1325] y1 [350] y2 [475] 色 [16711680] 太さ [10]\nブロック追加 x1 [1375] x2 [1500] y1 [425] y2 [450] 色 [18943] 太さ [10]\nブロック追加 x1 [1550] x2 [1675] y1 [525] y2 [550] 色 [18943] 太さ [10]\nブロック追加 x1 [1375] x2 [1500] y1 [625] y2 [650] 色 [18943] 太さ [10]\nブロック追加 x1 [1375] x2 [1500] y1 [725] y2 [950] 色 [16711680] 太さ [10]\nブロック追加 x1 [1600] x2 [1725] y1 [675] y2 [700] 色 [18943] 太さ [10]\nブロック追加 x1 [1825] x2 [1950] y1 [725] y2 [750] 色 [18943] 太さ [10]\nブロック追加 x1 [1600] x2 [1725] y1 [800] y2 [825] 色 [18943] 太さ [10]\nブロック追加 x1 [1500] x2 [1550] y1 [850] y2 [900] 色 [2490283] 太さ [10]\nブロック追加 x1 [1350] x2 [1200] y1 [800] y2 [850] 色 [18943] 太さ [10]\nブロック追加 x1 [1100] x2 [900] y1 [800] y2 [850] 色 [18943] 太さ [10]\nブロック追加 x1 [900] x2 [950] y1 [850] y2 [1050] 色 [16776960] 太さ [10]\n\ndefine ブロック追加 x1 (x1) x2 (x2) y1 (y1) y2 (y2) 色 (色) 太さ (太さ)\nadd (x1) to [x1 v]\nadd (x2) to [x2 v]\nadd (y1) to [y1 v]\nadd (y2) to [y2 v]\nadd ([abs v] of ((x1) - (((x1) + (x2)) / (2))) ) to [x長さ v]\nadd ([abs v] of ((y1) - (((y1) + (y2)) / (2))) ) to [y長さ v]\nadd (((x1) + (x2)) / (2)) to [x中心 v]\nadd (((y1) + (y2)) / (2)) to [y中心 v]\nadd (色) to [色 v]\nadd (太さ) to [太さ v]\n\nwhen flag clicked\nリセット\nset [くりあ? v] to [0]\nforever\n    if <(くりあ?) = [0]> then\n        change [加速 v] by (<<key (right arrow v) pressed?> or <<(mouse x) > (x position)> and <mouse down?>>> - <<key (left arrow v) pressed?> or <<(x position) > (mouse x)> and <mouse down?>>>)\n        change [x v] by (加速)\n        当たり判定&描写\n        if <<[当たった v] contains [18943]?> or <[当たった v] contains [2490283]?>> then\n            change [x v] by (() - (加速))\n            set [加速 v] to [0]\n        end\n        set [加速 v] to ((加速) * (0.8))\n        change [重力 v] by (-0.75)\n        change [y v] by (重力)\n        当たり判定&描写\n        if <[当たった v] contains [18943]?> then\n            change [y v] by (() - (重力))\n            set [重力 v] to [0]\n        end\n        if <[当たった v] contains [16711680]?> then\n            change [y v] by (() - (重力))\n            set [重力 v] to [20]\n            set [色 v] to [50]\n            repeat until <(y) < [-200]>\n                当たり判定&描写\n                change [重力 v] by (-1.5)\n                change [y v] by (重力)\n                change [カメラy v] by (((y) - (カメラy)) / (6.5))\n            end\n            repeat (25)\n                当たり判定&描写\n                change [重力 v] by (-1.5)\n                change [y v] by (重力)\n                change [カメラy v] by (((y) - (カメラy)) / (6.5))\n            end\n            リセット\n        end\n        if <[当たった v] contains [2490283]?> then\n            change [y v] by (() - (重力))\n            set [重力 v] to [18]\n        end\n        change [y v] by (-5)\n        当たり判定&描写\n        if <<<key (up arrow v) pressed?> or <<(mouse y) > (y position)> and <mouse down?>>> and <[当たった v] contains [18943]?>> then\n            set [重力 v] to [13]\n        end\n        change [y v] by (5)\n        if <(y) < [-200]> then\n            change [繰り返し v] by (1)\n            if <[25] < (繰り返し)> then\n                リセット\n            end\n        else\n            change [カメラx v] by (((x) - (カメラx)) / (6.5))\n            change [カメラy v] by (((y) - (カメラy)) / (6.5))\n            set [繰り返し v] to [0]\n        end\n        当たり判定&描写\n        if <[当たった v] contains [16776960]?> then\n            broadcast (メッセージ1 v)\n            set [くりあ? v] to [1]\n        end\n    end\nend\n\ndefine 当たり判定&描写\ngo to x: (0) y: (0)\nset pen size to (10000000)\nset pen color to (#000000)\npen down\npen up\ndelete all of [当たった v]\nset [番号 v] to [1]\nrepeat (length of [x1 v])\n    四角形 x1 (item (番号) of [x1 v]) x2 (item (番号) of [x2 v]) y1 (item (番号) of [y1 v]) y2 (item (番号) of [y2 v]) 色 (item (番号) of [色 v]) 太さ (item (番号) of [太さ v])\n    insert (item (番号) of [色 v]) at <<([abs v] of ((item (番号) of [x中心 v]) - (x)) ) < ((item (番号) of [x長さ v]) + (((25) + (item (番号) of [太さ v])) / (2)))> and <([abs v] of ((item (番号) of [y中心 v]) - (y)) ) < ((item (番号) of [y長さ v]) + (((40) + (item (番号) of [太さ v])) / (2)))>> of [当たった v] \n    change [番号 v] by (1)\nend\n人間\n\ndefine 四角形 x1 (x1) x2 (x2) y1 (y1) y2 (y2) 色 (色) 太さ (太さ)\nset pen color to (色)\nset pen size to (太さ)\ngo to x: ((x1) - (カメラx)) y: ((y1) - (カメラy))\npen down\nset x to ((x2) - (カメラx))\nset y to ((y2) - (カメラy))\nset x to ((x1) - (カメラx))\nset y to ((y1) - (カメラy))\npen up\n\ndefine 人間\nset pen color to (#fcff7d)\nset pen size to (30)\ngo to x: ((x) - (カメラx)) y: (((y) + (-5)) - (カメラy))\npen down\n\ndefine リセット\nset [x v] to [0]\nset [y v] to [0]\nset [加速 v] to [0]\nset [重力 v] to [0]\nset [色 v] to [0]\n\nwhen I receive [メッセージ1 v]\nstop [all v]\n\nwhen flag clicked\nforever\n    play sound [Goodbye v] until done\nend\n\n@サムネ\n\nwhen flag clicked\nhide\ngo to [front v] layer\ngo to x: (0) y: (0)\n\nshow\ngo to [front v] layer\n\n
100% Pen専門スタジオ\n➡︎ https://scratch.mit.edu/studios/28456052/\n前編➡︎ https://scratch.mit.edu/projects/469466094/\n========================================\n<How to play/遊び方>\nArrow keys or tap to the screen.\n矢印キーか、画面をタップすることで動きます!\n\nYellow area is goal! 黄色い所がゴールです!\n