KÜP I   (a Platformer)

Instructions:  ▧▧▧▧▧▧▧▧▧▧▧ KÜP I ▧▧▧▧▧▧▧▧▧▧▧▧▧\n➳W,A,S,D ve YÖN TUŞLARI ile oynanır\n➳"M" Tuşu ile müzik kapatılır. \n➳"R" Tuşu İle Bölüm yeniden başlatılır\n➳Yıldızlardan ve Dikenlerden uzak durun\n➳Oyun test edilmiştir İMKANSIZ BÖLÜM YOKTUR\n

@Stage\n\nwhen flag clicked\nswitch backdrop to (sıfır v)\n\nwhen I receive [oyun başladıo v]\nforever\n    switch backdrop to (!Level)\nend\n\n@Engeller\n\nwhen flag clicked\nforever\n    switch costume to (!Level)\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [oyun başladıo v]\nshow\n\n@Level\n\nwhen flag clicked\nforever\n    switch costume to (!Level)\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [oyun başladıo v]\nshow\n\n@Oyuncu\n\ndefine Place Player: (x) (y) Set Size To: (size)\ngo to x: (x) y: (y)\nset size to (size) %\n\ndefine Gravity, Platform Detection, Physics....\nforever\n    change [y v] by (-1)\n    if <<<key (a v) pressed?> or <key (left arrow v) pressed?>> or <<mouse down?> and <(mouse x) < (x position)>>> then\n        point in direction (-90)\n        change [x v] by (-1)\n    end\n    if <<<key (d v) pressed?> or <key (right arrow v) pressed?>> or <<mouse down?> and <(mouse x) > (x position)>>> then\n        point in direction (90)\n        change [x v] by (1)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\n    if <touching (level v)?> then\n        change y by (1)\n    end\n    if <touching (level v)?> then\n        change y by (1)\n    end\n    if <touching (level v)?> then\n        change y by (1)\n    end\n    if <touching (level v)?> then\n        change y by (1)\n    end\n    if <touching (level v)?> then\n        change y by (-4)\n        change x by ((x) * (-1))\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > [0]>>> then\n            set [y v] to [17]\n            if <(x) > [0]> then\n                set [x v] to [-10]\n            else\n                set [x v] to [10]\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    change y by (y)\n    if <touching (level v)?> then\n        change y by ((y) - ((y) * (2)))\n        set [y v] to [0]\n    end\n    change y by (-1)\n    if <<<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <((mouse y) - (y position)) > [50]>>> and <touching (level v)?>> then\n        set [y v] to [15]\n    end\n    change y by (1)\n    if <<<touching (engeller v)?> or <(y position) < [-175]>> or <<key (r v) pressed?> or <touching (yıldızlar v)?>>> then\n        Place Player: [-173] [-122] Set Size To: [40]\n    end\n    if <(x position) > [230]> then\n        if <not <(!Level) = [19]>> then\n            change [!level v] by (1)\n            Place Player: [-173] [-122] Set Size To: [40]\n        end\n    end\n    if <touching color (#f6ff00)?> then\n        set [y v] to [20]\n    end\nend\n\nwhen flag clicked\nset [müzik v] to [1]\n\nwhen [m v] key pressed\nset [müzik v] to [0]\nstop all sounds\n\nwhen flag clicked\nhide\n\nwhen I receive [oyun başladıo v]\nset [!level v] to [1]\nshow\nPlace Player: [-173] [-122] Set Size To: [40]\nhide variable [y v]\nhide variable [x v]\nset [y v] to [0]\nset [x v] to [0]\nforever\n    Gravity, Platform Detection, Physics....\nend\n\nwhen I receive [oyun başladıo v]\nforever\n    if <(username) = [efegamer66]> then\n        switch costume to (4 v)\n    end\n    if <(username) = [hasanbaba123456789h]> then\n        switch costume to (7 v)\n    end\n    if <not <<(username) = [efegamer66]> or <(username) = [hasanbaba123456789h]>>> then\n        switch costume to (1 v)\n    end\nend\n\nwhen I receive [oyun başladıo v]\nforever\n    if <(Müzik) = [1]> then\n        if <not <(!Level) = [19]>> then\n            if <not <<(username) = [efegamer66]> or <(username) = [hasanbaba123456789h]>>> then\n                wait (0) seconds\n                play sound [Heartache \(from Undertale\) - Piano Tutorial v] until done\n            end\n            if <(username) = [efegamer66]> then\n                play sound [Undertale Megolovania v] until done\n            end\n            if <(username) = [hasanbaba123456789h]> then\n                play sound [Vicetone & Tony Igy - Astronomia v] until done\n            end\n        end\n    end\nend\n\nwhen flag clicked\nwait (0.01) seconds\nforever\n    if <(!Level) = [19]> then\n        stop all sounds\n        wait until <[1] = [2]>\n    end\nend\n\nwhen flag clicked\nwait (0.01) seconds\nforever\n    if <(!Level) = [19]> then\n        play sound [Dance Around v] until done\n    end\nend\n\nwhen flag clicked\nset [!level v] to [1]\n\n@Yıldızlar\n\nwhen flag clicked\nset [l 14 comp ? v] to [0]\nset [l 15 comp? v] to [0]\nhide\n\nwhen I start as a clone\nshow\nif <(!Level) = [15]> then\n    wait until <(timer) > [15]>\n    repeat until <touching (_edge_ v)?>\n        change y by (10)\n    end\n    set [l 15 comp? v] to [1]\n    delete this clone\nelse\n    repeat until <<touching (_edge_ v)?> or <<(x position) < [-110]> and <(y position) < [-21]>>>\n        move (-10) steps\n    end\n    delete this clone\nend\n\nwhen I receive [oyun başladıo v]\nhide\nforever\n    if <(!Level) = [13]> then\n        go to x: (170) y: (-20)\n        create clone of (_myself_ v)\n        wait (0.6) seconds\n        go to x: (170) y: (-100)\n        create clone of (_myself_ v)\n        wait (0.6) seconds\n    else\n        if <(!Level) = [14]> then\n            reset timer\n            if <(L 14 Comp ?) = [0]> then\n                repeat until <(timer) > [10]>\n                    go to x: (170) y: (-20)\n                    create clone of (_myself_ v)\n                    go to x: (170) y: (-100)\n                    create clone of (_myself_ v)\n                    wait (0.6) seconds\n                end\n                set [l 14 comp ? v] to [1]\n            end\n        else\n            if <(!Level) = [15]> then\n                reset timer\n                go to x: (170) y: (-20)\n                create clone of (_myself_ v)\n                go to x: (170) y: (-100)\n                create clone of (_myself_ v)\n                wait until <(!Level) = [16]>\n            else\n                delete this clone\n            end\n        end\n    end\nend\n\n@İNTRO\n\nwhen flag clicked\nstart sound [Gaster's Theme - Undertale \[Piano Tutorial\] \(Synthesia\)  DS Music v]\npoint in direction (90)\nset [color v] effect to (0)\nset [ghost v] effect to (100)\nrepeat (50)\n    change volume by (2)\n    change [ghost v] effect by (-2)\nend\nwait (3) seconds\nrepeat (50)\n    change volume by (-2)\n    change [ghost v] effect by (2)\nend\nstop all sounds\nbroadcast (Oyun Başladıo v)\n\nwhen flag clicked\nforever\n    if <(username) = [efegamer66]> then\n        switch costume to (i̇ntro2 v)\n    else\n        switch costume to (i̇ntro v)\n    end\nend\n\n@TN\n\nwhen flag clicked\nset [ghost v] effect to (100)\ngo to [front v] layer\n\n@Kukla 1\n\nwhen this sprite clicked\nset [müzik v] to [0]\nstop all sounds\nhide\n\nwhen flag clicked\nhide\n\nwhen I receive [oyun başladıo v]\ngo to x: (203) y: (-163)\nshow\n\n