TWINS-A PLATFORMER

Instructions: SPACE TO STOP STEREO\nA double platformer\nIF YOU HAVE A HEADSET  OR HEADPHONES, PUT THEM ON.\n___________________________________________Un double jeu de plateforme\nSI VOUS AVEZ UN CASQUE OU DES ECOUTEURS, METTEZ-LES.

@Stage\n\n@thumbail\n\nwhen flag clicked\nhide\n\nshow\n\n@Snow\n\nwhen flag clicked\nforever\n    hide\n    go to x: (pick random (-233) to (233)) y: (180)\n    create clone of (_myself_ v)\n    next costume\nend\n\nwhen I start as a clone\nshow\nrepeat until <<(x position) = [-239]> or <(y position) = [-170]>>\n    change y by (-2)\n    change x by (pick random (-1) to (1))\nend\ndelete this clone\n\n@Cube\n\nwhen flag clicked\nswitch costume to (<- v)\nbroadcast (Green Flag v)\nbroadcast (Play Game v) and wait\n\ndefine Tick\nif <<<key (left arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) < (x position)>>> then\n    Change Player x by [-10]\n    switch costume to (->2 v)\nend\nif <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <(mouse x) > (x position)>>>> then\n    Change Player x by [10]\n    switch costume to (-> v)\nend\nif <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(y position) < (mouse y)>>> then\n    if <(In air) < [4]> then\n        change [player: sy v] by (6.5)\n    end\nend\nchange [player: sy v] by (-2)\nChange Player y by (Player: sy)\nset [scroll x v] to (x)\nPosition\nif <(y) < [-195]> then\n    switch costume to (<- v)\n    set [exit v] to [die]\nend\n\nhide\n\ndefine Change Player x by (sx)\nchange [x v] by (sx)\nPosition\nMort subite\nif <touching (platformes v)?> then\n    repeat (12)\n        change [y v] by (1)\n        Position\n        if <not <touching (platformes v)?>> then\n            stop [this script v]\n        end\n    end\n    change [y v] by (-12)\n    repeat until <not <touching (platformes v)?>>\n        if <(sx) > [0]> then\n            change [x v] by (-1)\n        else\n            change [x v] by (1)\n        end\n        Position\n    end\nend\n\ndefine Change Player y by (sy)\nchange [y v] by (sy)\nchange [in air v] by (1)\nPosition\nMort subite\nrepeat until <not <touching (platformes v)?>>\n    if <(sy) > [0]> then\n        change [y v] by (-1)\n    else\n        change [y v] by (1)\n        set [in air v] to [0]\n    end\n    Position\n    set [player: sy v] to [0]\nend\n\ndefine Game dieeee\nset [exit v] to []\nrepeat (25)\n    change [ghost v] effect by (4)\nend\n\ndefine Position\ngo to x: ((x) - (Scroll x)) y: ((y) - (Scroll y))\n\ndefine Mort subite\nif <<<touching color (#3fff04)?> or <touching color (#1fa100)?>> or <touching color (#125905)?>> then\n    set [exit v] to [mort subite]\nend\n\nwhen I receive [green flag v]\nhide\ngo to [front v] layer\n\nwhen flag clicked\nshow\nforever\n    set volume to (100) %\n    play sound [Vivaldi - Winter \(The Four Seasons\) v] until done\nend\n\nwhen I receive [play game v]\nset [level v] to [1]\nforever\n    broadcast (Reset v) and wait\n    broadcast (Setup v) and wait\n    Game On\n    repeat until <(Exit) > [50]>\n        Tick\n        broadcast (Tick v) and wait\n    end\n    Game dieeee\n    set [ghost v] effect to (0)\nend\n\nwhen flag clicked\nswitch costume to (-> v)\nforever\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nswitch costume to (clone v)\nrepeat (10)\n    change size by (-2.5)\n    change [ghost v] effect by (10)\n    if <<<key (left arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) < (x position)>>> then\n        change x by (8)\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 by (-8)\n    end\nend\ndelete this clone\n\ndefine Game On\nif <(checkpoint) = [0]> then\n    set [x v] to [0]\n    set [y v] to [0]\nelse\n    set [x v] to [3000]\n    set [y v] to [0]\nend\nset [player: sy v] to [0]\nset [in air v] to [0]\nset [exit v] to []\nshow\n\nwhen flag clicked\nadd (username) to [vues v]\n\nwhen flag clicked\nforever\n    if <key (right arrow v) pressed?> then\n        switch costume to (-> v)\n    end\n    if <key (left arrow v) pressed?> then\n        switch costume to (<- v)\n    end\nend\n\nwhen flag clicked\nhide variable [your time: v]\n\nwhen flag clicked\nset [x v] to [0]\nforever\n    if <[3000] < (x)> then\n        set [checkpoint v] to [1]\n    else\n        set [checkpoint v] to [0]\n    end\nend\n\nset [☁ world record: v] to [0]\n\nwhen I receive [play game v]\nwait (0.5) seconds\nforever\n    if <(x) = [0]> then\n        set [scroll x v] to [0]\n    end\nend\n\n@Platformes\n\ndefine Position (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [green flag v]\nshow\n\nwhen I receive [reset v]\ndelete this clone\n\nwhen flag clicked\ndelete this clone\n\nwhen I receive [setup v]\nset [x v] to [0]\nset [y v] to [0]\nswitch costume to (1 v)\ncreate clone of (_myself_ v)\nchange [x v] by (480)\nnext costume\ncreate clone of (_myself_ v)\nchange [x v] by (480)\nnext costume\ncreate clone of (_myself_ v)\nchange [x v] by (480)\nnext costume\ncreate clone of (_myself_ v)\nchange [x v] by (480)\nnext costume\ncreate clone of (_myself_ v)\nchange [x v] by (480)\nnext costume\ncreate clone of (_myself_ v)\nchange [x v] by (480)\nnext costume\ncreate clone of (_myself_ v)\nchange [x v] by (480)\nnext costume\ncreate clone of (_myself_ v)\nchange [x v] by (480)\nnext costume\ncreate clone of (_myself_ v)\nchange [x v] by (480)\nnext costume\ncreate clone of (_myself_ v)\nchange [x v] by (480)\nnext costume\ncreate clone of (_myself_ v)\nchange [x v] by (480)\nnext costume\n\nwhen flag clicked\nforever\n\nwhen I receive [tick v]\nPosition ((x) - (Scroll x)) ((y) - (Scroll y))\n\n@checkpoint\n\nwhen I receive [green flag v]\nset [x v] to [3010]\nset [y v] to [-130]\nset [cube touché? v] to [0]\nshow\nset size to (80) %\nset [ghost v] effect to (75)\nwait until <touching (cube v)?>\nset [cube touché? v] to [1]\nset [ghost v] effect to (0)\nset size to (120) %\n\ndefine Position (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [tick v]\nPosition ((x) - (Scroll x)) ((y) - (Scroll y))\n\n@Cube2\n\nwhen flag clicked\nswitch costume to (<- v)\nbroadcast (Green Flag v)\nbroadcast (Play Game v) and wait\n\ndefine Tick\nif <<<key (left arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) < (x position)>>> then\n    Change Player x by [-10]\n    switch costume to (->2 v)\nend\nif <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <(mouse x) > (x position)>>>> then\n    Change Player x by [10]\n    switch costume to (-> v)\nend\nif <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(y position) < (mouse y)>>> then\n    if <[-4] < (In air)> then\n        change [player: sy v] by (-6.5)\n    end\nend\nchange [player: sy v] by (2)\nChange Player y by (Player: sy)\nset [scroll x v] to (x)\nPosition\nif <[195] < (y)> then\n    switch costume to (<- v)\n    set [exit v] to [die]\nend\n\nhide\n\ndefine Change Player x by (sx)\nchange [x v] by (sx)\nPosition\nMort subite\nif <touching (platformes v)?> then\n    repeat (12)\n        change [y v] by (1)\n        Position\n        if <not <touching (platformes v)?>> then\n            stop [this script v]\n        end\n    end\n    change [y v] by (-12)\n    repeat until <not <touching (platformes v)?>>\n        if <(sx) > [0]> then\n            change [x v] by (-1)\n        else\n            change [x v] by (1)\n        end\n        Position\n    end\nend\n\ndefine Change Player y by (sy)\nchange [y v] by (sy)\nchange [in air v] by (-1)\nPosition\nMort subite\nrepeat until <not <touching (platformes v)?>>\n    if <(sy) > [77]> then\n        change [y v] by (1)\n    else\n        change [y v] by (-1)\n        set [in air v] to [0]\n    end\n    Position\n    set [player: sy v] to [0]\nend\n\ndefine Game dieeee\nset [exit v] to []\nrepeat (25)\n    change [ghost v] effect by (4)\nend\n\ndefine Position\ngo to x: ((x) - (Scroll x)) y: ((y) - (Scroll y))\n\ndefine Mort subite\nif <touching color (#ff0000)?> then\n    set [exit v] to [mort subite]\nend\n\nwhen I receive [green flag v]\nhide\ngo to [front v] layer\n\nwhen flag clicked\nshow\nforever\n    set volume to (100) %\n    play sound [Vivaldi - Winter \(The Four Seasons\) v] until done\nend\n\nwhen I receive [play game v]\nset [level v] to [1]\nforever\n    broadcast (Reset v) and wait\n    broadcast (Setup v) and wait\n    Game On\n    repeat until <(Exit) > [50]>\n        Tick\n        broadcast (Tick v) and wait\n    end\n    Game dieeee\n    set [ghost v] effect to (0)\nend\n\nwhen flag clicked\nswitch costume to (-> v)\nforever\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nswitch costume to (clone v)\nrepeat (10)\n    change size by (-2.5)\n    change [ghost v] effect by (10)\n    if <<<key (left arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) < (x position)>>> then\n        change x by (8)\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 by (-8)\n    end\nend\ndelete this clone\n\ndefine Game On\nif <(checkpoint) = [0]> then\n    set [x v] to [0]\n    set [y v] to [0]\nelse\n    set [x v] to [3000]\n    set [y v] to [0]\nend\nset [player: sy v] to [0]\nset [in air v] to [0]\nset [exit v] to []\nshow\n\nwhen flag clicked\nadd (username) to [vues v]\n\nwhen flag clicked\nforever\n    if <key (right arrow v) pressed?> then\n        switch costume to (-> v)\n    end\n    if <key (left arrow v) pressed?> then\n        switch costume to (<- v)\n    end\nend\n\nwhen I receive [play game v]\nreset timer\nwait until <(x) > [5170]>\nset [your time: v] to (timer)\nif <(☁ world record:) > (length of (your time:))> then\n    set [☁ world record: v] to (length of (your time:))\nend\nshow variable [your time: v]\nshow variable [☁ world record: v]\n\nwhen flag clicked\nhide variable [your time: v]\nhide variable [☁ world record: v]\n\nwhen flag clicked\nset [x v] to [0]\nforever\n    if <[2585] < (x)> then\n        set [checkpoint v] to [1]\n    else\n        set [checkpoint v] to [0]\n    end\nend\n\nset [☁ world record: v] to [0]\n\nwhen flag clicked\nwait (1) seconds\nforever\n    if <[195] < (y)> then\n        switch costume to (<- v)\n        set [exit v] to [die]\n    end\nend\n\n@Droite\n\nwhen flag clicked\nset [pan left/right v] effect to (100)\nforever\n    play sound [Imagine Dragons - Believer \(Thunder\) by One Voice Children's Choir v] until done\nend\n\nwhen flag clicked\nset volume to (100) %\nforever\n    repeat until <(volume) = [0]>\n        change volume by (-1)\n    end\n    repeat until <(volume) = [100]>\n        change volume by (1)\n    end\nend\n\nwhen flag clicked\nset [pan left/right v] effect to (100)\nforever\n    if <key (space v) pressed?> then\n        set [pan left/right v] effect to (0)\n    end\nend\n\n@Droite2\n\nwhen flag clicked\nset [pan left/right v] effect to (-100)\nforever\n    play sound [Imagine Dragons - Believer \(Thunder\) by One Voice Children's Choir v] until done\nend\n\nwhen flag clicked\nset volume to (0) %\nforever\n    repeat until <(volume) = [100]>\n        change volume by (1)\n    end\n    repeat until <(volume) = [0]>\n        change volume by (-1)\n    end\nend\n\nwhen flag clicked\nset [pan left/right v] effect to (-100)\nforever\n    if <key (space v) pressed?> then\n        set [pan left/right v] effect to (0)\n    end\nend\n\n@Love and Fav Detector\n\nwhen flag clicked\nhide\nset [faved___ v] to [0]\nset [loved__ v] to [0]\nset [clone id v] to [0]\ncreate clone of (_myself_ v)\nwait (0.2) seconds\nset [clone id v] to [1]\ncreate clone of (_myself_ v)\nwait until <<(LOVED__) = [1]> and <(FAVED___) = [1]>>\nwait (1) seconds\nshow\ngo to x: (0) y: (50)\nreset timer\nswitch costume to (pick random (1) to (4))\nset [ghost v] effect to (100)\nrepeat until <(timer) > [3.5]>\n    change y by ((y position) / (-15))\n    change [ghost v] effect by (-3)\nend\nreset timer\nrepeat until <(timer) > [3.5]>\n    change y by (((y position) - (-100)) / (-15))\n    change [ghost v] effect by (10)\nend\n\nwhen I start as a clone\nif <(clone id) = [0]> then\n    go to x: (-15) y: (0)\n    set [loved__ v] to [0]\n    switch costume to (love v)\n    forever\n        set [love? v] to <touching (mouse-pointer v)?>\n        if <touching (mouse-pointer v)?> then\n            set [loved__ v] to [1]\n        end\n    end\nend\nif <(clone id) = [1]> then\n    go to x: (0) y: (0)\n    switch costume to (fave v)\n    set [faved___ v] to [0]\n    forever\n        set [fav v] to <touching (mouse-pointer v)?>\n        if <touching (mouse-pointer v)?> then\n            set [faved___ v] to [1]\n        end\n    end\nend\n\n