Platformer Joystick
@Stage\n\nwhen flag clicked\nswitch backdrop to (backdrop1 v)\n\nwhen I receive [next level v]\nnext backdrop\n\n@JoyStik\n\nwhen flag clicked\ngo to x: (160) y: (-100)\npoint in direction (90)\n\nerase all\n\ndefine render circle\nif <mouse down?> then\n    set pen color to (#00a4fe)\n    set pen size to (120)\n    pen down\n    set pen color to (#fefefe)\n    set pen size to (80)\n    pen down\n    broadcast (2 v)\nend\n\nwhen I receive [message1 v]\nrender circle\n\n@The actual thing\n\nwhen flag clicked\n\nwhen flag clicked\npen down\nset pen size to (20)\nforever\nend\n\npoint in direction (90)\n\nerase all\n\nwhen flag clicked\nforever\n    set [my variable v] to [0]\n    broadcast (message1 v)\n    erase all\n    Mobile friendliness\n    if <<(direction) > [35]> and <mouse down?>> then\n        set [move right? v] to [1]\n    end\n    if <<[-35] > (direction)> and <mouse down?>> then\n        set [move left? v] to [1]\n    end\n    if <<<(direction) > [-90]> and <[90] > (direction)>> and <mouse down?>> then\n        set [jump? v] to [1]\n    end\nend\n\nwhen I receive [2 v]\npen up\ngo to x: (160) y: (-100)\nset pen color to (#00a4fe)\nif <<mouse down?> and <(distance to [i exsist v]) < [50]>> then\n    point towards (mouse-pointer v)\n    move (20) steps\n    pen down\nend\n\ndefine Mobile friendliness\nset [jump? v] to [0]\nset [move left? v] to [0]\nset [move right? v] to [0]\n\n@I exsist\n\n@Platforming Script\n\nwhen I receive [next level v]\ngo to x: (-216) y: (-74)\nset [change in x v] to [0]\nset [change in y v] to [0]\n\ndefine Side Collsion\nif <touching color (#000000)?> then\n    change y by (1)\n    if <touching color (#000000)?> then\n        change y by (1)\n        if <touching color (#000000)?> then\n            change y by (1)\n            if <touching color (#000000)?> then\n                change y by (1)\n                if <touching color (#000000)?> then\n                    change y by (1)\n                    if <touching color (#000000)?> then\n                        change x by ((Change in x) * (-1))\n                        change y by (-5)\n                        if <<<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <[1] = (Jump?)>> and <not <touching color (#6d6d6d)?>>> then\n                            if <(Change in x) > [0]> then\n                                set [change in x v] to [-5]\n                            else\n                                set [change in x v] to [5]\n                            end\n                            set [change in y v] to [10]\n                        else\n                            set [change in x v] to [0]\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine Gravity\nchange [change in y v] by (-1)\nchange y by (change in y)\nif <touching color (#000000)?> then\n    change y by ((-1) * (change in y))\n    set [change in y v] to [0]\nend\nchange y by (-1)\nif <<touching color (#000000)?> and <not <touching color (#6d6d6d)?>>> then\n    if <<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <(Jump?) = [1]>> then\n        set [change in y v] to [15]\n    end\nend\nchange y by (1)\n\nwhen flag clicked\npoint in direction (90)\ngo to x: (-216) y: (-74)\nset [change in y v] to [0]\nset [change in x v] to [0]\nforever\n    if <<<key (d v) pressed?> or <key (right arrow v) pressed?>> or <(Move Right?) = [1]>> then\n        switch costume to (costume1 v)\n        change [change in x v] by (1)\n    end\n    if <<<key (a v) pressed?> or <key (left arrow v) pressed?>> or <(Move Left?) = [1]>> then\n        switch costume to (costume1 v)\n        change [change in x v] by (-1)\n    end\n    set [change in x v] to ((Change in x) * (0.9))\n    change x by (Change in x)\n    Side Collsion\n    Gravity\n    if <[235] < (x position)> then\n        go to x: (-216) y: (-74)\n        broadcast (next level v)\n    end\nend\n\nwhen flag clicked\nset volume to (50) %\nshow\n\nhide\n\nwhen flag clicked\nforever\n    if <touching color (#005aff)?> then\n        set [change in y v] to [0]\n        set [change in x v] to [0]\n        wait (0.01) seconds\n        change [change in y v] by (20)\n    end\nend\n\nwhen flag clicked\nforever\n    if <touching color (#ff0000)?> then\n        start sound [Splat v]\n        go to x: (-216) y: (-74)\n        set [change in x v] to [0]\n        set [change in y v] to [0]\n    end\nend\n\nwhen [r v] key pressed\ngo to x: (-216) y: (-74)\n\nif <<[0] < (mouse y)> and <mouse down?>> then\n    set [jump? v] to [1]\nend\nif <<[50] < (mouse x)> and <mouse down?>> then\n    set [move right? v] to [1]\nend\nif <<(mouse x) < [-50]> and <mouse down?>> then\n    set [move left? v] to [1]\nend\n\n@Sprite1\n\nwhen flag clicked\nset [ghost v] effect to (100)\n\n
This is a joystick test/demo, not a game :\