Platformer Creator 1.1 #games #game #all #explore

Instructions: MOVED ACCOUNTS TO @KNIGHTINDIRTYARMOUR

@Stage\n\nwhen flag clicked\nforever\n    switch backdrop to (!PLAYING?)\nend\n\nwhen flag clicked\nforever\n    play sound [wii theme but its bob-omb battlefield-lA4p-kPcP0A2 v] until done\nend\n\n@Sprite1\n\ndefine Make a grid X (x) y (y)\ndelete all of [clones ids v]\nswitch costume to (a v)\nset [cloneid v] to [0]\nhide\nshow\ngo to x: (-220) y: (-165)\ncreate clone of (_myself_ v)\nadd [a] to [clones ids v]\nrepeat (y)\n    repeat (x)\n        change [cloneid v] by (1)\n        change x by (36)\n        create clone of (_myself_ v)\n        add [a] to [clones ids v]\n    end\n    change [cloneid v] by (1)\n    change y by (36)\n    set x to (-220)\n    create clone of (_myself_ v)\n    add [a] to [clones ids v]\nend\nhide\n\nwhen flag clicked\nset [delete v] to [0]\nset [startx v] to [-216]\nset [starty v] to [16]\nset [op v] to [1]\nset [is this clone a block? v] to [no]\nMake a grid X [12] y [8]\nforever\n    if <key (1 v) pressed?> then\n        change [op v] by (1)\n        if <<(op) > [11]> and <not <(op) = [C]>>> then\n            set [op v] to [1]\n        end\n        if <(op) = [10]> then\n            go to [front v] layer\n            switch costume to (10 v)\n            set [op v] to [10]\n        end\n        if <(op) = [11]> then\n            set [op v] to [C]\n        end\n    end\n    wait until <not <key (1 v) pressed?>>\nend\n\nwhen I start as a clone\nif <(cloneID) = [104]> then\n    delete this clone\nend\nforever\n    if <(!PLAYING?) = [play]> then\n    if <(delete) = [1]> then\n        delete this clone\n    end\nend\n\nwhen [1 v] key pressed\n\nset [op v] to [1]\n\nwhen I receive [message1 v]\nif <(flagID) = (cloneID)> then\n    switch costume to (a v)\n    set [is this clone a block? v] to [no]\nend\n\nwhen I receive [game activated v]\nif <(costume [name v]) = [a]> then\n    switch costume to (b v)\nend\n\nwhen I receive [game deactivated v]\nif <(costume [name v]) = [b]> then\n    switch costume to (a v)\nend\n\ndefine EDITOR\nif <(is this clone a block?) = [no]> then\n    if <touching (mouse-pointer v)?> then\n        switch costume to (op)\n        go to [front v] layer\n        if <mouse down?> then\n            if <not <(op) = [10]>> then\n                go to [front v] layer\n                set [is this clone a block? v] to [yes]\n                switch costume to (op)\n                replace item (cloneID) of [clones ids v] with (costume [name v])\n                if <(costume [name v]) = [5]> then\n                    forever\n                        if <(is this clone a block?) = [yes]> then\n                            turn right (30) degrees\n                            go to [front v] layer\n                            if <<touching (mouse-pointer v)?> and <(op) = [10]>> then\n                                if <mouse down?> then\n                                    set [is this clone a block? v] to [no]\n                                    switch costume to (a v)\n                                    replace item (cloneID) of [clones ids v] with [a]\n                                end\n                            end\n                        else\n                            point in direction (90)\n                        end\n                    end\n                end\n                if <(costume [name v]) = [9]> then\n                    broadcast (message1 v) and wait\n                    set [flagid v] to (cloneID)\n                    set [startx v] to (x position)\n                    set [starty v] to (y position)\n                end\n            end\n        end\n    else\n        point in direction (90)\n        switch costume to (a v)\n    end\n    if <key (r v) pressed?> then\n        if <not <(costume [name v]) = [a]>> then\n            turn right (90) degrees\n            wait until <not <key (r v) pressed?>>\n        end\n    end\nend\nif <<(is this clone a block?) = [yes]> and <<touching (mouse-pointer v)?> and <(op) = [10]>>> then\n    if <mouse down?> then\n        set [is this clone a block? v] to [no]\n        switch costume to (a v)\n        replace item (cloneID) of [clones ids v] with [a]\n    end\nend\n\n\n\nwhen I receive [custom grid  v]\nset [delete v] to [1]\nwait (.1) seconds\nset [delete v] to [0]\nwait (.1) seconds\nLoad grid X [12] Y [8]\n\ndefine Load grid X (x) Y (y)\ndelete all of [clones ids v]\nset [!!! v] to [0]\nset [cloneid v] to [0]\nhide\nshow\ngo to x: (-220) y: (-165)\nchange [!!! v] by (1)\nswitch costume to (letter (!!!) of (LOAD CODE))\nif <not <(costume [name v]) = [a]>> then\n    set [is this clone a block? v] to [yes]\nend\ncreate clone of (_myself_ v)\nadd (costume [name v]) to [clones ids v]\nset [is this clone a block? v] to [no]\nrepeat (8)\n    repeat (12)\n        change [!!! v] by (1)\n        change [cloneid v] by (1)\n        change x by (36)\n        if <not <(costume [name v]) = [a]>> then\n            set [is this clone a block? v] to [yes]\n        end\n        switch costume to (letter (!!!) of (LOAD CODE))\n        create clone of (_myself_ v)\n        add (costume [name v]) to [clones ids v]\n        set [is this clone a block? v] to [no]\n    end\n    change [cloneid v] by (1)\n    change y by (36)\n    set x to (-220)\n    change [!!! v] by (1)\n    switch costume to (letter (!!!) of (LOAD CODE))\n    if <not <(costume [name v]) = [a]>> then\n        set [is this clone a block? v] to [yes]\n    end\n    create clone of (_myself_ v)\n    add (costume [name v]) to [clones ids v]\n    set [is this clone a block? v] to [no]\nend\nhide\n\nswitch costume to (a v)\n\nif <(op) = [0]> then\n\nwhen I start as a clone\n\nforever\n\nwhen I receive [egs v]\nforever\n    if <(!PLAYING?) = [play]> then\n    if <(delete) = [1]> then\n        delete this clone\n    end\nend\n\n\n\nwhen I start as a clone\ngo to [back v] layer\n\ncreate clone of (_myself_ v)\n\n@wall jump activated3\n\nwhen flag clicked\nset [!playing? v] to [edit]\nforever\n    switch costume to (!PLAYING?)\n    if <touching (mouse-pointer v)?> then\n        set [ghost v] effect to (0)\n    else\n        set [ghost v] effect to (20)\n    end\nend\n\nwhen this sprite clicked\nif <(!PLAYING?) = [edit]> then\n    set [!playing? v] to [play]\n    broadcast (game activated v)\nelse\n    set [!playing? v] to [edit]\n    erase all\n    broadcast (Game deactivated v)\nend\n\n@c u b e\n\nwhen I receive [game activated v]\nshow\nset size to (50) %\nset rotation style [left-right v]\ngo to x: (StartX) y: (startY)\nshow\nset [speed y v] to [0]\nset [falling? v] to [10]\nforever\n    go to [front v] layer\n    switch costume to (ew v)\n    if <<(speed y) < [4]> or <key (w v) pressed?>> then\n        change [speed y v] by (-1)\n    else\n        change [speed y v] by (-2)\n    end\n    change y by (speed y)\n    Touch Ground <(speed y) > [0]>\n    if <(wall jump) > [0]> then\n        change [wall jump v] by (-1)\n    else\n        set [speed x v] to ((speed x) * (0.7))\n        if <<<(mouse x) < (x position)> and <mouse down?>> or <<key (a v) pressed?> or <key (left arrow v) pressed?>>> then\n            change [speed x v] by (-1.5)\n        end\n        if <<<(mouse x) > (x position)> and <mouse down?>> or <<key (d v) pressed?> or <key (right arrow v) pressed?>>> then\n            change [speed x v] by (1.5)\n        end\n    end\n    if <(speed x) < [-0.5]> then\n        Walk (-90) (speed x)\n    else\n        if <(speed x) > [0.5]> then\n            Walk (90) (speed x)\n        else\n            set [frame v] to [0]\n        end\n    end\n    if <<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <<(mouse y) > (y position)> and <mouse down?>>> then\n        if <<(jump key) = [0]> and <(falling?) < [3]>> then\n            set [speed y v] to [17]\n            set [falling? v] to [6]\n            set [jump key v] to [1]\n        end\n    else\n        set [jump key v] to [0]\n    end\n    if <(y position) < [-180]> then\n        set [speed y v] to [0]\n        set [speed x v] to [0]\n        go to x: (StartX) y: (startY)\n    end\n    if <<touching color (#9d0000)?> or <<touching color (#ff0000)?> or <<touching color (#595959)?> or <touching color (#c7c7c7)?>>>> then\n        repeat (10)\n            change [ghost v] effect by (10)\n        end\n        set [speed y v] to [0]\n        set [speed x v] to [0]\n        go to x: (StartX) y: (startY)\n        repeat (10)\n            change [ghost v] effect by (-10)\n        end\n    end\n    if <touching color (#e1ce00)?> then\n        set [speed y v] to [20]\n    end\n    if <touching color (#00fff2)?> then\n        change [speed y v] by (2)\n        if <<key (up arrow v) pressed?> or <key (w v) pressed?>> then\n            change [speed y v] by (1.2)\n        end\n        if <<key (down arrow v) pressed?> or <key (s v) pressed?>> then\n            change [speed y v] by (-1.2)\n        end\n        if <<key (a v) pressed?> or <key (left arrow v) pressed?>> then\n            change [speed x v] by (-1.5)\n        end\n        if <<key (d v) pressed?> or <key (right arrow v) pressed?>> then\n            change [speed x v] by (1.5)\n        end\n        change x by ((speed x) * (3))\n    end\nend\n\nif <<<key (w v) pressed?> or <key (up arrow v) pressed?>> and <not <<touching color (#000000)?> or <<touching color (#7a3500)?> or <touching color (#00fc37)?>>>>> then\n    set [speed y v] to [14]\n    set [falling? v] to [6]\n    set [jump key v] to [1]\nend\n\nif <(D J) = [1]> then\n    set [d j v] to [0]\nend\n\ndefine Touch Ground <up?>\nchange [falling? v] by (1)\nrepeat until <not <<touching color (#000000)?> or <<touching color (#7a3500)?> or <touching color (#00fc37)?>>>>\n    if <up?> then\n        change y by (-1)\n    else\n        change y by (1)\n        set [falling? v] to [0]\n    end\n    set [speed y v] to [0]\nend\n\ndefine Walk (direction) (speed)\npoint in direction (direction)\nchange x by (speed)\nset [slope v] to [0]\nrepeat until <<(slope) = [8]> or <not <<touching color (#000000)?> or <<touching color (#7a3500)?> or <<touching color (#00fc37)?> or <touching color (#00fff1)?>>>>>>\n    change y by (1)\n    change [slope v] by (1)\nend\nif <(slope) = [8]> then\n    change x by ((0) - (speed))\n    change y by ((0) - (slope))\n    if <<key (w v) pressed?> and <([abs v] of (speed) ) > [3]>> then\n        if <(wall jump) = [0]> then\n            set [speed x v] to ((-1.2) * (speed))\n            set [speed y v] to [11]\n            set [falling? v] to [6]\n            set [wall jump v] to [15]\n        end\n    else\n        set [speed x v] to [0]\n    end\nend\nif <(speed) < [0]> then\n    change [frame v] by ((speed) / (-8))\nelse\n    change [frame v] by ((speed) / (8))\nend\n\ndefine Set Costume\nif <(falling?) < [6]> then\n    if <(frame) = [0]> then\n        switch costume to (ew v)\n    end\nelse\n    if <(speed y) > [0]> then\n        switch costume to (ew v)\n    else\n        switch costume to (ew v)\n    end\nend\n\nwhen flag clicked\nhide\n\nturn right (0) degrees\n\nSet Costume\n\nwhen I receive [game deactivated v]\nhide\n\nset [speed y v] to [2]\n\nset [speed y v] to [-2]\n\nchange x by (10)\n\nmove (10) steps\n\n@save\n\nwhen flag clicked\nshow\nforever\n    if <touching (mouse-pointer v)?> then\n        think [save your platformer]\n    else\n        think []\n    end\nend\n\nwhen this sprite clicked\npog\n\nwhen flag clicked\nshow list [save code list v]\n\ndefine pog\nset [clonecount v] to [0]\nset [savecode v] to []\nrepeat (length of [clones ids v])\n    change [clonecount v] by (1)\n    set [savecode v] to (join (Savecode) (item (cloneCOUNT) of [clones ids v]))\nend\nreplace item (2) of [save code list v] with (Savecode)\nhide list [save code list v]\nwait until <key (space v) pressed?>\nshow list [save code list v]\n\nwhen I receive [game activated v]\nhide\n\nwhen I receive [game deactivated v]\nshow\n\n@load\n\nwhen flag clicked\nshow\nforever\n    if <touching (mouse-pointer v)?> then\n        think [load a your platformer]\n    else\n        think []\n    end\nend\n\nwhen this sprite clicked\nask [Paste your code \(leave blank if you dont have one\)] and wait\nif <(answer) = []> then\n    stop [this script v]\nend\nset [load code v] to (answer)\nbroadcast (custom grid  v)\n\nwhen flag clicked\nshow list [save code list v]\n\nset [clonecount v] to [0]\nset [savecode v] to []\nrepeat (length of [clones ids v])\n    change [clonecount v] by (1)\n    set [savecode v] to (join (Savecode) (item (cloneCOUNT) of [clones ids v]))\nend\nreplace item (2) of [save code list v] with (Savecode)\nhide list [save code list v]\nwait until <key (space v) pressed?>\nshow list [save code list v]\n\nwhen I receive [game activated v]\nhide\n\nwhen I receive [game deactivated v]\nshow\n\n@Thumbnail\n\nwhen flag clicked\nforever\n    set [ghost v] effect to (100)\nend\n\n