Earth I A Platformer

Instructions: —————part 2 can you find on my Profil———--\n\nControl:\nWASD \nMobile Control (=\nCredits:\n@driveGOX for the background \n@kopfstand\n@Drachenzahn123 for all other stuff \nBeta test @Paulottix

@Stage\n\nwhen flag clicked\nforever\n    play sound [Mystery v] until done\nend\n\n@キャラ\n\nwhen flag clicked\ngo to x: (0) y: (-20)\nset [x v] to [0]\nset [y v] to [0]\nset [視点x v] to [-200]\nset [視点y v] to [-20]\nset [x v] to [-200]\nset [y v] to [-20]\nset [復活x v] to [-200]\nset [復活y v] to [-20]\n\ndefine 動作\nif <touching (背景 v)?> then\n    change [y v] by (-0.1)\nelse\n    change [y v] by (-1)\nend\nchange [i v] by (1)\nif <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> then\n    set rotation style [left-right v]\n    point in direction (90)\n    change [x v] by (1)\nend\nif <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>> then\n    set rotation style [left-right v]\n    point in direction (-90)\n    change [x v] by (-1)\nend\nset [x v] to ((x) * (0.88))\nchange x by (x)\nrepeat (15)\n    if <touching (地面 v)?> then\n        change y by (1)\n    end\nend\nif <touching (地面 v)?> then\n    change y by (-15)\n    位置補正x (() - ((x) / ([abs v] of (x) ))) ([ceiling v] of ([abs v] of (x) ) )\n    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>> then\n        start sound [Jump v]\n        set [y v] to [12]\n        set [x v] to ((7) - (<(x) > [0]> * (14)))\n    else\n        set [x v] to [0]\n    end\nend\nchange y by (y)\nif <touching (地面 v)?> then\n    位置補正y (() - ((y) / ([abs v] of (y) ))) ([ceiling v] of ([abs v] of (y) ) )\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    if <touching (背景 v)?> then\nend\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 v] to [5]\nend\nchange y by (1.1)\nif <<(Y) < [-400]> or <touching (障害物 v)?>> then\n    初期位置\nend\n処理\nbroadcast (プログラム2 v)\nif <(x position) > [70]> then\n    set x to (70)\nend\nif <(x position) < [-60]> then\n    set x to (-60)\nend\n\nwhen I receive [プログラム v]\n動作\n\ndefine 処理\nchange [x v] by ((x position) - ((X) - (視点x)))\nchange [y v] by ((y position) - (((Y) - (視点y)) - (20)))\nchange [視点x v] by ([floor v] of (((X) - (視点x)) * (0.1)) )\nchange [視点y v] by ([floor v] of (((Y) - (視点y)) * (0.2)) )\nset x to ((X) - (視点x))\nset y to (((Y) - (視点y)) - (20))\n\ndefine 位置補正x (向き) (回数)\nif <(x) = [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) = [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 v] to [0]\n\ndefine 初期位置\npoint in direction (90)\ngo to x: (0) y: (-20)\nset [x v] to [0]\nset [y v] to [0]\nset [視点x v] to (復活x)\nset [視点y v] to (復活y)\nset [x v] to (復活x)\nset [y v] to (復活y)\n\nwhen flag clicked\nshow\nset size to (75) %\npoint in direction (90)\nforever\n    go to [back v] layer\n    go [forward v] (1) layers\n    set [登ったm v] to ((Y) + (66))\n    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>> then\n        switch costume to (コスチューム2 v)\n    else\n        switch costume to (コスチューム1 v)\n    end\nend\n\nwhen [timer v] > (time)\nhide\n\n@背景\n\nwhen flag clicked\ngo to [front v] layer\ngo [backward v] (1) layers\nhide\nset [ghost v] effect to (50)\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [1200] [0] [3]\nステージ配置 [1600] [0] [4]\nステージ配置 [2200] [0] [5]\nステージ配置 [2700] [0] [6]\nステージ配置 [3900] [520] [7]\nswitch costume to (なし v)\nbroadcast (プログラム v)\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\ngo to [back v] layer\nswitch costume to (なし 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 (なし 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) - (視点x)) ((My_y) - (視点y))\nend\n\nwhen I start as a clone\nshow\n\n@障害物\n\nwhen flag clicked\nhide\ngo to [back v] layer\nステージ配置 [100] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [1200] [0] [3]\nステージ配置 [1600] [0] [4]\nステージ配置 [2200] [0] [5]\nステージ配置 [2700] [0] [6]\nステージ配置 [2700] [360] [7]\nステージ配置 [3400] [520] [8]\nステージ配置 [3900] [520] [10]\nステージ配置 [4600] [520] [9]\nステージ配置 [5100] [520] [11]\nステージ配置 [5600] [800] [12]\nswitch costume to (なし v)\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (なし 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 (なし 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]\ngo to [back v] layer\ngo [forward v] (3) layers\nif <not <(costume [number v]) = [1]>> then\n    移動 ((My_x) - (視点x)) ((My_y) - (視点y))\nend\n\nwhen I start as a clone\nshow\n\nステージ配置 [5940] [1929] [11]\nステージ配置 [6600] [2217] [12]\n\n@チェックポイント\n\nwhen flag clicked\nset [チェックポイント到達 v] to [0]\nswitch costume to (赤旗 v)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((1175) - (視点x)) ((140) - (視点y))\n\ndefine 移動 (x) (y)\nswitch costume to (なし v)\ngo to x: (x) y: (y)\nswitch costume to ((チェックポイント到達) + (2))\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\n    if <<touching (キャラ v)?> and <(チェックポイント到達) = [0]>> then\n        set [チェックポイント到達 v] to [1]\n        set [復活x v] to [1175]\n        set [復活y v] to [140]\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\nwhen [timer v] > (time)\nhide\n\n@地面\n\nwhen flag clicked\ngo to [front v] layer\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [1185] [0] [3]\nステージ配置 [1600] [0] [4]\nステージ配置 [2200] [0] [5]\nステージ配置 [2700] [0] [6]\nステージ配置 [2700] [360] [7]\nステージ配置 [3400] [520] [8]\nステージ配置 [3900] [520] [9]\nステージ配置 [4600] [520] [10]\nステージ配置 [5100] [520] [11]\nステージ配置 [5600] [800] [12]\nステージ配置 [6100] [900] [13]\nswitch costume to (なし v)\nbroadcast (プログラム v)\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (なし 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 (なし 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) - (視点x)) ((My_y) - (視点y))\nend\n\nwhen I start as a clone\nshow\n\n@ゴール\n\nwhen flag clicked\nset [クリア v] to [0]\nset [チェックポイント到達 v] to [0]\nswitch costume to (赤旗 v)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((6000) - (視点x)) ((855) - (視点y))\n\ndefine 移動 (x) (y)\nswitch costume to (なし v)\ngo to x: (x) y: (y)\nswitch costume to ((チェックポイント到達) + (2))\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\n    if <<touching (キャラ v)?> and <(チェックポイント到達) = [0]>> then\n        set [チェックポイント到達 v] to [1]\n        broadcast (クリア v)\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\nwhen [timer v] > (time)\nhide\n\nwhen I receive [クリア v]\nset [クリア v] to [1]\nstop [all v]\n\n@チェックポイント2\n\nwhen flag clicked\nset [チェックポイント到達 v] to [0]\nswitch costume to (赤旗 v)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((3000) - (視点x)) ((473) - (視点y))\n\ndefine 移動 (x) (y)\nswitch costume to (なし v)\ngo to x: (x) y: (y)\nswitch costume to ((チェックポイント到達) + (2))\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\n    if <<touching (キャラ v)?> and <(チェックポイント到達) = [0]>> then\n        set [チェックポイント到達 v] to [1]\n        set [復活x v] to [3000]\n        set [復活y v] to [473]\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\nwhen [timer v] > (time)\nhide\n\n@チェックポイント3\n\nwhen flag clicked\nset [チェックポイント到達 v] to [0]\nswitch costume to (赤旗 v)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((4750) - (視点x)) ((475) - (視点y))\n\ndefine 移動 (x) (y)\nswitch costume to (なし v)\ngo to x: (x) y: (y)\nswitch costume to ((チェックポイント到達) + (2))\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\n    if <<touching (キャラ v)?> and <(チェックポイント到達) = [0]>> then\n        set [チェックポイント到達 v] to [1]\n        set [復活x v] to [4750]\n        set [復活y v] to [475]\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\nwhen [timer v] > (time)\nhide\n\n@サムネ\n\nwhen flag clicked\nhide\nset [ghost v] effect to (100)\nforever\n    set [time v] to (timer)\n    point in direction (90)\nend\n\nwhen [timer v] > (time)\nif <(クリア) = [0]> then\n    start sound [Rip v]\n    switch costume to (サムネイルにしよう v)\n    show\n    go to x: (480) y: (-180)\n    go to [front v] layer\n    glide (0.5) secs to x: (0) y: (0)\n    set size to (100) %\n    go to [front v] layer\n    go to x: (0) y: (0)\n    forever\n        point in direction ((90) + ([cos v] of ((timer) * (300)) ))\n    end\nelse\n    stop all sounds\n    start sound [Cheer v]\n    switch costume to (最後 v)\n    go to x: (0) y: (0)\n    show\n    go to [front v] layer\n    set size to (1) %\n    repeat (20)\n        change size by (5)\n    end\n    wait until <not <mouse down?>>\n    wait until <mouse down?>\n    hide\n    start sound [Rip v]\n    switch costume to (サムネイルにしよう v)\n    show\n    go to x: (480) y: (-180)\n    go to [front v] layer\n    glide (0.5) secs to x: (0) y: (0)\n    set size to (100) %\n    go to [front v] layer\n    go to x: (0) y: (0)\n    forever\n        point in direction ((90) + ([cos v] of ((timer) * (300)) ))\n    end\nend\n\n@影2\n\nwhen flag clicked\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [1200] [0] [3]\nステージ配置 [1600] [0] [4]\nステージ配置 [2200] [0] [5]\nステージ配置 [2700] [0] [6]\nステージ配置 [2700] [360] [7]\nステージ配置 [3900] [520] [8]\nステージ配置 [5100] [520] [9]\nswitch costume to (なし v)\nbroadcast (プログラム v)\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\ngo to [back v] layer\nswitch costume to (なし 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 (なし 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]\ngo to [back v] layer\nif <(costume [number v]) = [1]> then\n    broadcast (プログラム v)\nelse\n    移動 ((My_x) - (視点x)) ((My_y) - (視点y))\nend\n\nwhen I start as a clone\nshow\n\n@影\n\nwhen flag clicked\nbroadcast (かげ v)\n\nwhen I receive [かげ v]\nforever\n    go to (キャラ v)\n    go to [back v] layer\n    go [forward v] (1) layers\nend\n\n@紫\n\nwhen flag clicked\nhide\n\n