Platformer Pratt's adventure #games 
@Stage\n\nwhen flag clicked\nforever\n    set volume to (80) %\n    play sound [魔王魂  ファンタジー10 v] until done\nend\n\nwhen flag clicked\nswitch backdrop to (sky_00018 v)\n\nwait (11) seconds\n\n@プレイヤー\n\nwhen flag clicked\nshow\n\ndefine 動作\nchange [yの力 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の力 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の力 v] by (-1)\nend\nset [xの力 v] to ((xの力) * (0.88))\nchange x by (xの力)\nrepeat (6)\n    if <<touching (ステージ v)?> or <<touching (橋 v)?> or <touching (リフト v)?>>> then\n        change y by (1)\n    end\nend\nif  then\n    change y by (-6)\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        set [yの力 v] to [12]\n        start sound [壁キック v]\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)?> or <touching (リフト v)?>> or <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)?> or <touching (リフト v)?>> or <touching (橋 v)?>> and <<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 [15]\nend\nchange y by (1.1)\nif <touching (バネ v)?> then\n    set [yの力 v] to [22]\nend\nif <<<(Y) < [-400]> or <touching (トラップ v)?>> or <touching (トラップ2 v)?>> then\n    start sound [Crunch v]\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の力) = [0]> then\n    stop [this script v]\nend\nset [player: i v] to [0]\nrepeat until <<not <<<touching (ステージ v)?> or <touching (リフト v)?>> or <touching (橋 v)?>>> or <(Player: i) = ((回数) + (1))>>\n    change [player: i v] by (1)\n    change x by (向き)\nend\nchange x by (() - ((向き) * (((回数) + (1)) * <<(Player: i) = ((回数) + (1))> and <<<touching (ステージ v)?> or <touching (リフト v)?>> or <touching (橋 v)?>>>)))\n\ndefine 位置補正y (向き) (回数)\nif <(yの力) = [0]> then\n    stop [this script v]\nend\nset [player: i v] to [0]\nrepeat until <<not > or <(Player: i) = ((回数) + (1))>>\n    change [player: i v] by (1)\n    change y by (向き)\nend\nchange y by (() - ((向き) * (((回数) + (1)) * <<(Player: i) = ((回数) + (1))> and <<<touching (ステージ v)?> or <touching (リフト v)?>> or <touching (橋 v)?>>>)))\nset [yの力 v] to [0]\n\ndefine 初期位置\ngo to x: (-50) y: (-20)\nset [xの力 v] to [0]\nset [yの力 v] to [0]\nset [camera_x v] to (復活x)\nset [camera _y v] to (復活y)\nset [x v] to (復活x)\nset [y v] to (復活y)\n\nwhen I receive [隠す v]\nhide\n\nwhen flag clicked\n\nplay sound [壁キック v] until done\n\n\n\nset [pitch v] effect to (0)\n\nwhen flag clicked\n\nwhen flag clicked\ngo to x: (0) y: (-20)\nset [xの力 v] to [0]\nset [yの力 v] to [0]\nset [camera_x v] to [-100]\nset [camera _y v] to [0]\nset [x v] to [-200]\nset [y v] to [-20]\n\nhide\nwait (11) seconds\n\nshow\n\n@ステージ\n\nwhen flag clicked\nhide\nステージのやつ [0] [0] [1]\nステージのやつ [480] [0] [2]\nステージのやつ [870] [50] [3]\nステージのやつ [1340] [50] [4]\nステージのやつ [1700] [70] [5]\nステージのやつ [2200] [150] [6]\nステージのやつ [2500] [150] [7]\nステージのやつ [2800] [150] [8]\nステージのやつ [3000] [150] [9]\nステージのやつ [3200] [150] [10]\nステージのやつ [4000] [150] [11]\nステージのやつ [4300] [100] [12]\nステージのやつ [4700] [-20] [13]\nステージのやつ [5200] [-50] [14]\nステージのやつ [5500] [-50] [15]\nステージのやつ [6090] [-30] [16]\nステージのやつ [6180] [-30] [17]\nステージのやつ [6300] [-30] [18]\nステージのやつ [6800] [150] [19]\nステージのやつ [7080] [150] [20]\nステージのやつ [7700] [200] [21]\nswitch costume to (none v)\nbroadcast (プログラム v)\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 flag clicked\nforever\n    go to [front v] layer\nend\n\nwhen I receive [隠す v]\ngo to [back v] layer\n\nswitch costume to (none v)\nbroadcast (プログラム v)\nswitch costume to (none v)\n\nswitch costume to (none v)\nbroadcast (プログラム v)\n\nbroadcast (プログラム v)\n\nswitch costume to (none v)\nbroadcast (プログラム v)\n\nswitch costume to (none v)\nbroadcast (プログラム v)\nswitch costume to (none v)\nbroadcast (プログラム v)\nswitch costume to (none v)\nbroadcast (プログラム v)\n\n@トラップ\n\nwhen flag clicked\npoint in direction (90)\nhide\nステージのいろいろ配置するやつ [200] [30] [1]\nステージのいろいろ配置するやつ [730] [250] [2]\nステージのいろいろ配置するやつ [1000] [150] [3]\nステージのいろいろ配置するやつ [1200] [150] [4]\nステージのいろいろ配置するやつ [2500] [135] [5]\nステージのいろいろ配置するやつ [2800] [450] [6]\nステージのいろいろ配置するやつ [2500] [150] [7]\nステージのいろいろ配置するやつ [2700] [170] [8]\nステージのいろいろ配置するやつ [3000] [170] [9]\nステージのいろいろ配置するやつ [3300] [170] [10]\nステージのいろいろ配置するやつ [3600] [170] [11]\nステージのいろいろ配置するやつ [5200] [50] [12]\nステージのいろいろ配置するやつ [5500] [140] [13]\nステージのいろいろ配置するやつ [5900] [80] [14]\nステージのいろいろ配置するやつ [6000] [80] [15]\nステージのいろいろ配置するやつ [6160] [130] [16]\nステージのいろいろ配置するやつ [6430] [140] [17]\nステージのいろいろ配置するやつ [6750] [80] [18]\nステージのいろいろ配置するやつ [80000000] [80] [19]\nswitch costume to (none v)\nbroadcast (プログラム v)\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\n\nwhen flag clicked\nforever\n    go to [back v] layer\nend\n\nwhen I receive [隠す v]\ngo to [back v] layer\n\nwhen I start as a clone\nforever\n    if <(costume [number v]) = [3]> then\n        show\n        set size to (70) %\n        repeat (60)\n            change [my_y v] by (1.5)\n        end\n        repeat (6)\n            change [my_y v] by (-15)\n        end\n    end\n    if <(costume [number v]) = [13]> then\n        show\n        set size to (70) %\n        repeat (60)\n            change [my_y v] by (1.5)\n        end\n        repeat (6)\n            change [my_y v] by (-15)\n        end\n    end\n    if <(costume [number v]) = [14]> then\n        show\n        set size to (70) %\n        repeat (60)\n            change [my_y v] by (1.5)\n        end\n        repeat (6)\n            change [my_y v] by (-15)\n        end\n    end\n    if <(costume [number v]) = [16]> then\n        show\n        set size to (70) %\n        repeat (60)\n            change [my_y v] by (1.5)\n        end\n        repeat (6)\n            change [my_y v] by (-15)\n        end\n    end\n    if <<(costume [number v]) = [17]> or <(costume [number v]) = [18]>> then\n        show\n        set size to (70) %\n        repeat (24)\n            turn right (15) degrees\n            change [my_y v] by (10)\n        end\n        repeat (24)\n            turn right (15) degrees\n            change [my_y v] by (-10)\n        end\n    end\nend\n\nset size to (100) %\n\nturn left (6) degrees\n\nturn left (6) degrees\n\nturn left (6) degrees\n\nwait (1) seconds\n\nif <(costume [number v]) = [3]> then\n    show\n    set size to (70) %\n    repeat (60)\n        change [my_y v] by (1.5)\n    end\n    repeat (6)\n        change [my_y v] by (-15)\n    end\n    if <(costume [number v]) = [13]> then\n        show\n        set size to (70) %\n        repeat (60)\n            change [my_y v] by (1.5)\n        end\n        repeat (6)\n            change [my_y v] by (-15)\n        end\n    end\nend\n\nwhen flag clicked\n\nswitch costume to (none v)\nbroadcast (プログラム v)\n\nswitch costume to (none v)\nbroadcast (プログラム v)\nhide\n\nswitch costume to (none v)\nbroadcast (プログラム v)\n\nswitch costume to (none v)\nbroadcast (プログラム v)\n\nswitch costume to (none v)\nbroadcast (プログラム v)\n\nswitch costume to (none v)\nbroadcast (プログラム v)\n\n@中間\n\nwhen flag clicked\nset volume to (300) %\nset [復活x v] to [0]\nset [復活y v] to [0]\nset [チェックポイント到達 v] to [0]\nswitch costume to (a v)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((4000) - (Camera_x)) ((400) - (Camera _y))\n\ndefine 移動 (x) (y)\nswitch costume to (none 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        start sound [づづづづづづ v]\n        set [チェックポイント到達 v] to [1]\n        set [復活x v] to [4100]\n        set [復活y v] to [400]\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\nswitch costume to (a3 v)\n\nwhen I receive [隠す v]\nhide\n\ngo to [front v] layer\n\nset [復活x v] to [6500]\nset [復活y v] to [400]\n\nset [復活x v] to [4100]\nset [復活y v] to [400]\n\n@スプライト1\n\nwhen flag clicked\ngo to [front v] layer\nset [ghost v] effect to (100)\n\n@ゴール\n\nwhen flag clicked\nset volume to (300) %\nset [復活x v] to [0]\nset [復活y v] to [0]\nset [チェックポイント2 v] to [0]\nswitch costume to (a v)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((7700) - (Camera_x)) ((400) - (Camera _y))\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nswitch costume to ((チェックポイント2) + (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 <(チェックポイント2) = [0]>> then\n        broadcast (5 v)\n        start sound [づづづづづづ v]\n        set [チェックポイント2 v] to [1]\n        set [復活x v] to [7700]\n        set [復活y v] to [400]\n    end\nend\nswitch costume to ((チェックポイント2) + (2))\n\nwhen I receive [隠す v]\nhide\n\ngo to [front v] layer\n\nset [復活x v] to [6300]\nset [復活y v] to [400]\n\nset [復活x v] to [4100]\nset [復活y v] to [400]\n\nset [復活x v] to [7700]\nset [復活y v] to [400]\n\nwhen I receive [5 v]\n\n@まわりの\n\nwhen flag clicked\nhide\n\ndefine 準備\ngo [backward v] (3) layers\ngo to x: (-190) y: (139)\nset [ghost v] effect to (100)\nswitch costume to (わく v)\nshow\nrepeat (16)\n    change [ghost v] effect by (-5)\nend\n\nwhen I receive [表示 v]\n準備\n\nwhen I receive [title v]\n準備\n\nwait (2) seconds\n\n@時間\n\nwhen flag clicked\nbroadcast (表示 v)\n\nset [時間 わー v] to [0]\n\nrepeat until <(チェックポイント2) = [1]>\n\nwhen I receive [タイマー止める v]\n\nwhen flag clicked\nhide variable [隠し v]\nhide variable [最高記録 v]\nhide\n\ndefine (数字) (x) (y) (大きさ) (明るさ) (透明度) (色)\nset [color v] effect to (色)\nset [時間 わー v] to [0]\nhide\ngo to [front v] layer\ngo to x: (x) y: (y)\nset size to (大きさ) %\nset [brightness v] effect to (明るさ)\nset [ghost v] effect to (透明度)\nset [数字の変数 v] to [0]\nrepeat (length of (数字))\n    change [数字の変数 v] by (1)\n    switch costume to (letter (数字の変数) of (数字))\n    create clone of (_myself_ v)\n    change x by ((大きさ) / (9.5))\nend\nset [時間 わー v] to [1]\n\nwhen I start as a clone\ngo [backward v] (1) layers\nwait until <(時間 わー) = [1]>\nset [ghost v] effect to (100)\nshow\nrepeat (5)\n    change [ghost v] effect by (-10)\nend\n\nwhen I receive [消せ! v]\ndelete this clone\n\nwhen I receive [表示 v]\nstop [other scripts in sprite v]\nbroadcast (消せ! v)\nスタート?\n\ndefine スタート?\nset [たいむたいむ v] to [0]\nforever\n    if  then\n        (たいむたいむ) [-187] [137] [100] [-100] [0] [50]\n        wait (0.9) seconds\n        broadcast (消せ! v)\n    end\n    if <not <(チェックポイント2) = [1]>> then\n        change [たいむたいむ v] by (1)\n    end\nend\n\nwhen I receive [title v]\nスタート?\n\n@第6種ターボ対策ソフト2\n\nwhen flag clicked\nforever\n    set [tabo v] to (timer)\n    wait (0) seconds\n    if <(tabo) = (timer)> then\n        go to [front v] layer\n        show\n        stop [all v]\n    end\nend\n\nwhen flag clicked\nhide\nforever\n    go to [front v] layer\nend\n\nset volume to (0) %\n\n
                               ⇓日本語は下⇓\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nEnglish\nOperate with the cross key\nIf the number of references exceeds 1000, a large number of stages will be added.\n☆ ♡ and follow me\n\n日本語\n初のスクロールプラットフォーマーです\n十字キーで操作です\n\n参照数10000こえたらステージ大量追加しようかな…\n☆と♡頼む フォローも\n傾向26ページ！！！！