KÜP III (a HARD Platformer)
@Stage\n\nwhen flag clicked\nforever\n    switch backdrop to (!Level)\nend\n\n@Oyuncu\n\ndefine Oyuncuyu getir: (x) (y) Büyüklüğü: (size)\ngo to x: (x) y: (y)\nset size to (size) %\n\ndefine Yerçekimi ve Fizikler falan\nforever\n    if <(Bölüm Test) = [1]> then\n        change [y v] by (-1)\n        if <<key (a 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 <<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 (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 (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 (tikenn v)?> or <touching (engeller v)?>> or <(y position) < [-175]>> or <<key (r v) pressed?> or <touching (rip v)?>>> then\n            Oyuncuyu getir: [-173] [-122] Büyüklüğü: [40]\n            broadcast (OOf v)\n        end\n        if <touching color (#f6ff00)?> then\n            set [y v] to [20]\n        end\n    else\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 (tikenn v)?> or <touching (engeller v)?>> or <(y position) < [-175]>> or <<key (r v) pressed?> or <touching (rip v)?>>> then\n            Oyuncuyu getir: [-173] [-122] Büyüklüğü: [40]\n            broadcast (OOf v)\n        end\n        if <touching color (#f6ff00)?> then\n            set [y v] to [20]\n        end\n    end\nend\n\nwhen flag clicked\nset [müzik v] to [1]\nset [for musc 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\nOyuncuyu getir: [-173] [-122] Büyüklüğü: [40]\nhide variable [y v]\nhide variable [x v]\nset [y v] to [0]\nset [x v] to [0]\nforever\n    Yerçekimi ve Fizikler falan\nend\n\nwhen I receive [oyun başladıo v]\nforever\n    if <(username) = [OYUNKONSOLU41]> then\n        switch costume to (8 v)\n    end\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]>> or <(username) = [OYUNKONSOLU41]>>> 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) = [24]>> then\n            if <not <<(username) = [efegamer66]> or <(username) = [hasanbaba123456789h]>>> then\n                if <(For musc) = [1]> then\n                    wait (0) seconds\n                    play sound [Undertale - Papyrus Theme Song - Bonetrousle v] until done\n                end\n                if <(For musc) = [2]> then\n                    wait (0) seconds\n                    play sound [Vicetone & Tony Igy - Astronomia v] until done\n                end\n                if <(For musc) = [3]> then\n                    wait (0) seconds\n                    play sound [\[8-bit\] Bonetrousle  Undertale v] until done\n                end\n                if <(For musc) = [4]> then\n                    wait (0) seconds\n                    play sound [Undertale Megolovania v] until done\n                end\n                if <(For musc) = [5]> then\n                    wait (0) seconds\n                    play sound [Heartache \(from Undertale\) - Piano Tutorial v] until done\n                end\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) = [24]> 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) = [24]> then\n        play sound [Dance Around v] until done\n    end\nend\n\nwhen flag clicked\nset [!level v] to [1]\n\nwhen I receive [i̇ntro bitişe git v]\nforever\n    if <<not <(!Level) = [24]>> and <not <(!Level) = [5]>>> then\n        if <(x position) > [230]> then\n            change [!level v] by (1)\n            Oyuncuyu getir: [-173] [-122] Büyüklüğü: [40]\n        end\n    else\n        if <[-230] > (x position)> then\n            if <(!Level) = [5]> then\n                change [!level v] by (1)\n                Oyuncuyu getir: [-173] [-122] Büyüklüğü: [40]\n            end\n        end\n    end\nend\n\n@Tikenn\n\nwhen flag clicked\n\ngo to x: (16) y: (-77)\nforever\n    if <(!Level) = [14]> then\n        wait until <(distance to [oyuncu v]) < [70]>\n        go to x: (16) y: (0)\n    end\nend\n\nwhen I receive [oof v]\nset [x v] to [0]\nset [y v] to [0]\nwait (0.01) seconds\ngo to x: (16) y: (-77)\n\nwhen flag clicked\nhide\n\nwhen flag clicked\n\nforever\n    if <(!Level) = [14]> then\n        show\n    else\n        hide\n    end\nend\n\n@TN\n\nwhen flag clicked\nset [ghost v] effect to (100)\ngo to [front v] layer\n\n@Rip\n\nwhen I start as a clone\nshow\nif <(!Level) = [14]> then\n    repeat until <[170] < (y position)>\n        set size to (15) %\n        change y by (5)\n    end\n    delete this clone\nend\nif <(!Level) = [20]> then\n    if <(nereye) = [yana]> then\n        repeat until <(x position) < [-110]>\n            set size to (20) %\n            change x by (-5)\n        end\n        delete this clone\n    end\n    if <(nereye) = [alta]> then\n        repeat until <(y position) < [-120]>\n            set size to (20) %\n            change y by (-5)\n        end\n        delete this clone\n    end\nend\n\nwhen I receive [oyun başladıo v]\npoint in direction (180)\nhide\nforever\n    if <(!Level) = [14]> then\n        point in direction (180)\n        go to x: (170) y: (-200)\n        create clone of (_myself_ v)\n        wait (1) seconds\n    end\n    if <(!Level) = [20]> then\n        point in direction (90)\n        go to x: (200) y: (-95)\n        set [nereye v] to [yana]\n        create clone of (_myself_ v)\n        wait (0.8) seconds\n        point in direction (0)\n        go to x: (0) y: (200)\n        set [nereye v] to [alta]\n        create clone of (_myself_ v)\n        wait (0.7) seconds\n    end\nend\n\nwhen I start as a clone\nforever\n    wait (0.01) seconds\n    next costume\nend\n\nwhen flag clicked\nset size to (15) %\nset [l 14 comp ? v] to [0]\nset [l 15 comp? v] to [0]\nhide\n\nwhen I start as a clone\nforever\n    if <<not <(!Level) = [14]>> and <not <(!Level) = [20]>>> then\n        delete this clone\n    end\nend\n\n@Level\n\nwhen flag clicked\nforever\n    switch costume to (!Level)\nend\n\nwhen flag clicked\ngo to [front v] layer\nhide\n\nwhen I receive [oyun başladıo v]\nshow\n\n@Temmie Flakes!\n\nwhen I receive [haber1 v]\nshow\n\nwhen flag clicked\ngo to [front v] layer\ngo to x: (0) y: (0)\nhide\n\nwhen I receive [haber2 v]\nhide\n\nwhen I receive [i̇ntro bitişe git v]\nhide\n\n@Back\n\nwhen I receive [i̇ntro bitişe git v]\nhide\n\nwhen flag clicked\nshow\n\n@Yazı\n\nwhen flag clicked\nswitch costume to (kostüm 2 v)\nset size to (100) %\nhide\ngo to x: (-85) y: (0)\n\nwhen I receive [i̇ntro bitişe git v]\nbroadcast (Oyun Başladıo v)\nforever\n    hide\nend\n\nwhen I receive [yazı gelsin v]\nshow\ngo to x: (-85) y: (0)\nrepeat until <<mouse down?> or <key (any v) pressed?>>\n    show\n    wait (1) seconds\n    hide\n    wait (0.2) seconds\nend\n\nwhen I receive [haber1 v]\nswitch costume to (kostüm 1 v)\n\nwhen I receive [haber2 v]\nswitch costume to (kostüm 2 v)\n\nwhen I receive [i̇ntro bitişe git v]\nstop [other scripts in sprite v]\nstop [this script v]\n\nwhen I receive [yazı gelsin v]\nwait until <<mouse down?> or <key (any v) pressed?>>\nbroadcast (İntro Bitişe git v)\n\nwhen flag clicked\nwait until <key (g v) pressed?>\nbroadcast (İntro Bitişe git v)\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@Panel\n\nwhen flag clicked\nset [bölüm test v] to [0]\nforever\n    if <<<key (c v) pressed?> and <key (v v) pressed?>> and < (Yöneticiler) contains (username)?>> then\n        ask [] and wait\n        if <(answer) = [bt]> then\n            if <(Bölüm Test) = [0]> then\n                set [bölüm test v] to [1]\n            else\n                set [bölüm test v] to [0]\n            end\n        end\n        if <(answer) = [g]> then\n            change [!level v] by (-1)\n        end\n        if <(answer) = [i]> then\n            change [!level v] by (1)\n        end\n    end\n    if <(answer) = [m]> then\n        ask [] and wait\n        if <not <(answer) = []>> then\n            set [for musc v] to (answer)\n        end\n    end\nend\n\nwhen flag clicked\nset [bölüm test v] to [0]\nforever\n    if <<key (b v) pressed?> and < (Yöneticiler) contains (username)?>> then\n        ask [] and wait\n        if <not <(answer) = []>> then\n            set [!level v] to (answer)\n        end\n    end\nend\n\n@İntro\n\nwhen flag clicked\nset size to (90) %\ngo to x: (0) y: (0)\nset [efekt v] to [0]\nset [i̇ntro geçildi mi v] to [0]\nrepeat until <(İntro Geçildi mi) = [1]>\n    point in direction ((90) + (([sin v] of (Efekt) ) * (3)))\n    change [efekt v] by (5)\n    change y by ((0) + (([sin v] of (Efekt) ) * (0.5)))\nend\n\nwhen flag clicked\nstart sound [Spooky Scary Skeletons \[Remix\] \[Extended Mix\] v]\n\nrepeat until <(İntro Geçildi mi) = [1]>\nend\n\nwhen flag clicked\nforever\n    set [gereksiz v] to (timer)\nend\n\nwhen flag clicked\ngo to [front v] layer\nshow\nset size to (95) %\nswitch costume to (cepte v)\nwait (7.530) seconds\nrepeat until <(İntro Geçildi mi) = [1]>\n    switch costume to (dunk v)\n    set size to (105) %\n    create clone of (_myself_ v)\n    wait (0.46) seconds\n    create clone of (_myself_ v)\n    set size to (95) %\n    wait (0.46) seconds\n    set size to (105) %\n    create clone of (_myself_ v)\n    wait (0.46) seconds\n    switch costume to (kostüm 1 v)\n    create clone of (_myself_ v)\n    set size to (95) %\n    wait (0.46) seconds\n    set size to (105) %\n    create clone of (_myself_ v)\n    wait (0.46) seconds\n    create clone of (_myself_ v)\n    set size to (95) %\n    wait (0.46) seconds\n    switch costume to (cepte v)\n    set size to (105) %\n    create clone of (_myself_ v)\n    wait (0.46) seconds\n    create clone of (_myself_ v)\n    set size to (95) %\n    wait (0.46) seconds\n    switch costume to (cepte2 v)\n    set size to (105) %\n    create clone of (_myself_ v)\n    wait (0.46) seconds\n    set size to (95) %\n    create clone of (_myself_ v)\n    wait (0.46) seconds\nend\n\nwhen I start as a clone\nrepeat (10)\n    change size by (6)\n    change [ghost v] effect by (10)\n    wait (0.01) seconds\nend\ndelete this clone\n\nset size to (110) %\nset size to (100) %\nset size to (110) %\n\nwhen flag clicked\nwait (12.13) seconds\nbroadcast (Yazı Gelsin v)\n\nwhen I receive [i̇ntro bitişe git v]\nhide\nstop [other scripts in sprite v]\nstop [this script v]\n\nwhen I receive [i̇ntro bitişe git v]\nrepeat (10)\n    delete this clone\nend\n\nwhen I receive [oyun başladıo v]\nstop all sounds\n\n
 ▧▧▧▧▧▧▧▧▧▧▧ KÜP III ▧▧▧▧▧▧▧▧▧▧▧▧\n➳W,A,S,D veya 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➳"G" Tuşu ile İntroyu Geçebilirsiniz\n➳Oyun test edilmiştir İMKANSIZ BÖLÜM YOKTUR\n\n►KÜP III Oyununu KÜP II' den Ayıran Özellikler Grafikler ve Bölümlerdir\n\n-Arkadaşlar bölümler çok zor biliyorum o yüzden yoğun istek gelirse bi tık daha kolay yapabilirim\n\n