Field ‖ Mobile Friendly -A 100%Pen Scrolling Platformer - #all #PenPlatformer
@Stage\n\nwhen flag clicked\nforever\n    play sound [Illenium - Let You Go \(ft v] until done\nend\n\n@Back\n\n@さむねいる\n\nwhen flag clicked\nshow\ngo to x: (0) y: (0)\nset [ghost v] effect to (100)\n\nhide\n\nerase all\nshow\ngo to x: (0) y: (0)\nset [ghost v] effect to (0)\n\n@Pen\n\ndefine 判定\ndelete all of [判定 v]\nset [i v] to [-5]\nrepeat ((length of [軽量化:ステージ:情報 v]) / (5))\n    change [i v] by (5)\n    if <<([abs v] of (((cx) + (Player-x)) - (item ((i) + (1)) of [軽量化:ステージ:情報 v])) ) < (((item ((i) + (3)) of [軽量化:ステージ:情報 v]) + (40)) / (2))> and <([abs v] of (((cy) + (Player-y)) - (item ((i) + (2)) of [軽量化:ステージ:情報 v])) ) < (((item ((i) + (4)) of [軽量化:ステージ:情報 v]) + (40)) / (2))>> then\n        insert (item ((i) + (5)) of [軽量化:ステージ:情報 v]) at (1) of [判定 v] \n    end\nend\n\ndefine 追加 (x) (y) (nx) (ny) (s)\nadd (x) to [ステージ:情報 v]\nadd (y) to [ステージ:情報 v]\nadd (nx) to [ステージ:情報 v]\nadd (ny) to [ステージ:情報 v]\nadd (s) to [ステージ:情報 v]\n\nwhen flag clicked\nset size to ((7) / ()) %\nforever\n    描画\nend\n\ndefine ステージ\ndelete all of [ステージ:情報 v]\n追加 [1750] [-300] [100] [500] [5]\n追加 [1550] [-300] [100] [500] [5]\n追加 [1350] [-300] [100] [500] [5]\n追加 [1150] [-300] [100] [500] [5]\n追加 [950] [-300] [100] [500] [5]\n追加 [200] [-300] [200] [500] [5]\n追加 [0] [-300] [200] [500] [1]\n追加 [0] [-50] [200] [10] [2]\n追加 [0] [-40] [200] [10] [3]\n追加 [-350] [-200] [600] [700] [1]\n追加 [-350] [150] [600] [10] [2]\n追加 [-350] [160] [600] [10] [3]\n追加 [600] [-300] [600] [500] [1]\n追加 [600] [-50] [600] [10] [2]\n追加 [600] [-40] [600] [10] [3]\n追加 [500] [-100] [50] [200] [1]\n追加 [500] [0] [50] [10] [2]\n追加 [500] [10] [50] [10] [3]\n追加 [650] [-70] [50] [200] [1]\n追加 [650] [30] [50] [10] [2]\n追加 [650] [40] [50] [10] [3]\n追加 [800] [-40] [50] [200] [1]\n追加 [800] [60] [50] [10] [2]\n追加 [800] [70] [50] [10] [3]\n追加 [1050] [-300] [100] [500] [1]\n追加 [1050] [-50] [100] [10] [2]\n追加 [1050] [-40] [100] [10] [3]\n追加 [1250] [-300] [100] [500] [1]\n追加 [1250] [-50] [100] [10] [2]\n追加 [1250] [-40] [100] [10] [3]\n追加 [1450] [-300] [100] [500] [1]\n追加 [1450] [-50] [100] [10] [2]\n追加 [1450] [-40] [100] [10] [3]\n追加 [1650] [-300] [100] [500] [1]\n追加 [1650] [-50] [100] [10] [2]\n追加 [1650] [-40] [100] [10] [3]\n追加 [2200] [-300] [800] [500] [1]\n追加 [2200] [-50] [800] [10] [2]\n追加 [2200] [-40] [800] [10] [3]\n追加 [3000] [0] [800] [800] [1]\n追加 [3000] [400] [800] [10] [2]\n追加 [3000] [410] [800] [10] [3]\n\nステージ\n\ndefine 描画\nset pen size to ((7) / ())\ngo to x: (0) y: (0)\nset pen color to (#0090ff)\nset pen (transparency v) to (50)\npen down\npen up\nset pen (transparency v) to (0)\n☁︎\n描画範囲内確認\nset [ii v] to [-5]\nset pen size to (2)\nrepeat ((length of [軽量化:ステージ:情報 v]) / (5))\n    change [ii v] by (5)\n    if <(item ((ii) + (5)) of [軽量化:ステージ:情報 v]) = [1]> then\n        普通の地面描画\n    else\n        if <(item ((ii) + (5)) of [軽量化:ステージ:情報 v]) = [2]> then\n            地面の上(下)描画\n        else\n            if <(item ((ii) + (5)) of [軽量化:ステージ:情報 v]) = [3]> then\n                地面の上(上)描画\n            else\n                if <(item ((ii) + (5)) of [軽量化:ステージ:情報 v]) = [4]> then\n                else\n                    if <(item ((ii) + (5)) of [軽量化:ステージ:情報 v]) = [5]> then\n                        マグマ描画\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine (x) (y) に行く\ngo to x: ((x) - (cx)) y: ((y) - (cy))\n\ndefine Player (x) (y) (d)\nset pen (transparency v) to (50)\nset pen size to (20)\nset pen color to (#000000)\ngo to x: ((x) + (10)) y: ((y) + (10))\npen down\ngo to x: ((x) - (10)) y: ((y) + (10))\ngo to x: ((x) - (10)) y: ((y) - (10))\ngo to x: ((x) + (10)) y: ((y) - (10))\ngo to x: ((x) + (10)) y: ((y) + (10))\npen up\nset pen size to (27.5)\nset pen color to (#ffffff)\ngo to x: (x) y: (y)\npen down\npen up\ngo to x: ((x) + ((d) * (5))) y: (y)\nset pen color to (#000000)\nset pen size to (15)\npen down\npen up\ngo to x: ((x) + ((d) * (7))) y: ((y) + (3))\nset pen color to (#ffffff)\nset pen size to (7)\npen down\npen up\n\ndefine 描画範囲内確認\ndelete all of [軽量化:ステージ:情報 v]\nset [iii v] to [-5]\nrepeat ((length of [ステージ:情報 v]) / (5))\n    change [iii v] by (5)\n    if <<([abs v] of (((item ((iii) + (1)) of [ステージ:情報 v]) + ((item ((iii) + (3)) of [ステージ:情報 v]) / (2))) - (cx)) ) < [300]> or <<([abs v] of (((item ((iii) + (1)) of [ステージ:情報 v]) - ((item ((iii) + (3)) of [ステージ:情報 v]) / (2))) - (cx)) ) < [300]> or <<([abs v] of (((item ((iii) + (2)) of [ステージ:情報 v]) + ((item ((iii) + (4)) of [ステージ:情報 v]) / (2))) - (cy)) ) < [250]> or <([abs v] of (((item ((iii) + (2)) of [ステージ:情報 v]) - ((item ((iii) + (4)) of [ステージ:情報 v]) / (2))) - (cy)) ) < [250]>>>> then\n        add (item ((iii) + (1)) of [ステージ:情報 v]) to [軽量化:ステージ:情報 v]\n        add (item ((iii) + (2)) of [ステージ:情報 v]) to [軽量化:ステージ:情報 v]\n        add (item ((iii) + (3)) of [ステージ:情報 v]) to [軽量化:ステージ:情報 v]\n        add (item ((iii) + (4)) of [ステージ:情報 v]) to [軽量化:ステージ:情報 v]\n        add (item ((iii) + (5)) of [ステージ:情報 v]) to [軽量化:ステージ:情報 v]\n    end\nend\n\ndefine 普通の地面描画\n((item ((ii) + (1)) of [軽量化:ステージ:情報 v]) + ((item ((ii) + (3)) of [軽量化:ステージ:情報 v]) / (2))) ((item ((ii) + (2)) of [軽量化:ステージ:情報 v]) + ((item ((ii) + (4)) of [軽量化:ステージ:情報 v]) / (2))) に行く\nset pen size to (11)\nset pen color to (join [0x] [800000])\nset [塗り潰し v] to [-5]\nrepeat ([ceiling v] of (((item ((ii) + (3)) of [軽量化:ステージ:情報 v]) - (5)) / (10)) )\n    change [塗り潰し v] by (10)\n    ((塗り潰し) + ((item ((ii) + (1)) of [軽量化:ステージ:情報 v]) - ((item ((ii) + (3)) of [軽量化:ステージ:情報 v]) / (2)))) ((item ((ii) + (2)) of [軽量化:ステージ:情報 v]) + ((item ((ii) + (4)) of [軽量化:ステージ:情報 v]) / (2))) に行く\n    pen down\n    ((塗り潰し) + ((item ((ii) + (1)) of [軽量化:ステージ:情報 v]) - ((item ((ii) + (3)) of [軽量化:ステージ:情報 v]) / (2)))) ((item ((ii) + (2)) of [軽量化:ステージ:情報 v]) - ((item ((ii) + (4)) of [軽量化:ステージ:情報 v]) / (2))) に行く\n    pen up\nend\n\nerase all\n描画\n\ndefine 地面の上(下)描画\nset pen size to (10)\nset pen color to (#3daf00)\n((item ((ii) + (1)) of [軽量化:ステージ:情報 v]) + ((item ((ii) + (3)) of [軽量化:ステージ:情報 v]) / (2))) (item ((ii) + (2)) of [軽量化:ステージ:情報 v]) に行く\npen down\n((item ((ii) + (1)) of [軽量化:ステージ:情報 v]) - ((item ((ii) + (3)) of [軽量化:ステージ:情報 v]) / (2))) (item ((ii) + (2)) of [軽量化:ステージ:情報 v]) に行く\npen up\n\ndefine 地面の上(上)描画\nset pen size to (10)\nset pen color to (#58ff00)\n((item ((ii) + (1)) of [軽量化:ステージ:情報 v]) + ((item ((ii) + (3)) of [軽量化:ステージ:情報 v]) / (2))) (item ((ii) + (2)) of [軽量化:ステージ:情報 v]) に行く\npen down\n((item ((ii) + (1)) of [軽量化:ステージ:情報 v]) - ((item ((ii) + (3)) of [軽量化:ステージ:情報 v]) / (2))) (item ((ii) + (2)) of [軽量化:ステージ:情報 v]) に行く\npen up\n\ndefine プログラム\nif <<key (d v) pressed?> or <<key (right arrow v) pressed?> or <<[50] < (mouse x)> and <mouse down?>>>> then\n    set [player-d v] to [90]\n    change [xv v] by (1)\nend\nif <<key (a v) pressed?> or <<key (left arrow v) pressed?> or <<(mouse x) < [-50]> and <mouse down?>>>> then\n    set [player-d v] to [-90]\n    change [xv v] by (-1)\nend\nset [xv v] to ((xv) * (0.88))\nchange [player-x v] by (xv)\nrepeat (8)\n    判定\n    if <<[判定 v] contains [3]?> or <<[判定 v] contains [2]?> or <[判定 v] contains [1]?>>> then\n        change [player-y v] by (1)\n    end\nend\n判定\nif <<[判定 v] contains [3]?> or <<[判定 v] contains [2]?> or <[判定 v] contains [1]?>>> then\n    change [player-x v] by (() - (xv))\n    change [player-y v] by (-8)\nend\nchange [player-y v] by (-1)\n判定\nif <<[判定 v] contains [3]?> or <<[判定 v] contains [2]?> or <[判定 v] contains [1]?>>> then\n    if <<key (w v) pressed?> or <<key (up arrow v) pressed?> or <<[50] < (mouse y)> and <mouse down?>>>> then\n        set [yv v] to [15]\n    end\nend\nchange [player-y v] by (1)\nchange [yv v] by (-1)\nchange [player-y v] by (yv)\n判定\nif <<[判定 v] contains [3]?> or <<[判定 v] contains [2]?> or <[判定 v] contains [1]?>>> then\n    change [player-y v] by (() - (yv))\n    set [yv v] to [0]\nend\n\nwhen flag clicked\nforever\n    プログラム\nend\n\ndefine 初期化\nset [cx v] to [0]\nset [cy v] to [50]\nset [dx v] to [0]\nset [dy v] to [50]\nset [player-x v] to [0]\nset [player-y v] to [50]\nset [xv v] to [0]\nset [yv v] to [0]\nset [player-d v] to [90]\n\nwhen flag clicked\n初期化\nforever\n    Player (Player-x) (Player-y) ((Player-d) / ([abs v] of (Player-d) ))\n    if <<(cy) < [-500]> or <[判定 v] contains [5]?>> then\n        初期化\n    end\nend\n\ndefine マグマ描画\nset pen color to (#ff0000)\nset pen size to (10)\nset pen shade to (50)\nset [xi v] to (((item ((ii) + (1)) of [軽量化:ステージ:情報 v]) - ((item ((ii) + (3)) of [軽量化:ステージ:情報 v]) / (2))) + (5))\nrepeat ((item ((ii) + (3)) of [軽量化:ステージ:情報 v]) / (10))\n    (xi) ((([cos v] of (((xi) * (2)) + ((timer) * (210))) ) * (10)) + (((item ((ii) + (2)) of [軽量化:ステージ:情報 v]) + ((item ((ii) + (4)) of [軽量化:ステージ:情報 v]) / (2))) - (10))) に行く\n    pen down\n    (xi) ((item ((ii) + (2)) of [軽量化:ステージ:情報 v]) - ((item ((ii) + (4)) of [軽量化:ステージ:情報 v]) / (2))) に行く\n    pen up\n    change [xi v] by (10)\nend\n\nwhen flag clicked\nforever\n    change [dx v] by ((Player-x) - ((dx) - (cx)))\n    change [dy v] by ((Player-y) - (((dy) - (cy)) - (50)))\n    change [cx v] by (round (((dx) - (cx)) / (9)))\n    change [cy v] by (round (((dy) - (cy)) / (9)))\n    set [player-x v] to ((dx) - (cx))\n    set [player-y v] to (((dy) - (cy)) - (50))\nend\n\nステージ\n\nステージ\n\nwhen flag clicked\n\nwait (pick random (1) to (2)) seconds\n\nwhen flag clicked\n☁︎入れる\n\nforever\nend\n\ndefine ☁︎\nset [iiii v] to [-2]\nset pen color to (#ffffff)\nset pen size to (40)\nset pen (transparency v) to (50)\nrepeat ((length of [☁︎ v]) / (2))\n    change [iiii v] by (2)\n    ((item ((iiii) + (1)) of [☁︎ v]) + (50)) ((item ((iiii) + (2)) of [☁︎ v]) + (20)) に行く\n    pen down\n    ((item ((iiii) + (1)) of [☁︎ v]) - (50)) ((item ((iiii) + (2)) of [☁︎ v]) + (20)) に行く\n    pen up\n    ((item ((iiii) + (1)) of [☁︎ v]) + (80)) ((item ((iiii) + (2)) of [☁︎ v]) - (20)) に行く\n    pen down\n    ((item ((iiii) + (1)) of [☁︎ v]) - (20)) ((item ((iiii) + (2)) of [☁︎ v]) - (20)) に行く\n    pen up\nend\n\nwhen flag clicked\nforever\n    ☁︎\nend\n\n☁︎\n\nforever\nend\n\ndefine ☁︎入れる\ndelete all of [☁︎ v]\nrepeat (10)\n    add (pick random (-200) to (3000)) to [☁︎ v]\n    add (pick random (100) to (300)) to [☁︎ v]\nend\n\ngo to x: (0) y: (0)\n\n@Pen Text\n\nwhen flag clicked\nPTE_//\n\nPTE\n\ndefine PTE_//\ndelete all of [pte_// v]\nadd [1] to [pte_// v]\nadd [2] to [pte_// v]\nadd [3] to [pte_// v]\nadd [4] to [pte_// v]\nadd [5] to [pte_// v]\nadd [6] to [pte_// v]\nadd [7] to [pte_// v]\nadd [8] to [pte_// v]\nadd [9] to [pte_// v]\nadd [a] to [pte_// v]\n\nwhen flag clicked\nset size to ((7) / ()) %\n\ndefine PTE\ndelete all of [pte v]\ninsert [00__5aa0--23__83] at (1) of [pte v] \ninsert [75__15101a7a--10__7092937597987a] at (2) of [pte v] \ninsert [a7__7a3a07033070a3] at (3) of [pte v] \ninsert [1a__106093976a1a] at (4) of [pte v] \ninsert [9a__1a1090--15__95] at (5) of [pte v] \ninsert [9a__1a10--15__75] at (6) of [pte v] \ninsert [a7__7a3a07033070a3a0a373] at (7) of [pte v] \ninsert [1a__10--15__95--9a__90] at (8) of [pte v] \ninsert [5a__50--30__70--3a__7a] at (9) of [pte v] \ninsert [8a__83614123] at (10) of [pte v] \ninsert [2a__20--8a__24--35__80] at (11) of [pte v] \ninsert [2a__2080] at (12) of [pte v] \ninsert [10__1a529a90] at (13) of [pte v] \ninsert [10__1a909a] at (14) of [pte v] \ninsert [a7__7a3a07033070a3a7] at (15) of [pte v] \ninsert [20__2a7a88877525] at (16) of [pte v] \ninsert [a7__7a3a07033070a3a7--a0__73] at (17) of [pte v] \ninsert [20__2a7a888775255580] at (18) of [pte v] \ninsert [88__6a4a28268482604022] at (19) of [pte v] \ninsert [1a__9a--5a__50] at (20) of [pte v] \ninsert [1a__123070929a] at (21) of [pte v] \ninsert [1a__509a] at (22) of [pte v] \ninsert [0a__205a80aa] at (23) of [pte v] \ninsert [2a__80--8a__20] at (24) of [pte v] \ninsert [2a__548a5450] at (25) of [pte v] \ninsert [1a__9a1090] at (26) of [pte v] \ninsert [40__6082846646242240--82__90] at (27) of [pte v] \ninsert [40__6082846646242a242240] at (28) of [pte v] \ninsert [84__66462422406082] at (29) of [pte v] \ninsert [40__60828a846646242240] at (30) of [pte v] \ninsert [23__838466462422406081] at (31) of [pte v] \ninsert [79__695850--35__75] at (32) of [pte v] \ninsert [74__766747363443637471604031] at (33) of [pte v] \ninsert [2a__202547678580] at (34) of [pte v] \ninsert [57__--50__55] at (35) of [pte v] \ninsert [79__--77__71604031] at (36) of [pte v] \ninsert [3a__30--76__324370] at (37) of [pte v] \ninsert [5a__5260] at (38) of [pte v] \ninsert [06__000415455450546595a4a0] at (39) of [pte v] \ninsert [35__303344647370] at (40) of [pte v] \ninsert [84__6646242240608284] at (41) of [pte v] \ninsert [36__303676847232] at (42) of [pte v] \ninsert [76__707636243272] at (43) of [pte v] \ninsert [36__3034456574] at (44) of [pte v] \ninsert [76__674736347371604031] at (45) of [pte v] \ninsert [57__50--35__75] at (46) of [pte v] \ninsert [35__3140607175] at (47) of [pte v] \ninsert [35__5075] at (48) of [pte v] \ninsert [05__205580a5] at (49) of [pte v] \ninsert [36__70--76__30] at (50) of [pte v] \ninsert [36__53--76__30] at (51) of [pte v] \ninsert [36__763070] at (52) of [pte v] \ninsert [2a__20808a2a80] at (53) of [pte v] \ninsert [38__5a503070] at (54) of [pte v] \ninsert [17__293a7a8997951090] at (55) of [pte v] \ninsert [1a__8a999685158594918010] at (56) of [pte v] \ninsert [93__136a60] at (57) of [pte v] \ninsert [9a__1a15959010] at (58) of [pte v] \ninsert [9a__1a10909515] at (59) of [pte v] \ninsert [17__1a9a50] at (60) of [pte v] \ninsert [15__10909a1a1595] at (61) of [pte v] \ninsert [10__909a1a1595] at (62) of [pte v] \ninsert [35__75] at (63) of [pte v] \ninsert [20__80] at (64) of [pte v] \ninsert [] at (65) of [pte v] \n\ndefine Text: (text) x: (x) y: (y) size: (size) color (color) stack: (stack) (stack color)\npen up\nset pen (transparency v) to (0)\nif <(stack) = [2]> then\n    set pen color to (join [0x] (stack color))\n    set pen size to ((((size) / (100)) * (25)) * (1.5))\n    TEXT: (text) X: (x) Y: (y) SIZE: (size)\n    set pen color to (join [0x] (color))\n    set pen size to ((((size) / (100)) * (25)) * (0.5))\n    TEXT: (text) X: (x) Y: (y) SIZE: (size)\nelse\n    set pen color to (join [0x] (color))\n    set pen size to ((((size) / (100)) * (25)) * (1.5))\n    TEXT: (text) X: (x) Y: (y) SIZE: (size)\nend\n\nText: [ABCD] x: [0] y: [100] size: [10] color [ff0000] stack: [] []\n\nrepeat ()\n\ndefine TEXT: (text) X: (x) Y: (y) SIZE: (size)\ndelete (all) of [deta v]\nset [pen text: i v] to [0]\nrepeat (length of (text))\n    change [pen text: i v] by (1)\n    switch costume to (letter (Pen Text: i) of (text))\n    insert (join (item (costume [number v]) of [pte v]) [--55]) at (Pen Text: i) of [deta v] \nend\nif <not <(text) = []>> then\n    set [i2 v] to [0]\n    repeat (length of (text))\n        change [i2 v] by (1)\n        set [pen text: i v] to [-2]\n        repeat (((length of (item (i2) of [deta v])) - (1)) / (2))\n            change [pen text: i v] by (2)\n            if <[--] = (join (letter ((Pen Text: i) + (1)) of (item (i2) of [deta v])) (letter ((Pen Text: i) + (2)) of (item (i2) of [deta v])))> then\n                pen up\n            else\n                if <[__] = (join (letter ((Pen Text: i) + (1)) of (item (i2) of [deta v])) (letter ((Pen Text: i) + (2)) of (item (i2) of [deta v])))> then\n                    pen down\n                else\n                    go to x: (((() + ((x) - (((((length of (text)) + (1)) * (1.2)) / (2)) * (((size) / (100)) * (200))))) + ((((size) / (100)) * (200)) * ((i2) * (1.2)))) + (((item # of (letter ((Pen Text: i) + (1)) of (item (i2) of [deta v])) in [pte_// v]) - (5)) * ((20) * ((size) / (100))))) y: ((y) + (((item # of (letter ((Pen Text: i) + (2)) of (item (i2) of [deta v])) in [pte_// v]) - (5)) * ((20) * ((size) / (100)))))\n                end\n            end\n        end\n        pen up\n    end\nelse\n    stop [this script v]\nend\n\nerase all\n\nerase all\nText: [0123456789-_] x: [0] y: [0] size: [10] color [000000] stack: [] []\n\nwhen flag clicked\n\nTEXT: [GOAL] X: [0] Y: [] SIZE: []\n\nText: [] x: (username) y: [0] size: [25] color [ffffff] stack: [2] [000000]\n\nwhen flag clicked\nforever\n    Text: [GOAL] x: ((2300) - (cx)) y: ((150) - (cy)) size: [60] color [ffffff] stack: [2] [000000]\nend\n\nerase all\n\ngo to x: (0) y: (0)\n\n