Platformer || A Platformer

Instructions: Platformer | A Platformer\n✂- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -\nmAdE bY: @jindalsargun\n✂- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -\niNsTrUcTiOnS:\n▸Use WASD or arrow keys to move\n▸Avoid lava, spikes, saws and holes\n▸You can swim in the water\n▸Jump on the trampolines\n▸Speed-Ups can be good or bad\n▸Is mobile-friendly\n▸Has 13 levels\n▸All levels are possible\n✂- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -\nuPdAtEs:\n28th June 2021: shared\n29th June 2021 - added mute/unmute button and changed some of the ground and trampoline art and added mouse-trail\n30th June 2021 - added another level\n✂- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

@Stage\n\n@Player\n\nwhen flag clicked\nset [level v] to [1]\ngo to [front v] layer\nhide\n\nwhen I receive [start v]\nshow\nset [signal v] to [disactivated]\npoint in direction (90)\ngo to x: (-190) y: (20)\nset [xs v] to [0]\nset [ys v] to [0]\nforever\n    if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <(mouse x) > (x position)>>>> then\n        change [xs v] by (1.5)\n        switch costume to (right v)\n    end\n    if <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>>> then\n        change [xs v] by (-1.5)\n        switch costume to (left v)\n    end\n    if <<<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <(mouse x) > (x position)>>>> and <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>>>> then\n        switch costume to (upright v)\n    end\n    if <<<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>>> and <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>>>> then\n        switch costume to (upleft v)\n    end\n    if <not <<key (right arrow v) pressed?> or <<key (left arrow v) pressed?> or <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<key (a v) pressed?> or <<key (d v) pressed?> or <<<mouse down?> and <(mouse x) > (x position)>> or <<mouse down?> and <(mouse x) < (x position)>>>>>>>>>> then\n        switch costume to (normal v)\n    end\n    if <<key (down arrow v) pressed?> or <<key (s v) pressed?> or <<mouse down?> and <(mouse y) < (y position)>>>> then\n        switch costume to (down v)\n    end\n    change x by (Xs)\n    if <touching (ground v)?> then\n        change x by ((Xs) * (-1))\n        if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>>> then\n            if <(Xs) > [0]> then\n                set [xs v] to [-15]\n                set [ys v] to [10]\n            else\n                set [xs v] to [15]\n                set [ys v] to [10]\n            end\n        else\n            set [xs v] to [0]\n        end\n    else\n        set [xs v] to ((Xs) * (0.8))\n    end\n    change y by (Ys)\n    if <touching (ground v)?> then\n        change y by ((Ys) * (-1))\n        set [ys v] to [0]\n        if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>>> then\n            switch costume to (player - up v)\n            if <(Jumping) = [yes]> then\n                set [ys v] to [12]\n                set [jumping v] to [no]\n            end\n        end\n    else\n        change [ys v] by (-1)\n        set [jumping v] to [yes]\n    end\n    if <(x position) > [239]> then\n        change [level v] by (1)\n        go to x: (-190) y: (20)\n        set [xs v] to [0]\n        set [ys v] to [0]\n    end\n    if <<<<touching (spikes v)?> or <(y position) < [-178]>> or <touching (lava v)?>> or <touching (saws v)?>> then\n        go to x: (-190) y: (50)\n        set [xs v] to [0]\n        set [ys v] to [0]\n    end\n    if <touching (trampoline v)?> then\n        set [ys v] to [20]\n    end\n    if <touching (water v)?> then\n        set [ys v] to [-1]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [ys v] to [5]\n        end\n        if <<<key (down arrow v) pressed?> or <key (s v) pressed?>> or <<mouse down?> and <(y position) > (mouse y)>>> then\n            set [ys v] to [-5]\n        end\n    end\n    if <touching (speed ups v)?> then\n        set [xs v] to [20]\n    end\nend\n\nwhen I receive [start v]\nset volume to (100) %\nforever\n    play sound [Jon Bellion - Kingdom Come v] until done\nend\n\nset [level v] to [13]\n\nbroadcast (Start v)\n\n@Glow\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\nshow\ngo to x: (0) y: (0)\nforever\n    go to (player v)\nend\n\n@My Intro\n\nwhen I start as a clone\nshow\nif <(ID) = [Particle]> then\n    switch costume to (bg v)\n    set size to (pick random (10) to (75)) %\n    go to [front v] layer\n    go to x: (pick random (-400) to (240)) y: (-300)\n    point in direction (60)\n    if <(timer) > [5]> then\n        show\n    else\n        hide\n    end\n    set [ghost v] effect to (50)\n    if <(size) < [40]> then\n        go [backward v] (1) layers\n    end\n    set [i v] to (pick random (3) to (7))\n    set [id v] to (pick random (2) to (6))\n    repeat until <<(x position) > [399]> or <<(x position) < [-399]> or <<(y position) > [399]> or <(y position) < [-399]>>>>\n        switch costume to (movehack v)\n        move (i) steps\n        change y by (ID)\n        change [id v] by (.01)\n        switch costume to (particle v)\n        if <(timer) > [5]> then\n            show\n            if <(timer) > [8.7]> then\n                hide\n            end\n        end\n    end\n    delete this clone\nend\nif <(ID) = [Line]> then\n    point in direction (135)\n    switch costume to (blank v)\n    set size to (100) %\n    if <(timer) > [1.5]> then\n        set [ghost v] effect to (0)\n    else\n        set [ghost v] effect to (100)\n    end\n    switch costume to (movehack v)\n    go to x: (-325) y: (200)\n    go to [back v] layer\n    go [forward v] (5) layers\n    repeat until <(x position) > [300]>\n        switch costume to (movehack v)\n        if <(timer) > [1.5]> then\n            if <(timer) > [7.5]> then\n                delete this clone\n            else\n                change x by (5)\n                change y by (-5)\n                change [ghost v] effect by (-10)\n            end\n        else\n            change x by (10)\n            change y by (-10)\n        end\n        switch costume to (linething v)\n    end\n    delete this clone\nend\nif <(ID) = [BG]> then\n    switch costume to (bg v)\n    set size to (1) %\n    go to [front v] layer\n    go [backward v] (2) layers\n    repeat (5)\n        change size by (((10) - (size)) / (8))\n    end\n    repeat (50)\n        switch costume to (blank v)\n        change size by (((700) - (size)) / (12))\n        switch costume to (bg v)\n    end\n    wait until <(timer) > [8.7]>\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    delete this clone\nend\nif <(ID) = [CE]> then\n    switch costume to (ce v)\n    set size to (1) %\n    go to [back v] layer\n    go [forward v] (1) layers\n    set [i v] to [1]\n    repeat (15)\n        change [i v] by ((i) / (8))\n        change size by (i)\n    end\n    repeat (7)\n        change size by (((100) - (size)) / (12))\n    end\n    repeat (14)\n        change size by (((100) - (size)) / (12))\n        change size by (2)\n        next costume\n    end\n    delete this clone\nend\nif <(ID) = [BG2]> then\n    switch costume to (bg2 v)\n    set size to (100) %\n    set [ghost v] effect to (100)\n    go to [back v] layer\n    point in direction (90)\n    repeat (10)\n        change [ghost v] effect by (-10)\n    end\n    wait until <(timer) > [8]>\n    delete this clone\nend\nif <(ID) = [CT]> then\n    switch costume to (circlething2 v)\n    set size to (60) %\n    set [ghost v] effect to (100)\n    go to [back v] layer\n    go [forward v] (1) layers\n    point in direction (90)\n    go to x: (-133) y: (-46)\n    repeat (10)\n        change [ghost v] effect by (-10)\n        turn right (2) degrees\n    end\n    repeat until <(timer) > [7.5]>\n        turn right (2) degrees\n    end\n    delete this clone\nend\nif <(ID) = [CT2]> then\n    switch costume to (circlething2 v)\n    set size to (60) %\n    set [ghost v] effect to (100)\n    go to [back v] layer\n    go [forward v] (1) layers\n    point in direction (90)\n    go to x: (133) y: (46)\n    repeat (10)\n        change [ghost v] effect by (-10)\n        turn left (2) degrees\n    end\n    repeat until <(timer) > [7.5]>\n        turn left (2) degrees\n    end\n    delete this clone\nend\nif <(ID) = [Name]> then\n    set [id v] to [2]\n    if <(ID) = [1]> then\n        set [brightness v] effect to (-100)\n        switch costume to (logo3 v)\n    else\n        switch costume to (name v)\n    end\n    set size to (250) %\n    set [ghost v] effect to (100)\n    go to [front v] layer\n    point in direction (45)\n    repeat (50)\n        change [ghost v] effect by (-10)\n        change size by (((100) - (size)) / (12))\n        turn right (((90) - (direction)) / (12)) degrees\n    end\n    repeat until <(timer) > [5]>\n        change size by (-.25)\n    end\n    repeat (5)\n        change size by (((65) - (size)) / (12))\n        go to x: (pick random (-2) to (2)) y: (pick random (-2) to (2))\n        set [-kami's intro x v] to (x position)\n        set [-kami's intro y v] to (y position)\n        go to [front v] layer\n    end\n    if <(ID) = [1]> then\n        set [brightness v] effect to (0)\n        switch costume to (logo3 v)\n    else\n        switch costume to (name2 v)\n    end\n    repeat (15)\n        change size by (((65) - (size)) / (12))\n        go to x: (pick random (-2) to (2)) y: (pick random (-2) to (2))\n        set [-kami's intro x v] to (x position)\n        set [-kami's intro y v] to (y position)\n        go to [front v] layer\n    end\n    repeat (10)\n        change size by (-.25)\n        go to x: (pick random (-2) to (2)) y: (pick random (-2) to (2))\n        set [-kami's intro x v] to (x position)\n        set [-kami's intro y v] to (y position)\n    end\n    repeat (10)\n        change size by (-.25)\n        go to x: (pick random (-1) to (1)) y: (pick random (-1) to (1))\n        set [-kami's intro x v] to (x position)\n        set [-kami's intro y v] to (y position)\n    end\n    go to x: (0) y: (0)\n    set [-kami's intro x v] to [0]\n    set [-kami's intro y v] to [0]\n    repeat until <(timer) > [8]>\n        change size by (-.25)\n    end\n    set [i v] to [1]\n    set [id v] to [1]\n    repeat (10)\n        change size by (i)\n        turn right (ID) degrees\n        change [i v] by ((i) / (4))\n        change [id v] by ((ID) / (8))\n    end\n    repeat (5)\n        change size by (((250) - (size)) / (8))\n        turn right (((135) - (direction)) / (12)) degrees\n    end\n    repeat (10)\n        change size by (((250) - (size)) / (8))\n        turn right (((135) - (direction)) / (12)) degrees\n        change [ghost v] effect by (10)\n    end\n    wait (1) seconds\n    broadcast (Pizzarush's Intro v)\n    delete this clone\nend\n\nwhen flag clicked\nbroadcast (-Kami's Intro v)\n\nwhen I start as a clone\nif <(ID) = [BG]> then\n    go to x: (-Kami's Intro X) y: (-Kami's Intro Y)\nend\n\nwhen I receive [-kami's intro v]\nforever\n    Clone [Particle]\nend\n\nwhen I receive [-kami's intro v]\nset [-kami's intro x v] to [0]\nset [-kami's intro y v] to [0]\nreset timer\nstart sound [MUSICA v]\nset volume to (100) %\nhide\nclear graphic effects\nset size to (100) %\ngo to x: (0) y: (0)\npoint in direction (90)\nwait until <(timer) > [1.5]>\nClone [Skip]\nClone [BG2]\nClone [CE]\nClone [Name]\nClone [CT]\nClone [CT2]\nwait until <(timer) > [5]>\nClone [BG]\n\ndefine Clone (id)\nset [id v] to (id)\ncreate clone of (_myself_ v)\n\nwhen I receive [-kami's intro v]\nrepeat until <(timer) > [1.5]>\n    Clone [Line]\n    wait (.13) seconds\nend\nrepeat until <(timer) > [7.5]>\n    Clone [Line]\n    wait (.3) seconds\nend\n\nwhen I receive [skip -kami's intro v]\nstop [other scripts in sprite v]\nrepeat (10)\n    change [ghost v] effect by (10)\n    change volume by (-10)\nend\nbroadcast (Pizzarush's Intro v)\ndelete this clone\n\nwhen I start as a clone\nif <(ID) = [Skip]> then\n    forever\n        show\n        go to [front v] layer\n        clear graphic effects\n        set size to (100) %\n        go to x: (0) y: (0)\n        point in direction (90)\n        switch costume to (skip v)\n        if <<key (space v) pressed?> or <mouse down?>> then\n            broadcast (Skip -Kami's Intro v)\n        end\n        if <(timer) > [9]> then\n            repeat (10)\n                change [ghost v] effect by (10)\n            end\n            delete this clone\n        end\n    end\nend\n\nwhen I receive [pizzarush's intro v]\nbroadcast (Start v)\n\n@Ground\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\ngo to x: (0) y: (0)\nshow\nswitch costume to (1 v)\ngo to [front v] layer\nforever\n    switch costume to (Level)\nend\n\n@Water\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\ngo to x: (0) y: (0)\nshow\nswitch costume to (1 v)\nforever\n    go to [back v] layer\n    switch costume to (Level)\nend\n\nwhen I receive [start v]\ngo to x: (0) y: (0)\nforever\n    repeat (30)\n        change y by (-0.4)\n    end\n    repeat (30)\n        change y by (0.4)\n    end\nend\n\n@Lava\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\ngo to x: (0) y: (0)\nshow\nswitch costume to (1 v)\nforever\n    go to [back v] layer\n    switch costume to (Level)\nend\n\nwhen I receive [start v]\ngo to x: (0) y: (0)\nforever\n    repeat (30)\n        change y by (-0.4)\n    end\n    repeat (30)\n        change y by (0.4)\n    end\nend\n\n@Spikes\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\ngo to x: (0) y: (0)\nshow\nswitch costume to (1 v)\nforever\n    go to [back v] layer\n    switch costume to (Level)\nend\n\n@Saws\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\ngo to x: (0) y: (0)\nshow\nswitch costume to (1 v)\nforever\n    go to [back v] layer\n    switch costume to (Level)\n    turn right (5) degrees\n    if <(Level) = [5]> then\n        go to x: (142) y: (73)\n    end\nend\n\n@Text\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\ngo to x: (0) y: (0)\nshow\nswitch costume to (1 v)\nforever\n    go to [back v] layer\n    switch costume to (Level)\nend\n\n@Trampoline\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\ngo to x: (0) y: (0)\nshow\nswitch costume to (1 v)\nforever\n    go to [back v] layer\n    switch costume to (Level)\nend\n\nif <(Level) = [5]> then\n    go to x: (142) y: (73)\nend\n\n@Speed Ups\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\ngo to x: (0) y: (0)\nshow\nswitch costume to (1 v)\nforever\n    go to [back v] layer\n    switch costume to (Level)\nend\n\nif <(Level) = [5]> then\n    go to x: (142) y: (73)\nend\n\n@Fireworks\n\ndefine Edit\nif <not <<[type v] contains [1]?> or <[10] < (length of [pyv v])>>> then\n    if <mouse down?> then\n        add (pick random (3) to (4)) to [particles v]\n        add (mouse x) to [px v]\n        add [-190] to [py v]\n        add (pick random (-2) to (2)) to [pxv v]\n        add [7] to [pyv v]\n        add [1] to [type v]\n        Random colour\n    else\n        add (pick random (3) to (4)) to [particles v]\n        add (pick random (-200) to (200)) to [px v]\n        add [-190] to [py v]\n        add (pick random (-2) to (2)) to [pxv v]\n        add [11] to [pyv v]\n        add [1] to [type v]\n        Random colour\n    end\nend\nset [iterate v] to [0]\nrepeat (length of [particles v])\n    change [iterate v] by (1)\n    replace item (iterate) of [px v] with ((item (iterate) of [px v]) + (item (iterate) of [pxv v]))\n    replace item (iterate) of [py v] with ((item (iterate) of [py v]) + (item (iterate) of [pyv v]))\n    replace item (iterate) of [pxv v] with ((0) + ((item (iterate) of [pxv v]) * (0.99)))\n    replace item (iterate) of [pyv v] with ((-0.05) + ((item (iterate) of [pyv v]) * (0.99)))\n    replace item (iterate) of [particles v] with ((item (iterate) of [particles v]) + (0.2))\n    if <[10] < (item (iterate) of [particles v])> then\n        delete (iterate) of [particles v]\n        delete (iterate) of [px v]\n        delete (iterate) of [py v]\n        delete (iterate) of [pxv v]\n        delete (iterate) of [pyv v]\n        delete (iterate) of [type v]\n        delete (iterate) of [colour v]\n    else\n        if <[7] < (item (iterate) of [particles v])> then\n            if <[1] = (item (iterate) of [type v])> then\n                replace item (iterate) of [type v] with [0]\n                repeat (50)\n                    add (pick random (2) to (-2)) to [particles v]\n                    add (item (iterate) of [px v]) to [px v]\n                    add (item (iterate) of [py v]) to [py v]\n                    add (([sin v] of (pick random (1) to (360)) ) * (pick random (-5) to (5))) to [pxv v]\n                    add ((3) + (([cos v] of (pick random (1) to (360)) ) * (pick random (-5) to (5)))) to [pyv v]\n                    add [0] to [type v]\n                    add (item (iterate) of [colour v]) to [colour v]\n                end\n            end\n        end\n    end\n    if <(item (iterate) of [py v]) < [-200]> then\n        delete (iterate) of [particles v]\n        delete (iterate) of [px v]\n        delete (iterate) of [py v]\n        delete (iterate) of [pxv v]\n        delete (iterate) of [pyv v]\n        delete (iterate) of [type v]\n        delete (iterate) of [colour v]\n    end\nend\n\ndefine Render\ngo to x: (0) y: (0)\nset [ghost v] effect to (88)\nstamp\nset [iterate v] to [0]\nrepeat (length of [particles v])\n    change [iterate v] by (1)\n    set pen color to (join [0x] (item (iterate) of [colour v]))\n    if <(item (iterate) of [particles v]) < [9]> then\n        if <[5] < (item (iterate) of [particles v])> then\n            if <(item (iterate) of [type v]) = [1]> then\n                set pen color to (join [0x] (item (iterate) of [colour v]))\n            else\n                set pen color to (join (join [0x] (join (round ((14) - ((item (iterate) of [particles v]) * (1.6)))) [1])) (item (iterate) of [colour v]))\n            end\n        end\n        set pen size to (1)\n        go to x: (item (iterate) of [px v]) y: (item (iterate) of [py v])\n        pen down\n        if <(item (iterate) of [type v]) = [1]> then\n            set pen size to (((12) + (item (iterate) of [particles v])) / (4))\n        else\n            set pen size to (item (iterate) of [particles v])\n        end\n        go to x: ((item (iterate) of [pxv v]) + (item (iterate) of [px v])) y: ((item (iterate) of [pyv v]) + (item (iterate) of [py v]))\n        pen up\n    end\n    go to x: (item (iterate) of [px v]) y: (item (iterate) of [py v])\n    if <<[7] < (item (iterate) of [particles v])> or <<(item (iterate) of [particles v]) < [3]> or <[1] = (item (iterate) of [type v])>>> then\n        repeat (pick random (1) to (pick random (1) to (2)))\n            set pen size to (pick random (pick random (1) to (20)) to (pick random (120) to (90)))\n            set pen color to (join [0x] (join [03] (item (iterate) of [colour v])))\n            if <(item (iterate) of [particles v]) < [3]> then\n                set pen color to (join [0x] (join [02] (item (iterate) of [colour v])))\n            end\n            pen down\n            pen up\n        end\n        if <[1] = (item (iterate) of [type v])> then\n            repeat (3)\n                set pen size to (pick random (item (iterate) of [particles v]) to (((item (iterate) of [particles v]) - (3)) * (30)))\n                set pen color to (join (join [0x0] (letter (round ((5) + (item (iterate) of [particles v]))) of [0123456789ABCDEF])) (item (iterate) of [colour v]))\n                pen down\n                pen up\n            end\n        end\n    end\nend\n\ndefine Random colour\nif <(pick random (1) to (3)) = [1]> then\n    add (join [FF] (join (join (letter (pick random (10) to (16)) of [0123456789ABCDEF]) (letter (pick random (1) to (16)) of [0123456789ABCDEF])) (join (letter (pick random (1) to (5)) of [0123456789ABCDEF]) (letter (pick random (1) to (16)) of [0123456789ABCDEF])))) to [colour v]\nelse\n    if <(pick random (1) to (2)) = [1]> then\n        add (join (join (letter (pick random (1) to (5)) of [0123456789ABCDEF]) (letter (pick random (1) to (16)) of [0123456789ABCDEF])) (join [FF] (join (letter (pick random (10) to (16)) of [0123456789ABCDEF]) (letter (pick random (1) to (16)) of [0123456789ABCDEF])))) to [colour v]\n    else\n        add (join (join (letter (pick random (10) to (16)) of [0123456789ABCDEF]) (letter (pick random (1) to (16)) of [0123456789ABCDEF])) (join (join (letter (pick random (1) to (5)) of [0123456789ABCDEF]) (letter (pick random (1) to (16)) of [0123456789ABCDEF])) [FF])) to [colour v]\n    end\nend\n\nwhen I receive [start v]\nset rotation style [don't rotate v]\nhide\ndelete (all) of [particles v]\ndelete (all) of [px v]\ndelete (all) of [py v]\ndelete (all) of [pxv v]\ndelete (all) of [pyv v]\ndelete (all) of [type v]\ndelete (all) of [colour v]\nforever\n    Render\n    Edit\nend\n\nwhen flag clicked\nforever\n    if <(Level) = [8]> then\n        switch costume to (costume3 v)\n    end\n    if <(Level) = [11]> then\n        switch costume to (costume2 v)\n    end\n    if <not <<(Level) = [8]> or <(Level) = [11]>>> then\n        switch costume to (costume1 v)\n    end\nend\n\n@Thumb\n\nwhen flag clicked\nshow\nset [ghost v] effect to (100)\ngo to [front v] layer\ngo to x: (0) y: (0)\nset volume to (100) %\n\n@Mute Unmute\n\nwhen this sprite clicked\nif <(costume [name v]) = [Non-volume]> then\n    switch costume to (volume v)\n    forever\n        stop all sounds\n    end\nend\nif <(costume [name v]) = [Volume]> then\n    switch costume to (non-volume v)\n    stop all sounds\n    play sound [Jon Bellion - Kingdom Come v] until done\nend\n\nwhen flag clicked\nswitch costume to (non-volume v)\ngo to x: (0) y: (0)\nhide\n\nwhen I receive [start v]\nforever\n    show\n    go to [front v] layer\nend\n\n@Mouse Trail\n\nwhen flag clicked\nhide\nforever\n    create clone of (_myself_ v)\n    wait (0.001) seconds\nend\n\nwhen I start as a clone\nshow\ngo to [front v] layer\nturn right (pick random (-180) to (360)) degrees\nset size to (pick random (80) to (100)) %\nclear graphic effects\ngo to (mouse-pointer v)\nset [color v] effect to (pick random (1) to (100))\nrepeat (100)\n    move (1) steps\n    change size by (-3)\n    change [ghost v] effect by (5)\nend\ndelete this clone\n\n