Sky platformer!! NEW version!!

Instructions:     <English>                          Difficulty ★★★☆☆         \nThis is sky platformer  \n (Mobile compatible)\n    ~~How to play~~\n　・Right ant left ⇔\n　・Jamp ↑　\n　　　　　　Enjoy this game!!\n　　　<日本語>　(モバイル対応)\n　　~~遊び方~~\n　・矢印キー\n

@Stage\n\nwhen I receive [開始 v]\nforever\n    play sound [Inferno v] until done\nend\n\n@四角\n\nwhen flag clicked\nhide\n\nwhen I receive [次 v]\nchange [ステージ v] by (1)\ngo to x: (-200) y: (-60)\nswitch costume to (主人公 v)\nset rotation style [left-right v]\ngo to [front v] layer\nset [x v] to [0]\nset [y v] to [0]\n\ndefine 死\nrepeat (25)\n    change [brightness v] effect by (4)\nend\ngo to x: (-200) y: (-80)\nswitch costume to (主人公 v)\nset rotation style [left-right v]\ngo to [front v] layer\nclear graphic effects\nset [x v] to [0]\nset [y v] to [0]\n\nwhen I receive [開始 v]\nset [ジャンプ中 v] to [0]\nforever\n    if <<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <<mouse down?> and <(mouse y) > [0]>>> then\n        start sound [ぷよん v]\n        set [y v] to [15]\n        set [ジャンプ中 v] to [1]\n        wait until <(ジャンプ中) = [0]>\n    end\nend\n\nwhen I receive [開始 v]\ngo to x: (-200) y: (-60)\nswitch costume to (主人公 v)\nset rotation style [left-right v]\ngo to [front v] layer\nset [x v] to [0]\nset [y v] to [0]\nset size to (80) %\nclear graphic effects\nshow\nforever\n    if <<<key (a v) pressed?> or <key (left arrow v) pressed?>> or <<mouse down?> and <(mouse x) < [0]>>> then\n        point in direction (-90)\n        change [x v] by (-1)\n    end\n    if <<<key (d v) pressed?> or <key (right arrow v) pressed?>> or <<mouse down?> and <(mouse x) > [0]>>> then\n        point in direction (90)\n        change [x v] by (1)\n    end\n    set [x v] to ((X) * (0.85))\n    change x by (X)\n    if <touching color (#005fff)?> then\n        change y by (5)\n        if <touching color (#005fff)?> then\n            change x by ((0) - (X))\n            change y by (-5)\n            if <<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <<mouse down?> and <(mouse y) > [0]>>> then\n                if <[0] < (X)> then\n                    set [x v] to [-7]\n                else\n                    set [x v] to [7]\n                end\n                set [y v] to [12]\n            else\n                set [x v] to [0]\n            end\n        end\n    end\n    change [y v] by (-1)\n    change y by (Y)\n    if <touching color (#005fff)?> then\n        change y by ((0) - (Y))\n        set [y v] to [0]\n        set [ジャンプ中 v] to [0]\n    end\n    if <<touching color (#a5a5a5)?> or <<touching color (#808080)?> or <touching color (#ff0000)?>>> then\n        死\n    end\n    if <(y position) < [-179]> then\n        死\n    end\n    if <(x position) < [-239]> then\n        set x to (-240)\n    end\n    if <(x position) > [239]> then\n        broadcast (次 v)\n    end\nend\n\n@ステージ\n\nwhen I receive [次 v]\nnext costume\n\nwhen flag clicked\nhide\n\nwhen I receive [開始 v]\ngo to x: (-6) y: (-73)\nswitch costume to (line v)\nshow\n\n@サムネ\n\nwhen flag clicked\nforever\n    set [ghost v] effect to (100)\n    go to x: (36) y: (28)\n    go to [front v] layer\n    show\nend\n\n@Intro\n\ndefine Rotato Effect (dir)\nshow\npoint in direction ((dir) + (1))\nswitch costume to (rotato effect8 v)\nrepeat (7)\n    set [costume memory v] to (costume [name v])\n    switch costume to (poshack v)\n    turn right (([abs v] of ((dir) - (direction)) ) / (5)) degrees\n    set x to ((My x) - (\[Intro\]CameraX))\n    switch costume to (join [Rotato Effect] ((letter (14) of (Costume Memory)) + (-1)))\nend\nrepeat (34)\n    set [costume memory v] to (costume [name v])\n    switch costume to (poshack v)\n    turn right (([abs v] of ((dir) - (direction)) ) / (5)) degrees\n    set x to ((My x) - (\[Intro\]CameraX))\n    switch costume to (Costume Memory)\nend\nrepeat (7)\n    set [costume memory v] to (costume [name v])\n    switch costume to (poshack v)\n    turn right (([abs v] of ((dir) - (direction)) ) / (5)) degrees\n    set x to ((My x) - (\[Intro\]CameraX))\n    switch costume to (join [Rotato Effect] ((letter (14) of (Costume Memory)) + (1)))\nend\nhide\nclear graphic effects\n\nwhen flag clicked\nset [my y \[arrow\] v] to [0]\nset [my y v] to [0]\nset [my x v] to [0]\nswitch costume to (sizehack v)\nstart sound [Diamond Eyes - Stars v]\nreset timer\nhide\nset size to (100) %\ngo to x: (0) y: (0)\npoint in direction (90)\nclone [BG] [1]\nclone [Arrow1] [5]\nclone [Arrow2] [5]\nclone [Arrow3] [5]\nclone [Arrow4] [5]\nclone [Arrow5] [5]\nclone [Arrow6] [5]\nclone [R effect] [4]\nclone [R effect2] [4]\nclone [R effect3] [8]\nclone [R effect4] [3]\nclone [R effect5] [3]\nclone [R effect6] [10]\nclone [Fireworks] [8]\nclone [RotatoEffect] [2]\nclone [Hexagon] [1]\nclone [star] [100]\nclone [star2] [100]\nclone [Text] [3]\nclone [hole] [2]\nclone [end] [2]\n\ndefine clone (id) (count)\nset [control v] to [-1]\nrepeat (count)\n    set [cloneid v] to (id)\n    change [control v] by (1)\n    create clone of (_myself_ v)\nend\n\ndefine wait (秒)\nwait until <(timer) > (秒)>\n\nwhen I start as a clone\nif <(cloneID) = [BG]> then\n    show\n    switch costume to (screen v)\nend\nif <(cloneID) = [hole]> then\n    show\n    switch costume to (screen v)\n    set [brightness v] effect to (-100)\n    wait (2.5) seconds\n    switch costume to (join [hole] ((control) + (1)))\n    set [brightness v] effect to (0)\n    set size to (35) %\n    repeat (20)\n        if <(size) > [100]> then\n            switch costume to (sizehack v)\n        else\n            if <(size) > [49]> then\n                switch costume to (sizehack2 v)\n            end\n        end\n        change size by (((size) - (34)) * (0.3))\n        switch costume to (join [hole] ((control) + (1)))\n    end\n    repeat (50)\n        switch costume to (sizehack v)\n        Size Easing [620] [8]\n        switch costume to (join [hole] ((control) + (1)))\n        if <(control) = [1]> then\n            change [fisheye v] effect by (20)\n        end\n    end\nend\n\ndefine Firework\nshow\nrepeat (20)\n    switch costume to (join [FireWorks] ((join (letter (10) of (costume [name v])) (letter (11) of (costume [name v]))) + (1)))\n    move (Var) steps\n    set [var v] to ((Var) * (0.9))\nend\nset [var v] to [0]\nhide\nclear graphic effects\n\ndefine Dot Shot\nswitch costume to (dot v)\nshow\nrepeat (20)\n    change size by (-2)\n    move (Var) steps\n    set [var v] to ((Var) * (0.8))\n    turn right (5) degrees\nend\nset [var v] to [0]\n\ndefine Shock Wave\nset size to (0) %\nshow\nset [var v] to [10]\nrepeat (30)\n    change [fisheye v] effect by (Var)\n    change [var v] by ((Var) * (0.2))\n    Size Easing [100] [5]\nend\nhide\nclear graphic effects\n\ndefine Pos Easing (x) (y) (spd)\nchange x by (((x) - (x position)) / (spd))\nchange y by (((y) - (y position)) / (spd))\n\ndefine Angle Easing (angle) (spd)\nturn right (((angle) - (direction)) / (spd)) degrees\n\ndefine Size Easing (size) (spd)\nchange size by (((size) - (size)) / (spd))\n\ndefine Rect Effect (size)\nset size to ((size) - (50)) %\nswitch costume to (r1 v)\nshow\nset [var v] to [8]\nrepeat (17)\n    next costume\n    Size Easing (size) [5]\n    set [var v] to ((Var) * (0.8))\n    move (Var) steps\nend\nhide\nclear graphic effects\n\nwhen I start as a clone\nif <(cloneID) = [R effect6]> then\n    wait ((8) + (<[4] < (control)> * (1))) seconds\n    set y to ((-60) + (((control) mod (5)) * (30)))\n    show\n    set [brightness v] effect to (100)\n    if <(control) < [5]> then\n        set [my x v] to ((300) - (([abs v] of ((2) - ((control) mod (5))) ) * (10)))\n        point in direction (-90)\n        Rect Effect3 [80] [-10]\n    else\n        set [my x v] to ((660) + (([abs v] of ((2) - ((control) mod (5))) ) * (10)))\n        point in direction (90)\n        Rect Effect3 [80] [10]\n    end\nend\nif <(cloneID) = [R effect5]> then\n    wait (6) seconds\n    set [brightness v] effect to (100)\n    if <((control) mod (3)) = [0]> then\n        go to x: (-60) y: (60)\n    else\n        if <((control) mod (3)) = [1]> then\n            go to x: (-60) y: (20)\n        else\n            go to x: (-20) y: (60)\n        end\n    end\n    show\n    point in direction (-45)\n    Rect Effect [100]\nend\nif <(cloneID) = [R effect4]> then\n    wait (6) seconds\n    set [brightness v] effect to (100)\n    if <((control) mod (3)) = [0]> then\n        go to x: (60) y: (-60)\n    else\n        if <((control) mod (3)) = [1]> then\n            go to x: (60) y: (-20)\n        else\n            go to x: (20) y: (-60)\n        end\n    end\n    show\n    point in direction (135)\n    Rect Effect [100]\nend\nif <(cloneID) = [R effect]> then\n    wait (3.5) seconds\n    set [brightness v] effect to (100)\n    point in direction ((135) + ((control) * (-90)))\n    go to x: (([cos v] of (((control) * (90)) + (45)) ) * (100)) y: (([sin v] of (((control) * (90)) + (45)) ) * (100))\n    Rect Effect [150]\nend\nif <(cloneID) = [R effect2]> then\n    wait (3.5) seconds\n    point in direction ((135) + ((control) * (-90)))\n    go to x: (([cos v] of (((control) * (90)) + (45)) ) * (100)) y: (([sin v] of (((control) * (90)) + (45)) ) * (100))\n    Rect Effect [100]\nend\nif <(cloneID) = [R effect3]> then\n    wait (5) seconds\n    set [brightness v] effect to (100)\n    point in direction ((135) + ((control) * (-45)))\n    turn right (45) degrees\n    go to x: (([cos v] of (((control) * (45)) + (45)) ) * (100)) y: (([sin v] of (((control) * (45)) + (45)) ) * (100))\n    Rect Effect2 [135]\nend\n\nwhen I start as a clone\nif <(cloneID) = [Text]> then\n    if <(control) = [0]> then\n        set [my x v] to [0]\n    else\n        if <(control) = [1]> then\n            set [my x v] to [480]\n        else\n            set [my x v] to [960]\n        end\n    end\n    set [var v] to [0]\n    show\n    switch costume to (text v)\n    set size to (100) %\n    wait (3) seconds\n    set [size memory v] to ((size) - (1))\n    repeat (10)\n        change size by (([abs v] of ((Size Memory) - (size)) ) * (.5))\n    end\n    repeat (18)\n        point in direction ((90) + (([sin v] of ((timer) * (500)) ) * (((100) - (size)) / (5))))\n        switch costume to (poshack v)\n        set x to ((([sin v] of ((timer) * (500)) ) * (((100) - (size)) / (5))) + ((My x) - (\[Intro\]CameraX)))\n        switch costume to (text v)\n        set [var v] to ((((100) - (size)) / (5)) + ((Var) * (.8)))\n        change size by (Var)\n    end\n    set [size memory v] to ((size) - (1))\n    repeat (8)\n        change size by (([abs v] of ((Size Memory) - (size)) ) * (.5))\n    end\n    repeat (18)\n        point in direction ((90) + (([sin v] of ((timer) * (500)) ) * (((100) - (size)) / (5))))\n        switch costume to (poshack v)\n        set x to ((([sin v] of ((timer) * (500)) ) * (((100) - (size)) / (5))) + ((My x) - (\[Intro\]CameraX)))\n        switch costume to (text v)\n        set [var v] to ((((100) - (size)) / (5)) + ((Var) * (.8)))\n        change size by (Var)\n    end\n    set [size memory v] to ((size) - (1))\n    repeat (8)\n        change size by (([abs v] of ((Size Memory) - (size)) ) * (.5))\n    end\n    repeat (18)\n        point in direction ((90) + (([sin v] of ((timer) * (500)) ) * (((100) - (size)) / (5))))\n        switch costume to (poshack v)\n        set x to ((([sin v] of ((timer) * (500)) ) * (((100) - (size)) / (5))) + ((My x) - (\[Intro\]CameraX)))\n        switch costume to (text v)\n        set [var v] to ((((100) - (size)) / (5)) + ((Var) * (.8)))\n        change size by (Var)\n    end\n    set [size memory v] to ((size) + (1))\n    repeat (8)\n        change size by (([abs v] of ((Size Memory) - (size)) ) * (-0.6))\n    end\n    repeat (10)\n        switch costume to (poshack v)\n        set x to ((([sin v] of ((timer) * (500)) ) * (((100) - (size)) / (5))) + ((My x) - (\[Intro\]CameraX)))\n        switch costume to (text v)\n        set [var v] to ((((100) - (size)) / (5)) + ((Var) * (.8)))\n        change size by (Var)\n    end\n    point in direction (91)\n    repeat (32)\n        switch costume to (poshack v)\n        set x to ((([sin v] of ((timer) * (500)) ) * (((100) - (size)) / (5))) + ((My x) - (\[Intro\]CameraX)))\n        switch costume to (text v)\n        set [var v] to ((((100) - (size)) / (5)) + ((Var) * (.8)))\n        change size by (Var)\n        turn right (([abs v] of ((90) - (direction)) ) / (4)) degrees\n    end\n    set [size memory v] to ((size) - (1))\n    repeat (8)\n        change size by (([abs v] of ((Size Memory) - (size)) ) * (.4))\n        turn right (([abs v] of ((90) - (direction)) ) / (4)) degrees\n        switch costume to (poshack v)\n        set x to ((My x) - (\[Intro\]CameraX))\n        switch costume to (text v)\n    end\n    repeat (16)\n        point in direction ((90) + (([sin v] of ((timer) * (500)) ) * (((100) - (size)) / (5))))\n        switch costume to (poshack v)\n        set x to ((([sin v] of ((timer) * (500)) ) * (((100) - (size)) / (5))) + ((My x) - (\[Intro\]CameraX)))\n        switch costume to (text v)\n        set [var v] to ((((100) - (size)) / (5)) + ((Var) * (.8)))\n        change size by (Var)\n    end\n    repeat (3)\n        set [size memory v] to ((size) - (1))\n        repeat (8)\n            switch costume to (poshack v)\n            change size by (([abs v] of ((Size Memory) - (size)) ) * (.5))\n            set x to ((My x) - (\[Intro\]CameraX))\n            switch costume to (text v)\n        end\n        repeat (18)\n            point in direction ((90) + (([sin v] of ((timer) * (500)) ) * (((100) - (size)) / (5))))\n            switch costume to (poshack v)\n            set x to ((([sin v] of ((timer) * (500)) ) * (((100) - (size)) / (5))) + ((My x) - (\[Intro\]CameraX)))\n            switch costume to (text v)\n            set [var v] to ((((100) - (size)) / (5)) + ((Var) * (.8)))\n            change size by (Var)\n        end\n    end\nend\n\nwhen I start as a clone\nif <(cloneID) = [Arrow1]> then\n    set [my x v] to [0]\n    set [my y \[arrow\] v] to ((-360) - ((control) * (500)))\n    show\n    forever\n        switch costume to (poshack v)\n        go to x: ((My x) - (\[Intro\]CameraX)) y: ((My y \[Arrow\]) + ([pos y \[arrow\] v] of [intro v]))\n        switch costume to (arrow1 v)\n    end\nend\nif <(cloneID) = [Arrow2]> then\n    set [my x v] to [0]\n    set [my y \[arrow\] v] to ((-610) - ((control) * (500)))\n    show\n    forever\n        switch costume to (poshack v)\n        go to x: ((My x) - (\[Intro\]CameraX)) y: ((My y \[Arrow\]) + ([pos y \[arrow\] v] of [intro v]))\n        switch costume to (arrow2 v)\n    end\nend\n\nwhen flag clicked\nset [var2 v] to [1]\nrepeat until <(timer) > [12]>\n    change [var2 v] by (((1) - (Var2)) / (8))\nend\n\nwhen flag clicked\nrepeat (12)\n    wait (0.8) seconds\n    set [var2 v] to [15]\nend\n\nwhen flag clicked\nset [pos y \[arrow\] v] to [0]\nwait (3) seconds\nrepeat until <(timer) > [12]>\n    change [pos y \[arrow\] v] by (Var2)\nend\n\nwhen I start as a clone\nif <(cloneID) = [Fireworks]> then\n    wait (4.2) seconds\n    switch costume to (fireworks0 v)\n    set size to (80) %\n    set [brightness v] effect to (100)\n    point in direction ((control) * (45))\n    set [var v] to [10]\n    Firework\nend\n\nwhen flag clicked\nset [\[intro\]camerax v] to [0]\nwait (6) seconds\nrepeat (30)\n    change [\[intro\]camerax v] by (([abs v] of ((-1) - (\[Intro\]CameraX)) ) * (.2))\nend\nrepeat (30)\n    change [\[intro\]camerax v] by (((480) - (\[Intro\]CameraX)) / (5))\nend\nrepeat (15)\n    change [\[intro\]camerax v] by (([abs v] of ((481) - (\[Intro\]CameraX)) ) * (-0.3))\nend\nrepeat (15)\n    change [\[intro\]camerax v] by (((320) - (\[Intro\]CameraX)) / (5))\nend\nrepeat (10)\n    change [\[intro\]camerax v] by (([abs v] of ((319) - (\[Intro\]CameraX)) ) * (0.3))\nend\nrepeat (20)\n    change [\[intro\]camerax v] by (((640) - (\[Intro\]CameraX)) / (5))\nend\nrepeat (30)\n    change [\[intro\]camerax v] by (((480) - (\[Intro\]CameraX)) / (5))\nend\nbroadcast (開始 v)\nwait (1) seconds\n\nwhen I start as a clone\nif <(cloneID) = [Arrow3]> then\n    set [my x v] to [480]\n    set [my y \[arrow\] v] to ((-360) - ((control) * (500)))\n    show\n    forever\n        switch costume to (poshack v)\n        go to x: ((My x) - (\[Intro\]CameraX)) y: ((My y \[Arrow\]) + ([pos y \[arrow\] v] of [intro v]))\n        switch costume to (arrow1 v)\n    end\nend\nif <(cloneID) = [Arrow4]> then\n    set [my x v] to [480]\n    set [my y \[arrow\] v] to ((-610) - ((control) * (500)))\n    show\n    forever\n        switch costume to (poshack v)\n        go to x: ((My x) - (\[Intro\]CameraX)) y: ((My y \[Arrow\]) + ([pos y \[arrow\] v] of [intro v]))\n        switch costume to (arrow2 v)\n    end\nend\n\nwhen I start as a clone\nif <(cloneID) = [RotatoEffect]> then\n    wait (6) seconds\n    if <(control) = [0]> then\n        set [my x v] to [0]\n    else\n        set [my x v] to [480]\n    end\n    set [brightness v] effect to (100)\n    Rotato Effect [0]\nend\n\ndefine Rect Effect2 (size)\nset size to ((size) - (50)) %\nswitch costume to (r1 v)\nshow\nset [var v] to [25]\nrepeat (17)\n    next costume\n    Size Easing (size) [5]\n    move (Var) steps\n    set [var v] to ((Var) * (0.8))\nend\nhide\nclear graphic effects\n\nwhen I start as a clone\nif <(cloneID) = [Arrow5]> then\n    set [my x v] to [960]\n    set [my y \[arrow\] v] to ((-360) - ((control) * (500)))\n    show\n    forever\n        switch costume to (poshack v)\n        go to x: ((My x) - (\[Intro\]CameraX)) y: ((My y \[Arrow\]) + ([pos y \[arrow\] v] of [intro v]))\n        switch costume to (arrow1 v)\n    end\nend\nif <(cloneID) = [Arrow6]> then\n    set [my x v] to [960]\n    set [my y \[arrow\] v] to ((-610) - ((control) * (500)))\n    show\n    forever\n        switch costume to (poshack v)\n        go to x: ((My x) - (\[Intro\]CameraX)) y: ((My y \[Arrow\]) + ([pos y \[arrow\] v] of [intro v]))\n        switch costume to (arrow2 v)\n    end\nend\n\nwhen I start as a clone\nif <(cloneID) = [star]> then\n    wait (pick random (0.00) to (9.00)) seconds\n    switch costume to (star v)\n    show\n    set [my x v] to (pick random (-240.0) to (960))\n    set [my y v] to [-240]\n    set [my size v] to (pick random (50) to (100))\n    forever\n        switch costume to (poshack v)\n        go to x: ((My x) - (\[Intro\]CameraX)) y: (My y)\n        switch costume to (star v)\n        set size to (My Size) %\n        change [my x v] by ((My Size) / (-25))\n        change [my y v] by ((My Size) / (25))\n    end\nend\nif <(cloneID) = [star2]> then\n    wait (pick random (0.00) to (9.00)) seconds\n    switch costume to (star v)\n    show\n    set [my x v] to (pick random (-480) to (720))\n    set [my y v] to [-240]\n    set [my size v] to (pick random (150) to (250))\n    set [ghost v] effect to (50)\n    forever\n        switch costume to (poshack v)\n        go to x: ((My x) - (\[Intro\]CameraX)) y: (My y)\n        switch costume to (star v)\n        set size to (My Size) %\n        change [my x v] by ((My Size) / (100))\n        change [my y v] by ((My Size) / (100))\n    end\nend\n\nwhen I start as a clone\nif <(cloneID) = [Hexagon]> then\n    wait (7.3) seconds\n    show\n    switch costume to (hexagon v)\n    set size to (0) %\n    repeat (10)\n        change size by (([abs v] of ((-1) - (size)) ) * (.3))\n    end\n    repeat (50)\n        switch costume to (sizehack v)\n        Size Easing [1100] [8]\n        switch costume to (hexagon v)\n    end\nend\n\nwhen I start as a clone\nif <(cloneID) = [end]> then\n    wait ((10) + ((control) * (0.2))) seconds\n    switch costume to (sizehack v)\n    show\n    set [brightness v] effect to ((100) - ((control) * (100)))\n    switch costume to (poshack v)\n    go to x: (480) y: (480)\n    repeat (50)\n        switch costume to (poshack v)\n        Pos Easing [-20] [20] [8]\n        switch costume to (end v)\n    end\n    repeat (20)\n        change [ghost v] effect by (5)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <not <(cloneID) = [end]>> then\n    wait (11) seconds\n    delete this clone\nend\n\nwhen I start as a clone\nforever\n    set [color v] effect to (\[Intro\]Color)\nend\n\nwhen flag clicked\nset [\[intro\]color v] to [0]\nwait (6) seconds\nforever\n    change [\[intro\]color v] by (2)\nend\n\ndefine Rect Effect3 (size) ( )\nset size to ((size) - (50)) %\nswitch costume to (r18 v)\nshow\nset [var v] to ( )\nrepeat (17)\n    set [costume memory v] to (costume [name v])\n    switch costume to (poshack v)\n    Size Easing (size) [5]\n    set [var v] to ((Var) * (0.8))\n    set x to (((My x) - (\[Intro\]CameraX)) + (Var))\n    switch costume to (join [r] ((join (letter (2) of (Costume Memory)) (letter (3) of (Costume Memory))) + (-1)))\nend\nturn right (180) degrees\nrepeat (17)\n    set [costume memory v] to (costume [name v])\n    switch costume to (poshack v)\n    Size Easing (size) [5]\n    set [var v] to ((Var) * (0.8))\n    set x to (((My x) - (\[Intro\]CameraX)) + (Var))\n    switch costume to (join [r] ((join (letter (2) of (Costume Memory)) (letter (3) of (Costume Memory))) + (1)))\nend\nhide\nclear graphic effects\n\n