- Fire - A platformer

Instructions: this is not a game.\narrow keys to move.\nmouse to make a star/delete a star.\nIt is written as a platformer, but please think of it as a demo.\n\nこれはゲームではありません\n矢印キーで自機を動かします\n自機が星についてるところを足だと思ってください\nマウスで星を作ったり消したりします\n\n大変でした…自信作です

@Stage\n\nwhen flag clicked\nswitch backdrop to (backdrop1 v)\nwait (11.47) seconds\nswitch backdrop to (backdrop2 v)\n\n@Reset\n\nwhen flag clicked\nhide\nwait (11.47) seconds\nshow\ngo to x: (-158) y: (-152)\n\nwhen this sprite clicked\nbroadcast (Reset v)\n\n@Skip\n\nwhen flag clicked\nhide\nwait (11.47) seconds\nshow\ngo to x: (158) y: (-152)\n\nwhen this sprite clicked\nbroadcast (Skip v)\n\n@Love Fave Follow\n\nwhen I start as a clone\nif <(costume [number v]) = [2]> then\n    show\n    go to x: (-104) y: (-200)\n    wait (1) seconds\n    glide (1) secs to x: (-51) y: (-125)\n    wait (0.3) seconds\n    go to [front v] layer\n    glide (0.5) secs to x: (-20) y: (-125)\n    wait (0.3) seconds\n    glide (1) secs to x: (35) y: (-125)\n    wait (2) seconds\n    hide\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    show\n    go to x: (0) y: (-123)\n    set size to (0) %\n    repeat until <(size) > [100]>\n        change size by (((50) + (size)) / (25))\n    end\n    wait (2.5) seconds\n    hide\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [3]> then\n    hide\n    wait (2.5) seconds\n    show\n    go to x: (0) y: (-123)\n    wait (4.1) seconds\n    hide\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [4]> then\n    hide\n    wait (3.3) seconds\n    show\n    go to x: (0) y: (-123)\n    wait (3.3) seconds\n    hide\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [5]> then\n    hide\n    wait (4.6) seconds\n    show\n    go to x: (0) y: (-123)\n    wait (2) seconds\n    hide\nend\n\nwhen flag clicked\nforever\n    wait (30) seconds\n    broadcast (love fave follow v)\nend\n\nwhen I receive [love fave follow v]\nswitch costume to (love fave follow!!! v)\ncreate clone of (_myself_ v)\nswitch costume to (costume2 v)\ncreate clone of (_myself_ v)\nswitch costume to (love fave follow!!!2 v)\ncreate clone of (_myself_ v)\nswitch costume to (love fave follow!!!3 v)\ncreate clone of (_myself_ v)\nswitch costume to (love fave follow!!!4 v)\ncreate clone of (_myself_ v)\nhide\n\n@Player\n\nwhen flag clicked\nhide\nwait (11.47) seconds\nshow\nswitch costume to (costume2 v)\ngo to x: (-193) y: (161)\nset [ghost v] effect to (0)\nshow\nset [x v] to [0]\nset [y v] to [0]\nforever\n    if <<key (right arrow v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>> then\n        change [x v] by (1.5)\n    end\n    if <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>> then\n        change [x v] by (-1.5)\n    end\n    set [x v] to ((X) * (.9))\n    change x by (X)\n    if <touching (level v)?> then\n        change y by (1)\n        if <touching (level v)?> then\n            change y by (1)\n            if <touching (level v)?> then\n                change y by (1)\n                if <touching (level v)?> then\n                    change y by (1)\n                    if <touching (level v)?> then\n                        if <touching (level v)?> then\n                            change x by ((X) * (-1))\n                            change x by (-5)\n                            if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>> then\n                        end\n                        change y by (1)\n                    end\n                end\n            end\n        end\n    end\n    change [y v] by (-1)\n    change y by (Y)\n    if <touching (level v)?> then\n        change y by ((Y) * (-1))\n        set [y v] to [0]\n    end\n    change y by (-1)\n    if <touching (level v)?> then\n    change y by (1)\n    if <(x position) > [230]> then\n        set [y v] to [0]\n        set [x v] to [0]\n        go to x: (-193) y: (161)\n        broadcast (New costume v)\n    end\n    if <touching (spike v)?> then\n        repeat (10)\n            change [ghost v] effect by (10)\n        end\n        set [ghost v] effect to (0)\n        set [x v] to [0]\n        set [y v] to [0]\n        go to x: (-193) y: (161)\n    end\n    if <touching (pad v)?> then\n        change [y v] by (20)\n        broadcast (Pad v)\n    end\nend\n\nwhen flag clicked\nwait (11.47) seconds\nforever\n    play sound [BachtoukbikScratch - Night Song \(original\) v] until done\nend\n\nwhen flag clicked\nforever\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nswitch costume to (costume1 v)\nrepeat (10)\n    change size by (-3)\n    change [ghost v] effect by (15)\nend\ndelete this clone\n\nwhen I receive [skip v]\ngo to x: (-193) y: (161)\n\nwhen I receive [reset v]\ngo to x: (-193) y: (161)\n\n@ \n\ndefine Smooth Glide x: (x) y: (y) speed: (speed)\nrepeat until <<(round (x position)) = (round (x))> and <(round (y position)) = (round (y))>>\n    change x by (((round (x)) - (round (x position))) / (speed))\n    change y by (((round (y)) - (round (y position))) / (speed))\nend\ngo to x: (x) y: (y)\n\ndefine Frame Tween Size: (s) speed: (spd)\nchange size by (((round (s)) - (round (size))) / (spd))\n\ndefine Bounce, Size: (s) Speed: (spd)\nset size to (1000) %\nrepeat (30)\n    set [bounce v] to (((Bounce) * (0.7)) + (((s) - (size)) / (spd)))\n    change size by (Bounce)\nend\n\ndefine Smooth Size Change, Size: (s) Speed: (spd)\nif <(s) > (size)> then\n    repeat until <(size) > ((s) - (.1))>\n        Frame Tween Size: (s) speed: (spd)\n    end\nend\nif <(size) > (s)> then\n    Frame Tween Size: (s) speed: (spd)\nend\nset size to (s) %\n\nwhen flag clicked\nset [\[intro\] playing v] to [false]\nwait (.2) seconds\nrepeat until <(\[INTRO\] Playing) = [false]>\nend\nerase all\npen up\nstop all sounds\nclear sound effects\nset volume to (100) %\nstart sound [Robin Hustin x TobiMorrow - Light It Up \(feat v]\nset size to (100) %\ngo [forward v] (50) layers\nshow\nswitch costume to (blank v)\nswitch backdrop to (  v)\nclear graphic effects\ngo to x: (0) y: (0)\npoint in direction (90)\nset [i v] to [0]\nset [// v] to [-180]\nset [ypos v] to [-146]\nset [num v] to [0]\nset [counter v] to [0]\nset [bounce v] to [0]\nset [bar id v] to [0]\nset [slide id v] to [0]\nset [clone id v] to [0]\ncreate clone of (_myself_ v)\nwait (1) seconds\nchange [clone id v] by (1)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(Clone ID) = [0]> then\n    switch costume to (slide v)\n    set size to (5) %\n    go to x: (//) y: (0)\n    set [ghost v] effect to (100)\n    repeat until <(size) > [50]>\n        Frame Tween Size: [100] speed: [4]\n        change [ghost v] effect by (-7)\n    end\n    if <(Slide ID) < [3]> then\n        change [slide id v] by (1)\n        change [// v] by (120)\n        create clone of (_myself_ v)\n    end\n    repeat until <(size) > [99]>\n        Frame Tween Size: [100] speed: [4]\n        change [ghost v] effect by (-7)\n    end\n    repeat until <(size) < [16]>\n        Frame Tween Size: [15] speed: [4]\n        change [ghost v] effect by (7)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone ID) = [1]> then\n    switch costume to (bar v)\n    set [ghost v] effect to (100)\n    set size to (0) %\n    go to x: (0) y: (YPos)\n    repeat (3)\n        change [ghost v] effect by (-5)\n        Frame Tween Size: [102] speed: [5]\n    end\n    if <(Bar ID) < [5]> then\n        change [bar id v] by (1)\n        change [ypos v] by (60)\n        create clone of (_myself_ v)\n    end\n    repeat until <(size) > [101]>\n        change [ghost v] effect by (-5)\n        Frame Tween Size: [102] speed: [5]\n    end\n    repeat until <(size) < [20]>\n        change [ghost v] effect by (5)\n        Frame Tween Size: [19] speed: [5]\n    end\n    stamp\n    delete this clone\nend\n\nwhen flag clicked\nwait (.2) seconds\nrepeat until <(\[INTRO\] Playing) = [false]>\nwait (3.03) seconds\nchange [clone id v] by (1)\ncreate clone of (_myself_ v)\nwait (.1) seconds\nchange [clone id v] by (1)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(Clone ID) = [2]> then\n    set size to (40) %\n    switch costume to (logo v)\n    go to [front v] layer\n    Bounce, Size: [100] Speed: [5]\n    set [counter v] to [0]\n    reset timer\n    set [clone id v] to [FlashBang]\n    create clone of (_myself_ v)\n    repeat until <(timer) > [2]>\n        change [counter v] by (3)\n        point in direction ((([tan v] of (Counter) ) / (.1)) + (90))\n    end\n    set [clone id v] to [4]\n    create clone of (_myself_ v)\n    Smooth Glide x: [-50] y: [-] speed: [5]\n    stamp\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone ID) = [3]> then\n    switch costume to (screen v)\n    go to x: (0) y: (500)\n    Smooth Glide x: [-] y: [-] speed: [5]\n    stamp\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone ID) = [FlashBang]> then\n    switch costume to (flashbang v)\n    set size to (50) %\n    Smooth Size Change, Size: [130] Speed: [5]\n    repeat until <(size) > [404]>\n        switch costume to (blank v)\n        Frame Tween Size: [405] speed: [5]\n        switch costume to (flashbang v)\n    end\n    stamp\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone ID) = [4]> then\n    switch costume to (username v)\n    go to [back v] layer\n    Smooth Glide x: [30] y: [-] speed: [5]\n    change [clone id v] by (1)\n    create clone of (_myself_ v)\n    stamp\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone ID) = [5]> then\n    go to x: (0) y: (0)\n    switch costume to (flashbang2 v)\n    set size to (50) %\n    Smooth Size Change, Size: [130] Speed: [5]\n    repeat until <(size) > [404]>\n        switch costume to (blank v)\n        Frame Tween Size: [405] speed: [5]\n        switch costume to (flashbang2 v)\n    end\n    set [bar id v] to [0]\n    set [ypos v] to [-146]\n    change [clone id v] by (1)\n    create clone of (_myself_ v)\n    stamp\n    delete this clone\nend\n\nstamp\ndelete this clone\n\nwhen I start as a clone\nif <(Clone ID) = [6]> then\n    switch costume to (bar v)\n    set [ghost v] effect to (100)\n    set size to (0) %\n    go to x: (0) y: (YPos)\n    repeat (3)\n        change [brightness v] effect by (10)\n        change [ghost v] effect by (-5)\n        Frame Tween Size: [102] speed: [5]\n    end\n    if <(Bar ID) < [5]> then\n        change [bar id v] by (1)\n        change [ypos v] by (60)\n        create clone of (_myself_ v)\n    end\n    repeat until <(size) > [101]>\n        change [ghost v] effect by (-10)\n        Frame Tween Size: [102] speed: [5]\n    end\n    erase all\n    if <(Num) = [0]> then\n        change [num v] by (1)\n        broadcast (Intro done v)\n    end\n    repeat until <(size) < [20]>\n        change [brightness v] effect by (-5)\n        change [ghost v] effect by (5)\n        Frame Tween Size: [19] speed: [5]\n    end\n    wait (.2) seconds\n    delete this clone\nend\n\n@Level\n\nwhen flag clicked\nswitch costume to (costume1 v)\nhide\nwait (11.47) seconds\nshow\ngo to x: (36) y: (28)\n\nwhen I receive [new costume v]\nnext costume\ngo to x: (36) y: (28)\n\nwhen I receive [skip v]\nnext costume\n\n@Pad\n\nwhen flag clicked\nhide\nwait (11.47) seconds\nshow\ngo to x: (0) y: (-114)\nswitch costume to (costume1 v)\n\nwhen I receive [pad v]\nnext costume\nwait (0.2) seconds\nnext costume\n\nwhen flag clicked\nforever\n    if <([costume # v] of [level v]) = [1]> then\n        go to x: (0) y: (-114)\n    end\n    if <([costume # v] of [level v]) = [2]> then\n        go to x: (-50) y: (-114)\n    end\n    if <([costume # v] of [level v]) = [5]> then\n        go to x: (-175) y: (-114)\n    end\n    if <([costume # v] of [level v]) = [7]> then\n        go to x: (-175) y: (-114)\n    end\n    if <([costume # v] of [level v]) = [8]> then\n        go to x: (160) y: (-114)\n    end\nend\n\nwhen I receive [skip v]\nforever\n    if <([costume # v] of [level v]) = [1]> then\n        go to x: (0) y: (-114)\n    end\n    if <([costume # v] of [level v]) = [2]> then\n        go to x: (-50) y: (-114)\n    end\n    if <([costume # v] of [level v]) = [5]> then\n        go to x: (-175) y: (-114)\n    end\n    if <([costume # v] of [level v]) = [7]> then\n        go to x: (-175) y: (-114)\n    end\nend\n\n@Spike\n\nwhen flag clicked\nhide\nwait (11.47) seconds\nshow\nswitch costume to (costume2 v)\n\nwhen I receive [new costume v]\nnext costume\n\nwhen I receive [skip v]\nnext costume\n\n@Thumbnail\n\nwhen flag clicked\nshow\nset [ghost v] effect to (100)\nset size to (100) %\ngo to x: (0) y: (0)\n\n