【Neon】100%PEN Platformer


@Stage\n\nrepeat (length of [stage data v])\n    replace item (1) of [s v] with (join (item (1) of [s v]) (join (item (1) of [stage data v]) [/]))\nend\n\n@mouse\n\ndefine mouse y\nset rotation style [all around v]\npoint in direction ((90) * ((1) - (<(mouse y) > [0]> * (2))))\ngo to x: (0) y: (0)\nset [mouse y v] to [0]\nrepeat until <touching (mouse-pointer v)?>\n    if <(mouse y) < [0]> then\n        change y by (-1)\n        change [mouse y v] by (-1)\n    else\n        change y by (1)\n        change [mouse y v] by (1)\n    end\n    if <([abs v] of (mouse Y) ) > [5000]> then\n        stop [this script v]\n    end\nend\n\nwhen flag clicked\nforever\n    mouse y\nend\n\n@ \n\ndefine 地点への向き (ax) (ay) (bx) (by)\nset [地点への向き v] to (((90) * ((1) - (<((ax) - (bx)) < [0]> * (2)))) - ([atan v] of (((ay) - (by)) / ((ax) - (bx))) ))\n\ndefine INTERNAL | printChar (num) (height) (width) (x) (y) (weight) (dotweight) (w)\nchange [_x v] by ((width) * (item (num) of [_charwidths v]))\nset [_i3 v] to (item (num) of [_charids v])\nif <(w) = []> then\n    set pen size to (weight)\nelse\n    set pen size to (w)\nend\nrepeat (item ((_i3) - (1)) of [_chardata v])\n    go to x: ((x) + ((width) * (item (_i3) of [_chardata v]))) y: ((y) + ((height) * (item ((_i3) + (1)) of [_chardata v])))\n    pen down\n    change [_i3 v] by (3)\n    repeat (item ((_i3) - (1)) of [_chardata v])\n        go to x: ((x) + ((width) * (item (_i3) of [_chardata v]))) y: ((y) + ((height) * (item ((_i3) + (1)) of [_chardata v])))\n        change [_i3 v] by (2)\n    end\n    pen up\nend\nif <(w) = []> then\n    set pen size to (dotweight)\nelse\n    set pen size to (w)\nend\nchange [_i3 v] by (1)\nrepeat (item ((_i3) - (1)) of [_chardata v])\n    go to x: ((x) + ((width) * (item (_i3) of [_chardata v]))) y: ((y) + ((height) * (item ((_i3) + (1)) of [_chardata v])))\n    pen down\n    pen up\n    change [_i3 v] by (2)\nend\n\ndefine INTERNAL | printText (text) (y) (height) (width) (space) (align) (weight) (dotweight) (text data) (w) (e)\nif <<(align) = [c]> or <(align) = [r]>> then\n    delete all of [_temp0 v]\n    set [_i0 v] to [1]\n    set [_i1 v] to [0]\n    if <(text data) = []> then\n        repeat (length of (text))\n            set [_i2 v] to (letter (_i0) of (text))\n            set [_i2 v] to (item # of (_i2) in [_chars v])\n            if <not <(_i2) = [0]>> then\n                change [_i1 v] by (((width) * (item (_i2) of [_charwidths v])) + (space))\n                add (_i2) to [_temp0 v]\n            end\n            change [_i0 v] by (1)\n        end\n    else\n        repeat ((length of (text data)) / (3))\n            set [_i2 v] to (join (letter (_i0) of (text data)) (join (letter ((_i0) + (1)) of (text data)) (letter ((_i0) + (2)) of (text data))))\n            if <not <(_i2) = [0]>> then\n                change [_i1 v] by (((width) * (item (_i2) of [_charwidths v])) + (space))\n                add (_i2) to [_temp0 v]\n            end\n            change [_i0 v] by (3)\n        end\n    end\n    if <not <(e) = []>> then\n        stop [this script v]\n    end\n    if <(align) = [c]> then\n        change [_x v] by ((-0.5) * ((_i1) - (space)))\n    else\n        change [_x v] by ((-1) * ((_i1) - (space)))\n    end\n    set [_i0 v] to [1]\n    repeat (length of [_temp0 v])\n        INTERNAL | printChar (item (_i0) of [_temp0 v]) (height) (width) (_x) (y) (weight) (dotweight) (w)\n        change [_x v] by (space)\n        change [_i0 v] by (1)\n    end\nelse\n    set [_i0 v] to [1]\n    if <(text data) = []> then\n        repeat (length of (text))\n            set [_i7 v] to (letter (_i0) of (text))\n            set [_i7 v] to (item # of (_i7) in [_chars v])\n            if <not <(_i7) = [0]>> then\n                INTERNAL | printChar (_i7) (height) (width) (_x) (y) (weight) (dotweight) (w)\n                change [_x v] by (space)\n            end\n            change [_i0 v] by (1)\n        end\n    else\n        repeat ((length of (text data)) / (3))\n            set [_i7 v] to (join (letter (_i0) of (text data)) (join (letter ((_i0) + (1)) of (text data)) (letter ((_i0) + (2)) of (text data))))\n            if <not <(_i7) = [0]>> then\n                INTERNAL | printChar (_i7) (height) (width) (_x) (y) (weight) (dotweight) (w)\n                change [_x v] by (space)\n            end\n            change [_i0 v] by (3)\n        end\n    end\nend\n\ndefine Print | Pos (x) (y) Size (size) Width (width) RGB (r) (g) (b) Weight (w) CSpace (cspace) Align (align) Text (text) Text data (text data) W (ww) EE (e)\npen up\nset pen color to ((((65536) * (round (r))) + ((256) * (round (g)))) + (round (b)))\nset [_x v] to (x)\nset [_i0 v] to ((0.01) * (size))\nset [_i1 v] to ([abs v] of ((0.125) * ((w) * (size))) )\nif <<(size) = (round (size))> and <not <(w) < [0]>>> then\n    if <<((round (_i1)) mod (2)) = [0]> and <not <(_i1) < [0.5]>>> then\n        set [_y v] to (round (y))\n    else\n        set [_y v] to (([floor v] of (y) ) + (0.5))\n    end\nelse\n    set [_y v] to (y)\nend\nif <(w) < [0]> then\n    set [_i2 v] to ((0.125) * (size))\nelse\n    set [_i2 v] to (_i1)\nend\nINTERNAL | printText (text) (_y) (_i0) ((width) * (_i0)) (((cspace) * ((0.475) * ((size) / ([log v] of (((size) + (1.01)) * ((size) + (1.01))) )))) + (_i2)) (align) (_i1) ((_i1) + (1)) (text data) (ww) (e)\n\ndefine 二点間距離 (a x) (a y) (b x) (b y)\nset [二点間距離 v] to ([sqrt v] of ((((a x) - (b x)) * ((a x) - (b x))) + (((a y) - (b y)) * ((a y) - (b y)))) )\n\ndefine 四角同士の当たり判定確認 (x1) (y1) (x2) (y2) (x3) (y3) (x4) (y4)\nset [四角当たり判定 v] to <<<(y1) > (y4)> and <(y3) > (y2)>> and <<(x4) > (x1)> and <(x2) > (x3)>>>\n\nwhen flag clicked\nset [変数 v] to [1]\nset [name data v] to []\nrepeat (length of (username))\n    set [変数2 v] to (item # of (letter (変数) of (username)) in [_chars v])\n    if <(length of (変数2)) = [1]> then\n        set [変数2 v] to (join [00] (変数2))\n    end\n    if <(length of (変数2)) = [2]> then\n        set [変数2 v] to (join [0] (変数2))\n    end\n    set [name data v] to (join (name data) (変数2))\n    change [変数 v] by (1)\nend\nif <[☁ranking name v] contains (username)?> then\n    set [best time v] to (item (item # of (username) in [☁ranking name v]) of [☁ranking time v])\nend\nset [s v] to [0]\nhide\ndelete all of [_ v]\nrepeat (17)\n    add [0] to [_ v]\nend\nreplace item (4) of [_ v] with [0]\nreplace item (6) of [_ v] with [100]\nreplace item (7) of [_ v] with [1]\nreplace item (8) of [_ v] with [-300]\nreplace item (9) of [_ v] with [0]\nreplace item (10) of [_ v] with [.8]\nreplace item (13) of [_ v] with [300]\ndelete all of [rr v]\nrepeat (5)\n    add [0] to [rr v]\nend\nstage [2]\nReset\nset [cam x v] to [-100]\nset [cam y v] to [5]\nset [y v] to [-85]\nforever\n    start/\nend\n\ndefine 描画\nerase all\nset pen color to (#000000)\ngo to x: (0) y: (0)\nset pen size to (666)\npen down\npen up\nstage描画更新\nset [変数 v] to [1]\nrepeat ((length of [stage描画 v]) / (8))\n    set pen color to (item ((変数) + (5)) of [stage描画 v])\n    if <(item ((変数) + (4)) of [stage描画 v]) = [2]> then\n        CP確認 (変数)\n        if <(CP確認) = [false]> then\n            set pen color to (#158200)\n        else\n            set pen color to (#2aff00)\n        end\n    end\n    set pen size to (7)\n    if <<(item ((変数) + (4)) of [stage描画 v]) = [1]> or <(item ((変数) + (4)) of [stage描画 v]) = [2]>> then\n        repeat (2)\n            Square (item (変数) of [stage描画 v]) (item ((変数) + (1)) of [stage描画 v]) (item ((変数) + (2)) of [stage描画 v]) (item ((変数) + (3)) of [stage描画 v]) ((item (変数) of [stage描画 v]) / (1.6)) ((item ((変数) + (1)) of [stage描画 v]) / (1.6)) ((item ((変数) + (2)) of [stage描画 v]) / (1.6)) ((item ((変数) + (3)) of [stage描画 v]) / (1.6)) ((item ((変数) + (4)) of [stage描画 v]) + (1)) []\n            if <(item ((変数) + (4)) of [stage描画 v]) = [2]> then\n                CP確認 (変数)\n                if <(CP確認) = [false]> then\n                    set pen color to (#828282)\n                else\n                    set pen color to (#ffffff)\n                end\n            else\n                set pen color to (#ffffff)\n            end\n            set pen size to (2)\n        end\n    else\n        if <(item ((変数) + (4)) of [stage描画 v]) = [3]> then\n            set pen color to (#ff0094)\n            Circle ((item (変数) of [stage描画 v]) / (1.2)) ((item ((変数) + (1)) of [stage描画 v]) / (1.2)) [80]\n        else\n            if <(item ((変数) + (4)) of [stage描画 v]) = [3]> then\n        end\n    end\n    change [変数 v] by (8)\nend\nif <(dd) = [0]> then\n    set pen color to (#00f2ff)\n    set pen size to ((7) * ((size) / (100)))\n    repeat (2)\n        Square ((((x) + ((-15) * ((size) / (100)))) - (cam x)) / (1.2)) ((((y) + ((15) * ((size) / (100)))) - (cam y)) / (1.2)) ((((x) + ((15) * ((size) / (100)))) - (cam x)) / (1.2)) ((((y) + ((-15) * ((size) / (100)))) - (cam y)) / (1.2)) [] [] [] [] [1] []\n        set pen color to (#ffffff)\n        set pen size to ((2) * ((size) / (100)))\n    end\nend\nset [変数 v] to [1]\nrepeat ((length of [stage描画 v]) / (8))\n    set pen color to (item ((変数) + (5)) of [stage描画 v])\n    set pen size to (7)\n    if <(item ((変数) + (4)) of [stage描画 v]) = [1]> then\n        Square ((item (変数) of [stage描画 v]) / (1.05)) ((item ((変数) + (1)) of [stage描画 v]) / (1.05)) ((item ((変数) + (2)) of [stage描画 v]) / (1.05)) ((item ((変数) + (3)) of [stage描画 v]) / (1.05)) (item (変数) of [stage描画 v]) (item ((変数) + (1)) of [stage描画 v]) (item ((変数) + (2)) of [stage描画 v]) (item ((変数) + (3)) of [stage描画 v]) [2] []\n    else\n        if <(item ((変数) + (4)) of [stage描画 v]) = [2]> then\n            CP確認 (変数)\n            if <(CP確認) = [false]> then\n                set pen color to (#158200)\n            else\n                set pen color to (#2aff00)\n            end\n            Square (item (変数) of [stage描画 v]) (item ((変数) + (1)) of [stage描画 v]) (item ((変数) + (2)) of [stage描画 v]) (item ((変数) + (3)) of [stage描画 v]) ((item (変数) of [stage描画 v]) / (1.6)) ((item ((変数) + (1)) of [stage描画 v]) / (1.6)) ((item ((変数) + (2)) of [stage描画 v]) / (1.6)) ((item ((変数) + (3)) of [stage描画 v]) / (1.6)) [4] [6]\n        else\n            if <(item ((変数) + (4)) of [stage描画 v]) = [3]> then\n        end\n    end\n    set pen color to (#ffffff)\n    set pen size to (2)\n    if <(item ((変数) + (4)) of [stage描画 v]) = [1]> then\n        Square ((item (変数) of [stage描画 v]) / (1.15)) ((item ((変数) + (1)) of [stage描画 v]) / (1.15)) ((item ((変数) + (2)) of [stage描画 v]) / (1.15)) ((item ((変数) + (3)) of [stage描画 v]) / (1.15)) (item (変数) of [stage描画 v]) (item ((変数) + (1)) of [stage描画 v]) (item ((変数) + (2)) of [stage描画 v]) (item ((変数) + (3)) of [stage描画 v]) [2] []\n    else\n        if <(item ((変数) + (4)) of [stage描画 v]) = [2]> then\n            CP確認 (変数)\n            if <(CP確認) = [false]> then\n                set pen color to (#828282)\n            end\n            Square (item (変数) of [stage描画 v]) (item ((変数) + (1)) of [stage描画 v]) (item ((変数) + (2)) of [stage描画 v]) (item ((変数) + (3)) of [stage描画 v]) ((item (変数) of [stage描画 v]) / (1.6)) ((item ((変数) + (1)) of [stage描画 v]) / (1.6)) ((item ((変数) + (2)) of [stage描画 v]) / (1.6)) ((item ((変数) + (3)) of [stage描画 v]) / (1.6)) [4] [2]\n        end\n    end\n    change [変数 v] by (8)\nend\nif <(dd) > [0]> then\n    set pen color to (#00f2ff)\n    set pen size to (7)\n    repeat (2)\n        Square [] [] [] [] ((x) - (cam x)) ((y) - (cam y)) [21] [] [1] (direction)\n        set pen color to (#ffffff)\n        set pen size to (2)\n    end\nend\nstage更新\n\ndefine move\nset [x speed v] to (((x speed) + (((item (1) of [キー v]) - (item (2) of [キー v])) * (1))) * (.9))\nchange [x v] by (x speed)\n当たり判定 [1]\nif <[] = []> then\n    change [y speed v] by (-1)\n    change [dc v] by (1)\nelse\n    set [y speed v] to (((y speed) + ((item (3) of [キー v]) - (item (4) of [キー v]))) * (.9))\nend\nif <([abs v] of (y speed) ) > [14]> then\n    if <(y speed) < [0]> then\n        change [y v] by ((y speed) mod (-14))\n        当たり判定 [2]\n        repeat (((y speed) - ((y speed) mod (-14))) / (-14))\n            change [y v] by (-14)\n            当たり判定 [2]\n        end\n    else\n        change [y v] by ((y speed) mod (14))\n        当たり判定 [2]\n        repeat (((y speed) - ((y speed) mod (14))) / (14))\n            change [y v] by (14)\n            当たり判定 [2]\n        end\n    end\nelse\n    change [y v] by (y speed)\n    当たり判定 [2]\nend\nif <<(dc) > [60]> or <key (r v) pressed?>> then\n    set [dc v] to [0]\n    set [dd v] to [1]\nend\n\ndefine Reset\nreset timer\nset [x v] to (初期x)\nset [y v] to (初期y)\nset [x speed v] to [0]\nset [y speed v] to [0]\nset [cam x v] to (初期x)\nset [cam y v] to ((初期y) + (90))\nset [goal v] to [0]\nset [c v] to [0]\nset [time v] to [0]\nset [end v] to [0]\nset [dd v] to [0]\nset [dc v] to [0]\nset [size v] to [100]\nset [direction v] to []\ndelete all of [cp v]\nadd (join (初期x) (join [/] (初期y))) to [cp v]\nadd (初期x) to [cp v]\nadd (初期y) to [cp v]\ndelete all of [キー v]\nrepeat (4)\n    add [false] to [キー v]\nend\n\ndefine 当たり判定 (x,y)\nset [変数 v] to [1]\nrepeat ((length of [stage v]) / (12))\n    if <(item ((変数) + (4)) of [stage v]) = [5]> then\n        二点間距離 (x) (y) (item (変数) of [stage v]) (item ((変数) + (1)) of [stage v])\n        if <(二点間距離) < [70]> then\n            set [end v] to [1]\n            set [goal x v] to (item (変数) of [stage v])\n            set [goal y v] to (item ((変数) + (1)) of [stage v])\n        end\n    end\n    四角同士の当たり判定確認 ((x) + (-15)) ((y) + (15)) ((x) + (15)) ((y) + (-15)) (item (変数) of [stage v]) (item ((変数) + (1)) of [stage v]) (item ((変数) + (2)) of [stage v]) (item ((変数) + (3)) of [stage v])\n    if <(四角当たり判定) = [true]> then\n        if <(item ((変数) + (4)) of [stage v]) = [2]> then\n            set [dd v] to [1]\n        end\n        if <(item ((変数) + (4)) of [stage v]) = [3]> then\n            add ((item (変数) of [stage v]) + (((item ((変数) + (2)) of [stage v]) - (item (変数) of [stage v])) / (2))) to [cp v]\n            add ((item ((変数) + (3)) of [stage v]) + (40)) to [cp v]\n            if <[cp v] contains (join (item ((length of [cp v]) - (1)) of [cp v]) (join [/] (item (length of [cp v]) of [cp v])))?> then\n                repeat (2)\n                    delete (length of [cp v]) of [cp v]\n                end\n            else\n                insert (join (item ((length of [cp v]) - (1)) of [cp v]) (join [/] (item (length of [cp v]) of [cp v]))) at ((length of [cp v]) - (1)) of [cp v] \n            end\n        end\n        if <not <(item ((変数) + (4)) of [stage v]) = [3]>> then\n            if <(x,y) = [1]> then\n                if <(x) < ((item (変数) of [stage v]) + (((item ((変数) + (2)) of [stage v]) - (item (変数) of [stage v])) / (2)))> then\n                    set [x v] to ((item (変数) of [stage v]) + (-15))\n                else\n                    set [x v] to ((item ((変数) + (2)) of [stage v]) + (15))\n                end\n                set [x speed v] to ((x speed) * (.1))\n            else\n                set [dc v] to [0]\n                if <(y) < ((item ((変数) + (1)) of [stage v]) + (((item ((変数) + (3)) of [stage v]) - (item ((変数) + (1)) of [stage v])) / (2)))> then\n                    set [y v] to ((item ((変数) + (3)) of [stage v]) + (-15))\n                else\n                    set [y v] to ((item ((変数) + (1)) of [stage v]) + (15))\n                end\n                if <<(y speed) < [0]> and (item (3) of [キー v])> then\n                    set [y speed v] to [13]\n                else\n                    set [y speed v] to [0]\n                end\n                replace item ((変数) + (9)) of [stage v] with [1]\n            end\n        end\n    end\n    change [変数 v] by (12)\nend\n\ndefine stage更新\nif <[] = [1]> then\n    delete all of [stage v]\n    set [変数 v] to [1]\n    repeat ((length of [stage data v]) / (8))\n        repeat (7)\n            add (item (変数) of [stage data v]) to [stage v]\n            change [変数 v] by (1)\n        end\n        repeat (5)\n            add [] to [stage v]\n        end\n        change [変数 v] by (1)\n    end\nend\nset [変数 v] to [1]\nrepeat ((length of [stage data v]) / (8))\n    replace item (1) of [stage更新 v] with (item (((((変数) - (1)) * (8)) + (1)) + (7)) of [stage data v])\n    if <not <(item (1) of [stage更新 v]) = []>> then\n        if <(letter (1) of (item (1) of [stage更新 v])) = [a]> then\n            if <(item ((((変数) - (1)) * (12)) + (11)) of [stage v]) = []> then\n                replace item ((((変数) - (1)) * (12)) + (11)) of [stage v] with (join (letter (11) of (item (1) of [stage更新 v])) (join (letter (12) of (item (1) of [stage更新 v])) (letter (13) of (item (1) of [stage更新 v]))))\n            end\n            if <<not <(item ((((変数) - (1)) * (12)) + (12)) of [stage v]) = (join (letter (8) of (item (1) of [stage更新 v])) (join (letter (9) of (item (1) of [stage更新 v])) (letter (10) of (item (1) of [stage更新 v]))))>> and <(([sin v] of ((((item ((((変数) - (1)) * (12)) + (11)) of [stage v]) + (1)) * (item (3) of [stage更新 v])) mod (360)) ) * (item (4) of [stage更新 v])) = (([sin v] of ((((item ((((変数) - (1)) * (12)) + (11)) of [stage v]) + (-1)) * (item (3) of [stage更新 v])) mod (360)) ) * (item (4) of [stage更新 v]))>> then\n                replace item ((((変数) - (1)) * (12)) + (12)) of [stage v] with ((item ((((変数) - (1)) * (12)) + (12)) of [stage v]) + (1))\n            else\n                if <(s) = [1]> then\n                    replace item ((((変数) - (1)) * (12)) + (11)) of [stage v] with ((item ((((変数) - (1)) * (12)) + (11)) of [stage v]) + (1))\n                end\n                replace item ((((変数) - (1)) * (12)) + (12)) of [stage v] with []\n                replace item (2) of [stage更新 v] with (letter (2) of (item (1) of [stage更新 v]))\n                replace item (3) of [stage更新 v] with ((join (letter (3) of (item (1) of [stage更新 v])) (letter (4) of (item (1) of [stage更新 v]))) / (10))\n                replace item (4) of [stage更新 v] with (join (letter (5) of (item (1) of [stage更新 v])) (join (letter (6) of (item (1) of [stage更新 v])) (letter (7) of (item (1) of [stage更新 v]))))\n                replace item (5) of [stage更新 v] with (([sin v] of (((item ((((変数) - (1)) * (12)) + (11)) of [stage v]) * (item (3) of [stage更新 v])) mod (360)) ) * (item (4) of [stage更新 v]))\n                replace item (6) of [stage更新 v] with (<(item (2) of [stage更新 v]) = [2]> * (item (5) of [stage更新 v]))\n                replace item (5) of [stage更新 v] with (<(item (2) of [stage更新 v]) = [1]> * (item (5) of [stage更新 v]))\n                replace item (5) of [stage更新 v] with (item (5) of [stage更新 v])\n                replace item (6) of [stage更新 v] with (item (6) of [stage更新 v])\n                replace item ((((変数) - (1)) * (12)) + (1)) of [stage v] with ((item ((((変数) - (1)) * (8)) + (1)) of [stage data v]) + (item (5) of [stage更新 v]))\n                replace item ((((変数) - (1)) * (12)) + (2)) of [stage v] with ((item ((((変数) - (1)) * (8)) + (2)) of [stage data v]) + (item (6) of [stage更新 v]))\n                replace item ((((変数) - (1)) * (12)) + (3)) of [stage v] with ((item ((((変数) - (1)) * (8)) + (3)) of [stage data v]) + (item (5) of [stage更新 v]))\n                replace item ((((変数) - (1)) * (12)) + (4)) of [stage v] with ((item ((((変数) - (1)) * (8)) + (4)) of [stage data v]) + (item (6) of [stage更新 v]))\n                replace item ((((変数) - (1)) * (12)) + ((8) + <(item (2) of [stage更新 v]) = [2]>)) of [stage v] with ((item ((5) + <(item (2) of [stage更新 v]) = [2]>) of [stage更新 v]) - (([sin v] of ((((item ((((変数) - (1)) * (12)) + (11)) of [stage v]) - (1)) * (item (3) of [stage更新 v])) mod (360)) ) * (item (4) of [stage更新 v])))\n                replace item ((((変数) - (1)) * (12)) + ((9) - <(item (2) of [stage更新 v]) = [2]>)) of [stage v] with [0]\n            end\n            if <(item (2) of [stage更新 v]) = [1]> then\n                if <(item ((((変数) - (1)) * (12)) + (10)) of [stage v]) = [1]> then\n                    change [x v] by (item ((((変数) - (1)) * (12)) + (8)) of [stage v])\n                end\n            else\n                四角同士の当たり判定確認 ((x) + (-15)) ((y) + (15)) ((x) + (15)) ((y) + (-15)) (item ((((変数) - (1)) * (10)) + (1)) of [stage v]) (item ((((変数) - (1)) * (10)) + (2)) of [stage v]) (item ((((変数) - (1)) * (10)) + (3)) of [stage v]) (item ((((変数) - (1)) * (10)) + (4)) of [stage v])\n                if <(四角当たり判定) = [true]> then\n                    if <(item ((((変数) - (1)) * (12)) + (9)) of [stage v]) < [0]> then\n                        set [y v] to ((item ((((変数) - (1)) * (12)) + (4)) of [stage v]) + (-15.1))\n                    else\n                        set [y v] to ((item ((((変数) - (1)) * (12)) + (2)) of [stage v]) + (15))\n                    end\n                else\n                    if <(item ((((変数) - (1)) * (12)) + (10)) of [stage v]) = [1]> then\n                        if <(item ((((変数) - (1)) * (12)) + (9)) of [stage v]) < [0]> then\n                            set [y v] to ((item ((((変数) - (1)) * (12)) + (2)) of [stage v]) + (15))\n                        else\n                            set [y v] to ((item ((((変数) - (1)) * (12)) + (4)) of [stage v]) + (-15.1))\n                        end\n                    end\n                end\n            end\n        end\n    end\n    replace item ((((変数) - (1)) * (12)) + (10)) of [stage v] with [0]\n    change [変数 v] by (1)\nend\n\ndefine cam (x) (y)\nchange [cam x v] by (((x) - (cam x)) / (10))\nchange [cam y v] by (((y) - (cam y)) / (10))\n\ndefine Square (x1) (y1) (x2) (y2) (x3) (y3) (x4) (y4) (l) (d)\nif <(l) = [1]> then\n    if <(d) = []> then\n        go to x: (x1) y: (y1)\n        pen down\n        go to x: (x2) y: (y1)\n        go to x: (x2) y: (y2)\n        go to x: (x1) y: (y2)\n        go to x: (x1) y: (y1)\n        pen up\n    else\n        go to x: (((x3) + (([sin v] of (d) ) * (x4))) / (1.2)) y: (((y3) + (([cos v] of (d) ) * (x4))) / (1.2))\n        pen down\n        go to x: (((x3) + (([sin v] of ((d) + (90)) ) * (x4))) / (1.2)) y: (((y3) + (([cos v] of ((d) + (90)) ) * (x4))) / (1.2))\n        go to x: (((x3) + (([sin v] of ((d) + (180)) ) * (x4))) / (1.2)) y: (((y3) + (([cos v] of ((d) + (180)) ) * (x4))) / (1.2))\n        go to x: (((x3) + (([sin v] of ((d) + (270)) ) * (x4))) / (1.2)) y: (((y3) + (([cos v] of ((d) + (270)) ) * (x4))) / (1.2))\n        go to x: (((x3) + (([sin v] of (d) ) * (x4))) / (1.2)) y: (((y3) + (([cos v] of (d) ) * (x4))) / (1.2))\n        pen up\n    end\nelse\n    if <(l) = [2]> then\n        go to x: (x1) y: (y1)\n        pen down\n        go to x: (x3) y: (y3)\n        go to x: (x4) y: (y3)\n        go to x: (x2) y: (y1)\n        go to x: (x4) y: (y3)\n        go to x: (x4) y: (y4)\n        go to x: (x2) y: (y2)\n        go to x: (x4) y: (y4)\n        go to x: (x3) y: (y4)\n        go to x: (x1) y: (y2)\n        go to x: (x3) y: (y4)\n        go to x: (x3) y: (y3)\n        pen up\n    else\n        if <(l) = [3]> then\n            go to x: (x1) y: (y1)\n            pen down\n            go to x: (x3) y: (y3)\n            go to x: (x1) y: (y2)\n            go to x: (x3) y: (y4)\n            go to x: (x3) y: (y3)\n            go to x: (x4) y: (y3)\n            go to x: (x2) y: (y1)\n            go to x: (x4) y: (y4)\n            go to x: (x2) y: (y2)\n            go to x: (x4) y: (y4)\n            go to x: (x4) y: (y3)\n            go to x: (x3) y: (y4)\n            go to x: (x4) y: (y4)\n            pen up\n        else\n            if <(l) = [4]> then\n                go to x: ((x1) + (((x3) - (x1)) / (d))) y: ((y1) + (((y3) - (y1)) / (d)))\n                pen down\n                go to x: (x1) y: (y1)\n                go to x: (x2) y: (y1)\n                go to x: ((x2) + (((x4) - (x2)) / (d))) y: ((y1) + (((y3) - (y1)) / (d)))\n                go to x: (x2) y: (y1)\n                go to x: ((x2) + (((x4) - (x2)) / (d))) y: ((y1) + (((y4) - (y1)) / (d)))\n                go to x: (x2) y: (y1)\n                go to x: (x2) y: (y2)\n                go to x: ((x2) + (((x4) - (x2)) / (d))) y: ((y2) + (((y4) - (y2)) / (d)))\n                go to x: (x2) y: (y2)\n                go to x: (x1) y: (y2)\n                go to x: ((x1) + (((x3) - (x1)) / (d))) y: ((y2) + (((y4) - (y2)) / (d)))\n                go to x: (x1) y: (y2)\n                go to x: ((x1) + (((x3) - (x1)) / (d))) y: ((y2) + (((y3) - (y2)) / (d)))\n                go to x: (x1) y: (y2)\n                go to x: (x1) y: (y1)\n                go to x: (x2) y: (y2)\n                pen up\n            end\n        end\n    end\nend\n\ndefine stage描画更新\ndelete all of [stage描画 v]\nset [変数 v] to [1]\nrepeat ((length of [stage v]) / (12))\n    if <<<<(((item (変数) of [stage v]) - (cam x)) / (1.6)) < [250]> and <(((item ((変数) + (2)) of [stage v]) - (cam x)) / (1.6)) > [-250]>> or <<<(((item (変数) of [stage v]) - (cam x)) / (1.6)) < [250]> and <(((item (変数) of [stage v]) - (cam x)) / (1.6)) > [-250]>> or <<(((item ((変数) + (2)) of [stage v]) - (cam x)) / (1.6)) < [250]> and <(((item ((変数) + (2)) of [stage v]) - (cam x)) / (1.6)) > [-250]>>>> and <<<(((item ((変数) + (1)) of [stage v]) - (cam y)) / (1.6)) > [190]> and <(((item ((変数) + (3)) of [stage v]) - (cam y)) / (1.6)) < [-190]>> or <<<(((item ((変数) + (3)) of [stage v]) - (cam y)) / (1.6)) < [190]> and <(((item ((変数) + (3)) of [stage v]) - (cam y)) / (1.6)) > [-190]>> or <<(((item ((変数) + (1)) of [stage v]) - (cam y)) / (1.6)) < [190]> and <(((item ((変数) + (1)) of [stage v]) - (cam y)) / (1.6)) > [-190]>>>>> then\n        add ((item (変数) of [stage v]) - (cam x)) to [stage描画 v]\n        add ((item ((変数) + (1)) of [stage v]) - (cam y)) to [stage描画 v]\n        add ((item ((変数) + (2)) of [stage v]) - (cam x)) to [stage描画 v]\n        add ((item ((変数) + (3)) of [stage v]) - (cam y)) to [stage描画 v]\n        add (item ((変数) + (5)) of [stage v]) to [stage描画 v]\n        add (item ((変数) + (6)) of [stage v]) to [stage描画 v]\n        if <([abs v] of ((item ((変数) + (2)) of [stage v]) - (cam x)) ) < ([abs v] of ((item (変数) of [stage v]) - (cam x)) )> then\n            add ([abs v] of ((item ((変数) + (2)) of [stage v]) - (cam x)) ) to [stage描画 v]\n        else\n            add ([abs v] of ((item (変数) of [stage v]) - (cam x)) ) to [stage描画 v]\n        end\n        if <([abs v] of ((item ((変数) + (3)) of [stage v]) - (cam y)) ) < ([abs v] of ((item ((変数) + (1)) of [stage v]) - (cam y)) )> then\n            add ([abs v] of ((item ((変数) + (3)) of [stage v]) - (cam y)) ) to [stage描画 v]\n        else\n            add ([abs v] of ((item ((変数) + (1)) of [stage v]) - (cam y)) ) to [stage描画 v]\n        end\n    end\n    change [変数 v] by (12)\nend\nset [変数 v] to [1]\nrepeat ((length of [stage描画 v]) / (8))\n    set [変数2 v] to (変数)\n    repeat until <(変数2) = [1]>\n        if <<not <(item ((変数2) + (-4)) of [stage描画 v]) = [3]>> and <(item ((変数2) + (7)) of [stage描画 v]) < (item ((変数2) + (-1)) of [stage描画 v])>> then\n            set [変数2 v] to [1]\n        end\n        if <(item ((変数2) + (4)) of [stage描画 v]) = [3]> then\n            set [変数2 v] to [1]\n        end\n        if <not <(変数2) = [1]>> then\n            repeat (8)\n                insert (item (((変数2) + (-1)) - ((length of [stage描画 v]) mod (8))) of [stage描画 v]) at ((変数2) + (8)) of [stage描画 v] \n            end\n            repeat (8)\n                delete ((変数2) + (-8)) of [stage描画 v]\n            end\n            change [変数2 v] by (-8)\n        end\n    end\n    change [変数 v] by (8)\nend\nrepeat (3)\n    set [変数 v] to [1]\n    repeat ((length of [stage描画 v]) / (8))\n        set [変数2 v] to (変数)\n        repeat until <(変数2) = [1]>\n            set [四角当たり判定 v] to [false]\n            if <(四角当たり判定) = [true]> then\n                stage描画更新2\n            end\n            if <<not <(item ((変数2) + (-4)) of [stage描画 v]) = [3]>> and <<(item ((変数2) + (6)) of [stage描画 v]) < (item ((変数2) + (-2)) of [stage描画 v])> or <<<(item ((変数2) + (-6)) of [stage描画 v]) > (item ((変数2) + ()) of [stage描画 v])> and <(item ((変数2) + (-6)) of [stage描画 v]) < (item ((変数2) + (2)) of [stage描画 v])>> or <<<(item ((変数2) + (2)) of [stage描画 v]) > (item ((変数2) + (-8)) of [stage描画 v])> and <(item ((変数2) + (2)) of [stage描画 v]) < (item ((変数2) + (-6)) of [stage描画 v])>> or <<<(item ((変数2) + (-8)) of [stage描画 v]) > (item ((変数2) + ()) of [stage描画 v])> and <(item ((変数2) + (-8)) of [stage描画 v]) < (item ((変数2) + (2)) of [stage描画 v])>> or <<(item ((変数2) + ()) of [stage描画 v]) > (item ((変数2) + (-8)) of [stage描画 v])> and <(item ((変数2) + ()) of [stage描画 v]) < (item ((変数2) + (-6)) of [stage描画 v])>>>>>>> then\n                set [変数2 v] to [1]\n            end\n            if <(item ((変数2) + (4)) of [stage描画 v]) = [3]> then\n                set [変数2 v] to [1]\n            end\n            if <not <(変数2) = [1]>> then\n                repeat (8)\n                    insert (item (((変数2) + (-1)) - ((length of [stage描画 v]) mod (8))) of [stage描画 v]) at ((変数2) + (8)) of [stage描画 v] \n                end\n                repeat (8)\n                    delete ((変数2) + (-8)) of [stage描画 v]\n                end\n                change [変数2 v] by (-8)\n            end\n        end\n        change [変数 v] by (8)\n    end\nend\n\ndefine all\nchange [c v] by (1)\nif <(end) = [0]> then\n    if <(dd) = [0]> then\n        cam (x) ((y) + (90))\n        描画\n        押されたキー\n        move\n    else\n        dd\n        描画\n    end\n    if <(item (c) of [time v]) = [0]> then\n        set [time v] to [0.000]\n    else\n        set [time v] to (item (c) of [time v])\n        if <(c) > (length of [time v])> then\n            set [time v] to [850.000]\n        end\n        repeat ((5) - (length of ((round (((time) - ([floor v] of (time) )) * (1000))) / (1000))))\n            set [time v] to (join (time) [0])\n        end\n    end\nelse\n    描画\n    goal\nend\nPrint | Pos [-180] [150] Size [15] Width [1] RGB [] [] [255] Weight [3] CSpace [1] Align [] Text (time) Text data [] W [] EE []\nPrint | Pos [-180] [150] Size [15] Width [1] RGB [255] [255] [255] Weight [3] CSpace [1] Align [] Text (time) Text data [] W [2] EE []\nPrint | Pos [-233] [150] Size [10] Width [1] RGB [] [] [255] Weight [4] CSpace [1] Align [] Text [Time] Text data [047010014006] W [] EE []\nPrint | Pos [-233] [150] Size [10] Width [1] RGB [255] [255] [255] Weight [4] CSpace [1] Align [] Text [Time] Text data [047010014006] W [2] EE []\n\ndefine triangle (x1) (y1) (x2) (y2) (x3) (y3) (x4) (y4) (x5) (y5) (l)\nif <(l) = [1]> then\n    go to x: (x5) y: (y5)\n    pen down\n    go to x: (x1) y: (y1)\n    go to x: (x2) y: (y2)\n    go to x: (x5) y: (y5)\n    go to x: (x2) y: (y2)\n    go to x: (x4) y: (y4)\n    go to x: (x5) y: (y5)\n    go to x: (x4) y: (y4)\n    go to x: (x3) y: (y3)\n    go to x: (x5) y: (y5)\n    go to x: (x3) y: (y3)\n    go to x: (x1) y: (y1)\n    pen up\n    pen up\nend\n\ndefine dd\nif <(dd) = [1]> then\n    set [direction v] to [45]\n    set [y speed v] to [15]\n    change [x v] by (() - (x speed))\n    if <((cam y) - (y)) > [235]> then\n        set [y v] to ((cam y) + (-236))\n        set [y speed v] to [18]\n    end\n    change [dd v] by (1)\nelse\n    change [direction v] by (([abs v] of (y speed) ) + (6))\n    change [y v] by (y speed)\n    change [y speed v] by (-1)\n    change [cam x v] by (((x) - (cam x)) / (10))\n    change [dd v] by (1)\n    if <(dd) > [60]> then\n        set [dd v] to [0]\n        set [direction v] to []\n        set [x v] to (item ((length of [cp v]) + (-1)) of [cp v])\n        set [y v] to (item (length of [cp v]) of [cp v])\n        set [x speed v] to [0]\n        set [y speed v] to [0]\n    end\nend\n\ndefine CP確認 (変数)\nset [cp確認 v] to <[cp v] contains (join ((round ((((item (変数) of [stage描画 v]) + (cam x)) + (((item ((変数) + (2)) of [stage描画 v]) - (item (変数) of [stage描画 v])) / (2))) * (100))) / (100)) (join [/] ((round ((((item ((変数) + (3)) of [stage描画 v]) + (cam y)) + (40)) * (100))) / (100))))?>\n\ndefine Circle (x) (y) (size)\ngo to x: (x) y: (y)\nset pen size to (size)\nrepeat (size)\n    pen down\n    pen up\n    change pen size by (-1)\n    change pen (saturation v) by ((-90) / (size))\nend\n\ndefine goal\nif <(size) > [0]> then\n    地点への向き (x) (y) (goal x) (goal y)\n    二点間距離 (x) (y) (goal x) (goal y)\n    point in direction (地点への向き)\n    turn right (65) degrees\n    change [x v] by (([sin v] of (direction) ) * ((二点間距離) / (-2)))\n    change [y v] by (([cos v] of (direction) ) * ((二点間距離) / (-2)))\n    change [size v] by (-2)\nelse\n    change [goal v] by (1)\nend\n\nset [変数 v] to [1]\nrepeat (7)\n    replace item ((変数) + ()) of [stage data v] with ((item ((変数) + ()) of [stage data v]) + (-20))\n    replace item ((変数) + (2)) of [stage data v] with ((item ((変数) + (2)) of [stage data v]) + (-20))\n    change [変数 v] by (8)\nend\nset [変数 v] to [1]\nrepeat (7)\n    replace item ((変数) + (1)) of [stage data v] with ((item ((変数) + (1)) of [stage data v]) + (-800))\n    replace item ((変数) + (3)) of [stage data v] with ((item ((変数) + (3)) of [stage data v]) + (-800))\n    change [変数 v] by (8)\nend\n\ndefine Neon (x) (y) (s)\ninsert [2] at (1) of [neon v] \nrepeat until <(item (1) of [neon v]) > (length of [neon v])>\n    if <(letter (1) of (item (item (1) of [neon v]) of [neon v])) = [#]> then\n        set pen color to (item (item (1) of [neon v]) of [neon v])\n    else\n        if <(letter (1) of (item (item (1) of [neon v]) of [neon v])) = [!]> then\n            set pen size to ((join (letter (2) of (item (item (1) of [neon v]) of [neon v])) (letter (3) of (item (item (1) of [neon v]) of [neon v]))) * (s))\n        else\n            if <(letter (1) of (item (item (1) of [neon v]) of [neon v])) = [?]> then\n                change pen size by ((join (letter (2) of (item (item (1) of [neon v]) of [neon v])) (join (letter (3) of (item (item (1) of [neon v]) of [neon v])) (letter (4) of (item (item (1) of [neon v]) of [neon v])))) * (s))\n            else\n                if <(letter (1) of (item (item (1) of [neon v]) of [neon v])) = [＿]> then\n                    pen down\n                else\n                    if <(letter (1) of (item (item (1) of [neon v]) of [neon v])) = [￣]> then\n                        pen up\n                    else\n                        go to x: (((item (item (1) of [neon v]) of [neon v]) * (s)) + (x)) y: (((item ((item (1) of [neon v]) + (1)) of [neon v]) * (s)) + (y))\n                        replace item (1) of [neon v] with ((item (1) of [neon v]) + (1))\n                    end\n                end\n            end\n        end\n    end\n    replace item (1) of [neon v] with ((item (1) of [neon v]) + (1))\nend\ndelete (1) of [neon v]\n\ndefine 押されたキー\nreplace item (1) of [キー v] with <<key (right arrow v) pressed?> or <key (d v) pressed?>>\nreplace item (2) of [キー v] with <<key (left arrow v) pressed?> or <key (a v) pressed?>>\nreplace item (3) of [キー v] with <<key (up arrow v) pressed?> or <key (w v) pressed?>>\nreplace item (4) of [キー v] with <<key (down arrow v) pressed?> or <key (s v) pressed?>>\n\ndefine stage (data)\ndelete all of [stage data v]\nset [変数 v] to [1]\nrepeat until <<(length of (item (data) of [s v])) = (変数)> or <(変数) > (length of (item (data) of [s v]))>>\n    add [] to [stage data v]\n    repeat until <(letter (変数) of (item (data) of [s v])) = [/]>\n        replace item (length of [stage data v]) of [stage data v] with (join (item (length of [stage data v]) of [stage data v]) (letter (変数) of (item (data) of [s v])))\n        change [変数 v] by (1)\n    end\n    change [変数 v] by (1)\nend\ndelete all of [stage v]\nset [変数 v] to [1]\nrepeat ((length of [stage data v]) / (8))\n    repeat (7)\n        add (item (変数) of [stage data v]) to [stage v]\n        change [変数 v] by (1)\n    end\n    repeat (5)\n        add [] to [stage v]\n    end\n    change [変数 v] by (1)\nend\n\nstage [1]\nReset\nforever\n    all\nend\n\ndefine start button (x) (y) (direction) (size)\nset pen color to (#0000ff)\nset pen size to ((size) * (30))\nset [変数 v] to [0]\nrepeat (4)\n    Go to ((x) + ((size) * (70))) ((y) + ((size) * (18))) (direction) (size) (x) (y)\n    pen down\n    Go to ((x) + ((size) * (70))) ((y) + ((size) * (-18))) (direction) (size) (x) (y)\n    Go to ((x) + ((size) * (-70))) ((y) + ((size) * (-18))) (direction) (size) (x) (y)\n    Go to ((x) + ((size) * (-70))) ((y) + ((size) * (18))) (direction) (size) (x) (y)\n    Go to ((x) + ((size) * (70))) ((y) + ((size) * (18))) (direction) (size) (x) (y)\n    pen up\n    if <(変数) = [0]> then\n        set pen color to (#ffffff)\n        set pen size to ((size) * (24))\n    else\n        if <(変数) = [1]> then\n            set pen color to (#0000ff)\n            set pen size to ((size) * (16))\n        else\n            set pen color to (#000000)\n            set pen size to ((size) * (10))\n        end\n    end\n    change [変数 v] by (1)\nend\nset pen color to (#000000)\nset pen size to ((size) * (20))\nGo to ((x) + ((size) * (-55))) ((y) + ((size) * (10))) (direction) (size) (x) (y)\npen down\nGo to ((x) + ((size) * (55))) ((y) + ((size) * (10))) (direction) (size) (x) (y)\nGo to ((x) + ((size) * (55))) ((y) + ((size) * (-10))) (direction) (size) (x) (y)\nGo to ((x) + ((size) * (-55))) ((y) + ((size) * (-10))) (direction) (size) (x) (y)\nGo to ((x) + ((size) * (-55))) ((y) + ((size) * (10))) (direction) (size) (x) (y)\npen up\nset pen color to (#0000ff)\nset pen size to ((size) * ((size) * (6)))\nrepeat (2)\n    Go to ((x) + ((size) * (15))) ((y) + (0)) (direction) (size) (x) (y)\n    pen down\n    Go to ((x) + ((size) * (-13))) ((y) + ((size) * (15))) (direction) (size) (x) (y)\n    Go to ((x) + ((size) * (-13))) ((y) + ((size) * (-15))) (direction) (size) (x) (y)\n    Go to ((x) + ((size) * (15))) ((y) + (0)) (direction) (size) (x) (y)\n    pen up\n    set pen color to (#ffffff)\n    set pen size to ((size) * (2))\nend\n\ndefine Go to (x) (y) (d) (s) (x2) (y2)\n二点間距離 (x) (y) (x2) (y2)\n地点への向き (x) (y) (x2) (y2)\ngo to x: ((x2) + (((二点間距離) * (s)) * ([sin v] of ((d) + (地点への向き)) ))) y: ((y2) + (((s) * (二点間距離)) * ([cos v] of ((d) + (地点への向き)) )))\n\ndefine start/\nif <<(item (4) of [_ v]) = [0]> or <<(item (4) of [_ v]) = [1]> or <(item (4) of [_ v]) = [2]>>> then\n    cam [-100] ((y) + (90))\n    描画\n    move\n    Neon [] [100] [1]\n    Print | Pos [] [-15] Size [16] Width [1] RGB [255] [] [] Weight [4] CSpace [-.5] Align [c] Text [100%PEN 2.5D scroll platformer] Text data [055054054068043032041001056086059031001046004019016013013001043013002021007016019014006019] W [] EE []\n    Print | Pos [] [-15] Size [16] Width [1] RGB [255] [255] [255] Weight [4] CSpace [-.5] Align [c] Text [100%PEN 2.5D scroll platformer] Text data [055054054068043032041001056086059031001046004019016013013001043013002021007016019014006019] W [2] EE []\n    Print | Pos [-205] [-15] Size [16] Width [1] RGB [255] [255] [] Weight [4] CSpace [-.5] Align [] Text [100%PEN] Text data [055054054068043032041] W [2] EE []\n    Print | Pos [] [-160] Size [12] Width [1] RGB [255] [255] [255] Weight [1] CSpace [1] Align [c] Text [Click the mouse or tap any key] Text data [030013010004012001021009006001040016022020006001016019001047002017001002015026001012006026] W [] EE []\n    set pen color to (#000000)\n    set pen (transparency v) to (item (1) of [_ v])\n    set pen size to (30)\n    go to x: (180) y: (-160)\n    pen down\n    set x to (-180)\n    pen up\n    if <(item (4) of [_ v]) = [2]> then\n        set pen color to (#000000)\n        set pen size to (30)\n        go to x: (180) y: (-160)\n        pen down\n        set x to (-180)\n        pen up\n        set pen color to (#000000)\n        set pen (transparency v) to (item (1) of [_ v])\n        set pen size to (30)\n        go to x: (300) y: (-8)\n        pen down\n        set x to (-300)\n        pen up\n    end\n    if <(item (4) of [_ v]) = [0]> then\n        if <(item (2) of [_ v]) = [0]> then\n            replace item (1) of [_ v] with ((item (1) of [_ v]) + (-2))\n            if <(item (1) of [_ v]) < [-10]> then\n                replace item (2) of [_ v] with [1]\n            end\n        else\n            replace item (1) of [_ v] with ((item (1) of [_ v]) + (2))\n            if <(item (1) of [_ v]) > [140]> then\n                replace item (2) of [_ v] with [0]\n            end\n        end\n        if <<(mouse) = [1]> or <key (any v) pressed?>> then\n            replace item (4) of [_ v] with [1]\n            replace item (1) of [_ v] with [100]\n            replace item (2) of [_ v] with [0]\n        end\n    else\n        if <(item (4) of [_ v]) = [1]> then\n            if <(item (1) of [_ v]) > [99]> then\n                replace item (1) of [_ v] with ((item (1) of [_ v]) + (1))\n                if <(item (1) of [_ v]) = [102]> then\n                    replace item (1) of [_ v] with [0]\n                    replace item (2) of [_ v] with ((item (2) of [_ v]) + (1))\n                end\n            else\n                replace item (1) of [_ v] with ((item (1) of [_ v]) + (-1))\n                if <(item (1) of [_ v]) = [-2]> then\n                    replace item (1) of [_ v] with [100]\n                    replace item (2) of [_ v] with ((item (2) of [_ v]) + (1))\n                end\n            end\n            if <(item (2) of [_ v]) = [5]> then\n                replace item (4) of [_ v] with [2]\n                replace item (2) of [_ v] with [0]\n                replace item (1) of [_ v] with [100]\n            end\n        end\n    end\n    if <(item (4) of [_ v]) = [2]> then\n        if <(item (2) of [_ v]) > [30]> then\n            replace item (1) of [_ v] with ((item (1) of [_ v]) + (-5))\n            if <(item (1) of [_ v]) < [0]> then\n                replace item (4) of [_ v] with [3]\n                replace item (1) of [_ v] with [0]\n            end\n        end\n        replace item (2) of [_ v] with ((item (2) of [_ v]) + (3))\n    end\nelse\n    if <(item (4) of [_ v]) = [3]> then\n        cam [-605] ((y) + (90))\n        描画\n        四角同士の当たり判定確認 [80] [40] [220] [-20] (mouse x) (mouse y) (mouse x) (mouse y)\n        replace item (13) of [_ v] with ((item (13) of [_ v]) + (((150) - (item (13) of [_ v])) / (10)))\n        if <(四角当たり判定) = [false]> then\n            replace item (9) of [_ v] with ((item (9) of [_ v]) + (((0) - (item (9) of [_ v])) / (10)))\n            replace item (10) of [_ v] with ((item (10) of [_ v]) + (((.8) - (item (10) of [_ v])) / (10)))\n            replace item (11) of [_ v] with ((item (11) of [_ v]) + (((0) - (item (11) of [_ v])) / (10)))\n        else\n            if <(mouse) = [1]> then\n                if <(round (cam x)) < [-600]> then\n                    replace item (4) of [_ v] with [4]\n                    stage [1]\n                    Reset\n                    set [cam x v] to [-605]\n                end\n            end\n            replace item (11) of [_ v] with (round (item (11) of [_ v]))\n            replace item (9) of [_ v] with ((item (9) of [_ v]) + (((5) - (item (9) of [_ v])) / (5)))\n            replace item (10) of [_ v] with ((item (10) of [_ v]) + (((.9) - (item (10) of [_ v])) / (5)))\n            if <((item (12) of [_ v]) + ()) = [0]> then\n                replace item (11) of [_ v] with ((item (11) of [_ v]) + (2))\n                if <(item (11) of [_ v]) > [7]> then\n                    replace item (12) of [_ v] with [1]\n                end\n            else\n                replace item (11) of [_ v] with ((item (11) of [_ v]) + (-2))\n                if <(item (11) of [_ v]) < [-7]> then\n                    replace item (12) of [_ v] with [0]\n                end\n            end\n        end\n        start button (item (13) of [_ v]) (item (9) of [_ v]) (item (11) of [_ v]) (item (10) of [_ v])\n        replace item (5) of [_ v] with ((item (5) of [_ v]) + (((145) - (item (5) of [_ v])) / (10)))\n        replace item (6) of [_ v] with ((item (6) of [_ v]) + (((130) - (item (6) of [_ v])) / (10)))\n        replace item (7) of [_ v] with ((item (7) of [_ v]) + (((.5) - (item (7) of [_ v])) / (10)))\n        Neon (item (5) of [_ v]) (item (6) of [_ v]) (item (7) of [_ v])\n        replace item (8) of [_ v] with ((item (8) of [_ v]) + (((0) - (item (8) of [_ v])) / (10)))\n        ☁Ranking (item (8) of [_ v]) []\n    else\n        if <(item (4) of [_ v]) = [4]> then\n            if <(s) = [0]> then\n                set [c v] to [0]\n                reset timer\n            end\n            all\n            replace item (8) of [_ v] with ((item (8) of [_ v]) + (((-300) - (item (8) of [_ v])) / (10)))\n            ☁Ranking (item (8) of [_ v]) []\n            replace item (6) of [_ v] with ((item (6) of [_ v]) + (((240) - (item (6) of [_ v])) / (10)))\n            Neon (item (5) of [_ v]) (item (6) of [_ v]) (item (7) of [_ v])\n            replace item (9) of [_ v] with ((item (9) of [_ v]) + (((0) - (item (9) of [_ v])) / (10)))\n            replace item (10) of [_ v] with ((item (10) of [_ v]) + (((.8) - (item (10) of [_ v])) / (10)))\n            replace item (11) of [_ v] with ((item (11) of [_ v]) + (((0) - (item (11) of [_ v])) / (10)))\n            replace item (13) of [_ v] with ((item (13) of [_ v]) + (((300) - (item (13) of [_ v])) / (10)))\n            start button (item (13) of [_ v]) (item (9) of [_ v]) (item (11) of [_ v]) (item (10) of [_ v])\n            if <((item (1) of [キー v]) + ((item (2) of [キー v]) + (item (3) of [キー v]))) > [0]> then\n                set [s v] to [1]\n            end\n            if <not <(size) > [0]>> then\n                replace item (4) of [_ v] with [5]\n                replace item (13) of [_ v] with [100]\n            end\n        else\n            if <(item (4) of [_ v]) = [5]> then\n                all\n                go to x: (0) y: (0)\n                set pen size to (666)\n                set pen color to (#000000)\n                set pen (transparency v) to (item (13) of [_ v])\n                pen down\n                pen up\n                if <(item (13) of [_ v]) < [0]> then\n                    replace item (14) of [_ v] with [-300]\n                    replace item (15) of [_ v] with [-400]\n                    replace item (16) of [_ v] with [-800]\n                    replace item (4) of [_ v] with [6]\n                    replace item (17) of [_ v] with [300]\n                    if <<(best time) = [-]> or <(time) < (best time)>> then\n                        set [best time v] to (time)\n                        if <[☁ranking name v] contains (username)?> then\n                            replace item (item # of (username) in [☁ranking name v]) of [☁ranking time v] with (best time)\n                        else\n                            add (best time) to [☁ranking time v]\n                            add (username) to [☁ranking name v]\n                            add (name data) to [☁ranking v]\n                        end\n                        順序\n                        if <(item # of (username) in [☁ranking name v]) < [100]> then\n                            set [☁ data v] to (best time)\n                        end\n                        if <(☁ data) < [60]> then\n                    end\n                end\n                replace item (13) of [_ v] with ((item (13) of [_ v]) + (-2))\n            else\n                if <<(item (4) of [_ v]) = [6]> or <(item (4) of [_ v]) = [7]>> then\n                    go to x: (0) y: (0)\n                    set pen size to (666)\n                    set pen color to (#000000)\n                    pen down\n                    pen up\n                    Print | Pos [] (item (17) of [_ v]) Size [45] Width [1] RGB [] [255] [255] Weight [4] CSpace [.6] Align [c] Text [you win!!] Text data [052016022001024010015064064] W [] EE []\n                    Print | Pos [] (item (17) of [_ v]) Size [45] Width [1] RGB [255] [255] [255] Weight [4] CSpace [.6] Align [c] Text [you win!!] Text data [052016022001024010015064064] W [6] EE []\n                    if <(item (4) of [_ v]) = [7]> then\n                        replace item (14) of [_ v] with ((item (14) of [_ v]) + (((-300) - (item (14) of [_ v])) / (10)))\n                        replace item (15) of [_ v] with ((item (15) of [_ v]) + (((-400) - (item (15) of [_ v])) / (10)))\n                        replace item (16) of [_ v] with ((item (16) of [_ v]) + (((-800) - (item (16) of [_ v])) / (10)))\n                        replace item (17) of [_ v] with ((item (17) of [_ v]) + (((300) - (item (17) of [_ v])) / (10)))\n                        if <(round (item (14) of [_ v])) = [-300]> then\n                            set [cam x v] to [-605]\n                            set [s v] to [0]\n                            replace item (4) of [_ v] with [3]\n                        end\n                    else\n                        replace item (14) of [_ v] with ((item (14) of [_ v]) + (((0) - (item (14) of [_ v])) / (10)))\n                        replace item (15) of [_ v] with ((item (15) of [_ v]) + ((() - (item (15) of [_ v])) / (10)))\n                        replace item (16) of [_ v] with ((item (16) of [_ v]) + ((() - (item (16) of [_ v])) / (10)))\n                        replace item (17) of [_ v] with ((item (17) of [_ v]) + (((40) - (item (17) of [_ v])) / (10)))\n                    end\n                    Print | Pos ((item (15) of [_ v]) + (100)) [-40] Size [15] Width [1] RGB [] [] [255] Weight [3] CSpace [1] Align [r] Text (time) Text data [] W [] EE []\n                    Print | Pos ((item (15) of [_ v]) + (100)) [-40] Size [15] Width [1] RGB [255] [255] [255] Weight [3] CSpace [1] Align [r] Text (time) Text data [] W [2] EE []\n                    Print | Pos ((item (15) of [_ v]) + (-20)) [-40] Size [10] Width [1] RGB [] [] [255] Weight [4] CSpace [1] Align [r] Text [] Text data [047010014006] W [] EE []\n                    Print | Pos ((item (15) of [_ v]) + (-20)) [-40] Size [10] Width [1] RGB [255] [255] [255] Weight [4] CSpace [1] Align [r] Text [] Text data [047010014006] W [2] EE []\n                    Print | Pos ((item (16) of [_ v]) + (100)) [-90] Size [15] Width [1] RGB [255] [] [] Weight [3] CSpace [1] Align [r] Text (best time) Text data [] W [] EE []\n                    Print | Pos ((item (16) of [_ v]) + (100)) [-90] Size [15] Width [1] RGB [255] [255] [255] Weight [3] CSpace [1] Align [r] Text (best time) Text data [] W [2] EE []\n                    Print | Pos ((item (16) of [_ v]) + (-20)) [-90] Size [10] Width [1] RGB [255] [] [] Weight [4] CSpace [1] Align [r] Text [] Text data [029006020021001047010014006] W [] EE []\n                    Print | Pos ((item (16) of [_ v]) + (-20)) [-90] Size [10] Width [1] RGB [255] [255] [255] Weight [4] CSpace [1] Align [r] Text [] Text data [029006020021001047010014006] W [2] EE []\n                    go to x: () y: ((item (14) of [_ v]) + (-140))\n                    set pen color to (#ffffff)\n                    set pen size to (56)\n                    pen down\n                    pen up\n                    set pen color to (#000000)\n                    set pen size to (52)\n                    pen down\n                    pen up\n                    set pen color to (#ffffff)\n                    set pen size to (6)\n                    go to x: (-15) y: ((item (14) of [_ v]) + (-140))\n                    pen down\n                    go to x: (-5) y: ((item (14) of [_ v]) + (-130))\n                    go to x: (-15) y: ((item (14) of [_ v]) + (-140))\n                    go to x: (-5) y: ((item (14) of [_ v]) + (-150))\n                    go to x: (-15) y: ((item (14) of [_ v]) + (-140))\n                    go to x: (15) y: ((item (14) of [_ v]) + (-140))\n                    pen up\n                    二点間距離 [0] ((item (14) of [_ v]) + (-140)) (mouse x) (mouse y)\n                    if <<(二点間距離) < [56]> and <(mouse) = [1]>> then\n                        replace item (4) of [_ v] with [7]\n                    end\n                else\n                    if <(item (4) of [_ v]) = [8]> then\n                end\n            end\n        end\n    end\nend\n\nPrint | Pos [-86] [-15] Size [16] Width [1] RGB [255] [255] [255] Weight [6] CSpace [-1.8] Align [] Text [2.5D scroll platformer] Text data [001056086059031001046004019016013013001043013002021007016019014006019] W [] EE []\nPrint | Pos [-205] [-15] Size [16] Width [1] RGB [255] [255] [] Weight [6] CSpace [-1.8] Align [] Text [100%PEN] Text data [055054054068043032041] W [] EE []\n\nwhen flag clicked\nforever\n    if <mouse down?> then\n        if <(mouse) = [0]> then\n            set [mouse v] to [1]\n        else\n            set [mouse v] to [2]\n        end\n    else\n        set [mouse v] to [0]\n    end\nend\n\ndefine ☁Ranking (x) (y)\n順序\nif <<(mouse) = [0]> or <(item (5) of [rr v]) = [2]>> then\n    replace item (2) of [rr v] with ((item (2) of [rr v]) + (item (4) of [rr v]))\n    replace item (4) of [rr v] with ((item (4) of [rr v]) * (.9))\n    if <(mouse) = [0]> then\n        replace item (5) of [rr v] with [0]\n    end\nelse\n    if <(mouse) = [1]> then\n        if <<(mouse x) > ((x) + (-220))> and <(mouse x) < ((x) + (40))>> then\n            replace item (3) of [rr v] with (mouse Y)\n            replace item (5) of [rr v] with [1]\n        else\n            replace item (5) of [rr v] with [2]\n        end\n    else\n        if <(item (5) of [rr v]) = [1]> then\n            replace item (4) of [rr v] with ((mouse Y) - (item (3) of [rr v]))\n            replace item (3) of [rr v] with (mouse Y)\n            replace item (2) of [rr v] with ((item (2) of [rr v]) + (item (4) of [rr v]))\n        end\n    end\nend\nset pen color to (#4e4e4e)\nsq ((x) + (-230)) ((y) + (170)) ((x) + (50)) ((y) + (-170)) [20] []\nset pen color to (#1b1b1b)\nsq ((x) + (-220)) ((y) + (137)) ((x) + (40)) ((y) + (-130)) [2] []\nif <(item (2) of [rr v]) > [3207]> then\n    replace item (2) of [rr v] with [3207]\nend\nif <(item (2) of [rr v]) < [0]> then\n    replace item (2) of [rr v] with [0]\nend\nreplace item (1) of [rr v] with ((1) + (((item (2) of [rr v]) - ((item (2) of [rr v]) mod (35))) / (35)))\nrepeat (9)\n    if <((((item (1) of [rr v]) - (1)) * (-35)) + (item (2) of [rr v])) > [-258]> then\n        if <(item (1) of [rr v]) = [1]> then\n            set pen color to (#ffff00)\n        else\n            if <(item (1) of [rr v]) = [2]> then\n                set pen color to (#e6e6e6)\n            else\n                if <(item (1) of [rr v]) = [3]> then\n                    set pen color to (#dc8000)\n                else\n                    if <(item (1) of [rr v]) < [11]> then\n                        set pen color to (#672f4f)\n                    else\n                        set pen color to (#000000)\n                    end\n                end\n            end\n        end\n        set pen size to (26)\n        set y to ((((y) + (115)) + (((item (1) of [rr v]) - (1)) * (-35))) + (item (2) of [rr v]))\n        repeat (2)\n            set x to ((x) + (-200))\n            pen down\n            set x to ((x) + (20))\n            pen up\n            set pen color to (#1b1b1b)\n            set pen size to (24)\n        end\n        Print | Pos ((x) + (-190)) ((((y) + (109)) + (((item (1) of [rr v]) - (1)) * (-35))) + (item (2) of [rr v])) Size [12] Width [1] RGB [255] [255] [255] Weight [1] CSpace [1] Align [c] Text (join [#] (item (1) of [rr v])) Text data [] W [] EE []\n        Print | Pos [] [] Size [10] Width [1] RGB [255] [255] [255] Weight [1] CSpace [1] Align [c] Text [] Text data (item (item (1) of [rr v]) of [☁ranking v]) W [] EE [1]\n        Print | Pos ((x) + (-95)) ((((y) + (109)) + (((item (1) of [rr v]) - (1)) * (-35))) + (item (2) of [rr v])) Size ((10) * (<not <(_i1) > [135]>> + ((1) * (<(_i1) > [135]> * ((135) / (_i1)))))) Width [1] RGB [255] [255] [255] Weight [1] CSpace [1] Align [c] Text [] Text data (item (item (1) of [rr v]) of [☁ranking v]) W [] EE []\n        Print | Pos ((x) + (0)) ((((y) + (109)) + (((item (1) of [rr v]) - (1)) * (-35))) + (item (2) of [rr v])) Size [9] Width [1] RGB [255] [255] [255] Weight [1] CSpace [1] Align [c] Text (item (item (1) of [rr v]) of [☁ranking time v]) Text data [] W [] EE []\n        replace item (1) of [rr v] with ((item (1) of [rr v]) + (1))\n    end\nend\nset pen color to (#4e4e4e)\nset pen size to (40)\ngo to x: ((x) + (-210)) y: ((y) + (-150))\npen down\nset x to ((x) + (30))\npen up\nset pen color to (#4e4e4e)\nset pen size to (33)\ngo to x: ((x) + (-213.5)) y: ((y) + (153.5))\npen down\nset x to ((x) + (33.5))\npen up\nPrint | Pos ((x) + (-90)) ((y) + (148)) Size [12] Width [1] RGB [255] [255] [255] Weight [1] CSpace [1] Align [c] Text [Cloud Ranking] Text data [030013016022005001045002015012010015008] W [] EE []\nif <[☁ranking name v] contains (username)?> then\n    if <(item # of (username) in [☁ranking name v]) > [99]> then\n        replace item (1) of [rr v] with [-]\n    else\n        replace item (1) of [rr v] with (item # of (username) in [☁ranking name v])\n    end\nelse\n    replace item (1) of [rr v] with [-]\nend\nif <(item (1) of [rr v]) = [1]> then\n    set pen color to (#ffff00)\nelse\n    if <(item (1) of [rr v]) = [2]> then\n        set pen color to (#e6e6e6)\n    else\n        if <(item (1) of [rr v]) = [3]> then\n            set pen color to (#dc8000)\n        else\n            if <(item (1) of [rr v]) < [11]> then\n                set pen color to (#672f4f)\n            else\n                set pen color to (#000000)\n            end\n        end\n    end\nend\nset pen size to (26)\nset y to ((y) + (-150))\nrepeat (2)\n    set x to ((x) + (-200))\n    pen down\n    set x to ((x) + (20))\n    pen up\n    set pen color to (#1b1b1b)\n    set pen size to (24)\nend\nPrint | Pos ((x) + (-190)) ((y) + (-156)) Size [12] Width [1] RGB [255] [255] [255] Weight [1] CSpace [1] Align [c] Text (join [#] (item (1) of [rr v])) Text data [] W [] EE []\nPrint | Pos [] [] Size [10] Width [1] RGB [255] [255] [255] Weight [1] CSpace [1] Align [c] Text (username) Text data [] W [] EE [1]\nPrint | Pos ((x) + (-95)) ((y) + (-156)) Size ((10) * (<not <(_i1) > [135]>> + ((1) * (<(_i1) > [135]> * ((135) / (_i1)))))) Width [1] RGB [255] [255] [255] Weight [1] CSpace [1] Align [c] Text (username) Text data [] W [] EE []\nPrint | Pos ((x) + (0)) ((y) + (-156)) Size [9] Width [1] RGB [255] [255] [255] Weight [1] CSpace [1] Align [c] Text (best time) Text data [] W [] EE []\n\ndefine sq (x1) (y1) (x2) (y2) (s) (c)\nif <(c) < [10]> then\n    set pen size to (s)\n    go to x: ((x1) + ((s) / (2))) y: ((y1) - ((s) / (2)))\n    pen down\n    go to x: ((x2) - ((s) / (2))) y: ((y1) - ((s) / (2)))\n    go to x: ((x2) - ((s) / (2))) y: ((y2) + ((s) / (2)))\n    go to x: ((x1) + ((s) / (2))) y: ((y2) + ((s) / (2)))\n    go to x: ((x1) + ((s) / (2))) y: ((y1) - ((s) / (2)))\n    pen up\n    if <<((s) * (2)) < ((x2) - (x1))> or <((s) * (2)) < ((y1) - (y2))>> then\n        if <<((s) * (6)) > ((x2) - (x1))> or <((s) * (6)) > ((y1) - (y2))>> then\n            if <((x2) - (x1)) < ((y1) - (y2))> then\n                sq (x1) (y1) (x2) (y2) ((x2) - (x1)) ((c) + (1))\n            else\n                sq (x1) (y1) (x2) (y2) ((y1) - (y2)) ((c) + (1))\n            end\n        else\n            sq (x1) (y1) (x2) (y2) ((s) * (6)) ((c) + (1))\n        end\n    end\nend\n\ngo to x: (0) y: (0)\npoint in direction (90)\nshow\n\ndefine stage描画更新2\nif <(item ((変数2) + ()) of [stage描画 v]) < ((item ((変数2) + ()) of [stage描画 v]) / (1.6))> then\n    add ((item ((変数2) + ()) of [stage描画 v]) + (-5)) to [_ v]\nelse\n    add (((item ((変数2) + ()) of [stage描画 v]) / (1.6)) + (-5)) to [_ v]\nend\nif <(item ((変数2) + (1)) of [stage描画 v]) < ((item ((変数2) + (1)) of [stage描画 v]) / (1.6))> then\n    add (((item ((変数2) + (1)) of [stage描画 v]) / (1.6)) + (5)) to [_ v]\nelse\n    add ((item ((変数2) + (1)) of [stage描画 v]) + (5)) to [_ v]\nend\nif <(item ((変数2) + (2)) of [stage描画 v]) < ((item ((変数2) + (2)) of [stage描画 v]) / (1.6))> then\n    add (((item ((変数2) + (2)) of [stage描画 v]) / (1.6)) + (5)) to [_ v]\nelse\n    add ((item ((変数2) + (2)) of [stage描画 v]) + (5)) to [_ v]\nend\nif <(item ((変数2) + (3)) of [stage描画 v]) < ((item ((変数2) + (3)) of [stage描画 v]) / (1.6))> then\n    add ((item ((変数2) + (3)) of [stage描画 v]) + (-5)) to [_ v]\nelse\n    add (((item ((変数2) + (3)) of [stage描画 v]) / (1.6)) + (-5)) to [_ v]\nend\nif <(item ((変数2) + (-8)) of [stage描画 v]) < ((item ((変数2) + (-8)) of [stage描画 v]) / (1.6))> then\n    add ((item ((変数2) + (-8)) of [stage描画 v]) + (-5)) to [_ v]\nelse\n    add (((item ((変数2) + (-8)) of [stage描画 v]) / (1.6)) + (-5)) to [_ v]\nend\nif <(item ((変数2) + (-7)) of [stage描画 v]) < ((item ((変数2) + (-7)) of [stage描画 v]) / (1.6))> then\n    add (((item ((変数2) + (-7)) of [stage描画 v]) / (1.6)) + (5)) to [_ v]\nelse\n    add ((item ((変数2) + (-7)) of [stage描画 v]) + (5)) to [_ v]\nend\nif <(item ((変数2) + (-6)) of [stage描画 v]) < ((item ((変数2) + (-6)) of [stage描画 v]) / (1.6))> then\n    add (((item ((変数2) + (-6)) of [stage描画 v]) / (1.6)) + (5)) to [_ v]\nelse\n    add ((item ((変数2) + (-6)) of [stage描画 v]) + (5)) to [_ v]\nend\nif <(item ((変数2) + (-5)) of [stage描画 v]) < ((item ((変数2) + (-5)) of [stage描画 v]) / (1.6))> then\n    add ((item ((変数2) + (-5)) of [stage描画 v]) + (-5)) to [_ v]\nelse\n    add (((item ((変数2) + (-5)) of [stage描画 v]) / (1.6)) + (-5)) to [_ v]\nend\n四角同士の当たり判定確認 (item ((length of [_ v]) + (-7)) of [_ v]) (item ((length of [_ v]) + (-6)) of [_ v]) (item ((length of [_ v]) + (-5)) of [_ v]) (item ((length of [_ v]) + (-4)) of [_ v]) (item ((length of [_ v]) + (-3)) of [_ v]) (item ((length of [_ v]) + (-2)) of [_ v]) (item ((length of [_ v]) + (-1)) of [_ v]) (item (length of [_ v]) of [_ v])\nrepeat (8)\n    delete (length of [_ v]) of [_ v]\nend\n\nset [best time v] to [-]\n\ndefine 順序\nset [変数 v] to [1]\nrepeat until <(変数) > (length of [☁ranking v])>\n    repeat until <not <(item (変数) of [☁ranking time v]) < (item ((変数) + (-1)) of [☁ranking time v])>>\n        insert (item (変数) of [☁ranking time v]) at ((変数) - (1)) of [☁ranking time v] \n        delete ((変数) + (1)) of [☁ranking time v]\n        insert (item (変数) of [☁ranking name v]) at ((変数) - (1)) of [☁ranking name v] \n        delete ((変数) + (1)) of [☁ranking name v]\n        insert (item (変数) of [☁ranking v]) at ((変数) - (1)) of [☁ranking v] \n        delete ((変数) + (1)) of [☁ranking v]\n        change [変数 v] by (-1)\n    end\n    change [変数 v] by (1)\nend\n\n