Prairie - Mobile friendly scrolling platformer #all #games

Instructions: Join My Logo Contest!\nhttps://scratch.mit.edu/projects/492332064/\nNEW PLATFORMER!\nhttps://scratch.mit.edu/projects/477383735/\n\nCollab with @zohsama\nhttps://scratch.mit.edu/projects/481667559/ \n\nArrows key or WASD key or tap to move.\n\nIt's short So if you want Part 2 please love and fave!\n

@Stage\n\nwhen flag clicked\nswitch backdrop to (backdrop1 v)\n\nwhen I receive [start project v]\nswitch backdrop to (コスチューム1 v)\nforever\n    play sound [Quick-quicktime v] until done\nend\n\n@Player\n\nwhen flag clicked\nhide\n\ndefine 動作\nchange [yの力2 v] by (-1)\nif <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> then\n    point in direction (90)\n    change [xの力2 v] by (1)\nend\nif <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>> then\n    point in direction (-90)\n    change [xの力2 v] by (-1)\nend\nset [xの力2 v] to ((xの力2) * (0.88))\nchange x by (xの力2)\nrepeat (6)\n    if <touching (ステージ v)?> then\n        change y by (1)\n    end\nend\nif <touching (ステージ v)?> then\n    change y by (-6)\n    位置補正x (() - ((xの力2) / ([abs v] of (xの力2) ))) ([ceiling v] of ([abs v] of (xの力2) ) )\n    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>> then\n        set [yの力2 v] to [12]\n        set [xの力2 v] to ((7) - (<(xの力2) > [0]> * (14)))\n    else\n        set [xの力2 v] to [0]\n    end\nend\nchange y by (yの力2)\nif <touching (ステージ v)?> then\n    位置補正y (() - ((yの力2) / ([abs v] of (yの力2) ))) ([ceiling v] of ([abs v] of (yの力2) ) )\nend\nchange y by (-1.1)\nif <<touching (ステージ v)?> and <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>>> then\n    set [yの力2 v] to [15]\nend\nchange y by (1.1)\nif <<(Y) < [-400]> or <touching (障害物 v)?>> then\n    初期位置\nend\n処理\nbroadcast (プログラム2 v)\n\nwhen I receive [プログラム v]\n動作\n\ndefine 処理\nchange [x v] by ((x position) - ((X) - (Camera_x)))\nchange [y v] by ((y position) - (((Y) - (Camera _y)) - (20)))\nchange [camera_x v] by ([floor v] of (((X) - (Camera_x)) * (0.1)) )\nchange [camera _y v] by ([floor v] of (((Y) - (Camera _y)) * (0.2)) )\nset x to ((X) - (Camera_x))\nset y to (((Y) - (Camera _y)) - (20))\n\ndefine 位置補正x (向き) (回数)\nif <(xの力2) = [0]> then\n    stop [this script v]\nend\nset [i v] to [0]\nrepeat until <<not <touching (ステージ v)?>> or <(i) = ((回数) + (1))>>\n    change [i v] by (1)\n    change x by (向き)\nend\nchange x by (() - ((向き) * (((回数) + (1)) * <<(i) = ((回数) + (1))> and <touching (ステージ v)?>>)))\n\ndefine 位置補正y (向き) (回数)\nif <(yの力2) = [0]> then\n    stop [this script v]\nend\nset [i v] to [0]\nrepeat until <<not <touching (ステージ v)?>> or <(i) = ((回数) + (1))>>\n    change [i v] by (1)\n    change y by (向き)\nend\nchange y by (() - ((向き) * (((回数) + (1)) * <<(i) = ((回数) + (1))> and <touching (ステージ v)?>>)))\nset [yの力2 v] to [0]\n\ndefine 初期位置\ngo to x: (180) y: (50)\nset [xの力2 v] to [0]\nset [yの力2 v] to [0]\nset [camera_x v] to [0]\nset [camera _y v] to [0]\nset [x v] to [0]\nset [y v] to [0]\n\nwhen I receive [start project v]\nshow\nset rotation style [left-right v]\ngo to x: (180) y: (50)\nset [xの力2 v] to [0]\nset [yの力2 v] to [0]\nset [camera_x v] to [-200]\nset [camera _y v] to [-20]\nset [x v] to [-200]\nset [y v] to [-20]\n\n@ステージ\n\nwhen flag clicked\nhide\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (none v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\ncreate clone of (_myself_ v)\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (My_n)\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\n    broadcast (プログラム v)\nelse\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\nshow\n\nwhen I receive [start project v]\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [960] [0] [3]\nステージ配置 [1440] [0] [4]\nステージ配置 [1920] [0] [5]\nステージ配置 [2400] [0] [6]\nステージ配置 [2880] [0] [7]\nステージ配置 [3360] [0] [8]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\n@b\n\nwhen flag clicked\nhide\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (none v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\ncreate clone of (_myself_ v)\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (My_n)\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\n    broadcast (プログラム v)\nelse\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\nshow\n\nwhen I receive [start project v]\ngo to [back v] layer\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [960] [0] [3]\nステージ配置 [1440] [0] [4]\nステージ配置 [1920] [0] [5]\nステージ配置 [2400] [0] [6]\nステージ配置 [2880] [0] [7]\nステージ配置 [3360] [0] [8]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\n@障害物\n\nwhen flag clicked\nhide\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (none v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\ncreate clone of (_myself_ v)\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (My_n)\n\nwhen I receive [プログラム2 v]\nif <not <(costume [number v]) = [1]>> then\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\nshow\n\nwhen I receive [start project v]\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [960] [0] [3]\nステージ配置 [1440] [0] [4]\nステージ配置 [1920] [0] [5]\nステージ配置 [2400] [0] [6]\nステージ配置 [2880] [0] [7]\nステージ配置 [3360] [0] [8]\nswitch costume to (none v)\n\n@sun\n\nwhen flag clicked\nhide\n\nwhen I receive [start project v]\nshow\ngo to x: (-5) y: (-25)\nset size to (100) %\nset [sun suze v] to [100]\nforever\n    change size by ([cos v] of (Sun Suze) )\n    change [sun suze v] by (7)\nend\n\n@Sprite1\n\nwhen flag clicked\nshow\ngo to [front v] layer\nset [ghost v] effect to (100)\ngo to x: (0) y: (0)\n\n@Sprite3\n\nwhen flag clicked\ngo to [front v] layer\ngo [forward v] (5) layers\nset [ghost v] effect to (30)\n\n@Intro\n\nwhen I start as a clone\nif <(Clone ID) = [Watermark]> then\n    Keyframe [1.8]\n    show\n    switch costume to (watermark v)\n    set size to (100) %\n    switch costume to (pos hack v)\n    go to x: (0) y: (-50)\n    repeat until <(timer) > [8]>\n        switch costume to (pos hack v)\n        change y by (((0) - (y position)) / (10))\n        switch costume to (watermark v)\n    end\n    repeat (50)\n        switch costume to (pos hack v)\n        change y by (((-50) - (y position)) / (10))\n        switch costume to (watermark v)\n    end\nend\n\nwhen flag clicked\nStart Intro\n\ndefine Start Intro\nreset timer\nset volume to (100) %\nstart sound [Music v]\nhide\nclear graphic effects\nset [clone id v] to [Parent]\nset [var 1 v] to [0.1]\nset [var 2 v] to [-5]\ndelete all of [intro v]\nadd [0] to [intro v]\nadd [0] to [intro v]\nadd [100] to [intro v]\nadd [90] to [intro v]\nCreate Particles\nCreate Clone [Keyframe]\nCreate Clone [Back]\npoint in direction (90)\nrepeat (8)\n    turn right (45) degrees\n    Create Clone [Line]\nend\nCreate Clone [Text]\nCreate Clone [Circle]\nCreate Clone [Top0.5]\nCreate Clone [Bottom0.5]\nCreate Clone [Top000]\nCreate Clone [Bottom000]\nCreate Clone [Pos Master]\nCreate Clone [Watermark]\n\ndefine Create Clone (id)\nset [# v] to (Clone ID)\nset [clonex v] to (x position)\nset [cloney v] to (y position)\nset [clonedir v] to (direction)\nset [clone size v] to (size)\nset [clone id v] to (id)\ngo to x: (0) y: (0)\npoint in direction (90)\nset size to (100) %\ncreate clone of (_myself_ v)\ngo to x: (CloneX) y: (CloneY)\npoint in direction (CloneDir)\nset size to (Clone Size) %\nset [clone id v] to (#)\n\ndefine Set Size to (size)\nset [costume # v] to (costume [number v])\nif <(size) > [100]> then\n    switch costume to (size hack v)\nend\nset size to (size) %\nswitch costume to (Costume #)\n\ndefine Go to (x) (y)\nset [costume # v] to (costume [number v])\nswitch costume to (pos hack v)\ngo to x: (x) y: (y)\nswitch costume to (Costume #)\n\ndefine Go to (x) (y) (z) (focal length)\nset [costume # v] to (costume [number v])\nswitch costume to (pos hack v)\nset [intro2: x v] to ((focal length) * (((x) + (item (1) of [intro v])) / ((z) + (item (3) of [intro v]))))\nset [intro: y v] to ((focal length) * (((y) + (item (2) of [intro v])) / ((z) + (item (3) of [intro v]))))\npoint in direction (item (4) of [intro v])\ngo to x: (Intro2: X) y: (Intro: Y)\nswitch costume to (Costume #)\n\nwhen I start as a clone\nif <(Clone ID) = [Keyframe]> then\n    Keyframe [1.8]\n    Beat [2]\n    Size Thing [2.7] [1]\n    Create Clone [Left]\n    Create Clone [Right]\n    Size Thing [3.5] [2]\n    Size Thing [4.4] [1]\n    Size Thing [5.2] [2]\n    Create Clone [Left]\n    Create Clone [Right]\n    Size Thing [6.1] [1]\n    Size Thing [7.0] [2]\n    Size Thing [7.8] [1]\n    Create Clone [Left]\n    Create Clone [Right]\n    Size Thing [8.7] [2]\n    broadcast (Start Project v)\nend\nif <(Clone ID) = [Pos Master]> then\n    repeat until <(timer) > [4]>\n        replace item (4) of [intro v] with ((([cos v] of ((timer) * (100)) ) * (5)) + (90))\n    end\n    point in direction (item (4) of [intro v])\n    set [var 1 v] to [1]\n    repeat (15)\n        turn right (Var 1) degrees\n        change [var 1 v] by ((Var 1) / (4))\n        replace item (4) of [intro v] with (direction)\n    end\n    repeat (20)\n        turn right (((90) - (direction)) / (5)) degrees\n        replace item (4) of [intro v] with (direction)\n    end\n    repeat until <(timer) > [6.1]>\n        replace item (4) of [intro v] with ((([cos v] of ((timer) * (100)) ) * (5)) + (90))\n    end\n    repeat until <(timer) > [7.0]>\n        replace item (2) of [intro v] with ((item (2) of [intro v]) + (((-500) - (item (2) of [intro v])) / (5)))\n        replace item (4) of [intro v] with ((([cos v] of ((timer) * (100)) ) * (5)) + (90))\n    end\n    repeat until <(timer) > [7.8]>\n        replace item (2) of [intro v] with ((item (2) of [intro v]) + (((300) - (item (2) of [intro v])) / (5)))\n        replace item (4) of [intro v] with ((([cos v] of ((timer) * (100)) ) * (5)) + (90))\n    end\n    repeat until <(timer) > [10]>\n        replace item (2) of [intro v] with ((item (2) of [intro v]) + (((0) - (item (2) of [intro v])) / (5)))\n        replace item (4) of [intro v] with ((([cos v] of ((timer) * (100)) ) * (5)) + (90))\n    end\nend\n\ndefine Size Thing (time) (type)\nrepeat until <(timer) > (time)>\n    replace item (3) of [intro v] with ((item (3) of [intro v]) + (Var 2))\n    change [var 2 v] by (0.4)\nend\nBeat (type)\nset [var 1 v] to [0.1]\nset [var 2 v] to [-5]\n\ndefine Keyframe (time)\nwait until <(timer) > (time)>\n\nwhen I start as a clone\nif <(Clone ID) = [Text]> then\n    show\n    switch costume to (oc v)\n    repeat until <(timer) > [4.5]>\n        point in direction (item (4) of [intro v])\n        go to x: (0) y: (0)\n        Set Size to (item (3) of [intro v])\n    end\n    switch costume to (text  v)\n    set [color v] effect to (0)\n    repeat until <(timer) > [6.1]>\n        point in direction (item (4) of [intro v])\n        go to x: (0) y: (0)\n        Set Size to (item (3) of [intro v])\n    end\n    repeat until <(timer) > [7]>\n        point in direction (item (4) of [intro v])\n        go to x: (0) y: ((y position) + (((50) - (y position)) / (5)))\n        Set Size to (item (3) of [intro v])\n    end\n    repeat until <(timer) > [7.8]>\n        point in direction (item (4) of [intro v])\n        go to x: (0) y: ((y position) + (((-50) - (y position)) / (5)))\n        Set Size to (item (3) of [intro v])\n    end\n    repeat until <(timer) > [10]>\n        point in direction (item (4) of [intro v])\n        go to x: (0) y: ((y position) + (((0) - (y position)) / (5)))\n        Set Size to (item (3) of [intro v])\n    end\nend\nif <(Clone ID) = [Circle]> then\n    show\n    set [brightness v] effect to (-100)\n    switch costume to (circle2 v)\n    Keyframe [1.8]\n    switch costume to (circle v)\n    set [var 1 v] to [20]\n    repeat (8)\n        Set Size to ((size) + (Var 1))\n        change [var 1 v] by (10)\n        go to [front v] layer\n    end\n    repeat (30)\n        Set Size to ((size) + (Var 1))\n        change [var 1 v] by (((0) - (Var 1)) / (7))\n        go to [front v] layer\n    end\n    delete this clone\nend\nif < (Clone ID) contains [Top]?> then\n    show\n    switch costume to (top v)\n    wait (join (letter (4) of (Clone ID)) (join (letter (5) of (Clone ID)) (letter (6) of (Clone ID)))) seconds\n    set [var 1 v] to [0.1]\n    repeat until <(timer) > [5]>\n        Go to (x position) ((y position) + (Var 1))\n        change [var 1 v] by ((Var 1) / (5))\n    end\nend\nif < (Clone ID) contains [Bottom]?> then\n    show\n    switch costume to (bottom v)\n    wait (join (letter (7) of (Clone ID)) (join (letter (8) of (Clone ID)) (letter (9) of (Clone ID)))) seconds\n    set [var 1 v] to [0.1]\n    repeat until <(timer) > [5]>\n        Go to (x position) ((y position) - (Var 1))\n        change [var 1 v] by ((Var 1) / (5))\n    end\nend\nif <(Clone ID) = [Diamond 1]> then\n    show\n    switch costume to (diamond 1 v)\n    set [var 2 v] to [100]\n    set [var 1 v] to [0]\n    Set Size to [0]\n    forever\n        Go to [0] [0] (size) (size)\n        Set Size to (((Var 1) + (item (3) of [intro v])) / (2))\n        change [var 1 v] by (((Var 2) - (Var 1)) / (5))\n    end\nend\nif <(Clone ID) = [Diamond 3]> then\n    show\n    switch costume to (diamond 1 v)\n    set [var 2 v] to [100]\n    set [var 1 v] to [0]\n    set [brightness v] effect to (-100)\n    set [ghost v] effect to (85)\n    Set Size to [0]\n    forever\n        Set Size to ((((Var 1) + (item (3) of [intro v])) / (2)) - (0))\n        change [var 1 v] by (((Var 2) - (Var 1)) / (5))\n        Go to ((size) / (5)) ((size) / (-5)) (size) (size)\n    end\nend\nif <(Clone ID) = [Diamond 2]> then\n    show\n    switch costume to (diamond 2 v)\n    set [var 2 v] to [100]\n    set [var 1 v] to [0]\n    Set Size to [0]\n    forever\n        Go to [0] [0] (size) (size)\n        Set Size to (((Var 1) + (item (3) of [intro v])) / (2))\n        change [var 1 v] by (((Var 2) - (Var 1)) / (5))\n    end\nend\nif <(Clone ID) = [Diamond 4]> then\n    show\n    switch costume to (diamond 2 v)\n    set [var 2 v] to [100]\n    set [var 1 v] to [0]\n    set [brightness v] effect to (-100)\n    set [ghost v] effect to (85)\n    Set Size to [0]\n    forever\n        Set Size to ((((Var 1) + (item (3) of [intro v])) / (2)) - (0))\n        change [var 1 v] by (((Var 2) - (Var 1)) / (5))\n        Go to ((size) / (10)) ((size) / (-10)) (size) (size)\n    end\nend\n\nwhen I receive [{intro} beat v]\nif <(Clone ID) = [Diamond 1]> then\n    change [var 2 v] by ((Var 2) / (0.5))\nend\nif <(Clone ID) = [Diamond 3]> then\n    change [var 2 v] by ((Var 2) / (0.5))\nend\nif <(Clone ID) = [Diamond 2]> then\n    change [var 2 v] by ((Var 2) / (0.5))\nend\nif <(Clone ID) = [Diamond 4]> then\n    change [var 2 v] by ((Var 2) / (0.5))\nend\n\ndefine Beat (type)\nif <(type) = [1]> then\n    broadcast ({Intro} Beat v)\n    Create Clone [Diamond 3]\n    Create Clone [Diamond 1]\nend\nif <(type) = [2]> then\n    broadcast ({Intro} Beat v)\n    Create Clone [Diamond 4]\n    Create Clone [Diamond 2]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Back]> then\n    show\n    switch costume to (back v)\n    forever\n        go to [back v] layer\n    end\nend\nif <(Clone ID) = [Line]> then\n    Keyframe [1.8]\n    show\n    switch costume to (line 1 v)\n    set [var 1 v] to [10]\n    point in direction (CloneDir)\n    repeat (11)\n        move (Var 1) steps\n        set [var 1 v] to ((Var 1) * (0.9))\n    end\n    repeat (11)\n        move (Var 1) steps\n        set [var 1 v] to ((Var 1) * (0.9))\n        next costume\n        change [ghost v] effect by (10)\n    end\n    delete this clone\nend\nif <(Clone ID) = [Left]> then\n    show\n    switch costume to (left v)\n    set [brightness v] effect to (100)\n    Go to [-400] [0]\n    repeat (30)\n        Go to ((x position) + (((400) - (x position)) / (10))) [0]\n    end\n    delete this clone\nend\nif <(Clone ID) = [Right]> then\n    show\n    switch costume to (right v)\n    set [brightness v] effect to (100)\n    Go to [400] [0]\n    repeat (30)\n        Go to ((x position) + (((-400) - (x position)) / (10))) [0]\n    end\n    delete this clone\nend\n\nwhen I receive [start project v]\nif <(Clone ID) = [Text]> then\n    stop [other scripts in sprite v]\n    point in direction (90)\n    repeat (30)\n        set [intro2: x v] to (([sin v] of ((timer) * (750)) ) * (((25) - (size)) * (0.75)))\n        set [intro: y v] to (([cos v] of ((timer) * (750)) ) * (((25) - (size)) * (0.75)))\n        go to x: (Intro2: X) y: (Intro: Y)\n        change size by (((25) - (size)) / (10))\n    end\n    repeat (20)\n        set [intro2: x v] to (([sin v] of ((timer) * (750)) ) * (((25) - (size)) * (0.75)))\n        set [intro: y v] to (([cos v] of ((timer) * (750)) ) * (((25) - (size)) * (0.75)))\n        go to x: (Intro2: X) y: (Intro: Y)\n        change size by (((25) - (size)) / (10))\n        change [ghost v] effect by (5)\n    end\n    delete this clone\nelse\n    stop [other scripts in sprite v]\n    delete this clone\nend\n\ndefine Create Particles\nrepeat (150)\n    Create Clone [Particle]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Particle]> then\n    Keyframe [1]\n    set [var 1 v] to (pick random (-180) to (180))\n    set [var 2 v] to (pick random (1) to (1000))\n    show\n    switch costume to (particle v)\n    set [brightness v] effect to (100)\n    set [ghost v] effect to (25)\n    set size to (10) %\n    forever\n        set [intro2: x v] to (([sin v] of ((Var 1) + (item (4) of [intro v])) ) * (((Var 2) + (item (3) of [intro v])) / (2)))\n        set [intro: y v] to (([cos v] of ((Var 1) + (item (4) of [intro v])) ) * (((Var 2) + (item (3) of [intro v])) / (2)))\n        Go to ((Intro2: X) + (item (1) of [intro v])) ((Intro: Y) + (item (2) of [intro v]))\n    end\nend\n\n