✎️100%pen platformer!! | raion112

Instructions: ✎️ 100%pen platformer!!\n旗は2回押してください | green frag × 2\n─────────遊び方 || play──────────\n【English】\n✎️ This time 100%pen platformer!! I made it!\n✎️ I made it quite long!\n✎️ I did my best, so I hope you enjoy it!\n✎️ If you touch the purple square, it's clear!\n───↓↓───TurboWarp───↓↓───\nhttps://turbowarp.org/769575313\n\n【日本語】\n✎️ 今回は100% pen platformerを作ってみました！\n✎️ 結構長めに作りました！\n✎️ 頑張ったので、楽しんでくれると幸いです！\n✎️ 紫色の四角に触れたらclearです！\n✎️ ★と♥よろしく！\n───↓↓───タボワ───↓↓───\nhttps://turbowarp.org/769575313\n\n───────操作方法 || How to operate───────\n【English】\nRight arrow key >> Continue right\nLeft arrow key >> Move left\nUp arrow key >> Jump\n>>> Mobile-ready! <<<\n\n【日本語】\n右向き矢印キー >> 右に進む\n左向き矢印キー >> 左に進む\n上向き矢印キー >> ジャンプ\n>>> モバイル対応です <<<\n─────────────────────────────\n目標 || goal\n★と♥合計300+ || ★ and ♥ a total of 300+\n参照数5000+ || 5000+ views\n─────────────────────────────\n✎️ credit\n◆ program >> @yuhaku \n◆ music >> @-Xaf\n─────────────────────────────\n✎️ tag\n#100%pen #game #games #platformer #music #all #raion112

