Light - Platformer

Instructions: ---------------------------------------------------------------------\nUse arrows to move (↑ to jump, ← & →)\n---------------------------------------------------------------------\nTouch the right wall to get to the next level\n--------------------------------------------------------------------

@Stage\n\nwhen flag clicked\nswitch backdrop to (背景1 v)\n\n@blank\n\n@プラフォ君\n\ndefine v(￣Д￣)v ｲｴｲ\nrepeat (6)\n    if <touching (地面 v)?> then\n        change y by (1)\n    end\nend\n\ndefine 横へいこうね\nrepeat until <not <touching (地面 v)?>>\n    if <(x) > [0]> then\n        change x by (-1)\n    else\n        change x by (1)\n    end\nend\n\ndefine 縦型授業すたとんとん\nrepeat until <not <touching (地面 v)?>>\n    if <(y) > [0]> then\n        change y by (-1)\n    else\n        change y by (1)\n    end\nend\n\nwhen I receive [開始 v]\nset rotation style [left-right v]\n初期化\nswitch costume to (スキン)\nforever\n    change [y v] by (-1)\n    if <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(x position) > (mouse x)>>>> then\n        change [x v] by (-1)\n        point in direction (-90)\n    end\n    if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <(mouse x) > (x position)>>>> then\n        change [x v] by (1)\n        point in direction (90)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\n    if <touching (地面 v)?> then\n        v(￣Д￣)v ｲｴｲ\n        if <touching (地面 v)?> then\n            change y by (-5)\n            横へいこうね\n        end\n        if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>>> then\n            start sound [壁 v]\n            set [y v] to [13]\n            if <([abs v] of (x) ) = (x)> then\n                set [x v] to [-4]\n            else\n                set [x v] to [4]\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    change y by (y)\n    if <touching (地面 v)?> then\n        縦型授業すたとんとん\n        if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>>> then\n            start sound [ジャンプ v]\n            set [y v] to [13]\n        else\n            set [y v] to [0]\n        end\n    end\nend\n\nwhen I receive [開始 v]\nforever\n    if <touching (針 v)?> then\n        go to x: (-200) y: (-100)\n        start sound [空気 v]\n        set [x v] to [0]\n        set [y v] to [0]\n    end\n    if <(y position) < [-179]> then\n        go to x: (-200) y: (-100)\n        start sound [空気 v]\n        set [x v] to [0]\n        set [y v] to [0]\n    end\nend\n\nwhen I receive [開始 v]\nrepeat until <([costume # v] of [地面 v]) = [15]>\n    if <(x position) > [239]> then\n        go to x: (-200) y: (-100)\n        broadcast (level v)\n    end\nend\n\nwhen flag clicked\nhide\n\ndefine 初期化\nset [x v] to [0]\nset [y v] to [0]\npoint in direction (90)\nshow\nset size to (85) %\ngo to x: (-200) y: (-100)\n\nwhen I receive [開始 v]\nset volume to (volume) %\n\nwhen I receive [開始 v]\nclear graphic effects\nforever\n    if <([costume # v] of [プラフォ君表示用の v]) = [7]> then\n        change [color v] effect by (2)\n    end\nend\n\nwhen I start as a clone\nrepeat (5)\n    change [ghost v] effect by (20)\n    change size by (-5)\nend\ndelete this clone\n\nwhen I receive [開始 v]\nforever\n    create clone of (_myself_ v)\nend\n\n@地面\n\nwhen flag clicked\nhide\nswitch costume to (ステージ1 v)\n\nwhen I receive [level v]\nnext costume\n\nwhen I receive [開始 v]\nshow\nforever\n    go to x: (46) y: (5)\nend\n\n@針\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nhide\n\nwhen I receive [開始 v]\nshow\n\nwhen flag clicked\nforever\n    switch costume to ([costume # v] of [地面 v])\nend\n\n@次\n\nwhen I receive [level v]\nstart sound [ふっ v]\n\nwhen I receive [開始 v]\nset volume to (volume) %\n\n@雪\n\nwhen I receive [開始 v]\nhide\nforever\n    wait (pick random (0.3) to (0.5)) seconds\n    create clone of (_myself_ v)\nend\n\nwhen flag clicked\nhide\nset [音量管理 v] to [0]\nrepeat until <(音量管理) = [1]>\n    set volume to (volume) %\nend\n\nwhen I receive [ホーム画面 v]\nset [volume v] to [100]\nforever\n    play sound [TheFatRat  JJD  Prelude VIP Edit v] until done\nend\n\nwhen I receive [回転はじめ v]\nset [音量管理 v] to [1]\nrepeat (20)\n    change volume by (-5)\nend\n\nwhen I receive [回転追わり v]\nstop all sounds\n\nwhen flag clicked\nset [12 v] to [0]\n\nwhen I start as a clone\nshow\ngo to [back v] layer\ngo to x: (pick random (-250) to (250)) y: (250)\nshow\nrepeat until <(y position) < [-179]>\n    change y by (pick random (-5) to (-8))\n    change x by (pick random (-2) to (1))\nend\nhide\ndelete this clone\n\n@回転するだけ\n\nwhen flag clicked\nhide\n\nwhen I receive [回転はじめ v]\nshow\nforever\n    go to [front v] layer\n    turn right (20) degrees\nend\n\nwhen I receive [回転追わり v]\nhide\nstop [other scripts in sprite v]\n\n@サムネイル\n\nwhen flag clicked\nshow\nhide\nforever\n    reset timer\nend\n\nwhen [timer v] > (0.0001)\nset [サムネの動き v] to [-25]\ngo to [front v] layer\nshow\ngo to x: (0) y: (300)\nrepeat (10)\n    change y by (サムネの動き)\n    change [サムネの動き v] by (1.5)\nend\nrepeat (20)\n    change y by (サムネの動き)\n    change [サムネの動き v] by (0.5)\nend\n\n@ホーム\n\nwhen I receive [開始 v]\nhide\n\nwhen I receive [ホーム画面 v]\nclear graphic effects\nshow\nforever\n    go to [back v] layer\n    go to x: (0) y: (0)\n    glide (1) secs to x: (0) y: (10)\n    glide (1) secs to x: (0) y: (0)\nend\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nhide\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\n\nwhen flag clicked\nforever\n    set [skin v] to (costume [number v])\nend\n\nwhen I receive [skin変更 v]\nnext costume\n\nwhen I receive [qawsed v]\nrepeat (25)\n    change [pixelate v] effect by (5)\nend\nswitch costume to (コスチューム2 v)\n\n@スプライト2\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\n\nwhen I receive [演出 v]\nset [ghost v] effect to (0)\ngo to [front v] layer\nshow\nset size to (100) %\nset [jksa v] to [0]\nbroadcast (qawsed v)\nrepeat (25)\n    change size by (jksa)\n    change [jksa v] by (5)\nend\n\nwhen I receive [qawsed v]\nwait (0.7) seconds\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nbroadcast (開始 v)\n\n@イントロバージョン2\n\nwhen flag clicked\nhide\nwait (0.5) seconds\nswitch costume to (コスチューム1 v)\ngo to x: (0) y: (212)\nshow\nglide (0.1) secs to x: (0) y: (0)\nstart sound [金属ロゴ表示1 v]\nrepeat (12)\n    next costume\nend\nrepeat (20)\n    change [ghost v] effect by (5)\nend\nbroadcast (ホーム画面 v)\n\nwhen flag clicked\ngo to x: (0) y: (212)\nwait (0.3) seconds\nset [ghost v] effect to (100)\nrepeat (25)\n    change [ghost v] effect by (-4)\nend\n\n@ぷれい4\n\nwhen flag clicked\nset [ok1 v] to [0]\nswitch costume to (コスチューム1 v)\nhide\nrepeat until <(ok1) = [1]>\n    if <touching (mouse-pointer v)?> then\n        set size to (110) %\n        set [brightness v] effect to (20)\n    else\n        clear graphic effects\n        set size to (100) %\n    end\nend\n\nwhen this sprite clicked\nif <<not <([costume # v] of [プラフォ君表示用の v]) = [7]>> or <<([costume # v] of [プラフォ君表示用の v]) = [7]> and <(鍵) = [1]>>> then\n    set [ok1 v] to [1]\n    switch costume to (コスチューム1 v)\n    set volume to (volume) %\n    broadcast (回転はじめ v)\n    play sound [決定 v] until done\n    broadcast (回転追わり v)\n    broadcast (演出 v)\n    hide\n    broadcast (引退 v)\n    hide\nend\n\nwhen I receive [ホーム画面 v]\ngo to x: (0) y: (-130)\nshow\nforever\n    glide (1.5) secs to x: (0) y: (-120)\n    glide (1.5) secs to x: (0) y: (-130)\nend\n\n@スプライト7\n\nwhen I receive [メッセージ1 v]\nif <not <(kaginotikk) = [1]>> then\n    hide\n    show\n    glide (0.5) secs to x: (140) y: (155)\n    wait (0.1) seconds\n    glide (0.5) secs to x: (140) y: (200)\n    hide\n    set [kaginotikk v] to [1]\nelse\n    hide\nend\n\nwhen flag clicked\nset [kaginotikk v] to [0]\n\n@★♥\n\nwhen I start as a clone\nswitch costume to (コスチューム2 v)\nset [星b v] to [No]\nforever\n    set [星a v] to <touching (mouse-pointer v)?>\n    if <touching (mouse-pointer v)?> then\n        wait (0.5) seconds\n        set [星b v] to [Yes]\n        wait (0.6) seconds\n        broadcast (メッセージ1 v)\n    end\nend\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\ncreate clone of (_myself_ v)\nset [ハートb v] to [No]\nforever\n    set [ハートa v] to <touching (mouse-pointer v)?>\n    if <touching (mouse-pointer v)?> then\n        wait (0.5) seconds\n        set [ハートb v] to [Yes]\n        wait (0.6) seconds\n        broadcast (メッセージ1 v)\n    end\nend\n\n@プラフォ君表示用の\n\nwhen flag clicked\nhide\nswitch costume to (コスチューム1 v)\npoint in direction (90)\nset size to (140) %\n\nwhen I receive [ホーム画面 v]\nshow\n\nwhen I receive [次に移行 v]\nnext costume\n\nwhen I receive [戻るよ＝ v]\nswitch costume to ((costume [number v]) - (1))\n\nwhen I receive [演出 v]\nhide\n\n@スプライト5\n\nwhen flag clicked\ngo to x: (-60) y: (-50)\nhide\n\nwhen I receive [ホーム画面 v]\nshow\n\nwhen this sprite clicked\nstart sound [Water Drop v]\nbroadcast (戻るよ＝ v)\nchange [スキン v] by (-1)\n\nwhen I receive [演出 v]\nhide\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nforever\n    if <touching (mouse-pointer v)?> then\n        set size to (110) %\n        set [brightness v] effect to (30)\n    else\n        set size to (90) %\n        clear graphic effects\n    end\nend\n\n@スプライト3\n\nwhen flag clicked\nset [スキン v] to [1]\nhide\n\nwhen I receive [ホーム画面 v]\nshow\n\nwhen this sprite clicked\nstart sound [Water Drop v]\nbroadcast (次に移行 v)\nchange [スキン v] by (1)\n\nwhen I receive [演出 v]\nhide\n\nwhen flag clicked\ngo to x: (60) y: (-50)\nswitch costume to (コスチューム1 v)\nforever\n    if <touching (mouse-pointer v)?> then\n        set size to (110) %\n        set [brightness v] effect to (30)\n    else\n        set size to (90) %\n        clear graphic effects\n    end\nend\n\n@スプライト6\n\nwhen flag clicked\ngo to [front v] layer\nset [鍵 v] to [0]\nforever\n    if <(鍵) = [1]> then\n        hide\n    else\n        if <([costume # v] of [プラフォ君表示用の v]) = [7]> then\n            show\n        else\n            hide\n        end\n    end\nend\n\nwhen I receive [メッセージ1 v]\nset [鍵 v] to [1]\nhide\n\n@タボ-\n\nwhen flag clicked\nforever\n    set [turbo v] to [0]\n    wait (0.00001) seconds\n    if <[5] < (Turbo)> then\n        stop [all v]\n    end\nend\n\nwhen flag clicked\ngo to [front v] layer\ngo to x: (0) y: (0)\nforever\n    change [turbo v] by (2)\nend\n\n@スプライト1\n\nwhen flag clicked\nhide\nforever\n    hide\n    if <([costume # v] of [地面 v]) = [15]> then\n        show\n    end\nend\n\n@スプライト4\n\nwhen flag clicked\nhide\nforever\n    hide\n    if <([costume # v] of [地面 v]) = [11]> then\n        go to [back v] layer\n        show\n    end\nend\n\n