Anlık BAN Sistemi - Hesap , Sohbet , Karakter

Merhabalar , Geliştirilmiş BAN Sistemini Paylaşiyorum sizlerle

--------------------
---Bu quest ile hem hesap engeli atabilir, kaldırabilir yada oyuncuya sohbet engeli atabilirsiniz. ayrıyeten de engeli kaldırabilirsiniz.
--------------------
quest chatban begin
 state start begin
  when login with pc.is_gm() begin
   set_state(chatban)
  end
 end
 state chatban begin
  when letter begin
   send_letter("Chat Engel ayarları ")
  end
  when button or info begin
   say_title("Hesap ayarları :")
   say("Ne yapmak istiyorsunuz?")
   local menu = select("Sohbet engeli ayarları ","Hesap engelle/engel 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    endkaynak:mt2dosyalar

03:19