@Stage\n\nwhen flag clicked\nforever\n    play sound [Unlimited v] until done\nend\n\n@Pen\n\ndefine ステージ\ndelete (join [] [all]) of [ステージ v]\nステージ追加 [-50] [-100] 横長さ [250] 縦長さ [100] 種類 [1]\nステージ追加 [163] [-100] 横長さ [160] 縦長さ [100] 種類 [2]\nステージ追加 [305] [-100] 横長さ [107] 縦長さ [100] 種類 [1]\nステージ追加 [405] [0] 横長さ [90] 縦長さ [500] 種類 [1]\nステージ追加 [483] [250] 横長さ [50] 縦長さ [100] 種類 [2]\nステージ追加 [483] [450] 横長さ [50] 縦長さ [100] 種類 [2]\nステージ追加 [600] [0] 横長さ [100] 縦長さ [600] 種類 [1]\nステージ追加 [695] [300] 横長さ [75] 縦長さ [100] 種類 [2]\nステージ追加 [695] [500] 横長さ [75] 縦長さ [100] 種類 [2]\nステージ追加 [850] [250] 横長さ [100] 縦長さ [200] 種類 [1]\nステージ追加 [1100] [325] 横長さ [50] 縦長さ [50] 種類 [3]\nステージ追加 [1350] [550] 横長さ [150] 縦長さ [100] 種類 [1]\nステージ追加 [1650] [575] 横長さ [50] 縦長さ [50] 種類 [3]\nステージ追加 [1850] [650] 横長さ [75] 縦長さ [300] 種類 [2]\nステージ追加 [2000] [650] 横長さ [50] 縦長さ [50] 種類 [1]\nステージ追加 [2200] [550] 横長さ [50] 縦長さ [50] 種類 [1]\nステージ追加 [2450] [550] 横長さ [50] 縦長さ [50] 種類 [3]\nステージ追加 [2300] [800] 横長さ [50] 縦長さ [50] 種類 [1]\nステージ追加 [2150] [900] 横長さ [50] 縦長さ [50] 種類 [1]\nステージ追加 [2000] [1000] 横長さ [50] 縦長さ [50] 種類 [3]\nステージ追加 [2300] [1200] 横長さ [300] 縦長さ [100] 種類 [1]\nステージ追加 [2500] [1350] 横長さ [100] 縦長さ [400] 種類 [1]\nステージ追加 [2625] [1500] 横長さ [135] 縦長さ [100] 種類 [2]\nステージ追加 [2725] [1600] 横長さ [50] 縦長さ [300] 種類 [1]\nステージ追加 [3025] [1925] 横長さ [700] 縦長さ [50] 種類 [2]\nステージ追加 [2900] [1725] 横長さ [100] 縦長さ [50] 種類 [1]\nステージ追加 [3000] [1725] 横長さ [82] 縦長さ [50] 種類 [3]\nステージ追加 [3100] [1725] 横長さ [100] 縦長さ [50] 種類 [1]\nステージ追加 [3200] [1725] 横長さ [82] 縦長さ [50] 種類 [3]\nステージ追加 [3300] [1725] 横長さ [100] 縦長さ [50] 種類 [1]\nステージ追加 [3500] [1725] 横長さ [50] 縦長さ [50] 種類 [1]\nステージ追加 [3625] [1725] 横長さ [50] 縦長さ [50] 種類 [2]\nステージ追加 [3750] [1725] 横長さ [50] 縦長さ [50] 種類 [3]\nステージ追加 [3850] [1975] 横長さ [50] 縦長さ [50] 種類 [1]\nステージ追加 [3975] [1975] 横長さ [50] 縦長さ [50] 種類 [2]\nステージ追加 [4100] [1975] 横長さ [50] 縦長さ [50] 種類 [3]\nステージ追加 [4500] [2225] 横長さ [300] 縦長さ [50] 種類 [1]\nステージ追加 [4775] [2300] 横長さ [50] 縦長さ [50] 種類 [1]\nステージ追加 [4925] [2375] 横長さ [50] 縦長さ [50] 種類 [1]\nステージ追加 [5350] [2425] 横長さ [500] 縦長さ [50] 種類 [1]\nステージ追加 [5575] [2500] 横長さ [50] 縦長さ [100] 種類 [4]\n\ndefine 升\nset [雑用 v] to (((scroll-x) - ((scroll-x) mod (50))) - (200))\nset pen color to (#696969)\nset pen (transparency v) to (80)\nset pen size to (12)\nrepeat (10)\n    X Y (雑用) [10000]\n    pen down\n    X Y (雑用) [-10000]\n    pen up\n    change [雑用 v] by (50)\nend\nset [雑用 v] to (((scroll-y) - ((scroll-y) mod (50))) - (200))\nrepeat (10)\n    X Y [10000] (雑用)\n    pen down\n    X Y [-10000] (雑用)\n    pen up\n    change [雑用 v] by (50)\nend\n\ndefine ゴール\nステージ\n背景\nYou won\nstop [all v]\n\nwhen flag clicked\ndelete (join [] [all]) of [判定 v]\nステージ\nforever\n    PLAYERプログラム\nend\n\ndefine PLAYERプログラム\nif <<<mouse down?> and <[50] < (mouse x)>> or <<key (d v) pressed?> or <key (right arrow v) pressed?>>> then\n    change [x v] by (1)\nend\nif <<<mouse down?> and <(mouse x) < [-50]>> or <<key (a v) pressed?> or <key (left arrow v) pressed?>>> then\n    change [x v] by (-1)\nend\nset [x v] to ((X) * (0.89))\nchange [player-x v] by (X)\nrepeat (7)\n    当たり判定\n    if <[判定 v] contains [1]?> then\n        change [player-y v] by (1)\n    end\nend\n当たり判定\nif <[判定 v] contains [1]?> then\n    change [player-x v] by (() - (X))\n    change [player-y v] by (-7)\n    if <<<mouse down?> and <(mouse y) > [50]>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> then\n        set [y v] to [10]\n        set [x v] to ((6) - ((12) * <(X) = ([abs v] of (X) )>))\n    else\n        set [x v] to [0]\n    end\nend\nchange [player-y v] by (-1)\n当たり判定\nif <[判定 v] contains [1]?> then\n    if <<<mouse down?> and <(mouse y) > [50]>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> then\n        set [y v] to [15]\n    end\nend\nchange [player-y v] by (1)\nchange [y v] by (-1)\nchange [player-y v] by (Y)\n当たり判定\nif <[判定 v] contains [1]?> then\n    change [player-y v] by (() - (Y))\n    set [y v] to [0]\nend\n当たり判定\nif <<(scroll-y) < [-400]> or <[判定 v] contains [2]?>> then\n    初期化\nend\n当たり判定\nif <[判定 v] contains [3]?> then\n    set [y v] to [25]\nend\nif <[判定 v] contains [4]?> then\n    ゴール\nend\n\ndefine 判定 (x1) (x2) (y1) (y2) (x) (y)\nif <<([abs v] of ((((x1) + (x2)) / (2)) - (x)) ) < (([abs v] of ((x1) - (((x1) + (x2)) / (2))) ) + (20))> and <([abs v] of ((((y1) + (y2)) / (2)) - (y)) ) < (([abs v] of ((y1) - (((y1) + (y2)) / (2))) ) + (20))>> then\n    add (item ((判定1) + (5)) of [ステージ v]) to [判定 v]\nend\n\ndefine X Y (x) (y)\ngo to x: ((x) - (scroll-x)) y: ((y) - (scroll-y))\n\ndefine PLAYER (x) (y) (辺)\nset pen size to (10)\nset pen color to (#f3ff54)\nset pen (transparency v) to (50)\ngo to x: ((x) + (辺)) y: ((y) + (辺))\npen down\nset x to ((x) - (辺))\nset y to ((y) - (辺))\nset x to ((x) + (辺))\nset y to ((y) + (辺))\npen up\nset pen (transparency v) to (0)\nset pen size to (7.5)\ngo to x: ((x) + (辺)) y: ((y) + (辺))\npen down\nset x to ((x) - (辺))\nset y to ((y) - (辺))\nset x to ((x) + (辺))\nset y to ((y) + (辺))\npen up\n\ndefine 当たり判定\ndelete all of [判定 v]\nset [判定1 v] to [0]\nrepeat ((length of [ステージ v]) / (5))\n    判定 ((item ((判定1) + (1)) of [ステージ v]) + ((item ((判定1) + (3)) of [ステージ v]) / (2))) ((item ((判定1) + (1)) of [ステージ v]) - ((item ((判定1) + (3)) of [ステージ v]) / (2))) ((item ((判定1) + (2)) of [ステージ v]) + ((item ((判定1) + (4)) of [ステージ v]) / (2))) ((item ((判定1) + (2)) of [ステージ v]) - ((item ((判定1) + (4)) of [ステージ v]) / (2))) ((scroll-x) + (PLAYER-X)) ((scroll-y) + (PLAYER-Y))\n    change [判定1 v] by (5)\nend\n\ndefine ステージ追加 (x) (y) 横長さ (横長さ) 縦長さ (縦長さ) 種類 (種類)\nadd (x) to [ステージ v]\nadd (y) to [ステージ v]\nadd (横長さ) to [ステージ v]\nadd (縦長さ) to [ステージ v]\nadd (種類) to [ステージ v]\n\ndefine 初期化\nset [x v] to [0]\nset [y v] to [0]\nset [player-x v] to [0]\nset [player-y v] to [0]\nset [scroll-x v] to [0]\nset [scroll-y v] to [0]\n\nwhen flag clicked\n初期化\n\ndefine ステージ描写\nset [描写1 v] to [0]\nrepeat ((length of [ステージ v]) / (5))\n    X Y ((item ((描写1) + (1)) of [ステージ v]) + ((item ((描写1) + (3)) of [ステージ v]) / (2))) ((item ((描写1) + (2)) of [ステージ v]) + ((item ((描写1) + (4)) of [ステージ v]) / (2)))\n    ステージ色\n    set pen size to (10)\n    set pen (transparency v) to (50)\n    pen down\n    X Y ((item ((描写1) + (1)) of [ステージ v]) + ((item ((描写1) + (3)) of [ステージ v]) / (2))) ((item ((描写1) + (2)) of [ステージ v]) - ((item ((描写1) + (4)) of [ステージ v]) / (2)))\n    X Y ((item ((描写1) + (1)) of [ステージ v]) - ((item ((描写1) + (3)) of [ステージ v]) / (2))) ((item ((描写1) + (2)) of [ステージ v]) - ((item ((描写1) + (4)) of [ステージ v]) / (2)))\n    X Y ((item ((描写1) + (1)) of [ステージ v]) - ((item ((描写1) + (3)) of [ステージ v]) / (2))) ((item ((描写1) + (2)) of [ステージ v]) + ((item ((描写1) + (4)) of [ステージ v]) / (2)))\n    X Y ((item ((描写1) + (1)) of [ステージ v]) + ((item ((描写1) + (3)) of [ステージ v]) / (2))) ((item ((描写1) + (2)) of [ステージ v]) + ((item ((描写1) + (4)) of [ステージ v]) / (2)))\n    pen up\n    set pen size to (7.5)\n    set pen (transparency v) to (0)\n    pen down\n    X Y ((item ((描写1) + (1)) of [ステージ v]) + ((item ((描写1) + (3)) of [ステージ v]) / (2))) ((item ((描写1) + (2)) of [ステージ v]) - ((item ((描写1) + (4)) of [ステージ v]) / (2)))\n    X Y ((item ((描写1) + (1)) of [ステージ v]) - ((item ((描写1) + (3)) of [ステージ v]) / (2))) ((item ((描写1) + (2)) of [ステージ v]) - ((item ((描写1) + (4)) of [ステージ v]) / (2)))\n    X Y ((item ((描写1) + (1)) of [ステージ v]) - ((item ((描写1) + (3)) of [ステージ v]) / (2))) ((item ((描写1) + (2)) of [ステージ v]) + ((item ((描写1) + (4)) of [ステージ v]) / (2)))\n    X Y ((item ((描写1) + (1)) of [ステージ v]) + ((item ((描写1) + (3)) of [ステージ v]) / (2))) ((item ((描写1) + (2)) of [ステージ v]) + ((item ((描写1) + (4)) of [ステージ v]) / (2)))\n    pen up\n    change [描写1 v] by (5)\nend\nPLAYER (PLAYER-X) (PLAYER-Y) [12.5]\n\ndefine ステージ色\nif <(item ((描写1) + (5)) of [ステージ v]) = [1]> then\n    set pen color to (#006aff)\nelse\n    if <(item ((描写1) + (5)) of [ステージ v]) = [2]> then\n        set pen color to (#ff0000)\n    else\n        if <(item ((描写1) + (5)) of [ステージ v]) = [3]> then\n            set pen color to (#00ff08)\n        else\n            if <(item ((描写1) + (5)) of [ステージ v]) = [4]> then\n                set pen color to (#ff00f6)\n            else\n                if <[4] < (item ((描写1) + (5)) of [ステージ v])> then\n                    set pen color to (#00fff2)\n                end\n            end\n        end\n    end\nend\n\ndefine 背景\nset pen size to ((1) / (0))\nset pen color to (#000000)\ngo to x: (0) y: (0)\npen down\npen up\n\nwhen flag clicked\nforever\n    change [scroll-x v] by (round (((PLAYER-X) + (X)) / (13)))\n    change [player-x v] by (() - (round (((PLAYER-X) + (X)) / (13))))\n    change [player-y v] by (() - (round ((((PLAYER-Y) + (Y)) + (20)) / (13))))\n    change [scroll-y v] by (round ((((PLAYER-Y) + (Y)) + (20)) / (13)))\nend\n\nwhen flag clicked\nステージ\nforever\n    erase all\n    背景\n    升\n    ステージ描写\nend\n\ndefine You won\nset pen color to (#ffffff)\nset pen size to (10)\ngo to x: (-220) y: (30)\npen down\ngo to x: (-200) y: (0)\ngo to x: (-180) y: (30)\npen up\ngo to x: (-200) y: (0)\npen down\ngo to x: (-200) y: (-30)\npen up\nwait (0) seconds\nset [θ v] to [0]\nrepeat (360)\n    go to x: ((-130) + ((30) * ([cos v] of (θ) ))) y: ((0) + ((30) * ([sin v] of (θ) )))\n    pen down\n    change [θ v] by (1)\nend\npen up\nwait (0) seconds\nset [θ v] to [0]\nrepeat (180)\n    go to x: ((-50) + ((30) * ([cos v] of (θ) ))) y: ((0) + ((30) * ([sin v] of (θ) )))\n    pen down\n    change [θ v] by (-1)\nend\npen up\ngo to x: (-80) y: (0)\npen down\ngo to x: (-80) y: (30)\npen up\ngo to x: (-20) y: (0)\npen down\ngo to x: (-20) y: (30)\npen up\nwait (0) seconds\ngo to x: (10) y: (30)\npen down\ngo to x: (25) y: (-30)\ngo to x: (40) y: (30)\ngo to x: (55) y: (-30)\ngo to x: (70) y: (30)\npen up\nwait (0) seconds\nset [θ v] to [0]\nrepeat (360)\n    go to x: ((120) + ((30) * ([cos v] of (θ) ))) y: ((0) + ((30) * ([sin v] of (θ) )))\n    pen down\n    change [θ v] by (1)\nend\npen up\nwait (0) seconds\ngo to x: (170) y: (-30)\npen down\ngo to x: (170) y: (30)\ngo to x: (210) y: (-30)\ngo to x: (210) y: (30)\npen up\n\n@サムネ\n\nwhen [timer v] > (0)\nshow\nset size to (100) %\nswitch costume to (コスチューム1 v)\ngo to x: (0) y: (200)\nset [brightness v] effect to (100)\nset [縦 v] to [35]\nset [横 v] to [20]\nrepeat (10)\n    change [brightness v] effect by (-10)\n    set [横 v] to (((横) * (0.65)) + (((0) - (y position)) / (8)))\n    change y by (横)\nend\nrepeat (20)\n    set [横 v] to (((横) * (0.75)) + (((0) - (y position)) / (5)))\n    change y by (横)\nend\n\nwhen flag clicked\nhide\nforever\n    reset timer\nend\n\n