Round || 90% pen platformer

Instructions: I'm working on this to make it multiplayer!!\nFollow to stay tuned!! :D\n\nThis is my 1st Pen platformer!!!  Finally this is shared!\nSorry, I you only have 8 levels, I can add a level every two days, until this game is over!!!!\nThis is only 90% pen, because the player and the intro  is not pen.\nControls - \nArrow keys or wasd for moving.\nDon't touch red, its lava.\nIf you touch green it will teleport you to another place.\nIf you touch yellow, you will bounce.\nThanks for playing.\nFor more game like this, please follow me.\nThanks!I'm also trying to make a multiplayer game, follow me, so you don't miss it!\nUntil then bye!

@Stage\n\n@Game\n\nwhen I receive [a15-3 v]\nglide [-87] [-28]\nglide [-87] [-48]\nglide [-73] [-48]\nrelocate [-65] [-34]\nglide [-54] [-34]\nglide [-54] [-48]\nglide [-65] [-48]\nglide [-65] [-34]\nrelocate [-44] [-48]\nglide [-44] [-33]\nglide [-21] [-33]\nglide [-21] [-48]\nrelocate [-33] [-48]\nglide [-33] [-33]\nrelocate [-12] [-48]\nglide [-12] [-33]\nglide [12] [-33]\nglide [12] [-48]\nrelocate [0] [-48]\nglide [0] [-33]\nrelocate [20] [-39]\nglide [33] [-39]\nglide [33] [-33]\nglide [21] [-33]\nglide [21] [-48]\nglide [33] [-48]\nrelocate [41] [-48]\nglide [41] [-33]\nglide [54] [-33]\nglide [54] [-49]\nrelocate [64] [-29]\nglide [64] [-48]\nglide [70] [-48]\nrelocate [60] [-32]\nglide [70] [-32]\nrelocate [-55] [-90]\nset pen color to (#ff006e)\nglide [-55] [-68]\nglide [-44] [-68]\nrelocate [-45] [-79]\nglide [-55] [-79]\nrelocate [-38] [-74]\nglide [-26] [-74]\nglide [-26] [-89]\nglide [-38] [-89]\nglide [-38] [-74]\nrelocate [-16] [-67]\nglide [-16] [-90]\nrelocate [-7] [-90]\nglide [-7] [-67]\nrelocate [2] [-73]\nglide [14] [-73]\nglide [14] [-89]\nglide [2] [-89]\nglide [2] [-73]\nrelocate [21] [-73]\nglide [21] [-89]\nglide [45] [-89]\nglide [45] [-73]\nrelocate [32] [-73]\nglide [32] [-89]\nrelocate [-133] [-154]\n\ndefine glide (x) (y)\npen down\nglide (.075) secs to x: (x) y: (y)\n\ndefine relocate (x) (y)\npen up\ngo to x: (x) y: (y)\n\nwhen flag clicked\nerase all\n\ndefine ground\nset pen size to (70)\nset pen color to (#5f85e0)\npen up\ngo to x: (-231) y: (-172)\npen down\ngo to x: (235) y: (-172)\n\nwhen I receive [reset v]\nerase all\nif <(level) = [1]> then\n    ground\nend\nif <(level) = [2]> then\n    ground\n    wall [-100] [-150] [200] [40]\n    wall [100] [-150] [200] [40]\n    lava [-70] [-120] [70] [-120]\n    lava [-70] [-90] [70] [-90]\n    lava [-70] [-60] [70] [-60]\n    lava [-70] [-30] [70] [-30]\n    lava [-70] [0] [70] [0]\nend\nif <(level) = [3]> then\n    ground\n    bouncy [75] [-150] [-75] [-150]\nend\nif <(level) = [4]> then\n    ground\n    lava [-100] [50] [150] [50]\n    bouncy [-140] [-150] [30] [-150]\nend\nif <(level) = [5]> then\n    ground\n    wall [-91] [-154] [200] [80]\n    lava [49] [90] [49] [-150]\n    bouncy [-40] [-140] [10] [-140]\nend\nif <(level) = [6]> then\n    ground\n    Santing wall [-140] [-150] [40] [25]\n    lava [-80] [-120] [220] [-120]\n    lava [-40] [-80] [220] [-80]\n    lava [0] [-40] [220] [-40]\nend\nif <(level) = [7]> then\n    ground\n    Lav with fat x: [0] y: [-150] x fin: [0] y fin: [180] Fat: [150]\n    Telepoter  x: [-100] y: [-150] x fin [-100] y fin: [100]\n    Finish telepoter [100] [-150] [100] [100]\nend\nif <(level) = [8]> then\n    ground\n    Lav with fat x: [-50] y: [-150] x fin: [-50] y fin: [170] Fat: [50]\n    Telepoter  x: [-100] y: [-150] x fin [-100] y fin: [100]\n    Finish telepoter [-10] [-150] [-10] [100]\n    bouncy [0] [-150] [210] [-150]\nend\nif <(level) = [9]> then\n    ground\n    Wall with fat [220] [-150] [220] [150] [50]\n    END WORDS\nend\n\ndefine wall (x) (y) (height) (fat)\nset pen color to (#5f85e0)\nset pen size to (fat)\npen up\ngo to x: (x) y: (y)\npen down\nchange y by (height)\n\ndefine lava (x start) (y start) (x fin) (y fin)\nset pen size to (50)\nset pen color to (#ff0000)\npen up\ngo to x: (x start) y: (y start)\npen down\ngo to x: (x fin) y: (y fin)\n\ndefine bouncy (x) (y) (x finish) (y finish)\nset pen size to (40)\nset pen color to (#fffa00)\npen up\ngo to x: (x) y: (y)\npen down\ngo to x: (x finish) y: (y finish)\n\ndefine Santing wall (x) (y) (x fin) (yfin)\nset pen size to (40)\nset pen color to (#5f85e0)\npen up\ngo to x: (x) y: (y)\npen down\ngo to x: (x fin) y: (yfin)\n\ndefine Lav with fat x: (x) y: (y) x fin: (x fin) y fin: (y fin) Fat: (fat)\nset pen size to (fat)\nset pen color to (#ff0000)\npen up\ngo to x: (x) y: (y)\npen down\ngo to x: (x fin) y: (y fin)\n\ndefine Telepoter  x: (x) y: (y) x fin (x fin) y fin: (y fin)\nset pen size to (50)\nset pen color to (#1dff00)\npen up\ngo to x: (x) y: (y)\npen down\ngo to x: (x fin) y: (y fin)\n\ndefine Finish telepoter (x) (y) (x fin) (y fin)\nset pen size to (50)\nset pen color to (#59ff44)\npen up\ngo to x: (x) y: (y)\npen down\ngo to x: (x fin) y: (y fin)\n\ndefine Wall with fat (x) (y) (x fin) (yfin) (fat)\nset pen color to (#5f85e0)\nset pen size to (fat)\npen up\ngo to x: (x) y: (y)\npen down\ngo to x: (x fin) y: (yfin)\n\ndefine END WORDS\nset pen color to (#00f3e2)\nset pen size to (3)\nrelocate [-229] [161]\nglide [-213] [161]\nrelocate [-221] [161]\nglide [-221] [140]\nrelocate [-206] [162]\nglide [-207] [140]\nglide [-207] [153]\nglide [-194] [153]\nglide [-194] [140]\nrelocate [-185] [149]\nglide [-173] [149]\nglide [-173] [154]\nglide [-185] [154]\nglide [-185] [140]\nglide [-172] [140]\nrelocate [-156] [148]\nglide [-144] [148]\nglide [-144] [154]\nglide [-157] [154]\nglide [-157] [140]\nglide [-145] [140]\nrelocate [-136] [139]\nglide [-136] [153]\nglide [-123] [153]\nglide [-123] [139]\nrelocate [-102] [162]\nglide [-102] [140]\nglide [-114] [140]\nglide [-114] [153]\nglide [-104] [153]\nrelocate [-92] [162]\nglide [-92] [148]\nrelocate [-92] [142]\nglide [-92] [141]\nrelocate [-73] [161]\nglide [-73] [140]\nrelocate [-73] [150]\nglide [-58] [150]\nrelocate [-58] [161]\nglide [-58] [140]\nrelocate [-47] [154]\nglide [-36] [154]\nglide [-36] [141]\nglide [-47] [141]\nglide [-47] [154]\nrelocate [-26] [132]\nglide [-26] [154]\nglide [-15] [154]\nglide [-15] [141]\nglide [-26] [141]\nrelocate [-5] [148]\nglide [6] [148]\nglide [6] [154]\nglide [-5] [154]\nglide [-5] [140]\nglide [7] [140]\nrelocate [22] [155]\nglide [22] [144]\nglide [35] [144]\nglide [35] [155]\nglide [35] [132]\nglide [22] [132]\nrelocate [43] [153]\nglide [54] [153]\nglide [54] [141]\nglide [43] [141]\nglide [43] [153]\nrelocate [63] [155]\nglide [63] [140]\nglide [76] [140]\nglide [76] [155]\nrelocate [95] [148]\nglide [106] [148]\nglide [106] [154]\nglide [95] [154]\nglide [95] [140]\nglide [106] [140]\nrelocate [114] [140]\nglide [114] [154]\nglide [126] [154]\nglide [126] [140]\nrelocate [136] [164]\nglide [136] [163]\nrelocate [136] [155]\nglide [136] [132]\nglide [131] [132]\nrelocate [146] [154]\nglide [156] [154]\nglide [156] [141]\nglide [146] [141]\nglide [146] [154]\nglide [146] [154]\nrelocate [164] [155]\nglide [164] [144]\nglide [177] [144]\nglide [177] [155]\nglide [177] [132]\nglide [164] [132]\nrelocate [184] [148]\nglide [196] [148]\nglide [196] [154]\nglide [184] [154]\nglide [184] [140]\nglide [195] [140]\nrelocate [216] [162]\nglide [216] [140]\nglide [204] [140]\nglide [204] [154]\nglide [216] [154]\nrelocate [226] [162]\nglide [226] [148]\nrelocate [226] [142]\nglide [226] [141]\nset pen color to (#f8009b)\nrelocate [-132] [82]\nglide [-132] [104]\nglide [-120] [104]\nglide [-120] [93]\nglide [-132] [93]\nglide [-118] [83]\nbroadcast (a-152 v)\n\nwhen I receive [a-152 v]\nrelocate [-112] [92]\nglide [-99] [92]\nglide [-99] [98]\nglide [-112] [98]\nglide [-112] [83]\nglide [-99] [83]\nrelocate [-91] [83]\nglide [-91] [98]\nglide [-67] [98]\nglide [-67] [83]\nrelocate [-79] [83]\nglide [-79] [98]\nrelocate [-59] [92]\nglide [-46] [92]\nglide [-46] [97]\nglide [-58] [97]\nglide [-58] [83]\nglide [-46] [83]\nrelocate [-38] [83]\nglide [-38] [98]\nglide [-15] [98]\nglide [-15] [83]\nrelocate [-26] [83]\nglide [-26] [97]\nrelocate [-5] [105]\nglide [-5] [83]\nglide [7] [83]\nglide [7] [97]\nglide [-5] [97]\nrelocate [16] [92]\nglide [28] [92]\nglide [28] [97]\nglide [17] [97]\nglide [17] [83]\nglide [29] [83]\nrelocate [36] [82]\nglide [36] [97]\nglide [44] [97]\nrelocate [61] [102]\nglide [61] [83]\nglide [66] [83]\nrelocate [56] [98]\nglide [66] [98]\nrelocate [73] [96]\nglide [85] [96]\nglide [85] [84]\nglide [73] [84]\nglide [73] [96]\nrelocate [94] [84]\nglide [95] [84]\nrelocate [103] [84]\nglide [104] [84]\nrelocate [113] [84]\nglide [114] [84]\nrelocate [-46] [49]\nset pen color to (#00ffff)\nglide [-46] [27]\nglide [-34] [27]\nrelocate [-27] [41]\nglide [-16] [41]\nglide [-16] [28]\nglide [-27] [28]\nglide [-27] [41]\nrelocate [-9] [42]\nglide [-3] [27]\nglide [4] [42]\nrelocate [11] [36]\nglide [23] [36]\nglide [23] [41]\nglide [12] [41]\nglide [12] [27]\nglide [23] [27]\nrelocate [-33] [9]\nset pen color to (#bf00ff)\nglide [-46] [9]\nglide [-46] [-14]\nglide [-46] [-4]\nglide [-35] [-4]\nrelocate [-28] [2]\nglide [-17] [2]\nglide [-17] [-13]\nglide [-28] [-13]\nglide [-28] [-6]\nglide [-17] [-6]\nrelocate [-10] [2]\nglide [-3] [-14]\nglide [3] [2]\nrelocate [10] [-4]\nglide [23] [-4]\nglide [23] [1]\nglide [11] [1]\nglide [11] [-13]\nglide [22] [-13]\nrelocate [-73] [-28]\nset pen color to (#ff00d0)\nbroadcast (a15-3 v)\n\nwhen I receive [start v]\nhide\nset [level v] to [1]\nground\n\n@player\n\nwhen flag clicked\nhide variable [deaths v]\nhide\n\nwhen I receive [start v]\nset volume to (100) %\nbroadcast (reset v)\nplay sound [bensound-littleidea.mp3 v] until done\n\nwhen I receive [start v]\nshow variable [deaths v]\nshow\ngo to x: (-177) y: (10)\ngo to x: (-177) y: (12)\nhide variable [y v]\nhide variable [x v]\nset [x v] to [0]\nset [y v] to [0]\nset [deaths v] to [0]\nforever\n    change [y v] by (-1)\n    if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(mouse x) < (x position)>>> then\n        change [x v] by (-1)\n    end\n    if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) > (x position)>>> then\n        change [x v] by (1)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\n    if <touching color (#5f85e0)?> then\n        change y by (1)\n    end\n    if <touching color (#5f85e0)?> then\n        change y by (1)\n    end\n    if <touching color (#5f85e0)?> then\n        change y by (1)\n    end\n    if <touching color (#5f85e0)?> then\n        change y by (1)\n    end\n    if <touching color (#5f85e0)?> then\n        change y by (-4)\n        change x by ((x) * (-1))\n        if <<<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> and <(y) < [0]>> then\n            set [y v] to [17]\n            if <(x) > [0]> then\n                set [x v] to [-10]\n            else\n                set [x v] to [10]\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    change y by (y)\n    if <touching color (#5f85e0)?> then\n        change y by ((y) - ((y) * (2)))\n        set [y v] to [0]\n    end\n    change y by (-1)\n    if <<<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> and <touching color (#5f85e0)?>> then\n        set [y v] to [15]\n    end\n    change y by (1)\n    if <touching color (#ff0000)?> then\n        start sound [Crunch v]\n        change [deaths v] by (1)\n        go to x: (-177) y: (12)\n    end\n    if <(x position) > [222]> then\n        start sound [Coin v]\n        change [level v] by (1)\n        broadcast (reset v)\n        go to x: (-220) y: (-20)\n    end\n    if <[-150] > (y position)> then\n        change [deaths v] by (1)\n        go to x: (-217) y: (-20)\n    end\n    if <touching color (#fffa00)?> then\n        change [y v] by (20)\n    end\n    if <touching color (#1cff00)?> then\n        if <(level) = [7]> then\n            go to x: (144) y: (-112)\n        end\n        if <(level) = [8]> then\n            go to x: (20) y: (-112)\n        end\n    end\nend\n\n@THUMB\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\nshow\nforever\n    go to [front v] layer\n    set [ghost v] effect to (100)\nend\n\n@Intro\n\nwhen flag clicked\nshow\nset size to (100) %\nswitch costume to (1 v)\nrepeat (201)\n    next costume\nend\nwait (2) seconds\nbroadcast (Start v)\n\nwhen I receive [start v]\nhide\nstop [other scripts in sprite v]\n\n