<PC & Mobile> 100% Pen Platformer 

Instructions: I worked very hard on it, so please give me ❤︎ and ☆ and comments!! ^^\n続編➡︎ https://scratch.mit.edu/projects/469515246/\n========================================\nThis is the first 100% Pen piece I made. I'm sure it has a lot of bugs, so please comment your thoughts :)\n\nArrow keys. We are trying to make the program lighter, but if it is too heavy, please leave a comment!\n\nThe work referred to is written in the credits section below.\n\nIt took a lot of time because it was my first time with 100%Pen...!\n\n矢印キーで動きます。一応軽くなるように工夫したのですが重くなっていたらすみません!\n\n参考にした作品については下に書いてあります。\n

@Stage\n\n@Pen\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.5)\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 (#7dffff)\nset pen size to (30)\nset pen (color v) to ((50) - (色))\ngo to x: ((x) - (カメラx)) y: (((y) + (-5)) - (カメラy))\npen down\nset pen size to (5)\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 [BGM v] until done\nend\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 [-10] y2 [-60] 色 [18943] 太さ [10]\nブロック追加 x1 [450] x2 [500] y1 [20] y2 [-30] 色 [18943] 太さ [10]\nブロック追加 x1 [650] x2 [700] y1 [60] y2 [10] 色 [18943] 太さ [10]\nブロック追加 x1 [850] x2 [900] y1 [60] y2 [10] 色 [18943] 太さ [10]\nブロック追加 x1 [1050] x2 [1250] y1 [60] y2 [10] 色 [2490283] 太さ [10]\nブロック追加 x1 [1350] x2 [1600] y1 [200] y2 [250] 色 [2490283] 太さ [10]\nブロック追加 x1 [1800] x2 [1900] y1 [340] y2 [390] 色 [2490283] 太さ [10]\nブロック追加 x1 [1350] x2 [1600] y1 [540] y2 [590] 色 [18943] 太さ [10]\nブロック追加 x1 [1350] x2 [1500] y1 [690] y2 [740] 色 [18943] 太さ [10]\nブロック追加 x1 [1450] x2 [1600] y1 [840] y2 [890] 色 [18943] 太さ [10]\nブロック追加 x1 [1450] x2 [1500] y1 [990] y2 [1040] 色 [18943] 太さ [10]\nブロック追加 x1 [1450] x2 [1500] y1 [1140] y2 [1190] 色 [18943] 太さ [10]\nブロック追加 x1 [1450] x2 [1500] y1 [1290] y2 [1340] 色 [18943] 太さ [10]\nブロック追加 x1 [1650] x2 [1900] y1 [1390] y2 [1340] 色 [18943] 太さ [10]\nブロック追加 x1 [2050] x2 [2100] y1 [1340] y2 [1390] 色 [16711680] 太さ [10]\nブロック追加 x1 [2150] x2 [2300] y1 [1340] y2 [1390] 色 [18943] 太さ [10]\nブロック追加 x1 [2450] x2 [2500] y1 [1340] y2 [1390] 色 [16711680] 太さ [10]\nブロック追加 x1 [2550] x2 [2700] y1 [1340] y2 [1390] 色 [18943] 太さ [10]\nブロック追加 x1 [2900] x2 [3200] y1 [1440] y2 [1490] 色 [18943] 太さ [10]\nブロック追加 x1 [3160] x2 [3200] y1 [1490] y2 [1590] 色 [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\n@サムネ\n\nwhen flag clicked\ngo to [front v] layer\nhide\ngo to x: (0) y: (0)\n\nshow\ngo to [front v] layer\n\n