Ninja Army, a Platformer
@Stage\n\nwhen flag clicked\nswitch backdrop to (backdrop1 v)\nforever\n    next backdrop\n    wait (0.08) seconds\nend\n\nwhen flag clicked\n\nwhen I receive [done v]\nwait (1.5) seconds\nforever\n    play sound [Virtual Riot - Energy Drink v] until done\nend\n\nwhen [space v] key pressed\nwait (1) seconds\nforever\n    play sound [Virtual Riot - Energy Drink v] until done\nend\n\n@Player\n\ndefine reset\nclear graphic effects\ngo to x: (-200) y: (-50)\npoint in direction (90)\nset [dead? v] to [0]\nset [x v v] to [0]\nset [y v v] to [0]\nset size to (100) %\nshow\n\nwhen I receive [next level v]\nset [change? v] to [1]\nreset\nset [change? v] to [0]\n\nwhen I receive [alright bros let's go v]\n\nwhen I receive [alright bros let's go v]\nforever\n    set [direction v] to (direction)\nend\n\nwhen I receive [alright bros let's go v]\nset [change? v] to [0]\nforever\n    if <<(x position) = [240]> and <(dead?) = [0]>> then\n        broadcast (NEXT LEVEL v)\n        change [level v] by (1)\n    end\nend\n\nwhen I receive [alright bros let's go v]\nforever\n    if <(y position) = [-179]> then\n        Spin off screen\n    end\nend\n\nwhen [r v] key pressed\nif <(dead?) = [0]> then\n    reset\nend\n\nwhen flag clicked\nhide\ngo to [back v] layer\n\nwhen I receive [alright bros let's go v]\nshow\n\ndefine Spin off screen\nset [dead? v] to [1]\nchange [player death v] by (1)\nrepeat (20)\n    change [ghost v] effect by (5)\nend\nreset\n\nwhen I receive [alright bros let's go v]\nforever\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nswitch costume to (center2 v)\nrepeat (10)\n    change [ghost v] effect by (5)\n    change size by (-5)\nend\ndelete this clone\n\nwhen flag clicked\nbroadcast (alright bros let's go v)\n\nwhen flag clicked\nswitch costume to (right v)\n\nwhen I receive [respawn v]\n\nwhen flag clicked\n\nforever\n    if <<touching (danger v)?> or <touching (gears v)?>> then\n        go to x: (-200) y: (-65)\n    end\nend\n\nwhen flag clicked\nforever\n    if <touching (enemy v)?> then\n        go to x: (-200) y: (-65)\n    end\nend\n\nwhen flag clicked\nset [level v] to [1]\nset [dead? v] to [0]\nset size to (100) %\nreset\nforever\n    go to [front v] layer\n    if <<<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) > (x position)>>> and <(dead?) = [0]>> then\n        switch costume to (right v)\n        change [x v v] by (.9)\n    end\n    if <<<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(mouse x) < (x position)>>> and <(dead?) = [0]>> then\n        switch costume to (left v)\n        change [x v v] by (-.9)\n    end\n    set [x v v] to ((X v) * (0.9))\n    change x by (X v)\n    if <touching (ground v)?> then\n        change y by (2)\n        if <touching (ground v)?> then\n            change y by (2)\n            if <touching (ground v)?> then\n                change y by (2)\n                if <touching (ground v)?> then\n                    change y by (2)\n                    if <touching (ground v)?> then\n                        change y by (2)\n                        if <touching (ground v)?> then\n                            change x by ((X v) * (-2))\n                            change y by (-5)\n                            if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(mouse y) > ((y position) + (20))>>>> then\n                                if <(X v) > [0]> then\n                                    set [x v v] to [-5]\n                                else\n                                    set [x v v] to [5]\n                                end\n                                set [y v v] to [13]\n                            else\n                                set [x v v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change [y v v] by (-0.8)\n    change y by (Y v)\n    if <touching (ground v)?> then\n        change y by ((Y v) * (-1))\n        set [y v v] to [0]\n    end\n    change y by (-1)\n    if <touching (ground v)?> then\n        if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(mouse y) > ((y position) + (20))>>>> then\n            set [y v v] to [12]\n        end\n    end\n    change y by (1)\n    if <<<<<touching (saws v)?> or <touching (danger v)?>> or <touching (killer wheel2 v)?>> or <touching (lightning v)?>> and <(dead?) = [0]>> then\n        start sound [Crunch v]\n        Spin off screen\n    end\n    if <touching (jump pad v)?> then\n        set [y v v] to [20]\n    end\nend\n\nwhen flag clicked\nhide\nreset\n\nwhen flag clicked\nforever\n    if <touching (text v)?> then\n        broadcast (Fade v)\n    end\nend\n\nwhen [s v] key pressed\nbroadcast (Transition v)\nreset\n\nwhen I receive [done v]\nshow\n\nwhen I receive [alright bros let's go v]\nrepeat (10)\n    if <([sin v] of ((x position) * (2)) ) > ((50) + (X v))> then\n        clone at x: (sin) y: [0]\n        clone at x: [360] y: [0]\n        clone at x: [360] y: [0]\n        clone at x: [360] y: [0]\n        clone at x: [360] y: [0]\n        clone at x: [360] y: (sin)\n        clone at x: [360] y: [0]\n        clone at x: (sin) y: [0]\n        clone at x: [360] y: [0]\n        clone at x: [360] y: [0]\n        clone at x: [360] y: (sin)\n        clone at x: [360] y: [0]\n        clone at x: [360] y: [0]\n        clone at x: [360] y: [0]\n        clone at x: [360] y: [0]\n        clone at x: (sin) y: (sin)\n    else\n        if <([sin v] of ((x position) * (2)) ) > ((25) + (X v))> then\n            clone at x: [180] y: [180]\n            clone at x: [180] y: (sin)\n            clone at x: [180] y: [180]\n            clone at x: [180] y: [180]\n            clone at x: [180] y: [180]\n            clone at x: [180] y: [180]\n            clone at x: [180] y: [180]\n            clone at x: (sin) y: [180]\n            clone at x: [180] y: [180]\n            clone at x: [180] y: [180]\n            clone at x: [180] y: [180]\n            clone at x: [180] y: (sin)\n            clone at x: [180] y: [180]\n            clone at x: [180] y: [180]\n            clone at x: (sin) y: (sin)\n            clone at x: [180] y: [180]\n        else\n            if <([sin v] of ((x position) * (2)) ) > ((50) - (X v))> then\n                clone at x: [0] y: (direction)\n                clone at x: [0] y: [360]\n                clone at x: [0] y: [360]\n                clone at x: (X v) y: [360]\n                clone at x: [0] y: [360]\n                clone at x: [0] y: [360]\n                clone at x: [0] y: [360]\n                clone at x: [0] y: (Y v)\n                clone at x: [0] y: [360]\n                clone at x: [0] y: [360]\n                clone at x: [0] y: [360]\n                clone at x: [0] y: [360]\n                clone at x: [0] y: (sin)\n                clone at x: [0] y: [360]\n                clone at x: [0] y: [360]\n                clone at x: (SCROLL Y) y: [360]\n            else\n                wait <([sin v] of (X v) ) = ((x position) / (sin))> seconds\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) - (sin))>\n                end\n            end\n        end\n    end\nend\n\ndefine clone at x: () y: ()\n\ndefine set (sin style) to <>\n\nwhen I receive [alright bros let's go v]\nif <([sin v] of (X v) ) > (x position)> then\n    repeat (pick random (x position) to (sin))\n        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n        if <([sin v] of (X v) ) > (x position)> then\n            repeat (pick random (x position) to (sin))\n                set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n            end\n        else\n            repeat (pick random (x position) to (sin))\n                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n            end\n        end\n        if <([sin v] of (X v) ) > (x position)> then\n            repeat (pick random (x position) to (sin))\n                set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n            end\n        else\n            repeat (pick random (x position) to (sin))\n                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n            end\n        end\n        if <([sin v] of (X v) ) > (x position)> then\n            repeat (pick random (x position) to (sin))\n                set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n            end\n        else\n            repeat (pick random (x position) to (sin))\n                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n            end\n        end\n        if <([sin v] of (X v) ) > (x position)> then\n            repeat (pick random (x position) to (sin))\n                set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n            end\n        else\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n                if <([sin v] of (X v) ) > (x position)> then\n                    repeat (pick random (x position) to (sin))\n                        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                    end\n                else\n                    repeat (pick random (x position) to (sin))\n                        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                    end\n                end\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n                if <([sin v] of (X v) ) > (x position)> then\n                    repeat (pick random (x position) to (sin))\n                        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                    end\n                else\n                    repeat (pick random (x position) to (sin))\n                        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                    end\n                end\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n                if <([sin v] of (X v) ) > (x position)> then\n                    repeat (pick random (x position) to (sin))\n                        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                    end\n                else\n                    repeat (pick random (x position) to (sin))\n                        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                    end\n                end\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n                if <([sin v] of (X v) ) > (x position)> then\n                    repeat (pick random (x position) to (sin))\n                        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                    end\n                else\n                    repeat (pick random (x position) to (sin))\n                        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                    end\n                end\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n                if <([sin v] of (X v) ) > (x position)> then\n                    repeat (pick random (x position) to (sin))\n                        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                    end\n                else\n                    repeat (pick random (x position) to (sin))\n                        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                    end\n                end\n            end\n            repeat (pick random (x position) to (sin))\n                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n            end\n        end\n        if <([sin v] of (X v) ) > (x position)> then\n            repeat (pick random (x position) to (sin))\n                set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n            end\n        else\n            repeat (pick random (x position) to (sin))\n                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n            end\n        end\n        if <([sin v] of (X v) ) > (x position)> then\n            repeat (pick random (x position) to (sin))\n                set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n            end\n        else\n            repeat (pick random (x position) to (sin))\n                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n            end\n        end\n        if <([sin v] of (X v) ) > (x position)> then\n            repeat (pick random (x position) to (sin))\n                set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n            end\n        else\n            repeat (pick random (x position) to (sin))\n                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n            end\n        end\n        if <([sin v] of (X v) ) > (x position)> then\n            repeat (pick random (x position) to (sin))\n                set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n            end\n        else\n            repeat (pick random (x position) to (sin))\n                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n            end\n        end\n    end\nelse\n    repeat (pick random (x position) to (sin))\n        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n    end\n    if <([sin v] of (X v) ) > (x position)> then\n        repeat (pick random (x position) to (sin))\n            set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n        end\n    else\n        repeat (pick random (x position) to (sin))\n            set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n        end\n    end\nend\nif <([sin v] of (X v) ) > (x position)> then\n    repeat (pick random (x position) to (sin))\n        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n    end\nelse\n    repeat (pick random (x position) to (sin))\n        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n    end\n    if <([sin v] of (X v) ) > (x position)> then\n        repeat (pick random (x position) to (sin))\n            set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n            repeat (pick random (x position) to (sin))\n                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n            end\n        end\n    else\n        repeat (pick random (x position) to (sin))\n            set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n        end\n    end\nend\nif <([sin v] of (X v) ) > (x position)> then\n    repeat (pick random (x position) to (sin))\n        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n    end\nelse\n    repeat (pick random (x position) to (sin))\n        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n    end\n    if <([sin v] of (X v) ) > (x position)> then\n        repeat (pick random (x position) to (sin))\n            set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n        end\n    else\n        repeat (pick random (x position) to (sin))\n            set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n        end\n    end\nend\nif <([sin v] of (X v) ) > (x position)> then\n    repeat (pick random (x position) to (sin))\n        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n    end\nelse\n    repeat (pick random (x position) to (sin))\n        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n    end\n    if <([sin v] of (X v) ) > (x position)> then\n        repeat (pick random (x position) to (sin))\n            set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n        end\n    else\n        repeat (pick random (x position) to (sin))\n            set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n        end\n    end\nend\nif <([sin v] of (X v) ) > (x position)> then\n    repeat (pick random (x position) to (sin))\n        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n    end\nelse\n    repeat (pick random (x position) to (sin))\n        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n    end\n    if <([sin v] of (X v) ) > (x position)> then\n        repeat (pick random (x position) to (sin))\n            set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n        end\n    else\n        repeat (pick random (x position) to (sin))\n            set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n        end\n    end\nend\nif <([sin v] of (X v) ) > (x position)> then\n    repeat (pick random (x position) to (sin))\n        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n    end\nelse\n    repeat (pick random (x position) to (sin))\n        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n    end\n    if <([sin v] of (X v) ) > (x position)> then\n        repeat (pick random (x position) to (sin))\n            set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n        end\n    else\n        repeat (pick random (x position) to (sin))\n            set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n        end\n    end\nend\nif <([sin v] of (X v) ) > (x position)> then\n    repeat (pick random (x position) to (sin))\n        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n    end\nelse\n    repeat (pick random (x position) to (sin))\n        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n    end\n    if <([sin v] of (X v) ) > (x position)> then\n        repeat (pick random (x position) to (sin))\n            set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n        end\n    else\n        repeat (pick random (x position) to (sin))\n            set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n        end\n    end\nend\nif <([sin v] of (X v) ) > (x position)> then\n    repeat (pick random (x position) to (sin))\n        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n    end\nelse\n    repeat (pick random (x position) to (sin))\n        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n    end\n    if <([sin v] of (X v) ) > (x position)> then\n        repeat (pick random (x position) to (sin))\n            set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n        end\n    else\n        repeat (pick random (x position) to (sin))\n            set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n        end\n    end\nend\n\nwhen I receive [alright bros let's go v]\nif <([sin v] of (X v) ) > (x position)> then\n    repeat (pick random (x position) to (sin))\n        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n        if <([sin v] of (X v) ) > (x position)> then\n            repeat (pick random (x position) to (sin))\n                if <([sin v] of (X v) ) > (x position)> then\n                    repeat (pick random (x position) to (sin))\n                        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                        if <([sin v] of (X v) ) > (x position)> then\n                            repeat (pick random (x position) to (sin))\n                                set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                            end\n                        else\n                            repeat (pick random (x position) to (sin))\n                                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                            end\n                            if <([sin v] of (X v) ) > (x position)> then\n                                repeat (pick random (x position) to (sin))\n                                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                                end\n                            else\n                                repeat (pick random (x position) to (sin))\n                                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                                end\n                            end\n                        end\n                        if <([sin v] of (X v) ) > (x position)> then\n                            repeat (pick random (x position) to (sin))\n                                set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                            end\n                        else\n                            repeat (pick random (x position) to (sin))\n                                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                            end\n                            if <([sin v] of (X v) ) > (x position)> then\n                                repeat (pick random (x position) to (sin))\n                                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                                end\n                            else\n                                repeat (pick random (x position) to (sin))\n                                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                                end\n                            end\n                        end\n                        if <([sin v] of (X v) ) > (x position)> then\n                            repeat (pick random (x position) to (sin))\n                                set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                            end\n                        else\n                            repeat (pick random (x position) to (sin))\n                                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                            end\n                            if <([sin v] of (X v) ) > (x position)> then\n                                repeat (pick random (x position) to (sin))\n                                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                                end\n                            else\n                                repeat (pick random (x position) to (sin))\n                                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                                end\n                            end\n                        end\n                        if <([sin v] of (X v) ) > (x position)> then\n                            repeat (pick random (x position) to (sin))\n                                set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                            end\n                        else\n                            if <([sin v] of (X v) ) > (x position)> then\n                                repeat (pick random (x position) to (sin))\n                                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                                end\n                            else\n                                repeat (pick random (x position) to (sin))\n                                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                                end\n                                if <([sin v] of (X v) ) > (x position)> then\n                                    repeat (pick random (x position) to (sin))\n                                        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                                    end\n                                else\n                                    repeat (pick random (x position) to (sin))\n                                        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                                    end\n                                end\n                            end\n                            if <([sin v] of (X v) ) > (x position)> then\n                                repeat (pick random (x position) to (sin))\n                                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                                end\n                            else\n                                repeat (pick random (x position) to (sin))\n                                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                                end\n                                if <([sin v] of (X v) ) > (x position)> then\n                                    repeat (pick random (x position) to (sin))\n                                        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                                    end\n                                else\n                                    repeat (pick random (x position) to (sin))\n                                        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                                    end\n                                end\n                            end\n                            if <([sin v] of (X v) ) > (x position)> then\n                                repeat (pick random (x position) to (sin))\n                                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                                end\n                            else\n                                repeat (pick random (x position) to (sin))\n                                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                                end\n                                if <([sin v] of (X v) ) > (x position)> then\n                                    repeat (pick random (x position) to (sin))\n                                        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                                    end\n                                else\n                                    repeat (pick random (x position) to (sin))\n                                        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                                    end\n                                end\n                            end\n                            if <([sin v] of (X v) ) > (x position)> then\n                                repeat (pick random (x position) to (sin))\n                                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                                end\n                            else\n                                repeat (pick random (x position) to (sin))\n                                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                                end\n                                if <([sin v] of (X v) ) > (x position)> then\n                                    repeat (pick random (x position) to (sin))\n                                        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                                    end\n                                else\n                                    repeat (pick random (x position) to (sin))\n                                        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                                    end\n                                end\n                            end\n                            if <([sin v] of (X v) ) > (x position)> then\n                                repeat (pick random (x position) to (sin))\n                                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                                end\n                            else\n                                repeat (pick random (x position) to (sin))\n                                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                                end\n                                if <([sin v] of (X v) ) > (x position)> then\n                                    repeat (pick random (x position) to (sin))\n                                        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                                    end\n                                else\n                                    repeat (pick random (x position) to (sin))\n                                        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                                    end\n                                end\n                            end\n                            repeat (pick random (x position) to (sin))\n                                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                            end\n                            if <([sin v] of (X v) ) > (x position)> then\n                                repeat (pick random (x position) to (sin))\n                                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                                end\n                            else\n                                repeat (pick random (x position) to (sin))\n                                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                                end\n                            end\n                        end\n                        if <([sin v] of (X v) ) > (x position)> then\n                            repeat (pick random (x position) to (sin))\n                                set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                            end\n                        else\n                            repeat (pick random (x position) to (sin))\n                                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                            end\n                            if <([sin v] of (X v) ) > (x position)> then\n                                repeat (pick random (x position) to (sin))\n                                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                                end\n                            else\n                                repeat (pick random (x position) to (sin))\n                                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                                end\n                            end\n                        end\n                        if <([sin v] of (X v) ) > (x position)> then\n                            repeat (pick random (x position) to (sin))\n                                set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                            end\n                        else\n                            repeat (pick random (x position) to (sin))\n                                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                            end\n                            if <([sin v] of (X v) ) > (x position)> then\n                                repeat (pick random (x position) to (sin))\n                                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                                end\n                            else\n                                repeat (pick random (x position) to (sin))\n                                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                                end\n                            end\n                        end\n                        if <([sin v] of (X v) ) > (x position)> then\n                            repeat (pick random (x position) to (sin))\n                                set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                            end\n                        else\n                            repeat (pick random (x position) to (sin))\n                                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                            end\n                            if <([sin v] of (X v) ) > (x position)> then\n                                repeat (pick random (x position) to (sin))\n                                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                                end\n                            else\n                                repeat (pick random (x position) to (sin))\n                                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                                end\n                            end\n                        end\n                        if <([sin v] of (X v) ) > (x position)> then\n                            repeat (pick random (x position) to (sin))\n                                set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                            end\n                        else\n                            repeat (pick random (x position) to (sin))\n                                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                            end\n                            if <([sin v] of (X v) ) > (x position)> then\n                                repeat (pick random (x position) to (sin))\n                                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                                end\n                            else\n                                repeat (pick random (x position) to (sin))\n                                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                                end\n                            end\n                        end\n                    end\n                else\n                    repeat (pick random (x position) to (sin))\n                        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                    end\n                    if <([sin v] of (X v) ) > (x position)> then\n                        repeat (pick random (x position) to (sin))\n                            set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                        end\n                    else\n                        repeat (pick random (x position) to (sin))\n                            set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                        end\n                    end\n                end\n                if <([sin v] of (X v) ) > (x position)> then\n                    repeat (pick random (x position) to (sin))\n                        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                    end\n                else\n                    repeat (pick random (x position) to (sin))\n                        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                    end\n                    if <([sin v] of (X v) ) > (x position)> then\n                        repeat (pick random (x position) to (sin))\n                            set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                            repeat (pick random (x position) to (sin))\n                                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                            end\n                            if <([sin v] of (X v) ) > (x position)> then\n                                repeat (pick random (x position) to (sin))\n                                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                                end\n                            else\n                                repeat (pick random (x position) to (sin))\n                                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                                end\n                            end\n                        end\n                    else\n                        repeat (pick random (x position) to (sin))\n                            set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                        end\n                    end\n                end\n                if <([sin v] of (X v) ) > (x position)> then\n                    repeat (pick random (x position) to (sin))\n                        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                    end\n                else\n                    repeat (pick random (x position) to (sin))\n                        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                    end\n                    if <([sin v] of (X v) ) > (x position)> then\n                        repeat (pick random (x position) to (sin))\n                            set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                        end\n                    else\n                        repeat (pick random (x position) to (sin))\n                            set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                        end\n                    end\n                end\n                if <([sin v] of (X v) ) > (x position)> then\n                    repeat (pick random (x position) to (sin))\n                        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                    end\n                else\n                    repeat (pick random (x position) to (sin))\n                        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                    end\n                    if <([sin v] of (X v) ) > (x position)> then\n                        repeat (pick random (x position) to (sin))\n                            set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                        end\n                    else\n                        repeat (pick random (x position) to (sin))\n                            set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                        end\n                    end\n                end\n                if <([sin v] of (X v) ) > (x position)> then\n                    repeat (pick random (x position) to (sin))\n                        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                    end\n                else\n                    repeat (pick random (x position) to (sin))\n                        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                    end\n                    if <([sin v] of (X v) ) > (x position)> then\n                        repeat (pick random (x position) to (sin))\n                            set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                        end\n                    else\n                        repeat (pick random (x position) to (sin))\n                            set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                        end\n                    end\n                end\n                if <([sin v] of (X v) ) > (x position)> then\n                    repeat (pick random (x position) to (sin))\n                        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                    end\n                else\n                    repeat (pick random (x position) to (sin))\n                        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                    end\n                    if <([sin v] of (X v) ) > (x position)> then\n                        repeat (pick random (x position) to (sin))\n                            set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                        end\n                    else\n                        repeat (pick random (x position) to (sin))\n                            set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                        end\n                    end\n                end\n                if <([sin v] of (X v) ) > (x position)> then\n                    repeat (pick random (x position) to (sin))\n                        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                    end\n                else\n                    repeat (pick random (x position) to (sin))\n                        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                    end\n                    if <([sin v] of (X v) ) > (x position)> then\n                        repeat (pick random (x position) to (sin))\n                            set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                        end\n                    else\n                        repeat (pick random (x position) to (sin))\n                            set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                        end\n                    end\n                end\n                if <([sin v] of (X v) ) > (x position)> then\n                    repeat (pick random (x position) to (sin))\n                        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                    end\n                else\n                    repeat (pick random (x position) to (sin))\n                        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                    end\n                    if <([sin v] of (X v) ) > (x position)> then\n                        repeat (pick random (x position) to (sin))\n                            set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                        end\n                    else\n                        repeat (pick random (x position) to (sin))\n                            set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                        end\n                    end\n                end\n                set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n            end\n        else\n            repeat (pick random (x position) to (sin))\n                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n            end\n        end\n        if <([sin v] of (X v) ) > (x position)> then\n            repeat (pick random (x position) to (sin))\n                set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n            end\n        else\n            repeat (pick random (x position) to (sin))\n                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n            end\n        end\n        if <([sin v] of (X v) ) > (x position)> then\n            repeat (pick random (x position) to (sin))\n                set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n            end\n        else\n            repeat (pick random (x position) to (sin))\n                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n            end\n        end\n        if <([sin v] of (X v) ) > (x position)> then\n            repeat (pick random (x position) to (sin))\n                set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n            end\n        else\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n                if <([sin v] of (X v) ) > (x position)> then\n                    repeat (pick random (x position) to (sin))\n                        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                    end\n                else\n                    repeat (pick random (x position) to (sin))\n                        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                    end\n                end\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n                if <([sin v] of (X v) ) > (x position)> then\n                    repeat (pick random (x position) to (sin))\n                        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                    end\n                else\n                    repeat (pick random (x position) to (sin))\n                        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                    end\n                end\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n                if <([sin v] of (X v) ) > (x position)> then\n                    repeat (pick random (x position) to (sin))\n                        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                    end\n                else\n                    repeat (pick random (x position) to (sin))\n                        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                    end\n                end\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n                if <([sin v] of (X v) ) > (x position)> then\n                    repeat (pick random (x position) to (sin))\n                        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                    end\n                else\n                    repeat (pick random (x position) to (sin))\n                        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                    end\n                end\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n                if <([sin v] of (X v) ) > (x position)> then\n                    repeat (pick random (x position) to (sin))\n                        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                    end\n                else\n                    repeat (pick random (x position) to (sin))\n                        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                    end\n                end\n            end\n            repeat (pick random (x position) to (sin))\n                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n            end\n        end\n        if <([sin v] of (X v) ) > (x position)> then\n            repeat (pick random (x position) to (sin))\n                set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n            end\n        else\n            repeat (pick random (x position) to (sin))\n                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n            end\n        end\n        if <([sin v] of (X v) ) > (x position)> then\n            repeat (pick random (x position) to (sin))\n                set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n            end\n        else\n            repeat (pick random (x position) to (sin))\n                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n            end\n        end\n        if <([sin v] of (X v) ) > (x position)> then\n            repeat (pick random (x position) to (sin))\n                set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n            end\n        else\n            repeat (pick random (x position) to (sin))\n                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n            end\n        end\n        if <([sin v] of (X v) ) > (x position)> then\n            repeat (pick random (x position) to (sin))\n                set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n            end\n        else\n            repeat (pick random (x position) to (sin))\n                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n            end\n        end\n    end\nelse\n    repeat (pick random (x position) to (sin))\n        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n    end\n    if <([sin v] of (X v) ) > (x position)> then\n        repeat (pick random (x position) to (sin))\n            set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n        end\n    else\n        repeat (pick random (x position) to (sin))\n            set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n        end\n    end\nend\nif <([sin v] of (X v) ) > (x position)> then\n    repeat (pick random (x position) to (sin))\n        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n    end\nelse\n    repeat (pick random (x position) to (sin))\n        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n    end\n    if <([sin v] of (X v) ) > (x position)> then\n        repeat (pick random (x position) to (sin))\n            set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n            repeat (pick random (x position) to (sin))\n                set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n            end\n            if <([sin v] of (X v) ) > (x position)> then\n                repeat (pick random (x position) to (sin))\n                    set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n                end\n            else\n                repeat (pick random (x position) to (sin))\n                    set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n                end\n            end\n        end\n    else\n        repeat (pick random (x position) to (sin))\n            set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n        end\n    end\nend\nif <([sin v] of (X v) ) > (x position)> then\n    repeat (pick random (x position) to (sin))\n        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n    end\nelse\n    repeat (pick random (x position) to (sin))\n        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n    end\n    if <([sin v] of (X v) ) > (x position)> then\n        repeat (pick random (x position) to (sin))\n            set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n        end\n    else\n        repeat (pick random (x position) to (sin))\n            set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n        end\n    end\nend\nif <([sin v] of (X v) ) > (x position)> then\n    repeat (pick random (x position) to (sin))\n        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n    end\nelse\n    repeat (pick random (x position) to (sin))\n        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n    end\n    if <([sin v] of (X v) ) > (x position)> then\n        repeat (pick random (x position) to (sin))\n            set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n        end\n    else\n        repeat (pick random (x position) to (sin))\n            set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n        end\n    end\nend\nif <([sin v] of (X v) ) > (x position)> then\n    repeat (pick random (x position) to (sin))\n        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n    end\nelse\n    repeat (pick random (x position) to (sin))\n        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n    end\n    if <([sin v] of (X v) ) > (x position)> then\n        repeat (pick random (x position) to (sin))\n            set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n        end\n    else\n        repeat (pick random (x position) to (sin))\n            set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n        end\n    end\nend\nif <([sin v] of (X v) ) > (x position)> then\n    repeat (pick random (x position) to (sin))\n        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n    end\nelse\n    repeat (pick random (x position) to (sin))\n        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n    end\n    if <([sin v] of (X v) ) > (x position)> then\n        repeat (pick random (x position) to (sin))\n            set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n        end\n    else\n        repeat (pick random (x position) to (sin))\n            set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n        end\n    end\nend\nif <([sin v] of (X v) ) > (x position)> then\n    repeat (pick random (x position) to (sin))\n        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n    end\nelse\n    repeat (pick random (x position) to (sin))\n        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n    end\n    if <([sin v] of (X v) ) > (x position)> then\n        repeat (pick random (x position) to (sin))\n            set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n        end\n    else\n        repeat (pick random (x position) to (sin))\n            set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n        end\n    end\nend\nif <([sin v] of (X v) ) > (x position)> then\n    repeat (pick random (x position) to (sin))\n        set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n    end\nelse\n    repeat (pick random (x position) to (sin))\n        set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n    end\n    if <([sin v] of (X v) ) > (x position)> then\n        repeat (pick random (x position) to (sin))\n            set (sin) to <([sin v] of (X v) ) = ((x position) / (sin))>\n        end\n    else\n        repeat (pick random (x position) to (sin))\n            set (sin style) to <([sin v] of (X v) ) = ((x position) * (sin))>\n        end\n    end\nend\n\nwhen [c v] key pressed\nset [brightness v] effect to (100)\nrepeat (50)\n    change [brightness v] effect by (-2)\nend\n\nwhen I receive [alright bros let's go v]\nset [brightness v] effect to (0)\n\n@intro template\n\nwhen flag clicked\nset [b v] to [0]\nhide\nstart sound [MDK - Press Start v]\nrepeat (3)\n    clone [0] [1000] [1]\n    clone [0] [1000] [2]\n    clone [0] [1000] [3]\n    clone [0] [1000] [4]\n    change [b v] by (-10)\nend\nwait (1) seconds\nclone [-5] [1000] [5]\nclone [-5] [1000] [6]\nclone [-5] [1000] [7]\nclone [-5] [1000] [8]\nclone [-5] [1000] [9]\nclone [5] [-1000] [10]\nclone [5] [-1000] [11]\nclone [5] [-1000] [12]\nclone [5] [-1000] [13]\nclone [5] [-1000] [14]\nwait (1) seconds\nclone [-1000] [-1000] [15]\nwait (0.1) seconds\nclone [-1000] [1000] [16]\nwait (0.1) seconds\nclone [1000] [-1000] [17]\nwait (0.1) seconds\nclone [1000] [1000] [18]\nwait (0.1) seconds\nclone [-1000] [-1000] [19]\nwait (0.1) seconds\nclone [-1000] [1000] [20]\nwait (0.1) seconds\nclone [1000] [-1000] [21]\nwait (0.1) seconds\nclone [1000] [1000] [22]\nclone [0] [1000] [23]\nwait (0.2) seconds\nclone [0] [1000] [24]\nwait (0.2) seconds\nclone [0] [1000] [25]\nwait (0.2) seconds\nclone [0] [1000] [26]\nwait (0.2) seconds\nclone [0] [1000] [27]\nclone [-1000] [-1000] [28]\nclone [-1000] [-1000] [29]\nclone [-1000] [-1000] [30]\nclone [-1000] [-1000] [31]\nclone [-1000] [-1000] [32]\nclone [-1000] [-1000] [33]\nclone [-1000] [-1000] [34]\nclone [-1000] [-1000] [35]\nclone [-1000] [-1000] [36]\nclone [-1000] [-1000] [37]\nclone [-1000] [-1000] [38]\nclone [-1000] [-1000] [39]\nclone [-1000] [-1000] [40]\nclone [-1000] [-1000] [41]\nclone [-1000] [-1000] [42]\nclone [-1000] [-1000] [43]\nclone [-1000] [-1000] [44]\nwait (1) seconds\nclone [-1000] [-1000] [15]\nwait (0.1) seconds\nclone [-1000] [-1000] [16]\nwait (0.1) seconds\nclone [-1000] [-1000] [17]\nwait (0.1) seconds\nclone [-1000] [-1000] [18]\nwait (0.1) seconds\nclone [-1000] [-1000] [19]\nwait (0.1) seconds\nclone [-1000] [-1000] [20]\nwait (0.1) seconds\nclone [-1000] [-1000] [21]\nwait (0.1) seconds\nclone [-1000] [-1000] [22]\nbroadcast (done v)\n\ndefine clone (x) (y) (costume)\nset [my variable v] to (x)\nset [y v] to (y)\nset [costume v] to (costume)\ncreate clone of (_myself_ v)\nwait (0.05) seconds\n\nwhen I start as a clone\nshow\ngo to x: (my variable) y: (y)\nswitch costume to (costume)\nif <<(costume [number v]) > [0]> and <(costume [number v]) < [5]>> then\n    set [brightness v] effect to (b)\n    repeat until <(round (y position)) = [0]>\n        change y by (((0) - (y position)) / (5))\n    end\nend\n\nwhen I start as a clone\nshow\ngo to x: (my variable) y: (y)\nswitch costume to (costume)\nif <<(costume [number v]) > [4]> and <(costume [number v]) < [15]>> then\n    repeat until <(round (y position)) = [0]>\n        change y by (((0) - (y position)) / (5))\n    end\nend\n\nwhen I start as a clone\nshow\ngo to x: (my variable) y: (y)\nswitch costume to (costume)\nif <<(costume [number v]) > [14]> and <(costume [number v]) < [22]>> then\n    point in direction (-90)\n    set size to (0) %\n    repeat until <<(round (direction)) = [90]> and <<(round (x position)) = [0]> and <<(round (y position)) = [0]> and <(round (size)) = [100]>>>>\n        change y by (((0) - (y position)) / (5))\n        change x by (((0) - (x position)) / (5))\n        turn right (((90) - (direction)) / (5)) degrees\n        change size by (((100) - (size)) / (5))\n    end\nend\n\nwhen I start as a clone\nshow\ngo to x: (my variable) y: (y)\nswitch costume to (costume)\nif <<(costume [number v]) > [22]> and <(costume [number v]) < [24]>> then\n    repeat until <(round (y position)) = [0]>\n        change y by (((0) - (y position)) / (5))\n    end\nend\n\nwhen I start as a clone\nshow\ngo to x: (my variable) y: (y)\nswitch costume to (costume)\nif <<(costume [number v]) > [23]> and <(costume [number v]) < [28]>> then\n    repeat until <(round (y position)) = [0]>\n        change y by (((0) - (y position)) / (5))\n    end\nend\n\nwhen I start as a clone\nshow\ngo to x: (my variable) y: (y)\nswitch costume to (costume)\nif <<(costume [number v]) > [27]> and <(costume [number v]) < [45]>> then\n    point in direction (-90)\n    set size to (0) %\n    repeat until <<(round (direction)) = [90]> and <<(round (x position)) = [0]> and <<(round (y position)) = [0]> and <(round (size)) = [100]>>>>\n        change y by (((0) - (y position)) / (5))\n        change x by (((0) - (x position)) / (5))\n        turn right (((90) - (direction)) / (5)) degrees\n        change size by (((100) - (size)) / (5))\n    end\nend\n\nwhen I receive [done v]\nwait (0.55) seconds\nrepeat (10)\n    change volume by (-10)\nend\nstop all sounds\nset volume to (100) %\ndelete this clone\n\nwhen flag clicked\nforever\n    go to [front v] layer\nend\n\nwhen I start as a clone\nforever\n    go to [front v] layer\nend\n\nwhen [space v] key pressed\nstop [other scripts in sprite v]\nstop all sounds\nhide\n\nwhen [space v] key pressed\nforever\n    delete this clone\nend\n\n@Ground\n\nwhen flag clicked\ngo to [front v] layer\ngo to x: (0) y: (0)\nswitch costume to (1 v)\n\nforever\n    if <(costume [number v]) = [18]> then\n        broadcast (End v)\n    end\nend\n\nwhen I receive [next level v]\nnext costume\n\nwhen I receive [transition v]\nnext costume\n\nwhen I receive [alright bros let's go v]\n\nset [scroll y v] to [0]\nforever\n    go to x: (0) y: ((SCROLL Y) - (y))\nend\n\n@Fake\n\nwhen flag clicked\ngo to [front v] layer\ngo to x: (0) y: (0)\nswitch costume to (1 v)\nforever\n    if <(costume [number v]) = [19]> then\n        broadcast (End v)\n    end\nend\n\nwhen I receive [next level v]\nnext costume\n\nwhen I receive [transition v]\nnext costume\n\n@Danger\n\nwhen flag clicked\nswitch costume to (level 1 v)\n\nforever\n    switch costume to (Level)\nend\n\nglide (1) secs to x: (0) y: (0)\n\nglide (1) secs to x: (0) y: (10)\n\nwhen I receive [next level v]\nnext costume\n\nwhen I receive [transition v]\nnext costume\n\nwhen I receive [alright bros let's go v]\ngo to x: (0) y: (0)\nforever\n    repeat (10)\n        change y by (1)\n        wait (0.01) seconds\n    end\n    repeat (10)\n        change y by (-1)\n        wait (0.01) seconds\n    end\nend\n\n@Text\n\nwhen flag clicked\nset [ghost v] effect to (0)\ngo to x: (0) y: (0)\nshow\ngo to [back v] layer\n\nwhen flag clicked\nswitch costume to (1 v)\nforever\n    if <touching (player v)?> then\n        repeat until <not <touching (player v)?>>\n            set [ghost v] effect to (50)\n        end\n    end\n    set [ghost v] effect to (0)\nend\n\nwhen I receive [fade v]\nforever\n    if <touching (player v)?> then\n        repeat until <not <touching (player v)?>>\n            set [ghost v] effect to (50)\n        end\n    end\n    set [ghost v] effect to (0)\nend\n\nwhen I receive [transition v]\nnext costume\n\nwhen I receive [next level v]\n\nnext costume\n\nwhen I receive [next level v]\nnext costume\n\n@Stars\n\nwhen flag clicked\ngo to x: (-60) y: (72)\nshow\nforever\n    create clone of (_myself_ v)\n    wait (pick random (1) to (3)) seconds\nend\n\nwhen flag clicked\nwait (3) seconds\nrepeat (25)\n    change [ghost v] effect by (4)\nend\nhide\n\nwhen I start as a clone\ngo to (random position v)\nset [ghost v] effect to (0)\nshow\nwait (3) seconds\nrepeat (25)\n    change [ghost v] effect by (4)\nend\ndelete this clone\n\n@TB\n\nwhen flag clicked\nswitch costume to (costume1 v)\ngo to x: (0) y: (0)\nset [ghost v] effect to (100)\n\nwhen flag clicked\nforever\n    go to [front v] layer\nend\n\n@Figur1\n\nwhen flag clicked\nset [mode v] to [0]\ncreate clone of (_myself_ v)\nset [ghost v] effect to (90)\nset size to (5) %\nwait (0) seconds\nforever\n    show\n    go to x: (0) y: (50)\n    if <(mode) = [0]> then\n        change size by (((size) - (100)) / (-10))\n        switch costume to (kostüm1 v)\n    end\n    if <(mode) = [1]> then\n        set size to ((([cos v] of ((timer) * (100)) ) * (40)) + (100)) %\n        switch costume to (kostüm2 v)\n        set [color v] effect to (color)\n    end\nend\n\nwhen I start as a clone\nset [ghost v] effect to (90)\nset size to (40) %\nwait (0) seconds\nforever\n    show\n    go to x: (0) y: (50)\n    if <(mode) = [0]> then\n        change size by (((size) - (65)) / (-10))\n        switch costume to (kostüm1 v)\n    end\n    if <(mode) = [1]> then\n        set [color v] effect to (color)\n        set size to ((([sin v] of ((timer) * (100)) ) * (40)) + (100)) %\n        switch costume to (kostüm2 v)\n    end\nend\n\n@Figur2\n\nwhen flag clicked\nset [ghost v] effect to (30)\ngo to x: (-8) y: (-167)\nshow\nswitch costume to (not v)\nforever\n    if <(love?) = [true]> then\n        set [mode v] to [1]\n        set [color v] to [0]\n        costume [love]\n    else\n        if <(fav) = [true]> then\n            set [mode v] to [1]\n            set [color v] to [15]\n            costume [fave]\n        else\n            if <(see inside) = [true]> then\n                set [mode v] to [1]\n                set [color v] to [120]\n                costume [see inside]\n            else\n                if <(fulls) = [true]> then\n                    set [mode v] to [1]\n                    set [color v] to [120]\n                    costume [full]\n                else\n                    if <(remix) = [true]> then\n                        set [mode v] to [1]\n                        set [color v] to [52]\n                        costume [re]\n                    else\n                        if <(pfp) = [true]> then\n                            set [mode v] to [1]\n                            set [color v] to [52]\n                            costume [lo]\n                        else\n                            if <(report) = [true]> then\n                                set [mode v] to [1]\n                                set [color v] to [120]\n                                costume [report]\n                            else\n                                if <(gf) = [true]> then\n                                    set [mode v] to [1]\n                                    set [color v] to [52]\n                                    costume [gf]\n                                else\n                                    if <(sb) = [true]> then\n                                        set [mode v] to [1]\n                                        set [color v] to [0]\n                                        costume [stop]\n                                    else\n                                        if <(add) = [true]> then\n                                            set [mode v] to [1]\n                                            set [color v] to [120]\n                                            costume [add]\n                                        else\n                                            if <(copy) = [true]> then\n                                                set [mode v] to [1]\n                                                set [color v] to [120]\n                                                costume [copy]\n                                            else\n                                                if <(post) = [true]> then\n                                                    set [mode v] to [1]\n                                                    set [color v] to [120]\n                                                    costume [post]\n                                                else\n                                                    if <(cv) = [true]> then\n                                                        set [mode v] to [1]\n                                                        set [color v] to [120]\n                                                        costume [cv]\n                                                    else\n                                                        if <(cancel) = [true]> then\n                                                            set [mode v] to [1]\n                                                            set [color v] to [120]\n                                                            costume [cancel]\n                                                        else\n                                                            set [mode v] to [0]\n                                                            set [color v] to [0]\n                                                            costume [not]\n                                                        end\n                                                    end\n                                                end\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine costume (check)\nif <not <(costume [name v]) = (check)>> then\n    repeat (4)\n        change [ghost v] effect by (25)\n    end\n    switch costume to (check)\n    repeat (4)\n        change [ghost v] effect by (-25)\n    end\nend\n\nwhen flag clicked\nforever\n    go to [front v] layer\nend\n\n@pfp\n\nrepeat (10)\n\nwhen flag clicked\nforever\n    set [pfp v] to <touching (mouse-pointer v)?>\nend\n\n@report\n\nrepeat (10)\n\nwhen flag clicked\nforever\n    set [report v] to <touching (mouse-pointer v)?>\nend\n\n@fulls\n\nrepeat (10)\n\nwhen flag clicked\nforever\n    set [fulls v] to <touching (mouse-pointer v)?>\nend\n\n@remix\n\nrepeat (10)\n\nwhen flag clicked\nforever\n    set [remix v] to <touching (mouse-pointer v)?>\nend\n\n@see inside\n\nrepeat (10)\n\nwhen flag clicked\nforever\n    set [see inside v] to <touching (mouse-pointer v)?>\nend\n\n@fave\n\nrepeat (10)\n\nwhen flag clicked\nforever\n    set [fav v] to <touching (mouse-pointer v)?>\nend\n\n@love\n\nwhen flag clicked\nforever\n    set [love? v] to <touching (mouse-pointer v)?>\nend\n\n@gf\n\nrepeat (10)\n\nwhen flag clicked\nforever\n    set [gf v] to <touching (mouse-pointer v)?>\nend\n\n@sb\n\nrepeat (10)\n\nwhen flag clicked\nforever\n    set [sb v] to <touching (mouse-pointer v)?>\nend\n\n@report2\n\nrepeat (10)\n\nwhen flag clicked\nforever\n    set [add v] to <touching (mouse-pointer v)?>\nend\n\n@report3\n\nrepeat (10)\n\nwhen flag clicked\nforever\n    set [copy v] to <touching (mouse-pointer v)?>\nend\n\n@post\n\nrepeat (10)\n\nwhen flag clicked\nforever\n    set [post v] to <touching (mouse-pointer v)?>\nend\n\n@cv\n\nrepeat (10)\n\nwhen flag clicked\nforever\n    set [cv v] to <touching (mouse-pointer v)?>\nend\n\n@post2\n\nrepeat (10)\n\nwhen flag clicked\nforever\n    set [cancel v] to <touching (mouse-pointer v)?>\nend\n\n
Hey guys !!!! Welcome to Wizard || A Platformer ! \n\nTOP LOVED AND REMIXED !!\nArrow the keys to move or Wasd :D\nGo follow me : @kodiak77-77\nArt by me ;D\n➙ 431 blocks :D\n➙ Music : Alkali - Black Music: Alkali - Black Light\nPropose to be featured :\nhttps://scratch.mit.edu/studios/4228481/comments/\n\n\nCredits :\n\n@Game-Cloud for the particule effect ( request ) ;D\nKenney.nl for the ground ;D\n\nTags :\n\n#Platformer #Wizard #A #Platformer #kodiak77-77 #Love #Favorite #Favourite #Follow \n\nEnjoy !\n\n