#platformer ll jungle tower!!/ジャングルタワー!!
@Stage\n\nwhen I receive [intro_end v]\nforever\n    play sound [Nebula v] until done\nend\n\n@Player\n\ndefine 動作\nchange [y2 v] by (-1)\nif <[4280] < (Y)> then\n    broadcast (ゴール v)\nend\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    next costume\n    change [x2 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    next costume\n    change [x2 v] by (-1)\nend\nset [x2 v] to ((X2) * (0.88))\nchange x by (X2)\nif <<touching (stage3 v)?> or <[-400] > (Camera _y)>> then\n    broadcast (Particle v)\n    初期位置\nend\nrepeat (6)\n    if <touching (stage v)?> then\n        set [parent v] to [true]\n        change y by (1)\n    end\nend\nif <touching (stage v)?> then\n    change y by (-6)\n    位置補正x (() - ((X2) / ([abs v] of (X2) ))) ([ceiling v] of ([abs v] of (X2) ) )\n    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>> then\n        set [y2 v] to [12]\n        set [x2 v] to ((7) - (<(X2) > [0]> * (14)))\n    else\n        set [x2 v] to [0]\n    end\nend\nchange y by (Y2)\nif <touching (stage v)?> then\n    位置補正y (() - ((Y2) / ([abs v] of (Y2) ))) ([ceiling v] of ([abs v] of (Y2) ) )\nend\nchange y by (-1.1)\nset [parent v] to [false]\nif <<touching (stage v)?> and <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>>> then\n    set [y2 v] to [15]\nend\nchange y by (1.1)\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 <(X2) = [0]> then\n    stop [this script v]\nend\nset [i v] to [0]\nrepeat until <<not <touching (stage v)?>> or <(i) = ((回数) + (1))>>\n    change [i v] by (1)\n    change x by (向き)\nend\nchange x by (() - ((向き) * (((回数) + (1)) * <<(i) = ((回数) + (1))> and <touching (stage v)?>>)))\n\ndefine 位置補正y (向き) (回数)\nif <(Y2) = [0]> then\n    stop [this script v]\nend\nset [i v] to [0]\nrepeat until <<not <touching (stage v)?>> or <(i) = ((回数) + (1))>>\n    change [i v] by (1)\n    change y by (向き)\nend\nchange y by (() - ((向き) * (((回数) + (1)) * <<(i) = ((回数) + (1))> and <touching (stage v)?>>)))\nset [y2 v] to [0]\n\ndefine 初期位置\ngo to x: (0) y: (-20)\npoint in direction (90)\nset [x2 v] to [0]\nset [y2 v] to [0]\nset [camera_x v] to [-200]\nset [camera _y v] to [0]\nset [x v] to [-200]\nset [y v] to [0]\n\nwhen I receive [countdown v]\nset size to (80) %\ngo to x: (0) y: (-20)\nset rotation style [left-right v]\npoint in direction (90)\nset [x2 v] to [0]\nset [y2 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]\nset [ghost v] effect to (100)\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\nshow\n\nwhen I receive [start v]\nforever\n    if <touching (stage2 v)?> then\n        broadcast (Particle v)\n        wait until <not <touching (stage2 v)?>>\n    end\nend\n\n@Player2\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\nshow\nforever\n    switch costume to ([costume # v] of [player v])\n    go to (player v)\n    point in direction ([direction v] of [player v])\nend\n\n@stage\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\nswitch costume to (ステージ番号)\n\nwhen I receive [start v]\nステージ配置 [0] [0] [1]\nステージ配置 [0] [480] [2]\nステージ配置 [0] [960] [3]\nステージ配置 [0] [1420] [4]\nステージ配置 [0] [1900] [5]\nステージ配置 [0] [2380] [6]\nステージ配置 [0] [2860] [7]\nステージ配置 [0] [3340] [8]\nステージ配置 [0] [3820] [9]\nステージ配置 [0] [4300] [10]\nswitch costume to (none v)\nbroadcast (プログラム v)\nhide\n\nwhen flag clicked\nhide\n\n@stage2\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\nswitch costume to (ステージ番号)\n\nwhen I receive [start v]\nステージ配置 [0] [0] [1]\nステージ配置 [0] [480] [2]\nステージ配置 [0] [960] [3]\nステージ配置 [0] [1420] [4]\nステージ配置 [0] [1900] [5]\nステージ配置 [0] [2380] [6]\nステージ配置 [0] [2860] [7]\nステージ配置 [0] [3340] [8]\nステージ配置 [0] [3820] [9]\nステージ配置 [0] [4300] [10]\nswitch costume to (none v)\nbroadcast (プログラム v)\nhide\n\nwhen flag clicked\nhide\n\n@stage3\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)\ngo to [back v] layer\ngo [forward v] (2) layers\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)\nif <(costume [name v]) = [5]> then\n    set y to ((y position) + (130))\n    point in direction ((90) + (([sin v] of ((timer) * (100)) ) * (50)))\nelse\n    set y to ((y position) + (([sin v] of ((timer) * (180)) ) * (20)))\n    point in direction (90)\n    go to [back v] layer\n    go [forward v] (4) layers\nend\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\nswitch costume to (ステージ番号)\n\nwhen I receive [start v]\npoint in direction (90)\nステージ配置 [0] [0] [1]\nステージ配置 [0] [480] [2]\nステージ配置 [0] [960] [3]\nステージ配置 [0] [1420] [4]\nステージ配置 [0] [1900] [5]\nステージ配置 [0] [2380] [6]\nステージ配置 [0] [2860] [7]\nステージ配置 [0] [3340] [8]\nステージ配置 [0] [3820] [9]\nステージ配置 [0] [4300] [10]\nswitch costume to (none v)\nbroadcast (プログラム v)\nhide\n\nwhen flag clicked\nhide\n\n@1\n\nwhen flag clicked\nshow\n\ncreate clone of (_myself_ v)\nforever\n    set [brightness v] effect to (-20)\n    go to [back v] layer\n    go to x: (join [-] ((Camera_x) / (10))) y: (join [-] ((Camera _y) / (10)))\nend\n\nwhen I start as a clone\nforever\n    go to [back v] layer\n    go [forward v] (1) layers\n    set [brightness v] effect to (0)\n    go to x: ((750) + (join [-] ((Camera_x) / (5)))) y: (join [-] ((Camera _y) / (5)))\nend\n\n@2\n\nwhen flag clicked\nhide\nforever\n    go to [front v] layer\nend\n\nwhen I receive [countdown v]\nswitch costume to (3 v)\ngo to x: (0) y: (0)\nbroadcast (Particle v)\nshow\nrepeat (2)\n    wait (1) seconds\n    broadcast (Particle v)\n    next costume\nend\nwait (1) seconds\nswitch costume to (go!! v)\nbroadcast (start v)\nwait (1) seconds\nhide\n\n@thumbnail\n\nwhen I receive [intro_end v]\ngo to x: (0) y: (0)\nswitch costume to (thumbnail v)\ngo to [front v] layer\nshow\nforever\n    set [camera _y v] to (([sin v] of ((timer) * (180)) ) * (20))\n    set y to (Camera _y)\n    set [camera_x v] to (([sin v] of ((timer) * (50)) ) * (30))\n    set x to (Camera_x)\n    if <mouse down?> then\n        broadcast (countdown v)\n        hide\n        stop [this script v]\n    end\nend\n\nwhen flag clicked\nhide\n\n@Particle\n\nwhen I start as a clone\nclear graphic effects\nset size to (pick random (45) to (70)) %\nset [brightness v] effect to (pick random (0) to (100))\nshow\ngo to x: (0) y: (0)\nset [x v] to (pick random (-16.) to (16.))\nset [y v] to (pick random (-15.) to (15.))\nset [i v] to (pick random (-10.) to (-10.))\nrepeat (80)\n    go to [front v] layer\n    change x by (x)\n    set [x v] to ((x) * (.94))\n    change y by (y)\n    set [y v] to ((y) * (.94))\n    turn right (i) degrees\n    set [i v] to ((i) * (.9))\n    change size by (-1)\n    change [ghost v] effect by (2)\nend\ndelete this clone\n\ndefine Particle\nif <<(x position) = [240]> and <(y position) = [180]>> then\n    repeat (30)\n        switch costume to (◯ v)\n        create clone of (_myself_ v)\n    end\nend\n\nwhen flag clicked\ngo to x: (240) y: (180)\nhide\n\nwhen I receive [particle v]\nParticle\n\n@cloud\n\nwhen I receive [start v]\nforever\n    if <not <(Y2) = [0]>> then\n        create clone of (_myself_ v)\n        wait (pick random (0.5) to (2)) seconds\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\ngo to [front v] layer\ngo to x: (pick random (-300) to (300)) y: (300)\nset size to (pick random (80) to (100)) %\nset [ghost v] effect to (pick random (10) to (50))\nshow\nforever\n    if <(y position) < [-180]> then\n        delete this clone\n    end\n    change y by (join [-] ((Y2) / (3)))\nend\n\n@4\n\nwhen flag clicked\nhide\nhide variable [☁ world record v]\nhide variable [time v]\n\nwhen I receive [ゴール v]\nif <(☁ world record) > (time)> then\n    set [☁ world record v] to (time)\nend\nshow variable [☁ world record v]\nstop [other scripts in sprite v]\n\nwhen I receive [start v]\nset [time v] to [0]\nshow variable [time v]\nset [clone_id v] to [1]\nshow\ngo to x: (215) y: (150)\nset size to (80) %\nswitch costume to (0 v)\nbroadcast (clone v)\nforever\n    wait (1) seconds\n    change [time v] by (1)\nend\n\n@INTRO by harukun19\n\ndefine clone (cloneid) x: (x) y: (y)\ngo to x: (x) y: (y)\nswitch costume to (cloneid)\ncreate clone of (_myself_ v)\n\ndefine wait (timer)\nwait until <(timer) > (timer)>\n\ndefine setup\nreset timer\nset size to (100) %\nhide\ngo to x: (0) y: (0)\npoint in direction (90)\nstart sound [TheFatRat - Monody.mp3 v]\n\nwhen I start as a clone\nshow\nif <(costume [number v]) = [1]> then\n    set size to (5) %\n    repeat until <(round (y position)) = [0]>\n        change y by ((0) - ((y position) / (5)))\n        if <[101] > (size)> then\n            change size by ((size) / (5))\n        end\n        set [ghost v] effect to ((100) - (size))\n    end\n    wait [9.8]\n    delete this clone\nend\nif <(costume [number v]) = [2]> then\n    set size to (5) %\n    repeat until <(round (y position)) = [0]>\n        change y by ((0) - ((y position) / (5)))\n        if <[101] > (size)> then\n            change size by ((size) / (5))\n        end\n        set [ghost v] effect to ((100) - (size))\n    end\n    wait [9.8]\n    delete this clone\nend\nif <(costume [number v]) = [3]> then\n    set size to (5) %\n    repeat until <(round (y position)) = [0]>\n        change y by ((0) - ((y position) / (5)))\n        if <[101] > (size)> then\n            change size by ((size) / (5))\n        end\n        set [ghost v] effect to ((100) - (size))\n    end\n    wait [9.8]\n    delete this clone\nend\nif <(costume [number v]) = [4]> then\n    set size to (100) %\n    repeat until <(round (y position)) = [0]>\n        change y by ((0) - ((y position) / (5)))\n    end\n    wait [9.8]\n    delete this clone\nend\nif <(costume [number v]) = [5]> then\n    go [backward v] (1) layers\n    set size to (100) %\n    repeat until <(round (y position)) = [0]>\n        change y by ((0) - ((y position) / (5)))\n    end\n    wait [9.8]\n    delete this clone\nend\nif <(costume [name v]) = [flash]> then\n    clear graphic effects\n    set size to (100) %\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    delete this clone\nend\n\ndefine flash\nclone [flash] x: [0] y: [0]\n\nwhen I start as a clone\nif <(costume [number v]) = [4]> then\n    wait [5.05]\n    repeat until <(round (x position)) = [200]>\n        change x by (((200) - (x position)) / (1.7))\n    end\n    repeat until <(round (x position)) = [0]>\n        change x by (((0) - (x position)) / (1.7))\n    end\n    wait [6.12]\n    repeat until <(round (x position)) = [-200]>\n        change x by (((-200) - (x position)) / (1.7))\n    end\n    repeat until <(round (x position)) = [0]>\n        change x by (((0) - (x position)) / (1.7))\n    end\nend\nif <(costume [number v]) = [5]> then\n    wait [5.05]\n    repeat until <(round (x position)) = [-200]>\n        change x by (((-200) - (x position)) / (1.7))\n    end\n    repeat until <(round (x position)) = [0]>\n        change x by (((0) - (x position)) / (1.7))\n    end\n    wait [6.12]\n    repeat until <(round (x position)) = [200]>\n        change x by (((200) - (x position)) / (1.7))\n    end\n    repeat until <(round (x position)) = [0]>\n        change x by (((0) - (x position)) / (1.7))\n    end\nend\n\nwhen I receive [flash v]\nwait [4.58]\nflash\nparticle\nwait [5.64]\nflash\nparticle\nwait [6.73]\nrepeat (4)\n    flash\n    particle\n    wait (0.5) seconds\nend\nwait (3) seconds\nbroadcast (INTRO_END v)\n\nwhen I start as a clone\nif <<(costume [number v]) = [4]> or <(costume [number v]) = [5]>> then\n    wait [4.58]\n    set size to (150) %\n    repeat until <(size) < [101]>\n        change size by (((100) - (size)) / (3))\n    end\n    wait [5.64]\n    set size to (150) %\n    repeat until <(size) < [101]>\n        change size by (((100) - (size)) / (3))\n    end\n    repeat (4)\n        wait [6.73]\n        set size to (150) %\n        repeat until <(size) < [101]>\n            change size by (((100) - (size)) / (3))\n        end\n        wait (0.13) seconds\n    end\nend\n\ndefine particle\nclone [7] x: [0] y: [0]\nclone [8] x: [0] y: [0]\n\nwhen I start as a clone\nif <(costume [number v]) = [7]> then\n    go [backward v] (3) layers\n    set size to (30) %\n    repeat until <(size) > [199]>\n        change size by (((200) - (size)) / (5))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [8]> then\n    set size to (30) %\n    go [backward v] (3) layers\n    wait (0.05) seconds\n    repeat until <(size) > [199]>\n        change size by (((200) - (size)) / (5))\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [9]> then\n    set [ghost v] effect to (100)\n    repeat (20)\n        change [ghost v] effect by (-5)\n    end\n    wait (2) seconds\n    repeat (20)\n        change [ghost v] effect by (5)\n    end\nend\n\nwhen I receive [intro_start v]\nbroadcast (flash v)\nsetup\nwait [2.2]\nclone [1] x: [0] y: [-500]\nwait [2.8]\nclone [3] x: [0] y: [-500]\nwait [3.35]\nclone [2] x: [0] y: [-500]\nwait [4.58]\nclone [4] x: [0] y: [-500]\nclone [5] x: [0] y: [-500]\n\nwhen flag clicked\nreset timer\nbroadcast (INTRO_START v)\n\nwhen I receive [intro_start v]\nwait [9.1]\nclone [9] x: [0] y: [0]\n\n
この企画をみんなでやってみよう!!((\n https://scratch.mit.edu/projects/572181476/ \nNew Game!!\n https://scratch.mit.edu/projects/570525926/ \n˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°\nI've got 900 followers!! Thank you!!\nフォロワーが900人突破しました！ありがとう！\n˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°\nHow to play / 操作方法\nuse arrows or tap to play!!\n矢印キーか、タップで操作です！\nAvoid traps!!\n罠に触れてはいけません!!\n˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°\nTell me the time in the comments!!\nクリアしたら、コメント欄でタイムを教えてね!!\nLet's remix,Have fun with your character!!\nリミックスしてあなたのキャラクターで楽しもう!!\n˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°˖°˖✧˖°