Scratch a Platformer #games #all


@Stage\n\nwhen I receive [the end v]\nforever\n    play sound [Unlimited v] until done\nend\n\n@軽量化\n\n@サムネ\n\nwhen flag clicked\ngo to [front v] layer\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nbroadcast (intro v)\n\n@player\n\ndefine 初期設定プログラム\nshow\npoint in direction (90)\nset [player: x v] to [0]\nset [player: y v] to [0]\nswitch costume to (stand v)\ngo to x: (-200) y: (-50)\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\nif <<key (down arrow v) pressed?> or <<mouse down?> and <(y position) > (mouse y)>>> then\n    switch costume to (しゃがむクローン v)\n    repeat (4)\n        change size by (-4)\n        change [ghost v] effect by (1.34)\n    end\n    delete this clone\nelse\n    switch costume to (止まるクローン v)\n    repeat (4)\n        change size by (-4)\n        change [ghost v] effect by (1.34)\n    end\n    delete this clone\nend\n\nwhen I receive [the end v]\nforever\n    switch costume to (止まる v)\n    if <<key (down arrow v) pressed?> or <<mouse down?> and <(y position) > (mouse y)>>> then\n        switch costume to (しゃがむ v)\n    end\nend\n\nwhen I receive [the end v]\n初期設定プログラム\nforever\n    if <<key (right arrow v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>> then\n        point in direction (90)\n        change [player: x v] by (1)\n        create clone of (_myself_ v)\n    end\n    if <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>> then\n        point in direction (-90)\n        change [player: x v] by (-1)\n        create clone of (_myself_ v)\n    end\n    set [player: x v] to ((player: x) * (0.9))\n    change x by (player: x)\n    if <touching (地面 v)?> then\n        change y by (1)\n        if <touching (地面 v)?> then\n            change y by (1)\n            if <touching (地面 v)?> then\n                change y by (1)\n                if <touching (地面 v)?> then\n                    change y by (1)\n                    if <touching (地面 v)?> then\n                        change y by (1)\n                        if <touching (地面 v)?> then\n                            change x by ((player: x) * (-1))\n                            change y by (-5)\n                            if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>> then\n                                if <(player: x) < [0]> then\n                                    set [player: x v] to [10]\n                                else\n                                    set [player: x v] to [-10]\n                                end\n                                set [player: y v] to [15]\n                            else\n                                set [player: x v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (-1)\n    if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>> then\n        if <touching (地面 v)?> then\n            set [player: y v] to [15]\n            start sound [ニュッ v]\n        end\n    end\n    change y by (1)\n    change [player: y v] by (-1)\n    change y by (player: y)\n    if <touching (地面 v)?> then\n        change y by ((player: y) * (-1))\n        set [player: y v] to [0]\n    end\n    if <[240] < (x position)> then\n        初期設定プログラム\n        broadcast (次！ v)\n        wait (3) seconds\n    end\n    if <<touching (トゲ v)?> or <(y position) < [-170]>> then\n        初期設定プログラム\n        start sound [crashed oof v]\n    end\n    if <touching (ジャンプ台 v)?> then\n        if <not <(player: y) = [0]>> then\n            set [player: y v] to [18.5]\n            start sound [Whiz v]\n        end\n    end\n    if <touching (水 v)?> then\n        set [player: x v] to ((player: x) / (1.3))\n        set [player: y v] to [0]\n        if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            change [player: y v] by (4)\n        else\n            change [player: y v] by (-2)\n        end\n    end\n    if <(ステージ) = [19]> then\n        change [player: x v] by (0.7)\n    end\nend\n\n@地面\n\nwhen flag clicked\nhide\nset [time v] to [0]\nhide variable [☁ 世界記録/world record v]\nhide variable [time v]\nset [ステージ v] to [1]\n\nwhen I receive [the end v]\nshow\nforever\n    switch costume to (ステージ)\nend\n\nwhen I receive [次！ v]\nchange [ステージ v] by (1)\n\nwhen I receive [the end v]\nforever\n    repeat until <(ステージ) = [11]>\n        wait (1) seconds\n        change [time v] by (1)\n    end\n    if <(ステージ) = [11]> then\n        show variable [time v]\n        show variable [☁ 世界記録/world record v]\n        if <(☁ 世界記録/World record) > (Time)> then\n            set [☁ 世界記録/world record v] to (Time)\n        end\n    end\nend\n\nshow variable [☁ 世界記録/world record v]\n\n@トゲ\n\nwhen I receive [the end v]\nshow\npoint in direction (90)\ngo to [back v] layer\nforever\n    switch costume to (ステージ)\n    if <(ステージ) = [9]> then\n        turn left (5) degrees\n    end\n    if <(ステージ) = [10]> then\n        point in direction (90)\n    end\nend\n\nwhen flag clicked\nhide\n\n@Next!\n\nwhen I receive [次！ v]\nset [color v] effect to (pick random (-250) to (250))\nhide\nstart sound [High Whoosh v]\nclone [1]\nwait (0.05) seconds\nclone [2]\nwait (0.05) seconds\nclone [3]\nwait (0.05) seconds\nclone [4]\nwait (0.05) seconds\nclone [5]\n\ndefine clone (cloneid)\nswitch costume to (cloneid)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nif <<(costume [number v]) = [1]> or <<(costume [number v]) = [2]> or <<(costume [number v]) = [3]> or <<(costume [number v]) = [4]> or <(costume [number v]) = [5]>>>>> then\n    go to x: (468) y: (0)\n    repeat until <(round (x position)) = [0]>\n        change x by (((0) - (x position)) / (7))\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    wait (2.2) seconds\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [2]> then\n    wait (2.1) seconds\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [3]> then\n    wait (2) seconds\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [4]> then\n    wait (1.9) seconds\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [5]> then\n    wait (1.8) seconds\n    repeat until <[330] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\n\n@Kumo\n\nwhen flag clicked\ngo to x: (288) y: ()\nhide\n\nwhen I start as a clone\nforever\n    show\n    set size to (pick random (50) to (100)) %\n    set [雲の高さ v] to (pick random (60) to (200))\n    go to x: (288) y: (雲の高さ)\n    glide (pick random (5) to (15)) secs to x: (-348) y: (雲の高さ)\n    delete this clone\nend\n\nwhen I receive [the end v]\nforever\n    go to [back v] layer\n    set [ghost v] effect to (20)\n    create clone of (_myself_ v)\n    wait (pick random (2) to (10)) seconds\nend\n\nwhen I start as a clone\nif <touching (player v)?> then\n    set [brightness v] effect to (-30)\nelse\n    set [brightness v] effect to (0)\nend\n\n@太陽\n\nwhen flag clicked\nhide\n\nwhen I receive [the end v]\ngo [backward v] (50) layers\nshow\nforever\n    go to [back v] layer\n    change [z v] by (10)\n    change size by ([cos v] of (z) )\nend\n\n@地面2\n\nwhen flag clicked\nhide\n\nwhen I receive [the end v]\nshow\nforever\n    go to [back v] layer\n    switch costume to (ステージ)\nend\n\n@Intro (by @kako-ken)2\n\ndefine | Setting\npen up\nerase all\nswitch costume to (size hack v)\nset size to (Infinity) %\nclear graphic effects\nhide\ndelete all of [| sc v]\ndelete all of [| effect v]\ndelete all of [| fractal burst v]\ndelete all of [| data v]\nrepeat (9)\n    add [0] to [| data v]\nend\ndelete all of [| text v]\nrepeat (5)\n    add [0] to [| text v]\nend\ninsert [90] at (3) of [| text v] \ndelete all of [| logo v]\nadd [180] to [| logo v]\nrepeat (3)\n    add [0] to [| logo v]\nend\ndelete all of [| chevron v]\ndelete all of [| camera v]\nrepeat (8)\n    add [0] to [| camera v]\nend\nset [| 回数 v] to [0]\nreset timer\nstop all sounds\nset volume to (100) %\nstart sound [Far Out - Strangers v]\n\nwhen I receive [intro v]\nset [| shutter v] to [450]\n| Setting\nrepeat until <<[12.8] < (timer)> or <<[0] < (item (9) of [| data v])> and <((item (9) of [| data v]) + (1.3)) < (timer)>>>\n    pen up\n    erase all\n    if <(item (9) of [| data v]) = [0]> then\n        if <(timer) < [3.6]> then\n            | SC\n            | Logo\n        end\n        if <[2.76] < (timer)> then\n            if <[11.01] < (timer)> then\n                | Text\n            else\n                | BG\n                | Chevron\n                | Pinwheel\n                | Effect\n                | Text\n                | Light\n                | Fractal Burst\n                | Shutter\n            end\n        end\n    end\n    if <<<mouse down?> and <(timer) < [10.13]>> and <(item (6) of [| data v]) = [0]>> then\n        replace item (6) of [| data v] with [1]\n        replace item (8) of [| data v] with (timer)\n    end\n    if <(item (6) of [| data v]) = [1]> then\n        | Skip\n    end\nend\nstop [other scripts in sprite v]\nstop all sounds\nbroadcast (THE END v)\n\ndefine | +SC (pattern) (x) (y) (size) (time) (color) (feelings)\nset [| 計算用2 v] to [0]\nrepeat (9)\n    change [| 計算用2 v] by (1)\n    if < (color) contains (| 計算用2)?> then\n        add (pattern) to [| sc v]\n        add (x) to [| sc v]\n        add (y) to [| sc v]\n        add (size) to [| sc v]\n        add ((time) + (((| 計算用2) - (1)) * (feelings))) to [| sc v]\n        add (| 計算用2) to [| sc v]\n        add [0] to [| sc v]\n    end\nend\n\ndefine | SC\nset [| 計算用1 v] to [0]\nrepeat ((length of [| sc v]) / (7))\n    | SC2 (item ((1) + ((| 計算用1) * (7))) of [| sc v]) ((| 計算用1) * (7))\n    change [| 計算用1 v] by (1)\nend\n\ndefine | Movement (x) (y) (d) (s)\nswitch costume to (size hack v)\nset size to (Infinity) %\nset x to (((((x) + ((item (1) of [| camera v]) + (item (5) of [| camera v]))) * ((((item (4) of [| camera v]) + (item (8) of [| camera v])) + (100)) / (100))) * ([cos v] of ((item (3) of [| camera v]) + (item (7) of [| camera v])) )) - ((((y) + ((item (2) of [| camera v]) + (item (6) of [| camera v]))) * ((((item (4) of [| camera v]) + (item (8) of [| camera v])) + (100)) / (100))) * ([sin v] of ((item (3) of [| camera v]) + (item (7) of [| camera v])) )))\nset y to (((((x) + ((item (1) of [| camera v]) + (item (5) of [| camera v]))) * ((((item (4) of [| camera v]) + (item (8) of [| camera v])) + (100)) / (100))) * ([sin v] of ((item (3) of [| camera v]) + (item (7) of [| camera v])) )) + ((((y) + ((item (2) of [| camera v]) + (item (6) of [| camera v]))) * ((((item (4) of [| camera v]) + (item (8) of [| camera v])) + (100)) / (100))) * ([cos v] of ((item (3) of [| camera v]) + (item (7) of [| camera v])) )))\npoint in direction ((d) - ((item (3) of [| camera v]) + (item (7) of [| camera v])))\nif <((s) * ((1) + (((item (4) of [| camera v]) + (item (8) of [| camera v])) / (100)))) < [100]> then\n    switch costume to (pos hack v)\nend\nset size to ((s) * ((1) + (((item (4) of [| camera v]) + (item (8) of [| camera v])) / (100)))) %\n\ndefine | SC2 (pattern) (saving)\nif <(item ((5) + (saving)) of [| sc v]) < (timer)> then\n    if <(item ((6) + (saving)) of [| sc v]) = [1]> then\n        set pen color to (#276bff)\n        set pen (transparency v) to (70)\n    else\n        set pen (transparency v) to (0)\n        if <((item ((6) + (saving)) of [| sc v]) mod (2)) = [0]> then\n            set pen color to (#276bff)\n        else\n            set pen color to (#ffffff)\n        end\n    end\n    | Movement ((item ((2) + (saving)) of [| sc v]) + (<[4] < (pattern)> * (-550))) ((item ((3) + (saving)) of [| sc v]) + (<(pattern) = [2]> * (600))) [] []\n    set pen size to (item ((7) + (saving)) of [| sc v])\n    if <(item ((7) + (saving)) of [| sc v]) < ((item ((4) + (saving)) of [| sc v]) / (2.1))> then\n        replace item ((7) + (saving)) of [| sc v] with ((((item ((7) + (saving)) of [| sc v]) + (2)) / ((3) / (item (5) of [| data v]))) + (item ((7) + (saving)) of [| sc v]))\n    else\n        replace item ((7) + (saving)) of [| sc v] with ((((item ((4) + (saving)) of [| sc v]) - (item ((7) + (saving)) of [| sc v])) / ((3) / (item (5) of [| data v]))) + (item ((7) + (saving)) of [| sc v]))\n    end\n    pen down\n    | Movement ((item ((2) + (saving)) of [| sc v]) - (<[4] < (pattern)> * (-550))) ((item ((3) + (saving)) of [| sc v]) - (<(pattern) = [2]> * (360))) [] []\n    if <((item ((4) + (saving)) of [| sc v]) - (item ((7) + (saving)) of [| sc v])) < [0.00001]> then\n        repeat (7)\n            delete (1) of [| sc v]\n        end\n        change [| 計算用1 v] by (-1)\n    end\n    pen up\nend\n\nwhen I receive [intro v]\n| +SC [5] [0] [0] [361] [0] [1234567] [0.2]\n| +SC [2] [0] [0] [481] [1.4] [1234] [0.2]\n| Wait [2.76]\ndelete all of [| sc v]\n| Wait [3.6]\n| +Effect   Pattern [FW1] x [8] y [-8] Direction [0] Size [60] Color [0] Brightness [-100] Ghost [70] Count [6] +Number [60] +Pattern [Direction] Mosaic? [0]\n| +Effect   Pattern [FW1] x [0] y [0] Direction [0] Size [60] Color [114] Brightness [0] Ghost [0] Count [3] +Number [120] +Pattern [Direction] Mosaic? [0]\n| +Effect   Pattern [FW1] x [0] y [0] Direction [60] Size [60] Color [0] Brightness [100] Ghost [0] Count [3] +Number [120] +Pattern [Direction] Mosaic? [0]\n| Shake   Time [4.38] Power [20] Speed [7] Limit [1111]\n| +Effect   Pattern [SW1/1] x [8] y [-8] Direction [90] Size [200] Color [0] Brightness [-100] Ghost [70] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| +Effect   Pattern [SW1/1] x [0] y [0] Direction [90] Size [200] Color [0] Brightness [100] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| +Effect   Pattern [SW1/1] x [8] y [-8] Direction [90] Size [400] Color [0] Brightness [-100] Ghost [70] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| +Effect   Pattern [SW1/1] x [0] y [0] Direction [90] Size [400] Color [Infinity] Brightness [80] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| Shake   Time [4.81] Power [20] Speed [7] Limit [1111]\n| +Effect   Pattern [FW1] x [8] y [-8] Direction [0] Size [50] Color [0] Brightness [-100] Ghost [70] Count [10] +Number [36] +Pattern [Direction] Mosaic? [0]\n| +Effect   Pattern [FW1] x [0] y [0] Direction [0] Size [50] Color [0] Brightness [100] Ghost [0] Count [10] +Number [36] +Pattern [Direction] Mosaic? [0]\n| Shake   Time [5.62] Power [20] Speed [7] Limit [1111]\n| +Effect   Pattern [SW1/2] x [8] y [-8] Direction [0] Size [150] Color [0] Brightness [-100] Ghost [70] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| +Effect   Pattern [SW1/2] x [0] y [0] Direction [0] Size [150] Color [Infinity] Brightness [70] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| +Effect   Pattern [SW1/2] x [8] y [-8] Direction [0] Size [300] Color [0] Brightness [-100] Ghost [70] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| +Effect   Pattern [SW1/2] x [0] y [0] Direction [0] Size [300] Color [0] Brightness [100] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| Shake   Time [6.02] Power [20] Speed [7] Limit [1111]\n| +Effect   Pattern [SW1/2] x [8] y [-8] Direction [90] Size [150] Color [0] Brightness [-100] Ghost [70] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| +Effect   Pattern [SW1/2] x [0] y [0] Direction [90] Size [150] Color [Infinity] Brightness [70] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| +Effect   Pattern [SW1/2] x [8] y [-8] Direction [90] Size [300] Color [0] Brightness [-100] Ghost [70] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| +Effect   Pattern [SW1/2] x [0] y [0] Direction [90] Size [300] Color [0] Brightness [100] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| Shake   Time [6.42] Power [20] Speed [7] Limit [1111]\n| +Effect   Pattern [SW1/1] x [-172] y [142] Direction [90] Size [85] Color [0] Brightness [-100] Ghost [70] Count [4] +Number [120] +Pattern [x] Mosaic? [0]\n| +Effect   Pattern [SW1/1] x [-180] y [150] Direction [90] Size [85] Color [0] Brightness [100] Ghost [0] Count [4] +Number [120] +Pattern [x] Mosaic? [0]\n| +Effect   Pattern [SW1/1] x [-172] y [42] Direction [90] Size [85] Color [0] Brightness [-100] Ghost [70] Count [4] +Number [120] +Pattern [x] Mosaic? [0]\n| +Effect   Pattern [SW1/1] x [-180] y [50] Direction [90] Size [85] Color [0] Brightness [100] Ghost [0] Count [4] +Number [120] +Pattern [x] Mosaic? [0]\n| +Effect   Pattern [SW1/1] x [-172] y [-58] Direction [90] Size [85] Color [0] Brightness [-100] Ghost [70] Count [4] +Number [120] +Pattern [x] Mosaic? [0]\n| +Effect   Pattern [SW1/1] x [-180] y [-50] Direction [90] Size [85] Color [0] Brightness [100] Ghost [0] Count [4] +Number [120] +Pattern [x] Mosaic? [0]\n| +Effect   Pattern [SW1/1] x [-172] y [-158] Direction [90] Size [85] Color [0] Brightness [-100] Ghost [70] Count [4] +Number [120] +Pattern [x] Mosaic? [0]\n| +Effect   Pattern [SW1/1] x [-180] y [-150] Direction [90] Size [85] Color [0] Brightness [100] Ghost [0] Count [4] +Number [120] +Pattern [x] Mosaic? [0]\n| Shake   Time [6.85] Power [20] Speed [7] Limit [1111]\nadd (timer) to [| fractal burst v]\n| +Effect   Pattern [FW1] x [488] y [-8] Direction [0] Size [50] Color [0] Brightness [-100] Ghost [70] Count [10] +Number [36] +Pattern [Direction] Mosaic? [1]\n| +Effect   Pattern [FW1] x [480] y [0] Direction [0] Size [50] Color [0] Brightness [100] Ghost [0] Count [5] +Number [72] +Pattern [Direction] Mosaic? [1]\n| +Effect   Pattern [FW1] x [480] y [0] Direction [36] Size [50] Color [114] Brightness [0] Ghost [0] Count [5] +Number [72] +Pattern [Direction] Mosaic? [1]\n| Shake   Time [7.67] Power [20] Speed [7] Limit [1111]\n| +Effect   Pattern [SW1/1] x [488] y [-8] Direction [90] Size [120] Color [0] Brightness [-100] Ghost [70] Count [1] +Number [] +Pattern [] Mosaic? [1]\n| +Effect   Pattern [SW1/1] x [480] y [0] Direction [90] Size [120] Color [Infinity] Brightness [50] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [1]\n| +Effect   Pattern [SW1/1] x [488] y [-8] Direction [90] Size [220] Color [0] Brightness [-100] Ghost [70] Count [1] +Number [] +Pattern [] Mosaic? [1]\n| +Effect   Pattern [SW1/1] x [480] y [0] Direction [90] Size [220] Color [0] Brightness [-100] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [1]\n| +Effect   Pattern [SW1/1] x [488] y [-8] Direction [90] Size [320] Color [0] Brightness [-100] Ghost [70] Count [1] +Number [] +Pattern [] Mosaic? [1]\n| +Effect   Pattern [SW1/1] x [480] y [0] Direction [90] Size [320] Color [0] Brightness [100] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [1]\n| Shake   Time [8.08] Power [20] Speed [7] Limit [1111]\n| +Effect   Pattern [FW1] x [488] y [-8] Direction [0] Size [50] Color [0] Brightness [-100] Ghost [70] Count [10] +Number [36] +Pattern [Direction] Mosaic? [1]\n| +Effect   Pattern [FW1] x [480] y [0] Direction [0] Size [50] Color [114] Brightness [0] Ghost [0] Count [5] +Number [72] +Pattern [Direction] Mosaic? [1]\n| +Effect   Pattern [FW1] x [480] y [0] Direction [36] Size [50] Color [0] Brightness [100] Ghost [0] Count [5] +Number [72] +Pattern [Direction] Mosaic? [1]\n| Shake   Time [8.91] Power [20] Speed [7] Limit [1111]\n| +Effect   Pattern [SW1/2] x [480] y [0] Direction [90] Size [210] Color [114] Brightness [0] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [1]\n| +Effect   Pattern [SW1/2] x [488] y [-8] Direction [90] Size [200] Color [0] Brightness [-100] Ghost [70] Count [1] +Number [] +Pattern [] Mosaic? [1]\n| +Effect   Pattern [SW1/2] x [480] y [0] Direction [90] Size [200] Color [0] Brightness [100] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [1]\n| Shake   Time [9.32] Power [20] Speed [7] Limit [1111]\n| +Effect   Pattern [SW1/2] x [480] y [0] Direction [0] Size [210] Color [114] Brightness [0] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [1]\n| +Effect   Pattern [SW1/2] x [488] y [-8] Direction [0] Size [200] Color [0] Brightness [-100] Ghost [70] Count [1] +Number [] +Pattern [] Mosaic? [1]\n| +Effect   Pattern [SW1/2] x [480] y [0] Direction [0] Size [200] Color [0] Brightness [100] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [1]\n| Shake   Time [9.72] Power [20] Speed [7] Limit [1111]\n| +Effect   Pattern [SW1/1] x [-472] y [0] Direction [90] Size [250] Color [114] Brightness [0] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| +Effect   Pattern [SW1/1] x [-480] y [0] Direction [90] Size [500] Color [0] Brightness [100] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| Shake   Time [10.13] Power [20] Speed [7] Limit [1111]\nstart sound [Whoosh SFX v]\n| Shake   Time [15] Power [20] Speed [7] Limit [1111]\n\ndefine | Logo\nreplace item (1) of [| logo v] with ((((90) - (item (1) of [| logo v])) / ((18) / (item (5) of [| data v]))) + (item (1) of [| logo v]))\nif <[1.5] < (timer)> then\n    if <(item (4) of [| logo v]) = [0]> then\n        replace item (3) of [| logo v] with (item (2) of [| logo v])\n        replace item (4) of [| logo v] with [1]\n    end\n    replace item (2) of [| logo v] with ((((item (2) of [| logo v]) - ((item (3) of [| logo v]) - (1))) / ((4.5) / (item (5) of [| data v]))) + (item (2) of [| logo v]))\nelse\n    replace item (2) of [| logo v] with ((((150) - (item (2) of [| logo v])) / ((20) / (item (5) of [| data v]))) + (item (2) of [| logo v]))\nend\n| Movement [0] [0] (item (1) of [| logo v]) (item (2) of [| logo v])\nswitch costume to (logo v)\nset [ghost v] effect to ((100) - ((timer) * (250)))\nstamp\n\ndefine | BG\ngo to x: (0) y: (0)\npoint in direction (90)\nswitch costume to (size hack v)\nset size to (600) %\nswitch costume to (diamond v)\nif <[11.01] < (timer)> then\n    set [brightness v] effect to (100)\n    set [ghost v] effect to (((timer) - (11.01)) * (220))\nelse\n    set [ghost v] effect to ((100) - (((timer) - (2.76)) * (220)))\nend\nstamp\nclear graphic effects\n\ndefine | Text\nclear graphic effects\nif <[9.72] < (timer)> then\n    if <(timer) < [11.01]> then\n        if <(item (5) of [| text v]) = [0]> then\n            replace item (6) of [| text v] with (item (4) of [| text v])\n            replace item (5) of [| text v] with [1]\n        end\n        replace item (3) of [| text v] with ((((90) - (item (3) of [| text v])) / ((7) / (item (5) of [| data v]))) + (item (3) of [| text v]))\n        replace item (4) of [| text v] with ((((item (4) of [| text v]) + ((0) - ((item (6) of [| text v]) - (1)))) / ((2.5) / (item (5) of [| data v]))) + (item (4) of [| text v]))\n    else\n        set [ghost v] effect to (((timer) - (11.01)) * (200))\n    end\nelse\n    if <[8.91] < (timer)> then\n        | 便利品 [1] [1] [50] [92] [3] [0.86] [大きさ] [ [8.91] ]\n    else\n        if <[8.08] < (timer)> then\n            | 便利品 [1] [1] [92] [50] [3] [0.86] [大きさ] [ [8.08] ]\n        else\n            if <[6.86] < (timer)> then\n                | 便利品 [1] [1] [17] [92] [3] [0.9] [大きさ] [ [6.86] ]\n            else\n                if <[6.43] < (timer)> then\n                    replace item (4) of [| text v] with ((((item (4) of [| text v]) - (94)) / ((3.1) / (item (5) of [| data v]))) + (item (4) of [| text v]))\n                else\n                    | 便利品 [1] [1] [200] [92] [3] [0.78] [大きさ] [ [2.76] ]\n                    | 便利品 [1] [1] [-230] [0] [3] [0.78] [y] [ [2.76] ]\n                    if <[3.6] < (timer)> then\n                        replace item (3) of [| text v] with ((((450) - (item (3) of [| text v])) / ((7) / (item (5) of [| data v]))) + (item (3) of [| text v]))\n                    end\n                    set [ghost v] effect to ((100) - (((timer) - (2.76)) * (300)))\n                end\n            end\n        end\n    end\nend\nset [| 計算用1 v] to [-960]\nrepeat ((1) + (<(timer) < [10.1]> * (2)))\n    change [| 計算用1 v] by (480)\n    | Movement ((item (1) of [| text v]) + (| 計算用1)) (item (2) of [| text v]) (item (3) of [| text v]) (item (4) of [| text v])\n    switch costume to (text v)\n    stamp\nend\n\ndefine | 便利品 (種類) (数値1) (数値2) (数値3) (数値4) (数値5) (数値6) [ (time) ]\nif <(種類) = [1]> then\n    replace item (数値1) of [| data v] with (((([cos v] of ((((timer) * (60)) - ((time) * (60.1))) * ((3) * (数値4))) ) * ((数値2) - (数値3))) * ([e ^ v] of (((((timer) * (60)) - ((time) * (60.1))) / (2)) * ([ln v] of (数値5) )) )) + (数値3))\n    if <(数値6) = [大きさ]> then\n        replace item (4) of [| text v] with (item (数値1) of [| data v])\n    else\n        if <(数値6) = [y]> then\n            replace item (2) of [| text v] with (item (数値1) of [| data v])\n        end\n    end\nelse\n    if <(種類) = [2]> then\n        replace item (数値1) of [| camera v] with ((((数値2) - (item (数値1) of [| camera v])) / ((数値3) / (item (5) of [| data v]))) + (item (数値1) of [| camera v]))\n    else\n        replace item (数値1) of [| camera v] with ((((item (数値1) of [| camera v]) + (数値2)) / ((数値3) / (item (5) of [| data v]))) + (item (数値1) of [| camera v]))\n    end\nend\n\ndefine | Shake   Time (time) Power (power) Speed (speed) Limit (limit)\nset [| チェック v] to [0]\n| +Chevron\nrepeat until <(time) < (timer)>\n    replace item (5) of [| camera v] with (([sin v] of ((timer) * (400)) ) * ((| Beat) * (letter (1) of (limit))))\n    replace item (6) of [| camera v] with (([sin v] of ((timer) * (400)) ) * ((| Beat) * (letter (2) of (limit))))\n    replace item (7) of [| camera v] with (([cos v] of ((timer) * (300)) ) * (((| Beat) * (0.4)) * (letter (3) of (limit))))\n    replace item (8) of [| camera v] with (((| Beat) * (0.8)) * (letter (4) of (limit)))\n    if <<((power) - (0.5)) < (| Beat)> and <(| チェック) = [0]>> then\n        set [| チェック v] to [1]\n    end\n    if <(| チェック) = [1]> then\n        change [| beat v] by (((0) - (| Beat)) / ((speed) / (item (5) of [| data v])))\n    else\n        change [| beat v] by ((((power) + (0.5)) - (| Beat)) / ((2) / (item (5) of [| data v])))\n    end\nend\n\ndefine | Shutter\nswitch costume to (size hack v)\nset size to (Infinity) %\nif <[10.13] < (timer)> then\n    change [| shutter v] by (((455) - (| Shutter)) / ((9) / (item (5) of [| data v])))\nelse\n    change [| shutter v] by (((385) - (| Shutter)) / ((12) / (item (5) of [| data v])))\nend\nset pen color to (#000000)\npen up\nset pen size to (480)\ngo to x: (-480) y: ((| Shutter) - ((| Beat) * (0.8)))\npen down\ngo to x: (480) y: ((| Shutter) - ((| Beat) * (0.8)))\npen up\ngo to x: (-480) y: (((0) - (| Shutter)) + ((| Beat) * (0.8)))\npen down\ngo to x: (480) y: (((0) - (| Shutter)) + ((| Beat) * (0.8)))\n\ndefine | Chevron\nset [| 計算用1 v] to [0]\nrepeat ((length of [| chevron v]) / (4))\n    replace item ((4) + ((| 計算用1) * (4))) of [| chevron v] with ((item ((4) + ((| 計算用1) * (4))) of [| chevron v]) + ((1.1) * ((| Beat) * (item (5) of [| data v]))))\n    | Movement (item ((1) + ((| 計算用1) * (4))) of [| chevron v]) (item ((2) + ((| 計算用1) * (4))) of [| chevron v]) [90] (item ((4) + ((| 計算用1) * (4))) of [| chevron v])\n    switch costume to (diamond v)\n    if <(item ((3) + ((| 計算用1) * (4))) of [| chevron v]) = [1]> then\n        set [brightness v] effect to (100)\n    else\n        if <(item ((3) + ((| 計算用1) * (4))) of [| chevron v]) = [2]> then\n            set [brightness v] effect to (-20)\n        end\n    end\n    stamp\n    clear graphic effects\n    if <[750] < (item (4) of [| chevron v])> then\n        repeat (4)\n            delete (1) of [| chevron v]\n        end\n        change [| 計算用1 v] by (-1)\n    end\n    change [| 計算用1 v] by (1)\nend\n\ndefine | +Chevron\nset [| 計算用4 v] to [0]\nrepeat (3)\n    set [| 計算用2 v] to [-960]\n    repeat (3)\n        change [| 計算用2 v] by (480)\n        add (| 計算用2) to [| chevron v]\n        add [0] to [| chevron v]\n        add (((| 計算用4) mod (3)) + (1)) to [| chevron v]\n        if <(| 計算用4) = [1]> then\n            add ((0) - ((| 計算用4) * (55))) to [| chevron v]\n        else\n            add ((0) - ((| 計算用4) * (40))) to [| chevron v]\n        end\n    end\n    change [| 計算用4 v] by (1)\nend\n\nwhen I receive [intro v]\n| Wait [6.85]\nrepeat until <(item (1) of [| camera v]) < [-220]>\n    | 便利品 [3] [1] [-1] [3] [] [] [] [ [] ]\nend\nrepeat until <[8.91] < (timer)>\n    | 便利品 [2] [1] [-480] [5] [] [] [] [ [] ]\nend\nrepeat until <[0] < (item (1) of [| camera v])>\n    | 便利品 [3] [1] [481] [3] [] [] [] [ [] ]\nend\n\n    | 便利品 [2] [1] [480] [5] [] [] [] [ [] ]\nend\n\ndefine | Wait (time)\nwait until <(time) < (timer)>\n\nwhen I receive [intro v]\n| Wait [6.85]\nrepeat until <(item (3) of [| camera v]) < [-180]>\n    | 便利品 [3] [3] [-1] [3] [] [] [] [ [] ]\nend\n\n    | 便利品 [2] [3] [-360] [7] [] [] [] [ [] ]\nend\n\ndefine | Light\nclear graphic effects\nset [| 計算用1 v] to [-960]\nrepeat (3)\n    change [| 計算用1 v] by (480)\n    | Movement (| 計算用1) [160] [90] [100]\n    switch costume to (light v)\n    if <[9.72] < (timer)> then\n        set [ghost v] effect to (((timer) - (9.72)) * (100))\n    else\n        set [ghost v] effect to ((100) - (((timer) - (2.76)) * (220)))\n    end\n    stamp\nend\nclear graphic effects\n\ndefine | Pinwheel\nset [| 計算用1 v] to [-960]\nset [ghost v] effect to ((100) - (((timer) - (2.76)) * (250)))\nrepeat (3)\n    change [| 計算用1 v] by (480)\n    | Movement (| 計算用1) (item (2) of [| text v]) ((90) + (((timer) - (2.76)) * (100))) (item (4) of [| text v])\n    switch costume to (pinwheel v)\n    stamp\nend\n\ndefine | +Effect   Pattern (p) x (x) y (y) Direction (d) Size (s) Color (co) Brightness (b) Ghost (g) Count (cu) +Number (+n) +Pattern (+p) Mosaic? (m)\nset [| 計算用2 v] to [0]\nset [| 計算用4 v] to ((0) - ((m) * (960)))\nrepeat ((1) + ((m) * (2)))\n    repeat (cu)\n        add (p) to [| effect v]\n        add (((| 計算用4) + (x)) + (((+n) * (| 計算用2)) * < (+p) contains [x]?>)) to [| effect v]\n        add ((y) + (((+n) * (| 計算用2)) * < (+p) contains [y]?>)) to [| effect v]\n        add ((d) + (((+n) * (| 計算用2)) * < (+p) contains [Dir]?>)) to [| effect v]\n        add ((s) + (((+n) * (| 計算用2)) * < (+p) contains [Size]?>)) to [| effect v]\n        add (co) to [| effect v]\n        add (b) to [| effect v]\n        add (g) to [| effect v]\n        add [0] to [| effect v]\n        add (< (p) contains [SW]?> * (20)) to [| effect v]\n        add [20] to [| effect v]\n        add [0] to [| effect v]\n        change [| 計算用2 v] by (1)\n    end\n    change [| 計算用4 v] by (480)\nend\n\ndefine | Effect\nset [| 計算用1 v] to [0]\nrepeat ((length of [| effect v]) / (12))\n    | Effect2 ((| 計算用1) * (12))\n    change [| 計算用1 v] by (1)\nend\n\ndefine | Effect2 (saving)\nclear graphic effects\nset [color v] effect to (item ((6) + (saving)) of [| effect v])\nset [brightness v] effect to (item ((7) + (saving)) of [| effect v])\nset [ghost v] effect to (item ((8) + (saving)) of [| effect v])\nif < (item ((1) + (saving)) of [| effect v]) contains [SW]?> then\n    | Movement (item ((2) + (saving)) of [| effect v]) (item ((3) + (saving)) of [| effect v]) (item ((4) + (saving)) of [| effect v]) (item ((11) + (saving)) of [| effect v])\n    switch costume to (item ((1) + (saving)) of [| effect v])\n    replace item ((9) + (saving)) of [| effect v] with (((item ((10) + (saving)) of [| effect v]) * (item (5) of [| data v])) + (item ((9) + (saving)) of [| effect v]))\n    replace item ((10) + (saving)) of [| effect v] with (((item ((10) + (saving)) of [| effect v]) * ((0.2) * (item (5) of [| data v]))) + (item ((10) + (saving)) of [| effect v]))\n    replace item ((11) + (saving)) of [| effect v] with ((((item ((5) + (saving)) of [| effect v]) - (item ((11) + (saving)) of [| effect v])) / ((6) / (item (5) of [| data v]))) + (item ((11) + (saving)) of [| effect v]))\n    set [fisheye v] effect to (item ((9) + (saving)) of [| effect v])\n    if <[1000000] < (item ((9) + (saving)) of [| effect v])> then\n        repeat (12)\n            delete ((1) + (saving)) of [| effect v]\n        end\n        change [| 計算用1 v] by (-1)\n    end\nend\nif < (item ((1) + (saving)) of [| effect v]) contains [FW]?> then\n    | Movement ((item ((2) + (saving)) of [| effect v]) + (item ((9) + (saving)) of [| effect v])) ((item ((3) + (saving)) of [| effect v]) + (item ((10) + (saving)) of [| effect v])) (item ((4) + (saving)) of [| effect v]) (item ((5) + (saving)) of [| effect v])\n    replace item ((12) + (saving)) of [| effect v] with ((item ((12) + (saving)) of [| effect v]) + (item (5) of [| data v]))\n    replace item ((1) + (saving)) of [| effect v] with (join [FW] ((round (item ((12) + (saving)) of [| effect v])) - (10)))\n    if <(item ((12) + (saving)) of [| effect v]) < [11]> then\n        switch costume to (fw1 v)\n    else\n        switch costume to (item ((1) + (saving)) of [| effect v])\n    end\n    replace item ((9) + (saving)) of [| effect v] with (((item ((11) + (saving)) of [| effect v]) * (([sin v] of (item ((4) + (saving)) of [| effect v]) ) * (item (5) of [| data v]))) + (item ((9) + (saving)) of [| effect v]))\n    replace item ((10) + (saving)) of [| effect v] with (((item ((11) + (saving)) of [| effect v]) * (([cos v] of (item ((4) + (saving)) of [| effect v]) ) * (item (5) of [| data v]))) + (item ((10) + (saving)) of [| effect v]))\n    replace item ((11) + (saving)) of [| effect v] with ((((0) - (item ((11) + (saving)) of [| effect v])) / ((5) / (item (5) of [| data v]))) + (item ((11) + (saving)) of [| effect v]))\n    if <[26] < (item ((12) + (saving)) of [| effect v])> then\n        repeat (12)\n            delete ((1) + (saving)) of [| effect v]\n        end\n        change [| 計算用1 v] by (-1)\n    end\nend\nstamp\n\ndefine | Skip\nclear graphic effects\npen up\nif <<[593.4] < (item (7) of [| data v])> and <(item (9) of [| data v]) = [0]>> then\n    replace item (9) of [| data v] with (timer)\nend\nif <(item (9) of [| data v]) = [0]> then\n    if <(item (7) of [| data v]) < [280]> then\n        replace item (7) of [| data v] with ((((item (7) of [| data v]) + (2)) / ((4) / (item (5) of [| data v]))) + (item (7) of [| data v]))\n    else\n        replace item (7) of [| data v] with ((((594) - (item (7) of [| data v])) / ((5) / (item (5) of [| data v]))) + (item (7) of [| data v]))\n    end\nelse\n    if <(item (7) of [| data v]) < [280]> then\n        replace item (7) of [| data v] with ((((0) - (item (7) of [| data v])) / ((5) / (item (5) of [| data v]))) + (item (7) of [| data v]))\n    else\n        replace item (7) of [| data v] with ((((item (7) of [| data v]) - (596)) / ((4) / (item (5) of [| data v]))) + (item (7) of [| data v]))\n    end\nend\ngo to x: (0) y: (0)\npoint in direction (90)\nset [brightness v] effect to (100)\nif <(item (7) of [| data v]) < [100]> then\n    switch costume to (pos hack v)\nelse\n    switch costume to (size hack v)\nend\nset size to (item (7) of [| data v]) %\nswitch costume to (diamond v)\nif <[0.5] < (item (7) of [| data v])> then\n    stamp\nend\nclear graphic effects\n\ndefine | Fractal Burst\npen up\nset [| 計算用1 v] to [0]\nrepeat (length of [| fractal burst v])\n    change [| 計算用1 v] by (1)\n    | Movement [0] [0] (((timer) - (item (| 計算用1) of [| fractal burst v])) * (100)) (((timer) - (item (| 計算用1) of [| fractal burst v])) * (900))\n    switch costume to (fractal burst v)\n    set [ghost v] effect to ((((timer) - (0.35)) - (item (| 計算用1) of [| fractal burst v])) * (300))\n    stamp\n    if <((item (| 計算用1) of [| fractal burst v]) + (2)) < (timer)> then\n        delete (| 計算用1) of [| fractal burst v]\n        change [| 計算用1 v] by (-1)\n    end\nend\n\ndefine | FPSI (time)\nwait (0) seconds\nreplace item (5) of [| data v] with (((days since 2000) * (2592000)) - (time))\n\nwhen I receive [intro v]\nforever\n    | FPSI ((days since 2000) * (2592000))\nend\n\nwhen I receive [intro v]\nforever\n    if <(item (6) of [| data v]) = [1]> then\n        set volume to ((100) - (((timer) - (item (8) of [| data v])) * (100))) %\n        | Skip\n    end\nend\n\n