Postcards | Platformer
@Stage\n\nwhen I receive [スタート v]\nforever\n    play sound [Nebula v] until done\nend\n\n@自己タイム\n\nwhen I receive [go-ru  v]\nset [パパーン v] to [1]\nset [フォロー v] to [よろしく！]\nset [星も v] to [よろしく！]\nset [ハートも v] to [よろしく！]\nshow variable [ハートも v]\nshow variable [星も v]\nshow variable [フォロー v]\nshow variable [自己タイム v]\nstop [this script v]\n\nwhen I receive [スタート v]\nhide variable [フォロー v]\nset [パパーン v] to [0]\nhide variable [自己タイム v]\nhide variable [星も v]\nhide variable [ハートも v]\nset [自己タイム v] to [0]\nrepeat until <(パパーン) = [1]>\n    wait (1) seconds\n    change [自己タイム v] by (1)\nend\n\nwhen flag clicked\nhide variable [フォロー v]\nhide variable [自己タイム v]\nhide variable [星も v]\nhide variable [ハートも v]\n\nset [☁ 世界記録 v] to [464939]\n\n@Sprite1\n\ndefine 数字表示|桁数 (1) 表示モード (2) サイズ (3) ｘ座標 (4) y座標 (5)\nset [1 v] to (5)\nset [3 v] to (4)\nset [4 v] to (2)\nset [5 v] to (1)\nset y to (0)\nset size to (3) %\nrepeat (1)\n    change y by (1)\n    create clone of (_myself_ v)\nend\n\nwhen flag clicked\nset [コイン数 v] to [0]\n数字表示|桁数 [10] 表示モード [左] サイズ [130] ｘ座標 [130] y座標 [-150]\n\nwhen I start as a clone\nset [2 v] to (y position)\nset y to (1)\nshow\nforever\n    if < (コイン数) contains [-]?> then\n        set y to (((3) + (((2) * ((0.45) * (size))) - ((0.45) * (size)))) - ((0.45) * (size)))\n    else\n        set x to (((3) + ((2) * ((0.25) * (size)))) - ((0) * (size)))\n    end\n    if <(4) = [左]> then\n        switch costume to (letter (2) of (コイン数))\n    else\n        set x to (((3) + ((2) * ((0.45) * (size)))) - ((length of (コイン数)) * ((0.45) * (size))))\n        switch costume to (letter (2) of (コイン数))\n    end\nend\n\n@障害物\n\ndefine 配置 (x) (y) (コスチューム)\nset [x v] to (x)\nset [y v] to (y)\nset [コスチューム v] to (コスチューム)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nforever\n    switch costume to (消さないで v)\n    go to x: ((x) - (スクロール　x)) y: ((y) - (スクロール　y))\n    switch costume to (コスチューム)\nend\n\nwhen I receive [スタート v]\nhide\n配置 [960] [300] [2]\n配置 [4233] [509] [3]\n\n@チェックポイント\n\ndefine 配置 (x) (y) (コスチューム)\nset [x v] to (x)\nset [y v] to (y)\nset [コスチューム v] to (コスチューム)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nforever\n    switch costume to (消さないで v)\n    go to x: ((x) - (スクロール　x)) y: ((y) - (スクロール　y))\n    switch costume to (コスチューム)\nend\n\nwhen I start as a clone\nwait until <touching (プレイヤー v)?>\nstart sound [Collect v]\nset [復活x v] to (x)\nset [復活y v] to (y)\nchange [コスチューム v] by (1)\n\nwhen I receive [スタート v]\nhide\n配置 [825] [290] [2]\n配置 [1475] [412] [2]\n配置 [2050] [525] [2]\n配置 [3818] [684] [2]\n\n@バネ\n\ndefine 配置 (x) (y) (コスチューム)\nset [x v] to (x)\nset [y v] to (y)\nset [コスチューム v] to (コスチューム)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nforever\n    switch costume to (消さないで v)\n    go to x: ((x) - (スクロール　x)) y: ((y) - (スクロール　y))\n    switch costume to (コスチューム)\nend\n\nwhen I start as a clone\nforever\n    if <<touching (プレイヤー v)?> and <(速度y) < [0]>> then\n        start sound [Jump v]\n        set [速度y v] to [20]\n        change [コスチューム v] by (1)\n        wait (0.05) seconds\n        change [コスチューム v] by (1)\n        wait (0.05) seconds\n        change [コスチューム v] by (-1)\n        wait (0.05) seconds\n        change [コスチューム v] by (-1)\n    end\nend\n\nwhen I receive [スタート v]\nhide\n配置 [2500] [523] [2]\n配置 [2985] [500] [2]\n配置 [3350] [710] [2]\n配置 [3395] [710] [2]\n配置 [3440] [710] [2]\n配置 [3485] [710] [2]\n配置 [3530] [710] [2]\n配置 [3575] [710] [2]\n配置 [3620] [710] [2]\n配置 [3665] [710] [2]\n配置 [3710] [710] [2]\n\n@Control stick\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\nswitch costume to (stick v)\ngo [forward v] (1) layers\nset [ghost v] effect to (25)\nforever\n    set [stick power v] to []\n    set [stick　x v] to [0]\n    set [stick　y v] to [0]\n    repeat until <mouse down?>\n        go to (myself)\n    end\n    if <(distance to [mouse-pointer v]) < ((size) * (0.6))> then\n        stick drag\n    else\n        wait until <not <mouse down?>>\n    end\nend\n\ndefine stick drag\nrepeat until <not <mouse down?>>\n    go to (mouse-pointer v)\n    point towards (myself)\n    turn right (180) degrees\n    set [stick direction v] to (direction)\n    set [stick power v] to (distance to [(myself) v])\n    if <(stick Power) > (MAX stick)> then\n        move ((MAX stick) - (stick Power)) steps\n        set [stick power v] to (MAX stick)\n    end\n    set [stick power v] to ((stick Power) / (MAX stick))\n    set [stick　x v] to ((stick Power) * ([sin v] of (STICK DIRECTION) ))\n    set [stick　y v] to ((stick Power) * ([cos v] of (STICK DIRECTION) ))\nend\n\ngo to [front v] layer\n\nwhen I receive [スタート v]\nshow\ngo to x: (-170) y: (-115)\nwait (0) seconds\nset [myself v] to [Control stick]\nset [max stick v] to ((size) / (4))\nswitch costume to (base v)\nset [ghost v] effect to (60)\ncreate clone of (_myself_ v)\n\n@コイン\n\ndefine 配置 (x) (y) (コスチューム)\nset [x v] to (x)\nset [y v] to (y)\nset [コスチューム v] to (コスチューム)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nforever\n    switch costume to (消さないで v)\n    go to x: ((x) - (スクロール　x)) y: ((y) - (スクロール　y))\n    switch costume to ((0) + (コスチューム))\nend\n\nforever\nend\n\nwhen I start as a clone\nwait until <touching (プレイヤー v)?>\nchange [コイン数 v] by (1)\nstart sound [Coin v]\ndelete this clone\n\nwhen I receive [スタート v]\nhide\n配置 [2150] [530] [2]\n配置 [2200] [530] [2]\n配置 [2250] [530] [2]\n配置 [2300] [530] [2]\n配置 [2350] [530] [2]\n配置 [3065] [718] [2]\n配置 [3263] [665] [2]\n配置 [3839] [514] [2]\n配置 [3839] [514] [2]\n配置 [2950] [386] [2]\n配置 [3000] [386] [2]\n配置 [3050] [386] [2]\n配置 [3100] [386] [2]\n配置 [3150] [386] [2]\n配置 [3200] [386] [2]\n配置 [3250] [386] [2]\n配置 [3300] [386] [2]\n配置 [3350] [386] [2]\n配置 [3400] [386] [2]\n配置 [3450] [386] [2]\n配置 [3500] [386] [2]\n配置 [3550] [386] [2]\n配置 [2950] [430] [2]\n配置 [3000] [430] [2]\n配置 [3050] [430] [2]\n配置 [3100] [430] [2]\n配置 [3150] [430] [2]\n配置 [3200] [430] [2]\n配置 [3250] [430] [2]\n配置 [3300] [430] [2]\n配置 [3350] [430] [2]\n配置 [3400] [430] [2]\n配置 [3450] [430] [2]\n配置 [3500] [430] [2]\n配置 [3550] [430] [2]\nrepeat (65)\n    配置 [6755] [520] [2]\nend\n\nwhen flag clicked\n\nif  then\nend\n\nrepeat until <touching (プレイヤー v)?>\nend\n\n@スプライト5\n\nwhen I receive [go-ru  v]\nshow variable [☁ 世界記録 v]\nforever\n    if <(☁ 世界記録) > (自己タイム)> then\n        set [☁ 世界記録 v] to (自己タイム)\n    else\n        set [☁ 世界記録 v] to (☁ 世界記録)\n    end\nend\n\nwhen flag clicked\nhide variable [☁ 世界記録 v]\n\n@敵\n\ndefine 配置 (x) (y) (コスチューム) (x動く幅) (x動く速さ)\nset [x v] to (x)\nset [y v] to (y)\nset [コスチューム v] to (コスチューム)\nset [x動くよう v] to (x動く幅)\nset [x動く速さ v] to (x動く速さ)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nforever\n    switch costume to (消さないで v)\n    go to x: (((x) + (x動くよう2)) - (スクロール　x)) y: ((y) - (スクロール　y))\n    switch costume to (コスチューム)\nend\n\nwhen I start as a clone\nforever\n    repeat until <(x動くよう) < (x動くよう2)>\n        point in direction (90)\n        change [x動くよう3 v] by (x動く速さ)\n        set [x動くよう3 v] to ((x動くよう3) * (0.9))\n        change [x動くよう2 v] by (x動くよう3)\n    end\n    repeat until <(x動くよう) < ((-1) * (x動くよう2))>\n        point in direction (-90)\n        change [x動くよう3 v] by ((-1) * (x動く速さ))\n        set [x動くよう3 v] to ((x動くよう3) * (0.9))\n        change [x動くよう2 v] by (x動くよう3)\n    end\nend\n\nwhen I start as a clone\nwait until <<touching (プレイヤー v)?> and <(速度y) < [0]>>\nchange [プレイヤー　y v] by (50)\nset [速度y v] to [10]\nstart sound [Coin v]\ndelete this clone\n\nwhen I receive [スタート v]\nset rotation style [left-right v]\nhide\n配置 [1700] [413] [2] [150] [1]\n配置 [4330] [555] [2] [50] [0.5]\n\n@プレイヤー\n\ndefine 壁\nrepeat until <not <touching (地面 v)?>>\n    change [プレイヤー　x v] by ((-0.9) * ((速度x) / ([abs v] of (速度x) )))\n    set x to ((プレイヤー　x) - (スクロール　x))\nend\nif <<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <(stick　Y) > [0.6]>> then\n    start sound [Jump v]\n    set [速度y v] to [15]\n    set [速度x v] to ((-10) * ((速度x) / ([abs v] of (速度x) )))\nelse\n    set [速度x v] to [0]\nend\n\ndefine 床\nrepeat until <not <touching (地面 v)?>>\n    change [プレイヤー　y v] by (((-1) * (重力)) * ((速度y) / ([abs v] of (速度y) )))\n    set y to ((プレイヤー　y) - (スクロール　y))\nend\nset [速度y v] to [0]\n\nwhen I receive [スタート v]\nforever\n    repeat until <key (any v) pressed?>\n        point in direction (90)\n    end\nend\n\nwhen I receive [スタート v]\nset [sip v] to [0]\nswitch costume to (コスチューム1 v)\nshow\ngo to x: (0) y: (-20)\nset [重力 v] to [1]\nset [スクロール　x v] to [0]\nset [スクロール　y v] to [0]\nset [プレイヤー　x v] to [0]\nset [プレイヤー　y v] to [0]\nset [速度x v] to [0]\nset [速度y v] to [0]\nset [復活x v] to [0]\nset [復活y v] to [0]\nforever\n    動き\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [go-ru  v]\nset [sip v] to [1]\n\n    if <<key (space v) pressed?> and <<(sip) = [1]> and <(速度y) < [0]>>> then\n        set [重力 v] to [0.3]\n        switch costume to (コスチューム2 v)\n    end\n    if <<not <key (space v) pressed?>> and <<(sip) = [1]> and <(速度y) < [10]>>> then\n        set [重力 v] to [1]\n        switch costume to (コスチューム1 v)\n    end\nend\n\ndefine 動き\nif <<<key (d v) pressed?> or <key (right arrow v) pressed?>> or <(stick　X) > [0.5]>> then\n    change [速度x v] by (1)\n    point in direction (90)\nend\nif <<<key (a v) pressed?> or <key (left arrow v) pressed?>> or <(stick　X) < [-0.5]>> then\n    change [速度x v] by (-1)\n    point in direction (-90)\nend\nset [速度x v] to ((速度x) * (0.9))\nchange [プレイヤー　x v] by (速度x)\nset x to ((プレイヤー　x) - (スクロール　x))\nrepeat (10)\n    if <touching (地面 v)?> then\n        change [プレイヤー　y v] by (1)\n        set y to ((プレイヤー　y) - (スクロール　y))\n    end\nend\nif <touching (地面 v)?> then\n    change [プレイヤー　y v] by (-10)\n    set y to ((プレイヤー　y) - (スクロール　y))\n    壁\nend\nchange [速度y v] by ((-1) * (重力))\nchange [プレイヤー　y v] by (速度y)\nset y to ((プレイヤー　y) - (スクロール　y))\nif <touching (地面 v)?> then\n    if <<<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <(stick　Y) > [0.6]>> and <(速度y) < [0]>> then\n        床\n        start sound [Jump v]\n        set [速度y v] to [15]\n    else\n        床\n    end\nend\nchange [スクロール　x v] by (round (((プレイヤー　x) - (スクロール　x)) / (5)))\nchange [スクロール　y v] by (round ((((プレイヤー　y) + (20)) - (スクロール　y)) / (5)))\nif <[200] < ([abs v] of ((スクロール　x) - (プレイヤー　x)) )> then\n    set [スクロール　x v] to ((プレイヤー　x) + ((((スクロール　x) - (プレイヤー　x)) / ([abs v] of ((スクロール　x) - (プレイヤー　x)) )) * (200)))\nend\nif <[140] < ([abs v] of ((スクロール　y) - (プレイヤー　y)) )> then\n    set [スクロール　y v] to ((プレイヤー　y) + ((((スクロール　y) - (プレイヤー　y)) / ([abs v] of ((スクロール　y) - (プレイヤー　y)) )) * (140)))\nend\ngo to x: ((プレイヤー　x) - (スクロール　x)) y: ((プレイヤー　y) - (スクロール　y))\nif <<(スクロール　y) < [-100]> or <<touching (障害物 v)?> or <<not <(速度y) < [0]>> and <touching (敵 v)?>>>> then\n    set [スクロール　x v] to (復活x)\n    set [スクロール　y v] to (復活y)\n    set [プレイヤー　x v] to (復活x)\n    set [プレイヤー　y v] to (復活y)\n    set [速度x v] to [0]\n    set [速度y v] to [0]\n    start sound [Pew v]\nend\n\nbroadcast (go-ru  v)\n\nset [スクロール　x v] to [0]\nset [スクロール　y v] to [0]\nset [プレイヤー　x v] to [0]\nset [プレイヤー　y v] to [0]\nset [速度x v] to [0]\nset [速度y v] to [0]\nset [復活x v] to [0]\nset [復活y v] to [0]\nforever\n    動き\nend\n\nset [重力 v] to [1]\nset [スクロール　x v] to [0]\nset [スクロール　y v] to [0]\nset [プレイヤー　x v] to [0]\nset [プレイヤー　y v] to [0]\nset [速度x v] to [0]\nset [速度y v] to [0]\nset [復活x v] to [0]\nset [復活y v] to [0]\nforever\n    動き\nend\n\nwhen I receive [スタート v]\nsay [使い方最後まで見た？How to use it Have you seen it to the end?] for (10) seconds\n\n@スプライト2\n\nwhen this sprite clicked\nbroadcast (スタート v)\nbroadcast (隠す v)\n\nwhen I receive [隠す v]\nhide\n\nwhen flag clicked\ngo to [front v] layer\nshow\n\n@紙吹雪・改\n\ndefine 紙吹雪 (大きさ)\nset [color v] effect to (pick random (0) to (199))\nset [ghost v] effect to (pick random (5) to ((125) - (大きさ)))\ngo to x: (pick random (-240) to (240)) y: (180)\nrepeat until <(y position) < [-179]>\n    change x by (pick random ((大きさ) / (-30)) to ((大きさ) / (30)))\n    change y by (pick random ((大きさ) / (30)) to ((大きさ) / (-5)))\n    turn right (pick random (-30) to (30)) degrees\n    set size to (pick random ((大きさ) - (30)) to ((大きさ) + (30))) %\n    set [brightness v] effect to (pick random ((大きさ) / (-2)) to ((大きさ) / (3)))\n    change [ghost v] effect by (pick random (1) to (-1))\nend\n\nwhen I start as a clone\nshow\n紙吹雪 ((pick random (50) to (100)) - (pick random (0) to (15)))\ndelete this clone\n\nwhen flag clicked\ngo to [back v] layer\nforever\n    if <(コイン数) = [100]> then\n        broadcast (コイン数100！ v)\n        wait (0) seconds\n        set [コイン数 v] to [0]\n    end\nend\n\nwhen I receive [コイン数100！ v]\nhide\nrepeat (50)\n    create clone of (_myself_ v)\n    create clone of (_myself_ v)\nend\n\n@smn\n\nwhen flag clicked\nset [しp v] to [0]\ngo to [front v] layer\ngo [backward v] (2) layers\nshow\n\nwhen I receive [スタート v]\nhide\n\n@地面\n\ndefine 配置 (x) (y) (コスチューム)\nset [x v] to (x)\nset [y v] to (y)\nset [コスチューム v] to (コスチューム)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nforever\n    switch costume to (消さないで v)\n    go to x: ((x) - (スクロール　x)) y: ((y) - (スクロール　y))\n    switch costume to (コスチューム)\nend\n\nwhen I start as a clone\nforever\n    if <<(costume [name v]) = [コスチューム11]> or <(costume [name v]) = [コスチューム12]>> then\n        turn right (1) degrees\n    end\nend\n\nwhen I receive [スタート v]\npoint in direction (90)\nhide\n配置 [0] [0] [2]\n配置 [480] [0] [3]\n配置 [960] [300] [4]\n配置 [1440] [300] [5]\n配置 [1920] [300] [6]\n配置 [2400] [500] [7]\n配置 [2880] [500] [8]\n配置 [3360] [500] [9]\n配置 [3840] [550] [10]\n配置 [4320] [550] [11]\n配置 [4800] [600] [12]\n配置 [5280] [550] [13]\n配置 [5760] [600] [14]\n配置 [6720] [600] [15]\n\n@スプライト4\n\nwhen flag clicked\nhide\n\nwhen I receive [1up v]\nshow\nstart sound [1up v]\nrepeat (10)\n    go to (プレイヤー v)\nend\nrepeat (10)\n    change y by (3)\nend\nwait (1) seconds\nhide\n\n@スプライト1\n\nwhen flag clicked\ngo to x: (121) y: (-148)\n\n@チェックポイント2\n\ndefine 配置 (x) (y) (コスチューム)\nset [x v] to (x)\nset [y v] to (y)\nset [コスチューム v] to (コスチューム)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nforever\n    switch costume to (消さないで v)\n    go to x: ((x) - (スクロール　x)) y: ((y) - (スクロール　y))\n    switch costume to (コスチューム)\nend\n\nwhen I start as a clone\nwait until <touching (プレイヤー v)?>\nbroadcast (go-ru  v)\nstart sound [Collect v]\nset [復活x v] to (x)\nset [復活y v] to (y)\nchange [コスチューム v] by (1)\n\nwhen I receive [スタート v]\nhide\n配置 [5770] [504] [2]\n\nset [重力 v] to [1]\n\n@スプライト3\n\nwhen I receive [コイン数100！ v]\nshow\ngo to [front v] layer\nforever\n    change [color v] effect by (25)\nend\n\nwhen I receive [コイン数100！ v]\nbroadcast (1up v)\nwait (5) seconds\nhide\n\nwhen flag clicked\nhide\n\n@スプライト6\n\n@スプライト7\n\n@ハート星探知機\n\nwhen I start as a clone\nshow\nset [ghost v] effect to (100)\nif <(costume [number v]) = [1]> then\n    forever\n        if <touching (mouse-pointer v)?> then\n            set [ハート v] to [1]\n            start sound [決定ボタンを押す v]\n            stop [this script v]\n        end\n    end\nend\nif <(costume [number v]) = [2]> then\n    forever\n        if <touching (mouse-pointer v)?> then\n            set [星 v] to [1]\n            start sound [決定ボタンを押す v]\n            stop [this script v]\n        end\n    end\nend\nif <(costume [number v]) = [3]> then\n    clear graphic effects\n    go to x: (60) y: (208)\n    glide (0.8) secs to x: (60) y: (120)\n    wait (0.8) seconds\n    glide (0.8) secs to x: (60) y: (208)\n    delete this clone\nend\n\nwhen flag clicked\nhide\nset [ハート v] to [0]\nset [星 v] to [0]\ngo to x: (0) y: (0)\nswitch costume to (ハート v)\ncreate clone of (_myself_ v)\nswitch costume to (星 v)\ncreate clone of (_myself_ v)\nforever\n    if <((ハート) + (星)) = [2]> then\n        switch costume to (コスチューム3 v)\n        create clone of (_myself_ v)\n        broadcast (星とハート v)\n        stop [this script v]\n    end\nend\n\nwhen flag clicked\nforever\n    go to [front v] layer\nend\n\n
New Personality Quiz Out! :D\nhttps://scratch.mit.edu/projects/510918831/\n\nMy main is @Chewingfruitgum please follow me there! :)\n\n#3 On Trending! :) 21-3-07 \n21-3-15 removed from trending! :( 21-3-16 of the Front page 21-3-17 How did this get On trending again #12\n\n\n\nThanks @-Pickleanimator- For the intro @TimMcCool for the love and fav dector Thanks @StrafordJames for the you win screen and Thanks @0014049 For the Platformer Tutorial on youtube! :)\n\n\n#Games #Art #Music #Stories\n\n\n 