Holiday 3 || A mobile scrolling Platformer
@Stage\n\nwhen [m v] key pressed\nset [mouse v] to (join ((mouse x) + (SCROLL X)) (join [, ] ((mouse y) + (SCROLL Y))))\nshow variable [mouse v]\n\nwhen I receive [play game v]\nforever\n    if <<(SCROLL X) > [5178]> and <(SCROLL X) < [6968]>> then\n        stop all sounds\n        set volume to (30) %\n        play sound [bensound-scifi v] until done\n    end\nend\n\nwhen I receive [water v]\n\nwhen I receive [tick v]\n\nif <(SCROLL X) > [5078]> then\n    if <(volume) > [0]> then\n        change volume by (-1)\n    end\nelse\n    if <[100] > (volume)> then\n        change volume by (10)\n    end\nend\n\nwhen I receive [play game v]\nforever\n    if <not <<(SCROLL X) > [5178]> and <(SCROLL X) < [6968]>>> then\n        stop all sounds\n        set volume to (100) %\n        play sound [bensound-tenderness v] until done\n    else\n    end\nend\n\n@Player\n\nwhen flag clicked\nbroadcast (Green v) and wait\n\nwhen I receive [green v]\nhide\ngo to [front v] layer\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) > []>\n        Tick\n        broadcast (Tick v) and wait\n    end\n    if <(EXIT) = [win]> then\n        Game win\n    else\n        Game - Die\n    end\nend\n\ndefine Game on\nset [x v] to (CheckX)\nset [y v] to ((CheckY) + (60))\nset [scroll x v] to (CheckX)\nset [scroll y v] to (CheckY)\nset [sy v] to [0]\nset [sx v] to [0]\nset [in air v] to [0]\nset [exit v] to []\nset size to (100) %\nset [ghost v] effect to (0)\nshow\n\ndefine Tick\nif <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>> then\n    change [sx v] by (-2)\nend\nif <<key (right arrow v) pressed?> or <<mouse down?> and <(mouse x) > (x position)>>> then\n    change [sx v] by (2)\nend\nset [sx v] to ((sx) * (0.8))\nif <([abs v] of (sx) ) > [0.8]> then\n    Change Player X by (round (sx))\nend\nif <touching (bouncepads v)?> then\n    set [sy v] to [24]\nend\nif <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > ((y position) + (20))>>> then\n    if <(in air) < [4]> then\n        set [sy v] to [16]\n    end\nend\nif <(sy) > [-20]> then\n    change [sy v] by (-2)\nend\nChange Player Y by (sy)\nTest - Die\nchange [scroll x v] by (round (((x) - (SCROLL X)) / (10)))\nif <(SCROLL X) < [0]> then\n    set [scroll x v] to [0]\nend\nchange [scroll y v] by (round (((y) - (SCROLL Y)) / (10)))\nif <<[-15] < (SCROLL Y)> and <(SCROLL X) < [1400]>> then\n    set [scroll y v] to [-15]\nend\nif <(SCROLL Y) < [-270]> then\n    set [scroll y v] to [-270]\nend\nif <<(SCROLL X) > [5200]> and <(SCROLL X) < [6968]>> then\n    set [dark? v] to [J]\nelse\n    set [dark? v] to [N]\nend\nif <(SCROLL X) > [8393]> then\n    set [scroll x v] to [8393]\nend\nPosition\n\ndefine Change Player Y by (sy)\nchange [y v] by (sy)\nchange [in air v] by (1)\nPosition\nrepeat until <not <touching (platforms 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 [sy v] to [0]\nend\n\ndefine Position\ngo to x: ((x) - (SCROLL X)) y: ((y) - (SCROLL Y))\n\ndefine Change Player X by (sx)\nchange [x v] by (sx)\nPosition\nif <touching (platforms v)?> then\n    repeat (12)\n        change [y v] by (1)\n        Position\n        if <not <touching (platforms v)?>> then\n            stop [this script v]\n        end\n    end\n    change [y v] by (-12)\n    if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > ((y position) + (20))>>> then\n        if <(sx) > [0]> then\n            set [sx v] to [-16]\n        else\n            set [sx v] to [16]\n        end\n        set [in air v] to [0]\n    else\n        set [sx v] to [0]\n    end\n    repeat until <not <touching (platforms 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 Game - Die\nset [exit v] to []\nrepeat (5)\n    hide\n    wait (0.1) seconds\n    show\n    wait (0.1) seconds\nend\nhide\nwait (0.5) seconds\n\ndefine Test - Die\nif <touching (danger v)?> then\n    set [exit v] to [die]\nend\nif <key (r v) pressed?> then\n    set [exit v] to [die]\nend\nif <touching (dangerturn v)?> then\n    set [exit v] to [die]\nend\n\ndefine Game win\nrepeat (50)\n    point towards (exit v)\n    turn right (65) degrees\n    move ((distance to [exit v]) / (2)) steps\n    change size by (-1)\n    change [ghost v] effect by (2)\nend\nhide\nchange [level v] by (1)\nwait (1) seconds\n\nif <(y) < [-180]> then\n    set [exit v] to [die]\nend\n\nPosition\n\nwhen I receive [start v]\nbroadcast (Play Game v) and wait\n\nif <(SCROLL Y) < [0]> then\n    set [water? v] to [N]\nend\n\n@Platforms\n\nwhen I receive [green v]\nhide\n\nwhen I receive [tick v]\nPosition ((x) - (SCROLL X)) ((y) - (SCROLL Y))\n\nwhen I receive [setup v]\nhide\nset [x v] to [0]\nset [y v] to [0]\nif <(LEVEL) = [1]> then\n    switch costume to (kostüm1 v)\n    Clone at x [0] y [0]\n    Clone at x [0] y [-250]\n    Clone at x [550] y [-250]\n    Clone at x [1000] y [-250]\n    Clone at x [1500] y [-250]\n    Clone at x [2000] y [-250]\n    Clone at x [3100] y [-250]\n    Clone at x [3900] y [-250]\n    Clone at x [4400] y [-250]\n    Clone at x [5000] y [-250]\n    Clone at x [5500] y [-250]\n    Clone at x [6000] y [-250]\n    Clone at x [6500] y [-250]\n    Clone at x [7000] y [-250]\n    Clone at x [7500] y [-250]\n    Clone at x [8000] y [-250]\n    Clone at x [8500] y [-250]\n    switch costume to (kostüm18 v)\n    Clone at x [9000] y [0]\n    hide\n    hide\n    hide\n    hide\nelse\n    if <(LEVEL) = [2]> then\n        switch costume to (level 2 1 v)\n        Clone at x [0] y [300]\n        Clone at x [460] y [0]\n    else\n        switch costume to (level 3 1 v)\n    end\nend\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 [reset v]\ndelete this clone\n\ndefine Clone at x (x) y (y)\nset [x v] to (x)\nset [y v] to (y)\ncreate clone of (_myself_ v)\nnext costume\n\nhide\n\nhide\nhide\nchange [x v] by (360)\nchange [y v] by (y)\n\nClone at x [5000] y [-250]\nhide\n\n@Exit\n\nwhen I receive [green v]\nhide\n\nwhen I receive [tick v]\nPosition ((x) - (SCROLL X)) ((y) - (SCROLL Y))\nif <<(costume [number v]) = [2]> and <touching (player v)?>> then\n    set [exit v] to [win]\nend\n\nwhen I receive [setup v]\n\nhide\nset [collected v] to [0]\nset [x v] to [0]\nset [y v] to [0]\nif <(LEVEL) = [1]> then\n    switch costume to (closed v)\n    Clone at x [952] y [-21]\nelse\n    if <(LEVEL) = [2]> then\n        Clone at x [786] y [490]\n    else\n        set [x v] to [-99999]\n    end\nend\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 [reset v]\ndelete this clone\n\ndefine Clone at x (x) y (y)\nset [x v] to (x)\nset [y v] to (y)\n\nwhen I receive [open portal v]\nswitch costume to (open v)\n\n@Collectables\n\nwhen I receive [green v]\nhide\n\nwhen I receive [tick v]\nPosition ((x) - (SCROLL X)) ((y) - (SCROLL Y))\nif <touching (player v)?> then\n    change [collected v] by (1)\n    if <(COLLECTED) = (COLLECTED MAX)> then\n        broadcast (Open Portal v)\n    end\n    delete this clone\nend\n\nwhen I receive [play game v]\nhide\nset [collected v] to [0]\nset [collected max v] to [0]\nset [x v] to [0]\nset [y v] to [0]\nif <(LEVEL) = [1]> then\n    switch costume to ( v)\n    Clone at x [-199] y [18]\n    Clone at x [107] y [18]\n    Clone at x [422] y [-272]\n    Clone at x [900] y [-311]\n    Clone at x [1144] y [-328]\n    Clone at x [1684] y [21]\n    Clone at x [2152] y [-39]\n    Clone at x [2585] y [-309]\n    Clone at x [2895] y [-120]\n    Clone at x [3358] y [-312]\n    Clone at x [4055] y [50]\n    Clone at x [4408] y [-285]\n    Clone at x [4615] y [-271]\n    Clone at x [4963] y [-281]\n    Clone at x [5454] y [-337]\n    Clone at x [5909] y [-178]\n    Clone at x [6108] y [-302]\n    Clone at x [6496] y [-308]\n    Clone at x [6701] y [-308]\nelse\n    if <(LEVEL) = [2]> then\n        switch costume to ( v)\n        Clone at x [-115] y [-70]\n        Clone at x [94] y [-8]\n        Clone at x [-67] y [79]\n        Clone at x [-161] y [177]\n        Clone at x [145] y [254]\n    end\nend\nset [x v] to [-999999]\n\ndefine Position (x) (y)\ngo to x: (x) y: (y)\ngo to [front v] layer\ngo [backward v] (1) layers\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [reset v]\n\ndelete this clone\n\ndefine Clone at x (x) y (y)\nset [x v] to (x)\nset [y v] to (y)\nchange [collected max v] by (1)\ncreate clone of (_myself_ v)\n\nClone at x [1144] y [-328]\nClone at x [1684] y [21]\nClone at x [2152] y [-39]\nClone at x [2585] y [-309]\nClone at x [2895] y [-120]\nClone at x [3358] y [-312]\nClone at x [4055] y [50]\nClone at x [4408] y [-285]\nClone at x [4615] y [-271]\nClone at x [4963] y [-281]\n\n@Extended\n\nwhen I receive [green v]\nhide\n\nwhen I receive [tick v]\nif <not <(x) = [-0]>> then\n    Position ((x) - ((SCROLL X) / (1.3))) ((y) - (SCROLL Y))\nelse\n    hide\nend\n\nwhen I receive [setup v]\nhide\nset [x v] to [0]\nset [y v] to [0]\nif <(LEVEL) = [1]> then\n    switch costume to (kostüm1 v)\n    Clone at x [0] y [-250]\n    Clone at x [150] y [-250]\n    Clone at x [500] y [-250]\n    switch costume to (kostüm5a v)\n    Clone at x [400] y [-250]\n    switch costume to (kostüm3 v)\n    Clone at x [450] y [-250]\n    switch costume to (kostüm5b v)\n    Clone at x [400] y [-250]\n    switch costume to (kostüm4 v)\n    Clone at x [450] y [-250]\n    switch costume to (kostüm5a v)\n    Clone at x [450] y [-250]\n    switch costume to (kostüm3 v)\n    Clone at x [450] y [-250]\n    switch costume to (kostüm2 v)\n    Clone at x [500] y [-250]\n    switch costume to (kostüm5a2 v)\n    Clone at x [400] y [-250]\n    switch costume to (kostüm3 v)\n    Clone at x [400] y [-250]\n    switch costume to (kostüm3 v)\n    Clone at x [400] y [-250]\n    switch costume to (kostüm3 v)\n    Clone at x [500] y [-250]\n    switch costume to (kostüm5 v)\n    Clone at x [500] y [-250]\n    switch costume to (kostüm5 v)\n    Clone at x [400] y [-250]\n    switch costume to (kostüm3 v)\nelse\n    if <(LEVEL) = [2]> then\n        switch costume to (level 2 1 v)\n        Clone at x [0] y [300]\n        Clone at x [460] y [0]\n    else\n        switch costume to (level 3 1 v)\n    end\nend\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\ngo to [back v] layer\ngo [forward v] (1) layers\n\nwhen I receive [reset v]\ndelete this clone\n\ndefine Clone at x (x) y (y)\nchange [x v] by (x)\nset [y v] to (y)\ncreate clone of (_myself_ v)\nnext costume\n\nhide\nhide\nchange [x v] by (360)\nchange [y v] by (y)\n\ndefine Clone to x (x) y (y)\nset [x v] to (x)\nset [y v] to (y)\ncreate clone of (_myself_ v)\nnext costume\n\nClone to x [7000] y [-250]\n\n@Water\n\ndefine position (y)\ngo to x: (0) y: (y)\nif <(y) = (y position)> then\n    show\nelse\n    hide\nend\nset [ghost v] effect to (20)\npoint in direction ((([cos v] of ((timer) * (100)) ) * (3)) + (90))\ngo to [back v] layer\ngo [backward v] (11) layers\n\nwhen I receive [tick v]\nposition (((y) - (SCROLL Y)) + (([sin v] of ((timer) * (100)) ) * (10)))\n\nwhen I receive [setup v]\nset [y v] to [-50]\n\ngo [backward v] (10) layers\n\n@Figur2\n\ndefine position (y)\ngo to x: (0) y: (y)\nif <(y) = (y position)> then\n    show\nelse\n    hide\nend\nclear graphic effects\npoint in direction ((([cos v] of ((timer) * (100)) ) * (4)) + (95))\ngo to [back v] layer\ngo [backward v] (10) layers\n\nwhen I receive [tick v]\nposition (((y) - (SCROLL Y)) + ((([sin v] of ((timer) * (100)) ) + ()) * (10)))\n\nwhen I receive [setup v]\nset [y v] to [-50]\n\n@Figur3\n\ndefine position (y)\ngo to x: (0) y: (y)\nif <(y) = (y position)> then\n    show\nelse\n    hide\nend\ngo to [back v] layer\ngo [backward v] (6) layers\nif <(Dark?) = [N]> then\n    switch costume to (water \(v1.1\) v)\nelse\n    switch costume to (water \(v1.2\) v)\nend\n\nwhen I receive [tick v]\nposition ((y) - (SCROLL Y))\n\nwhen I receive [setup v]\nset [y v] to [-50]\nhack size [300]\n\ndefine hack size (size)\nswitch costume to (kostüm1 v)\nset size to (size) %\nswitch costume to (water \(v1.1\) v)\n\n@Danger\n\nwhen I receive [green v]\nhide\n\nwhen I receive [tick v]\nPosition ((x) - (SCROLL X)) ((y) - (SCROLL Y))\n\nwhen I receive [setup v]\nhide\nset [x v] to [0]\nset [y v] to [0]\nif <(LEVEL) = [1]> then\n    switch costume to (kostüm1 v)\n    Clone at x [0] y [0]\n    Clone at x [100] y [-200]\n    Clone at x [700] y [-200]\n    Clone at x [1800] y [-200]\n    Clone at x [2500] y [-200]\n    Clone at x [3000] y [-200]\n    Clone at x [4000] y [-200]\n    Clone at x [4800] y [-200]\n    Clone at x [6000] y [-200]\n    Clone at x [6500] y [-200]\n    Clone at x [7458] y [-200]\nelse\n    if <(LEVEL) = [2]> then\n        switch costume to (level 2 1 v)\n        Clone at x [0] y [300]\n        Clone at x [460] y [0]\n    else\n        switch costume to (level 3 1 v)\n    end\nend\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 [reset v]\ndelete this clone\n\ndefine Clone at x (x) y (y)\nset [x v] to (x)\nset [y v] to (y)\nnext costume\ncreate clone of (_myself_ v)\n\nwhen I receive [intro? v]\nhide\n\nwhen flag clicked\nhide\n\nchange [x v] by (x)\nchange [y v] by (y)\n\nClone at x [0] y [0]\n\n@INTRO\n\nwhen I start as a clone\nif < (cSTAT) contains [par]?> then\n    show\n    set size to (130) %\n    go to x: (0) y: (0)\n    set [v4 v] to [0]\n    set [v5 v] to [0]\n    set [v4 v] to [15]\n    set [v5 v] to (pick random (-30) to (30))\n    repeat (40)\n        change y by (v4)\n        change [v4 v] by (-1)\n        change x by (v5)\n        set [v5 v] to ((v5) * (0.8))\n    end\n    delete this clone\nend\n\nwhen flag clicked\nhide variable [vol v]\nreset timer\npoint in direction (90)\nset [cstat v] to [Background]\nset [stat v] to [Background]\nhide\nset [v1 v] to [0]\nswitch costume to (1 v)\nset volume to (100) %\nstart sound [Dubstep v]\nrepeat (7)\n    set [v1 v] to [0]\n    create clone of (_myself_ v)\n    next costume\n    wait (0.01) seconds\nend\nset [cstat v] to [Whisher]\nset [stat v] to (cSTAT)\nhide\nwait (0.8) seconds\nset [v1 v] to [0]\nswitch costume to (kostüm1 v)\ngo to x: (0) y: (0)\nmove (-500) steps\npoint in direction (90)\ncreate clone of (_myself_ v)\npoint in direction (-90)\ngo to x: (0) y: (0)\nmove (-500) steps\nset [v1 v] to [0]\ncreate clone of (_myself_ v)\nwait (0.2) seconds\nset [cstat v] to [Point]\nset [stat v] to [Point]\nset [brightness v] effect to (0)\nhide\nset [v1 v] to [0]\nswitch costume to (kostüm2 v)\nrepeat (5)\n    set [v1 v] to [0]\n    go to [front v] layer\n    create clone of (_myself_ v)\n    change [brightness v] effect by (-10)\n    wait (0.05) seconds\nend\nset [cstat v] to [Raster]\nset [stat v] to [Raster]\nhide\ngo to [front v] layer\nwait (0.09) seconds\nset [v1 v] to [0]\nswitch costume to (raster v)\nset [v1 v] to [0]\ncreate clone of (_myself_ v)\nset [cstat v] to [Logo]\nset [stat v] to [Logo]\nhide\nset [v1 v] to [0]\nswitch costume to (logo3 v)\nset [v1 v] to [0]\ncreate clone of (_myself_ v)\npoint in direction (90)\nrepeat (3)\n    set [cstat v] to [part]\n    set [stat v] to [particle]\n    hide\n    set [v1 v] to [0]\n    switch costume to (kostüm4 v)\n    clear graphic effects\n    repeat (10)\n        go to [front v] layer\n        set [v1 v] to [0]\n        create clone of (_myself_ v)\n        change [brightness v] effect by (15)\n        switch costume to (kostüm4 v)\n    end\n    clear graphic effects\n    set [cstat v] to [whide]\n    set [stat v] to [whide]\n    hide\n    set [v1 v] to [0]\n    switch costume to (kostüm4 v)\n    clear graphic effects\n    go to [front v] layer\n    set [v1 v] to [0]\n    create clone of (_myself_ v)\n    change [brightness v] effect by (15)\n    switch costume to (kostüm4 v)\n    wait (0.6) seconds\n    set [v1 v] to [0]\n    create clone of (_myself_ v)\n    change [brightness v] effect by (15)\n    switch costume to (kostüm4 v)\n    set [cstat v] to [bow]\n    set [stat v] to [bow]\n    hide\n    set [v1 v] to [0]\n    clear graphic effects\n    go to [front v] layer\n    set [v1 v] to [0]\n    create clone of (_myself_ v)\n    change [brightness v] effect by (15)\n    clear graphic effects\n    set [cstat v] to [whide2]\n    set [stat v] to [whide2]\n    hide\n    set [v1 v] to [0]\n    switch costume to (kostüm4 v)\n    clear graphic effects\n    go to [front v] layer\n    set [v1 v] to [0]\n    create clone of (_myself_ v)\nend\nwait (0.5) seconds\nwait (0.5) seconds\nset [cstat v] to [Point]\nset [stat v] to [Point]\nset [brightness v] effect to (0)\nhide\nset [v1 v] to [0]\nswitch costume to (kostüm2 v)\nrepeat (5)\n    set [v1 v] to [0]\n    go to [front v] layer\n    create clone of (_myself_ v)\n    change [brightness v] effect by (-10)\n    wait (0.05) seconds\nend\nwait (0.05) seconds\nbroadcast (Start v)\nbroadcast (reset v)\n\nwhen I start as a clone\nif < (cSTAT) contains [Background]?> then\n    show\n    set [v1 v] to [0]\n    set size to (1) %\n    go to x: (0) y: (0)\n    set [v1 v] to [20]\n    repeat (50)\n        change size by (v1)\n        set [v1 v] to ((v1) * (0.8))\n    end\nend\n\nwhen I start as a clone\nif < (cSTAT) contains [BigBack]?> then\n    go to [front v] layer\n    show\n    set [v2 v] to [0]\n    set size to (100) %\n    go to x: (0) y: (0)\n    set [v2 v] to [70]\n    repeat (15)\n        change y by (v2)\n        set [v2 v] to ((v2) * (0.8))\n    end\n    delete this clone\nend\n\nchange size by (10)\n\ndelete this clone\n\nwait (0.09) seconds\n\nwhen I start as a clone\nif < (cSTAT) contains [Logo]?> then\n    go to [front v] layer\n    reset timer\n    point in direction (90)\n    clear graphic effects\n    show\n    set [v3 v] to [0]\n    set size to (1) %\n    go to x: (0) y: (0)\n    set [v3 v] to [18]\n    repeat (50)\n        change size by (v3)\n        set [v3 v] to ((v3) * (0.8))\n        set y to ((([sin v] of ((timer) * (100)) ) * (29)) + (0))\n    end\n    clear graphic effects\n    go to [front v] layer\n    show\n    go to x: (0) y: (0)\n    point in direction (90)\n    forever\n        set y to ((([sin v] of ((timer) * (100)) ) * (29)) + (0))\n    end\nend\n\nset size to (100) %\n\nset [v2 v] to [70]\n\nchange x by (2)\nchange y by (-2)\n\nwhen I start as a clone\n\nif < (cSTAT) contains [Logo]?> then\n    wait (3) seconds\n    repeat (10)\n        change size by (10)\n        change [ghost v] effect by (10)\n        change [brightness v] effect by (10)\n    end\n    stop [other scripts in sprite v]\n    broadcast (Start v)\n    delete this clone\nend\n\nwhen I start as a clone\n\nchange size by (-10)\n\nset [v1 v] to ((v1) * (0.8))\n\nif <not < (STAT) contains [Background]?>> then\n    delete this clone\nend\n\nforever\n    if <not < (STAT) contains [Background]?>> then\n        delete this clone\n    end\nend\n\nwhen I start as a clone\nif < (cSTAT) contains [Whisher]?> then\n    go to [front v] layer\n    show\n    set [v2 v] to [0]\n    set size to (100) %\n    set [v2 v] to [70]\n    set [cstat v] to [---]\n    repeat (15)\n        set [v2 v] to ((v2) * (0.8))\n        move (v2) steps\n        create clone of (_myself_ v)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif < (cSTAT) contains [Point]?> then\n    go to [front v] layer\n    switch costume to (kostüm3 v)\n    show\n    set [v1 v] to [0]\n    set size to (1) %\n    go to x: (0) y: (0)\n    set [v1 v] to [450]\n    repeat (50)\n        switch costume to (point v)\n        change size by (v1)\n        set [v1 v] to ((v1) * (0.8))\n        switch costume to (kostüm2 v)\n    end\nend\n\nwhen I receive [reset v]\ndelete this clone\n\nbroadcast (reset v)\n\nbroadcast (reset v)\nswitch costume to (kostüm3 v)\nset [cstat v] to []\nset size to (100) %\ngo to [front v] layer\nshow\ncreate clone of (_myself_ v)\nhide\n\nwhen I start as a clone\nif < (cSTAT) contains [whide]?> then\n    clear graphic effects\n    go to [front v] layer\n    switch costume to (cSTAT)\n    show\n    set [v1 v] to [0]\n    set size to (1) %\n    go to x: (0) y: (0)\n    set [v1 v] to [240]\n    repeat (20)\n        switch costume to (point v)\n        change size by (v1)\n        set [v1 v] to ((v1) * (0.8))\n        switch costume to (cSTAT)\n    end\n    repeat (4)\n        change [ghost v] effect by (25)\n    end\n    delete this clone\nend\n\nrepeat (10)\n\nwhen I start as a clone\nif < (cSTAT) contains [Raster]?> then\n    clear graphic effects\n    set [v2 v] to [0]\n    set [ghost v] effect to (100)\n    go to x: (0) y: (0)\n    set size to (200) %\n    show\n    set [ghost v] effect to (50)\n    forever\n        set y to ((([sin v] of ((timer) * (-100)) ) * (29)) + (0))\n        set [ghost v] effect to ((([sin v] of ((timer) * (-100)) ) * (29)) + (56))\n    end\nend\n\nswitch costume to (point v)\n\nset [v2 v] to [70]\n\nswitch costume to (raster v)\n\nshow\n\nif < (cSTAT) contains [Raster]?> then\n    wait (3) seconds\n    repeat (10)\n        change [ghost v] effect by (10)\n        change [brightness v] effect by (10)\n    end\n    stop [other scripts in sprite v]\n    delete this clone\nend\n\nwhen I receive [start v]\nif < (cSTAT) contains [Logo]?> then\n    point in direction (90)\n    repeat (25)\n        turn left (15) degrees\n        change [ghost v] effect by (2)\n        change size by (-10)\n    end\n    delete this clone\nend\n\nstop [other scripts in sprite v]\ndelete this clone\n\n@Figur1\n\ndefine position (y)\ngo to x: (y) y: ((cY) - ((SCROLL Y) + (200)))\nif <<(y) = (x position)> and <((cY) - ((SCROLL Y) + (200))) = (y position)>> then\n    show\nelse\n    hide\nend\n\npoint in direction ((([cos v] of ((timer) * (100)) ) * (4)) + (95))\ngo to [back v] layer\ngo [backward v] (11) layers\n\nwhen flag clicked\nset [csta v] to [no]\nhide\n\nwhen I receive [tick v]\nset rotation style [left-right v]\nif <(cSta) = [no]> then\n    if <<(pick random (1) to (200)) = [50]> and <(SCROLL Y) < [-249]>> then\n        set [csta v] to [jo]\n        create clone of (_myself_ v)\n        set [csta v] to [no]\n    end\nend\n\nwhen I start as a clone\nswitch costume to (pick random (1) to (3))\nif <(pick random (1) to (2)) = [2]> then\n    set [cx v] to ((SCROLL X) + (300))\n    position ((cX) - (SCROLL X))\n    set [cy v] to (pick random (-100) to (0))\n    point in direction (-90)\n    set [cver v] to [r]\nelse\n    set [cx v] to ((SCROLL X) - (300))\n    position ((cX) - (SCROLL X))\n    set [cy v] to (pick random (-100) to (0))\n    point in direction (90)\n    set [cver v] to [l]\nend\nclear graphic effects\nshow\n\nwhen I receive [tick v]\ngo to [back v] layer\ngo [forward v] (40) layers\nif <(cSta) = [jo]> then\n    position ((cX) - (SCROLL X))\n    if <(cVer) = [r]> then\n        change [cx v] by (-3)\n        if <(x position) < [-220]> then\n            hide\n        end\n    else\n        change [cx v] by (3)\n        if <(x position) > [220]> then\n            hide\n        end\n    end\nend\n\nif <touching (platforms v)?> then\n    delete this clone\nend\n\nif <touching (platforms v)?> then\n    delete this clone\nend\n\nwhen I receive [setup v]\ndelete this clone\n\n@BouncePads\n\nwhen I receive [green v]\nhide\n\nwhen I receive [tick v]\nPosition ((x) - (SCROLL X)) ((y) - (SCROLL Y))\n\nwhen I receive [setup v]\nhide\nset [x v] to [0]\nset [clon? v] to [NO]\nset [y v] to [0]\nif <(LEVEL) = [1]> then\n    switch costume to (level 1 1 v)\n    Clone at x [4493] y [-374]\n    Clone at x [552] y [-390]\nelse\n    if <(LEVEL) = [2]> then\n        switch costume to (level 2 1 v)\n        Clone at x [0] y [300]\n        Clone at x [460] y [0]\n    else\n        switch costume to (level 3 1 v)\n    end\nend\n\nClone at x [3590] y [-30]\n\ndefine Position (x) (y)\ngo to x: (x) y: (y)\nif <(clon?) = [JES]> then\n    if <<(x) = (x position)> and <(y) = (y position)>> then\n        show\n    else\n        hide\n    end\nend\n\nwhen I receive [reset v]\ndelete this clone\n\ndefine Clone at x (x) y (y)\nset [x v] to (x)\nset [y v] to (y)\ncreate clone of (_myself_ v)\nnext costume\n\nwhen I receive [intro? v]\nhide\n\nwhen I start as a clone\nset [clon? v] to [JES]\n\nif <(transparence) < [100]> then\n\n\nwhen flag clicked\nclear graphic effects\n\nset [ghost v] effect to (0)\n\nwhen flag clicked\nhide\n\nchange [x v] by (360)\n\nset [checkx v] to [0]\n\n@DangerTurn\n\nwhen I receive [green v]\nhide\n\nwhen I receive [tick v]\nPosition ((x) - (SCROLL X)) ((y) - (SCROLL Y))\nif <(round (high)) = [0]> then\n    set [high v] to [50]\nend\nset [high v] to ((high) * (0.8))\n\nwhen I receive [setup v]\nhide\nset [x v] to [0]\nset [clon? v] to [NO]\nset [y v] to [0]\nif <(LEVEL) = [1]> then\n    switch costume to (level 1 1 v)\n    Clone at x [1007] y [-402]\n    Clone at x [1250] y [-402]\n    Clone at x [3226] y [-402]\n    Clone at x [3475] y [-402]\n    Clone at x [4412] y [-396]\n    Clone at x [6199] y [-398]\n    Clone at x [7323] y [-398]\nelse\n    if <(LEVEL) = [2]> then\n        switch costume to (level 2 1 v)\n        Clone at x [0] y [300]\n        Clone at x [460] y [0]\n    else\n        switch costume to (level 3 1 v)\n    end\nend\n\ndefine Position (x) (y)\ngo to [back v] layer\ngo [forward v] (34) layers\ngo to x: (x) y: (y)\nif <(clon?) = [JES]> then\n    if <<(x) = (x position)> and <(y) = (y position)>> then\n        show\n    else\n        hide\n    end\n    turn right (high) degrees\nend\n\nwhen I receive [reset v]\ndelete this clone\n\ndefine Clone at x (x) y (y)\nset [x v] to (x)\nset [y v] to (y)\ncreate clone of (_myself_ v)\n\nchange [x v] by (x)\n\nwhen I receive [intro? v]\nhide\n\nwhen I start as a clone\nset [clon? v] to [JES]\n\nnext costume\n\nset [checkx v] to [0]\n\nwhen flag clicked\nhide\n\n@Figur4\n\n@Platforms2\n\nwhen I receive [green v]\nhide\n\nwhen I receive [tick v]\nPosition ((x) - (SCROLL X)) ((y) - (SCROLL Y))\n\nwhen I receive [setup v]\nhide\nset [x v] to [0]\nset [y v] to [0]\nif <(LEVEL) = [1]> then\n    switch costume to (kostüm1 v)\n    Clone at x [0] y [0]\n    Clone at x [0] y [-250]\n    Clone at x [550] y [-250]\n    Clone at x [1000] y [-250]\n    Clone at x [5500] y [-250]\n    Clone at x [6000] y [-250]\n    Clone at x [6600] y [-250]\n    Clone at x [8000] y [-250]\n    Clone at x [8500] y [0]\n    hide\nelse\n    if <(LEVEL) = [2]> then\n        switch costume to (level 2 1 v)\n        Clone at x [0] y [300]\n        Clone at x [460] y [0]\n    else\n        switch costume to (level 3 1 v)\n    end\nend\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 [reset v]\ndelete this clone\n\ndefine Clone at x (x) y (y)\nset [x v] to (x)\nset [y v] to (y)\ncreate clone of (_myself_ v)\nnext costume\n\nhide\nchange [x v] by (360)\nchange [y v] by (y)\n\n@Exit2\n\nwhen I receive [green v]\nset [checktime v] to [0]\nset [checkx v] to [-150]\nset [checky v] to [100]\nhide\n\nwhen I receive [tick v]\nPosition ((x) - (SCROLL X)) ((y) - (SCROLL Y))\nif <<touching (player v)?> and <(costume [number v]) = [2]>> then\n    set [checkx v] to (x)\n    set [checktime v] to (TIME)\n    reset timer\n    set [checky v] to (y)\n    switch costume to (open2 v)\n    set [true? v] to [true]\n    set [collected v] to [0]\nend\nif <<(COLLECTED) > ((CollectCheck) - (1))> and <(True?) = [false]>> then\n    switch costume to (open v)\nelse\n    switch costume to (closed v)\n    if <(True?) = [true]> then\n        switch costume to (open2 v)\n    end\nend\n\nwhen I receive [play game v]\nhide\nset [collected v] to [0]\nset [x v] to [0]\nset [true? v] to [false]\nset [y v] to [0]\nif <(LEVEL) = [1]> then\n    switch costume to (closed v)\n    set [collectcheck v] to [5]\n    Clone at x [1364] y [-402]\n    set [collectcheck v] to [2]\n    Clone at x [2415] y [-402]\n    set [collectcheck v] to [3]\n    Clone at x [3626] y [-393]\n    set [collectcheck v] to [1]\n    Clone at x [5078] y [-394]\n    set [collectcheck v] to [5]\n    Clone at x [7156] y [-394]\nelse\n    if <(LEVEL) = [2]> then\n        Clone at x [786] y [490]\n    else\n        set [x v] to [-99999]\n    end\nend\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 [reset v]\n\ndelete this clone\n\ndefine Clone at x (x) y (y)\nset [x v] to (x)\nset [y v] to (y)\ncreate clone of (_myself_ v)\n\nwhen I receive [intro? v]\nhide\n\nchange [level v] by (1)\n\nwhen flag clicked\nhide\n\nset [checkx v] to [7059]\n\nset [checkx v] to [7156]\nset [checky v] to [-394]\n\n@Figur5\n\nwhen flag clicked\ngo to x: (0) y: (0)\nSize [1000]\n\ndefine Size (size)\nswitch costume to (kostüm2 v)\nset size to (size) %\nswitch costume to (kostüm1 v)\n\nwhen I receive [tick v]\ngo to [front v] layer\ngo to [front v] layer\ngo [forward v] (100000000000) layers\nif <(Dark?) = [J]> then\n    if <not <(size) < [100]>> then\n        Size ((size) - (50))\n    end\nelse\n    if <not <(size) > [1000]>> then\n        Size ((size) + (100))\n    end\nend\n\n@Music2\n\nwhen I receive [play game v]\nforever\n    play sound [1-3-10015 v] until done\nend\n\n@Thumb\n\nwhen flag clicked\nclear graphic effects\nhide\ngo to [front v] layer\nset [ghost v] effect to (100)\nshow\n\n
                                ♦  Holiday 3  ♦\n-------------------------------------------------------------------------\n                           The underwater world\n\n                      - A mobile scrolling Platformer -\n                          - 10+ Days hard work -\n\n                                    Instructions \n                                    ----------------\n\n- Avoid the dangers!\n- Travel a breathtaking underwater world!\n- Explore a sunken city and explore dark, underground caves!\n- collect coins to touch checkpoints!\n- Swim with fish!\n- Have fun with the 3rd part of the Holiday series\n\n- Weiche den Gefahren aus!\n- Bereise eine atemberaubende Unterwasserwelt!\n- Erkunde eine Versunkene Stadt und erforsche dunkle, unterirdische Höhlen!\n- sammle Münzen ein, um Checkpoints zu berühren!\n- Schwimme mit Fischen!\n- Viel Spaß beim 3. Teil der Holiday-Serie\n\n                                       News\n                                    ----------------\n04.07.21 - share\n                                       Infos\n                                    ----------------\nPart 1: https://scratch.mit.edu/projects/416180896/\nPart 2: https://scratch.mit.edu/projects/416180896/\n\n                                      Credits\n                                    ----------------\n- @TimMcCool for the water effect\n- @griffpatch for the scrolling platfomer tutorial\n- bensound.com for the music\n- hörspielbox.de for the water audio\n\nPlease Like, Fav and Follow if you like it :)\nBitte Liken, Faven und folgen, wenn du dieses Spiel magst :)\n\n#AsterixDavid #underwater #world #Holiday #Sun #Water #Adventure #Explore #Discover #Games #Animations #music #design #all #fun #Platformer #Scrolling #AsterixDavid #underwater #world #Holiday #Sun #Water #Adventure #Explore #Discover #Games #Animations #music #design #all #fun #Platformer #Scrolling #AsterixDavid #underwater #world #Holiday #Sun #Water #Adventure #Explore #Discover #Games #Animations #music #design #all #fun #Platformer #Scrolling #AsterixDavid #underwater #world #Holiday #Sun #Water #Adventure #Explore #Discover #Games #Animations #music #design #all #fun #Platformer #Scrolling\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n... and yes, I like Percy Jackson ;)