- İşte İşte İşte: Oyuncu İçi Ban Atma Macerası

--------------------
---Quest sayesinde ban ve sohbet banı atıp, kaldırabilirsiniz...
---MMOZirve Cepniboyu
--------------------
quest kontrol begin
    state start begin
        when login with pc.is_gm() begin
            set_state(cepniboyu)
        end
    end
    state cepniboyu begin
        when letter begin
            send_letter("Ban İşlemleri")
        end
        when button or info begin
            say_title("Ban İşlemleri :")
            say("Karar vermeden önce iyi düşün!")
            local menu = select("Sohbet banı ","Hesap Banla, Ban kaldır.","Kapat")
            if menu == 1 then
                say("Lütfen seçiniz")
                local menu2 = select("Sohbet engeli at","Engel kaldır","Engel alan oyuncuları gör","Kapat")
                if menu2 == 1 then
                    say("Sohbet engelleme genel bilgi:")
                    say("Lütfen oyuncu adını giriniz")
                    local isim = input()
                    say("Kaç dakika yada saat engel atılsın?")
                    say("Unutmayın 1 saat = 60 dakika.")
                    local dk = input()
                    say(""..isim.." isimli oyuncuya[ENTER]"..dk.." dakika sohbet engeli atılsın mı?")
                    local menu3 = select("Evet","Hayır")
                    if menu3 == 1 then
                        notice_all(isim.." isimli oyuncuya "..dk.." dakika sohbet engeli atıldı.")
                        dk = tonumber(dk)*60
                        command("block_chat "..isim.." "..dk)
                    elseif menu3 == 2 then
                        return
                    end
                elseif menu2 == 2 then
                    say("Sohbet kaldırma hakkında bilgi:")
                    say("Lütfen oyuncunun ismini giriniz.")
                    local isim = input()
                    if find_pc_by_name(isim) == 0 then
                        say("Oyuncu bulunamadı.")
                        return
                    end
                    say(isim.." 'un Sohbet engeli kaldırılsınmı?")
                    local menu3 = select("Evet","Hayır")
                    if menu3 == 1 then
                        command("block_chat "..isim.." 0")
                    elseif menu3== 2 then
                        return
                    end
                elseif menu2 == 3 then
                    command("block_chat_list")
                elseif menu2 == 4 then
                    return
                end
        -- Banlama bölümü
            elseif menu == 2 then
                say("Oyun içi ban paneli:")
                say("Lütfen seçiniz.")
                local menu2 = select("Hesap engelle","Hesap engeli kaldır","Kapat")
                if menu2 == 1 then
                    say("Hesap engeli atılacak olan[ENTER]oyuncunun nickini giriniz.")
                    local isim = input()
                    say(isim.." isimli oyuncuya[ENTER]Hesap engeli atılsın mı? ")
                    local menu2 = select("Evet","Hayır")
                    if menu2 == 1 then
                        local id = mysql_query("SELECT player.account_id from player.player where player.name = '"..isim.."'","root","sifre","player","25.4.100.100")
                        mysql_query("Update account.account set account.status = 'BLOCK' WHERE account.id = "..id.account_id[1].."","root","sifre","account","25.4.100.100")
                        say(isim.." engellendi..")
                    elseif menu2== 2 then
                        return
                    end
                elseif menu2 == 2 then
                    say("Hesap engeli kalkacak olan[ENTER]oyuncunun nickini giriniz.")
                    local isim = input()
                    say(isim.." isimli oyuncunun[ENTER]Hesap engeli kalksın mı? ")
                    local menu2 = select("Evet","Hayır")
                    if menu2 == 1 then
                        local id = mysql_query("SELECT player.account_id from player.player where player.name = '"..isim.."'","root","sifre","player","25.4.100.100")
                        mysql_query("Update account.account set account.status = 'OK' WHERE account.id = "..id.account_id[1].."","root","sifre","account","25.4.100.100")
                        say(isim.." nin hesap engeli kalktı.")
                    elseif menu2== 2 then
                        return
                    end
                elseif menu2 == 3 then
                    return
                end
                    end
                end
            end  
        end

[COLOR=#000000]/usr/game/share/locale/turkey/quest[/COLOR]

[COLOR=#333333]cd [/COLOR][COLOR=#000000]/usr/game/share/locale/turkey/quest
[/COLOR][COLOR=#000000][FONT=&amp]./qc cepniboyuban.quest
[/FONT][/COLOR]