A Riddleful Platformer
@Stage\n\nwhen I receive [begin platformer v]\nswitch backdrop to (1 v)\n\n@Player\n\nrepeat until <(backdrop [name v]) = [backdrop8]>\n    set rotation style [left-right v]\n    if <not <touching color (#000000)?>> then\n        change y by (-5)\n    else\n        if <<key (up arrow v) pressed?> and <touching color (#080808)?>> then\n            repeat (12)\n                change x by (5)\n            end\n        end\n    end\n    if <touching color (#ff0000)?> then\n        broadcast (sorry! v)\n    end\nend\n\nset [y v] to [0]\nset [x v] to [0]\nforever\n    change [y v] by (-0.5)\n    if <key (right arrow v) pressed?> then\n        change [x v] by (0.7)\n    end\n    if <key (left arrow v) pressed?> then\n        change [x v] by (-0.7)\n    end\n    set [xv v] to ((Xv) * (0.9))\n    change x by (Xv)\n    if <touching color (#000000)?> then\n        change y by (1)\n        if <touching color (#000000)?> then\n            change y by (1)\n            if <touching color (#000000)?> then\n                change y by (1)\n                if <touching color (#000000)?> then\n                    change y by (1)\n                    if <touching color (#000000)?> then\n                        change y by (1)\n                    end\n                    if <touching color (#000000)?> then\n                        change x by ((Xv) * (-1))\n                        change x by (-1)\n                        change y by (-5)\n                        change x by (1)\n                        if <key (up arrow v) pressed?> then\n                            if <(Xv) < [0]> then\n                                set [yv v] to [10]\n                                set [xv v] to [10]\n                            else\n                                set [yv v] to [10]\n                                set [xv v] to [-10]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (Yv)\n    if <touching color (#000000)?> then\n        change y by ((Yv) * (-1))\n        set [yv v] to [0]\n    end\n    change y by (-1)\n    if <key (up arrow v) pressed?> then\n        if <touching color (#000000)?> then\n            if <(water) = [0]> then\n                if <(Mute) = [0]> then\n                    start sound [boing v]\n                end\n                set [yv v] to [8]\n            end\n        end\n    end\n    if <touching color (#ff9400)?> then\n        if <(water) = [0]> then\n            if <(Mute) = [0]> then\n                start sound [boing v]\n            end\n            set [yv v] to [14]\n        end\n    end\n    if <touching color (#003fff)?> then\n        if <(Mute) = [0]> then\n            start sound [pop v]\n        end\n        broadcast (NextLevel v)\n        go to x: (-175) y: (-120)\n        change [level v] by (1)\n    end\n    if <touching color (#ff0000)?> then\n        if <(Mute) = [0]> then\n            start sound [pop v]\n        end\n        go to x: (-175) y: (-120)\n    end\n    change y by (1)\nend\n\nwhen backdrop switches to [backdrop8 v]\nrepeat until <(backdrop [name v]) = [backdrop9]>\n    if <touching color (#000000)?> then\n        change y by (0.5)\n        if <key (up arrow v) pressed?> then\n            set [y v] to [15]\n            if <(x) > [0]> then\n                set [x v] to [-10]\n            else\n                set [x v] to [10]\n            end\n        else\n            change x by ((x) * (-1))\n            set [x v] to [0]\n        end\n    end\n    change y by (y)\n    if <touching color (#000000)?> then\n        change y by ((y) * (-1))\n        set [y v] to [0]\n    end\n    change y by (-0.5)\n    if <<touching color (#000000)?> and <key (up arrow v) pressed?>> then\n        set [y v] to [15]\n    end\n    change y by (0.5)\n    if <touching color (#ff0000)?> then\n        broadcast (sorry! v)\n    end\n    change [y v] by (-0.5)\n    if <key (left arrow v) pressed?> then\n        change [x v] by (-1)\n    end\n    if <key (right arrow v) pressed?> then\n        change [x v] by (1)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\nend\n\nwhen backdrop switches to [backdrop10 v]\nset rotation style [all around v]\nrepeat until <(backdrop [name v]) = [backdrop11]>\n    if <touching color (#000000)?> then\n        change y by (0.5)\n        if <key (up arrow v) pressed?> then\n            set [y v] to [15]\n            if <(x) > [0]> then\n                set [x v] to [-10]\n            else\n                set [x v] to [10]\n            end\n        else\n            change x by ((x) * (-1))\n            set [x v] to [0]\n        end\n    end\n    change y by (y)\n    if <touching color (#000000)?> then\n        change y by ((y) * (-1))\n        set [y v] to [0]\n    end\n    change y by (-0.5)\n    if <<touching color (#000000)?> and <key (up arrow v) pressed?>> then\n        set [y v] to [10]\n    end\n    change y by (0.5)\n    if <touching color (#ff0000)?> then\n        broadcast (sorry! v)\n    end\n    change [y v] by (-0.5)\n    if <key (left arrow v) pressed?> then\n        turn left (15) degrees\n        change [x v] by (-1)\n    end\n    if <key (right arrow v) pressed?> then\n        turn right (15) degrees\n        change [x v] by (1)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\nend\n\nwhen backdrop switches to [backdrop11 v]\npoint in direction (90)\nset rotation style [left-right v]\nforever\n    if <touching color (#000000)?> then\n        change y by (0.5)\n        if <key (up arrow v) pressed?> then\n            set [y v] to [15]\n            if <(x) > [0]> then\n                set [x v] to [-10]\n            else\n                set [x v] to [10]\n            end\n        else\n            change x by ((x) * (-1))\n            set [x v] to [0]\n        end\n    end\n    change y by (y)\n    if <touching color (#000000)?> then\n        change y by ((y) * (-1))\n        set [y v] to [0]\n    end\n    change y by (-0.5)\n    if <<touching color (#000000)?> and <key (up arrow v) pressed?>> then\n        set [y v] to [10]\n    end\n    change y by (0.5)\n    if <touching color (#ff0000)?> then\n        broadcast (sorry! v)\n    end\n    change [y v] by (-0.5)\n    if <key (right arrow v) pressed?> then\n        point in direction (90)\n        change [x v] by (1)\n    end\n    if <key (left arrow v) pressed?> then\n        point in direction (-90)\n        change [x v] by (-1)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\nend\n\nwhen backdrop switches to [backdrop9 v]\nrepeat until <(backdrop [name v]) = [backdrop10 ]>\n    if <touching color (#000000)?> then\n        change y by (0.5)\n        if <key (up arrow v) pressed?> then\n            set [y v] to [15]\n            if <(x) > [0]> then\n                set [x v] to [-10]\n            else\n                set [x v] to [10]\n            end\n        else\n            change x by ((x) * (-1))\n            set [x v] to [0]\n        end\n    end\n    change y by (y)\n    if <touching color (#000000)?> then\n        change y by ((y) * (-1))\n        set [y v] to [0]\n    end\n    change y by (-0.5)\n    if <<touching color (#000000)?> and <key (up arrow v) pressed?>> then\n        set [y v] to [4]\n    end\n    change y by (0.5)\n    if <touching color (#ff0000)?> then\n        broadcast (sorry! v)\n    end\n    change [y v] by (-0.5)\n    if <key (left arrow v) pressed?> then\n        change [x v] by (-1)\n    end\n    if <key (right arrow v) pressed?> then\n        change [x v] by (1)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\nend\n\nwhen this sprite clicked\nif <(backdrop [name v]) = [1]> then\n    go to x: (-68) y: (14)\n    broadcast (platformer v)\n    stop [other scripts in sprite v]\n    set rotation style [don't rotate v]\n    point in direction (-75)\n    repeat (21)\n        move (10) steps\n        change size by (-7)\n    end\n    broadcast (begin platformer v)\n    forever\n        start sound [Platforming! v]\n        wait (87.03) seconds\n    end\nend\n\nwhen I receive [begin platformer v]\ngo to x: (-169) y: (-7)\nswitch costume to (costume1 v)\nshow\nrepeat until <(backdrop [name v]) = [backdrop8]>\n    if <touching color (#000000)?> then\n        change y by (0.5)\n        if <key (up arrow v) pressed?> then\n            set [y v] to [15]\n            if <(x) > [0]> then\n                set [x v] to [-10]\n            else\n                set [x v] to [10]\n            end\n        else\n            change x by ((x) * (-1))\n            set [x v] to [0]\n        end\n    end\n    change y by (y)\n    if <touching color (#000000)?> then\n        change y by ((y) * (-1))\n        set [y v] to [0]\n    end\n    change y by (-0.5)\n    if <<touching color (#000000)?> and <key (up arrow v) pressed?>> then\n        set [y v] to [10]\n    end\n    change y by (0.5)\n    if <touching color (#ff0000)?> then\n        broadcast (sorry! v)\n    end\n    change [y v] by (-0.5)\n    if <key (right arrow v) pressed?> then\n        point in direction (90)\n        change [x v] by (1)\n    end\n    if <key (left arrow v) pressed?> then\n        point in direction (-90)\n        change [x v] by (-1)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\nend\n\nwhen [r v] key pressed\ngo to x: (-214) y: (-87)\n\nwhen [space v] key pressed\nchange [color v] effect by (30)\n\nwhen I receive [stop all! v]\nstop [other scripts in sprite v]\nbroadcast (The End v)\nhide\n\nwhen I receive [message1 v]\nshow\ngo to x: (-25) y: (-33)\npoint in direction (90)\nset size to (200) %\nswitch costume to (costume1 v)\nswitch backdrop to (1 v)\n\nwhen I receive [skip v]\ngo to x: (-222) y: (-46)\n\nwhen I receive [begin platformer v]\nforever\n    if <<(x position) = [227]> or <(x position) > [227]>> then\n        go to x: (-224) y: (-74)\n        switch backdrop to (next backdrop v)\n        change [level v] by (1)\n        broadcast (NextLevel v)\n    end\nend\n\nwhen I receive [sorry! v]\ngo to x: (-192) y: (-39)\n\nwhen flag clicked\nhide\n\n@Riddles\n\nwhen I receive [message1 v]\nhide\n\nwhen I receive [riddle time! v]\nsay [The following riddle is from me...] for (2) seconds\nask [if answered correctly you will succeed, but incorrectly you've been deceived, what am I?] and wait\nif <<(answer) = [A Riddle]> or <(answer) = [Riddle]>> then\n    broadcast (correct! v)\n    hide\nelse\n    say [Try Again!] for (2) seconds\n    ask [if answered correctly you will succeed, but incorrectly you've been deceived, what am I?] and wait\n    if <<(answer) = [A Riddle]> or <(answer) = [Riddle]>> then\n        broadcast (correct! v)\n        hide\n    end\nend\n\nwhen flag clicked\nshow\n\nwhen I receive [riddle time!2 v]\nsay [The following Riddle is from riddles.com] for (2) seconds\nask [The more you take, the more they are behind you, What am I?] and wait\nif <<(answer) = [A Step]> or <<(answer) = [Steps]> or <(answer) = [Footsteps]>>> then\n    broadcast (correct! v)\n    hide\nelse\n    say [Try Again!] for (2) seconds\n    ask [The more you take, the more they are behind you, What am I?] and wait\n    if <<(answer) = [A Step]> or <<(answer) = [Steps]> or <(answer) = [Footsteps]>>> then\n        broadcast (correct! v)\n        hide\n    end\nend\n\nwhen I receive [riddle time!3 v]\nsay [The following Riddle is from riddles.com] for (2) seconds\nask [I sleep by day, I fly by night. I have no feathers to aid my flight, What am I?] and wait\nif <<(answer) = [A Bat]> or <(answer) = [Bat]>> then\n    broadcast (correct! v)\n    hide\nelse\n    say [Try Again!] for (2) seconds\n    ask [I sleep by day, I fly by night. I have no feathers to aid my flight, What am I?] and wait\n    if <<(answer) = [A Bat]> or <(answer) = [Bat]>> then\n        broadcast (correct! v)\n        hide\n    end\nend\n\nwhen backdrop switches to [3 v]\ngo to x: (0) y: (0)\nshow\nbroadcast (riddle time!2 v)\ngo to [front v] layer\n\nwhen backdrop switches to [4 v]\ngo to x: (0) y: (0)\nshow\nbroadcast (riddle time!3 v)\ngo to [front v] layer\n\nwhen I receive [riddle time!6 v]\nsay [The following Riddle is from me...] for (2) seconds\nask [I may be ugly, I may not be smart, but what I make is a true work of art; given to kings, and emperors too, who knows, maybe even you!] and wait\nif <<(answer) = [A Silkworm]> or <(answer) = [Silkworm]>> then\n    broadcast (correct! v)\n    hide\nelse\n    say [Try Again!] for (2) seconds\n    ask [I may be ugly, I may not be smart, but what I make is a true work of art; given to kings, and emperors too, who knows, maybe even you!] and wait\n    if <<(answer) = [A Silkworm]> or <(answer) = [Silkworm]>> then\n        broadcast (correct! v)\n        hide\n    end\nend\n\nwhen backdrop switches to [5 v]\ngo to x: (0) y: (0)\nshow\nbroadcast (riddle time!4 v)\ngo to [front v] layer\n\nwhen backdrop switches to [6 v]\ngo to x: (0) y: (0)\nshow\nbroadcast (riddle time!5 v)\ngo to [front v] layer\n\nwhen I receive [riddle time!5 v]\nsay [The following Riddle is from riddles.com] for (2) seconds\nask [Where will you find roads without cars, forests without trees and cities without houses?] and wait\nif <<(answer) = [A Map]> or <(answer) = [Map]>> then\n    broadcast (correct! v)\n    hide\nelse\n    say [Try Again!] for (2) seconds\n    ask [Where will you find roads without cars, forests without trees and cities without houses?] and wait\n    if <<(answer) = [A Map]> or <(answer) = [Map]>> then\n        broadcast (correct! v)\n        hide\n    end\nend\n\nwhen backdrop switches to [7 v]\ngo to x: (0) y: (0)\nshow\nbroadcast (riddle time!6 v)\ngo to [front v] layer\n\nwhen backdrop switches to [8 v]\ngo to x: (0) y: (0)\nshow\nbroadcast (riddle time!7 v)\ngo to [front v] layer\n\nwhen I receive [riddle time!7 v]\nsay [The following Riddle is from riddles.com] for (2) seconds\nask [I'm tempting, so it's said, I have a shiny coat of red, And my flesh is white beneath. I smell so sweet, Taste good to eat, And help to guard your teeth. What am I?] and wait\nif <<(answer) = [An Apple]> or <(answer) = [Apple]>> then\n    broadcast (correct! v)\n    hide\nelse\n    say [Try Again!] for (2) seconds\n    ask [I'm tempting, so it's said, I have a shiny coat of red, And my flesh is white beneath. I smell so sweet, Taste good to eat, And help to guard your teeth. What am I?] and wait\n    if <<(answer) = [An Apple]> or <(answer) = [Apple]>> then\n        broadcast (correct! v)\n        hide\n    end\nend\n\nwhen I receive [begin platformer v]\nhide\n\nwhen I receive [riddle time!8 v]\nsay [The following Riddle is from riddles.com] for (2) seconds\nask [Derrek's mother had some money, a quarter, a nickel and a penny. She had three kids, quarterless, nicholas, and what was the last one's name?] and wait\nif <<(answer) = [Derrek]> or <(answer) = [Derrek]>> then\n    broadcast (correct! v)\n    hide\nelse\n    say [Try Again!] for (2) seconds\n    ask [Derrek's mother had some money, a quarter, a nickel and a penny. She had three kids, quarterless, nicholas, and what was the last one's name?] and wait\n    if <<(answer) = [Derrek]> or <(answer) = [Derrek]>> then\n        broadcast (correct! v)\n        hide\n    end\nend\n\nwhen backdrop switches to [9 v]\ngo to x: (0) y: (0)\nshow\nbroadcast (riddle time!8 v)\ngo to [front v] layer\n\nwhen backdrop switches to [10 v]\ngo to x: (0) y: (0)\nshow\nbroadcast (riddle time!9 v)\ngo to [front v] layer\n\nwhen I receive [riddle time!9 v]\nsay [The following Riddle is from viciger \(on scratch\)] for (2) seconds\nask [What has no money but does tip? What is sturdy but always slips? What is cold no matter where it is? Unless climate changes it'll turn to mist? What am I?] and wait\nif <<(answer) = [An Iceberg]> or <(answer) = [Iceberg]>> then\n    broadcast (correct! v)\n    hide\nelse\n    say [Try Again!] for (2) seconds\n    ask [What has no money but does tip? What is sturdy but always slips? What is cold no matter where it is? Unless climate changes it'll turn to mist? What am I?] and wait\n    if <<(answer) = [An Iceberg]> or <(answer) = [Iceberg]>> then\n        broadcast (correct! v)\n        hide\n    end\nend\n\nwhen backdrop switches to [11 v]\ngo to x: (0) y: (0)\nshow\nbroadcast (riddle time!10 v)\ngo to [front v] layer\n\nwhen I receive [riddle time!4 v]\nsay [The following Riddle is from riddles.com] for (2) seconds\nask [Iron roof, glass walls, burns and burns but never falls, What am I?] and wait\nif <<<(answer) = [A Lantern]> or <(answer) = [Lantern]>> or <<(answer) = [lantern]> or <(answer) = [a lantern]>>> then\n    broadcast (correct! v)\n    hide\nelse\n    say [Try Again!] for (2) seconds\n    ask [Iron roof, glass walls, burns and burns but never falls, What am I?] and wait\n    if <<<(answer) = [A Lantern]> or <(answer) = [Lantern]>> or <<(answer) = [lantern]> or <(answer) = [a lantern]>>> then\n        broadcast (correct! v)\n        hide\n    end\nend\n\nwhen I receive [riddle time!10 v]\nsay [The following Riddle is from riddles.com] for (2) seconds\nask [Never resting, never still. Moving silently from hill to hill. It does not walk, run or trot, All is cool where it is not. What is it?] and wait\nif <<<(answer) = [Sunshine]> or <(answer) = [The Sun]>> or <(answer) = [Sun]>> then\n    broadcast (correct! v)\n    hide\nelse\n    say [Try Again!] for (2) seconds\n    ask [Never resting, never still. Moving silently from hill to hill. It does not walk, run or trot, All is cool where it is not. What is it?] and wait\n    if <<<<(answer) = [Sunshine]> or <(answer) = [The Sun]>> or <(answer) = [Sun]>> or <<(answer) = [sunlight]> or <(answer) = [Sunlight]>>> then\n        broadcast (correct! v)\n        hide\n    end\nend\n\nwhen backdrop switches to [2 v]\ngo to x: (0) y: (0)\nshow\nbroadcast (riddle time! v)\ngo to [front v] layer\n\nwhen I receive [riddle time!11 v]\nsay [The following Riddle is from riddles.com] for (2) seconds\nask [What can climb mountains, cross streams, handle hundreds of feet each day, yet never moves? What is it?] and wait\nif <<(answer) = [A Trail]> or <(answer) = [Trail]>> then\n    broadcast (correct! v)\n    hide\nelse\n    say [Try again!] for (2) seconds\n    ask [What can climb mountains, cross streams, handle hundreds of feet each day, yet never moves? What is it?] and wait\n    if <<(answer) = [A Trail]> or <(answer) = [Trail]>> then\n        broadcast (correct! v)\n        hide\n    end\nend\n\nwhen backdrop switches to [12 v]\ngo to x: (0) y: (0)\nshow\nbroadcast (riddle time!11 v)\ngo to [front v] layer\n\nwhen backdrop switches to [13 v]\ngo to x: (0) y: (0)\nshow\nbroadcast (riddle time!12 v)\ngo to [front v] layer\n\nwhen I receive [riddle time!12 v]\nsay [The following Riddle is from riddles.com] for (2) seconds\nask [At night they come without being fetched. By day they are lost without being stolen. What are they?] and wait\nif <<(answer) = [Stars]> or <(answer) = [The Stars]>> then\n    broadcast (correct! v)\n    hide\nelse\n    say [Try again!] for (2) seconds\n    ask [At night they come without being fetched. By day they are lost without being stolen. What are they?] and wait\n    if <<(answer) = [Stars]> or <(answer) = [The Stars]>> then\n        broadcast (correct! v)\n        hide\n    end\nend\n\nwhen I receive [riddle time!13 v]\nsay [The following Riddle is from riddles.com] for (2) seconds\nask [A blanket of crystals that covers all. Nothing can escape its fall. It will put you to sleep in a harsh way, and you will never again see the day It's on the earth always and forever, part of our lives leaving, never. Floats and falls like little butterflies. Catch them and they will surely die. What am I?] and wait\nif <<<(answer) = [Snow]> or <(answer) = [Snowflake]>> or <<(answer) = [Snowflakes]> or <(answer) = [snow]>>> then\n    broadcast (correct! v)\n    hide\nelse\n    say [Try Again!] for (2) seconds\n    ask [A blanket of crystals that covers all. Nothing can escape its fall. It will put you to sleep in a harsh way, and you will never again see the day It's on the earth always and forever, part of our lives leaving, never. Floats and falls like little butterflies. Catch them and they will surely die. What am I?] and wait\n    if <<<(answer) = [Snow]> or <(answer) = [Snowflake]>> or <<(answer) = [Snowflakes]> or <(answer) = [snow]>>> then\n        broadcast (correct! v)\n        hide\n    end\nend\n\nwhen backdrop switches to [14 v]\ngo to x: (0) y: (0)\nshow\nbroadcast (riddle time!13 v)\ngo to [front v] layer\n\n@Sprite1\n\nwhen I receive [thumbnail v]\nshow\nwait (1) seconds\ngo to [front v] layer\nwait (2) seconds\nhide\nbroadcast (begin platformer v)\n\nwhen flag clicked\nhide\n\n@Sprite2\n\nwhen flag clicked\nhide\n\nwhen backdrop switches to [6 v]\nshow\ngo to x: (-164) y: (-103)\nrepeat until <(backdrop [name v]) = [7]>\n    glide (3) secs to x: (226) y: (-104)\n    glide (3) secs to x: (-88) y: (-104)\nend\nhide\n\n@costume3\n\nwhen flag clicked\nshow\ngo to x: (221) y: (-162)\nbroadcast (Thumbnail v)\nset size to (15) %\n\n
Uh oh... more loves!\n\nArrow keys to move, Answers on the very bottom of Notes and Credits, please do not look unless stuck, 2 tries per Riddle, if you do not get the first right, look at the answer, or hit the green flag.\nThis is pretty glitchy, just warning you...\nI will add a new level for every 70 loves! (You guys made me add 5 extra levels!)\nHit R if you are stuck in a platform, or want to Restart.\nSpace to change hues slightly.\nThere are only 14 levels so far. I hope to add more soon.\n