⭐︎LETTERS⭐︎ a platformer
@Stage\n\n@スプライト1\n\nwhen flag clicked\nset [クリア？ v] to [0]\nset [size v] to [1]\nset [文字列 v] to [ABCDEFGHIJKLMNOPQRSTUVWXYZ,.!?12345]\npoint in direction (90)\nshow\nset [右スピード v] to [0]\nset [上スピード v] to [0]\nset [獲得キー v] to []\nset [エックス座標 v] to [0]\nset [ワイ座標 v] to [0]\nset rotation style [left-right v]\nクローン作成\nswitch costume to (gobo v)\nset size to (40) %\ngo to x: (0) y: (0)\nforever\n    動く\n    描く\n    go to x: (0) y: (0)\n    if <(ワイ座標) < [-2000]> then\n        start sound [死 v]\n        set [右スピード v] to [0]\n        set [上スピード v] to [0]\n        set [エックス座標 v] to [0]\n        set [ワイ座標 v] to [0]\n    end\n    if <(length of (獲得キー)) = [5]> then\n        hide\n        repeat (50)\n            change [size v] by (-0.0183)\n            change [エックス座標 v] by (((エックス座標) - (1600)) * (-0.07))\n            change [ワイ座標 v] by ((ワイ座標) * (-0.07))\n        end\n        point in direction (90)\n        switch costume to (コスチューム1 v)\n        go to x: (0) y: (-130)\n        set size to (100) %\n        show\n        \n    end\nend\n\ndefine 動く\nswitch costume to (ヒットボックス v)\nif <<key (left arrow v) pressed?> or <<(mouse x) < (x position)> and <mouse down?>>> then\n    change [右スピード v] by (-1)\n    point in direction (-90)\nend\nif <<key (right arrow v) pressed?> or <<(x position) < (mouse x)> and <mouse down?>>> then\n    change [右スピード v] by (1)\n    point in direction (90)\nend\nset [右スピード v] to ((右スピード) * (0.9))\nchange x by (右スピード)\nif  then\n    change y by (1)\n    if  then\n        change y by (1)\n        if  then\n            change y by (1)\n            if  then\n                change y by (1)\n                if  then\n                    change y by (1)\n                    if  then\n                        change x by ((右スピード) * (-1))\n                        change y by (-5)\n                        if <<key (up arrow v) pressed?> or <<[-45] < (mouse y)> and <mouse down?>>> then\n                            if <(右スピード) > [0]> then\n                                set [右スピード v] to [-6]\n                            else\n                                set [右スピード v] to [6]\n                            end\n                            set [上スピード v] to [10]\n                        else\n                            set [右スピード v] to [0]\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nchange y by (-1)\nif <<key (up arrow v) pressed?> or <<[-45] < (mouse y)> and <mouse down?>>> then\n    if  then\n        set [上スピード v] to [15]\n        start sound [ジャンプ v]\n    end\nend\nchange y by (上スピード)\nchange [上スピード v] by (-1)\nif  then\n    change y by ((上スピード) * (-1))\n    set [上スピード v] to [0]\nend\nchange [エックス座標 v] by (x position)\nchange [ワイ座標 v] by (y position)\ngo to x: (0) y: (0)\nswitch costume to (gobo v)\n\ndefine (コスチューム) (x) (y)\nadd (コスチューム) to [情報 v]\nadd (x) to [情報 v]\nadd (y) to [情報 v]\n\ndefine クローン作成\n情報\nset [クローン番号 v] to [0]\nrepeat ((length of [情報 v]) / (3))\n    change [クローン番号 v] by (1)\n    set [ナンバー v] to [0]\n    repeat until <(item (((クローン番号) * (3)) - (2)) of [情報 v]) = (letter (ナンバー) of (文字列))>\n        change [ナンバー v] by (1)\n    end\n    switch costume to ((ナンバー) + (1))\n    set size to (100) %\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nset rotation style [all around v]\nif <((item (((クローン番号) * (3)) - (2)) of [情報 v]) + (0)) > [0.5]> then\n    forever\n        if < (獲得キー) contains (item (((クローン番号) * (3)) - (2)) of [情報 v])?> then\n            go to x: ((((costume [number v]) - (31)) * (80)) + (-200)) y: (150)\n        else\n            go to x: ((item (((クローン番号) * (3)) - (1)) of [情報 v]) - (エックス座標)) y: ((item ((クローン番号) * (3)) of [情報 v]) - (ワイ座標))\n            if <<(x position) = ((item (((クローン番号) * (3)) - (1)) of [情報 v]) - (エックス座標))> and <(y position) = ((item ((クローン番号) * (3)) of [情報 v]) - (ワイ座標))>> then\n                set size to (100) %\n                show\n                point in direction (90)\n                switch costume to (item (((クローン番号) * (3)) - (2)) of [情報 v])\n                if <touching color (#ffc93e)?> then\n                    start sound [クリア v]\n                    glide (1) secs to x: ((((costume [number v]) - (31)) * (80)) + (-200)) y: (150)\n                    set [獲得キー v] to (join (獲得キー) (item (((クローン番号) * (3)) - (2)) of [情報 v]))\n                end\n            else\n                if <(costume [name v]) = [5]> then\n                    hide\n                else\n                    鍵の方向\n                end\n            end\n        end\n    end\nelse\n    forever\n        go to x: (((item (((クローン番号) * (3)) - (1)) of [情報 v]) - (エックス座標)) * (Size)) y: (((item ((クローン番号) * (3)) of [情報 v]) - (ワイ座標)) * (Size))\n        set size to ((Size) * (100)) %\n        if <<(x position) = (((item (((クローン番号) * (3)) - (1)) of [情報 v]) - (エックス座標)) * (Size))> and <(y position) = (((item ((クローン番号) * (3)) of [情報 v]) - (ワイ座標)) * (Size))>> then\n            show\n        else\n            hide\n        end\n    end\nend\n\ndefine 情報\ndelete all of [情報 v]\n[G] [-150] [-120]\n[O] [0] [-120]\n[!] [150] [-120]\n[L] [250] [-180]\n[U] [360] [-400]\n[U] [200] [-550]\n[U] [40] [-700]\n[O] [-100] [-850]\n[F] [-300] [-1000]\n[C] [-460] [-1100]\n[.] [-450] [-850]\n[.] [-350] [-750]\n[.] [-250] [-650]\n[.] [-400] [-550]\n[.] [-250] [-450]\n[.] [-350] [-80]\n[.] [-520] [0]\n[.] [-400] [-200]\n[.] [-300] [-340]\n[I] [-650] [-30]\n[L] [-600] [-1200]\n[V] [-500] [-1400]\n[V] [-300] [-1300]\n[V] [-100] [-1200]\n[T] [50] [-1100]\n[A] [200] [-950]\n[.] [350] [-850]\n[M] [500] [-850]\n[.] [650] [-850]\n[.] [750] [-900]\n[C] [700] [-750]\n[N] [500] [-600]\n[G] [700] [-500]\n[H] [800] [-300]\n[.] [550] [-300]\n[I] [-800] [100]\n[.] [-700] [250]\n[A] [-550] [300]\n[,] [-450] [250]\n[,] [-300] [250]\n[,] [-150] [250]\n[,] [50] [250]\n[I] [150] [200]\n[J] [300] [250]\n[!] [400] [350]\n[Q] [550] [500]\n[P] [400] [650]\n[P] [250] [750]\n[T] [100] [800]\n[L] [-50] [800]\n[A] [-150] [900]\n[H] [-300] [700]\n[X] [-450] [500]\n[L] [-700] [450]\n[.] [1000] [-250]\n[O] [1150] [-200]\n[!] [1300] [-100]\n[E] [1200] [100]\n[E] [1050] [300]\n[J] [1200] [450]\n[A] [1350] [600]\n[L] [1050] [1000]\n[M] [1000] [700]\n[T] [800] [650]\n[E] [1200] [800]\n[H] [1100] [1200]\n[.] [1200] [1100]\n[.] [1350] [1050]\n[.] [1500] [1050]\n[L] [1650] [1150]\n[O] [850] [-950]\n[E] [1000] [-900]\n[Z] [1200] [-800]\n[A] [1400] [-650]\n[B] [1550] [-550]\n[J] [1300] [-900]\n[L] [1150] [-1100]\n[P] [1000] [-1150]\n[L] [850] [-1250]\n[O] [1300] [-1200]\n[,] [1450] [-1150]\n[,] [1550] [-1100]\n[,] [1650] [-1100]\n[,] [1750] [-1050]\n[P] [1850] [-1000]\n[N] [1700] [-900]\n[E] [1650] [-700]\n[O] [2050] [-950]\n[Z] [2200] [-950]\n[V] [2350] [-900]\n[L] [2500] [-800]\n[L] [2700] [-700]\n[I] [2850] [-600]\n[U] [3000] [-500]\n[O] [1700] [-350]\n[F] [1550] [-250]\n[G] [1700] [-50]\n[A] [1550] [150]\n[R] [1400] [250]\n[.] [1300] [350]\n[X] [1800] [1000]\n[.] [1950] [1000]\n[.] [2100] [900]\n[.] [2250] [800]\n[S] [3150] [-600]\n[A] [3300] [-700]\n[Z] [2400] [700]\n[T] [2600] [700]\n[U] [2800] [600]\n[.] [2700] [600]\n[O] [2600] [400]\n[,] [2500] [400]\n[,] [2350] [300]\n[,] [2150] [250]\n[,] [1950] [200]\n[,] [1850] [150]\n[,] [1850] [0]\n[P] [2000] [-100]\n[R] [2150] [-150]\n[T] [2300] [-250]\n[W] [2550] [-350]\n[.] [2750] [-350]\n[.] [2900] [-400]\n[R] [3000] [650]\n[F] [3150] [750]\n[A] [3300] [900]\n[P] [3400] [750]\n[O] [3550] [650]\n[V] [3700] [550]\n[Z] [3900] [550]\n[Y] [4150] [550]\n[1] [1100] [1250]\n[2] [900] [-1250]\n[3] [3300] [-600]\n[4] [4150] [650]\n[5] [-150] [1000]\n\ndefine 描く\nerase all\nset pen size to (1000)\nset pen color to (#b0ebff)\npen down\npen up\nset pen size to (1)\nset pen color to (#ffffff)\ngo to x: (-240) y: ((180) - (((ワイ座標) / (5)) mod (30)))\nrepeat (15)\n    pen down\n    change x by (480)\n    pen up\n    change y by (-30)\n    change x by (-480)\nend\ngo to x: ((-240) + (((0) - ((エックス座標) / (5))) mod (30))) y: (180)\nrepeat (20)\n    pen down\n    change y by (-360)\n    pen up\n    change x by (30)\n    change y by (360)\nend\ngo to x: (0) y: (0)\n\ndefine 鍵の方向\nset [差x v] to ((item (((クローン番号) * (3)) - (1)) of [情報 v]) - (エックス座標))\nset [差y v] to ((item ((クローン番号) * (3)) of [情報 v]) - (ワイ座標))\nif <([abs v] of ((差y) / (差x)) ) > [0.75]> then\n    if <(差y) > [0]> then\n        go to x: (((差x) * (150)) / (差y)) y: (150)\n    else\n        go to x: (((差x) * (-150)) / (差y)) y: (-150)\n    end\nelse\n    if <(差x) > [0]> then\n        go to x: (200) y: (((差y) * (200)) / (差x))\n    else\n        go to x: (-200) y: (((差y) * (-200)) / (差x))\n    end\nend\nswitch costume to (item (((クローン番号) * (3)) - (2)) of [情報 v])\nswitch costume to ((costume [number v]) + (5))\nshow\npoint in direction ([atan v] of ([abs v] of ((x position) / (y position)) ) )\nif <(x position) < [0]> then\n    point in direction ((0) - (direction))\nend\nif <(y position) < [0]> then\n    if <(x position) > [0]> then\n        point in direction (((90) - (direction)) + (90))\n    else\n        point in direction (((-90) - (direction)) - (90))\n    end\nend\nset size to ((4000) / ([sqrt v] of ([sqrt v] of (((差x) * (差x)) + ((差y) * (差y))) ) )) %\n\nwhen flag clicked\nforever\n    play sound [wav \(online-audio-converter v] until done\nend\n\ngo to x: (0) y: (0)\nswitch costume to (44392a1a-1eec-4e6d-badc-0d92f2ef99c7 v)\nset size to (100) %\nshow\n\n