API tools faq
paste
teamturker

servis yüzüğü

teamturker
Feb 21st, 2016
142
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 68.32 KB | None | 0 0
raw download clone embed print report
  1. quest servis begin
  2.     state start begin
  3.         when 40003.use begin
  4.             baslikS = "Servis Yüzüğü:"
  5.             say_title("[WINDOW_SIZE width;350|height;400]"..baslikS)
  6.             say("Servis menüsüne hoş geldin , "..pc.get_name())
  7.             say("Ne yapmak istiyorsun ?")
  8.            
  9.             pcservis = {"Biyolog İşlemleri","Karakter İşlemleri","Banka İşlemleri","Arkadaşını Çağır","Konum Kaydet","İtem Satınal","VIP Menü"}
  10.             pcservissay = tonumber(table.getn(pcservis))
  11.             pcservis[pcservissay + 1] = "Kapat"
  12.             pcservismenu = select_table(pcservis)
  13.            
  14.             if pcservismenu == 1 then
  15.                 local index = pc.get_map_index()
  16.                 if index != 211 and index != 79 then
  17.                     if index == 72 or index == 73 or index == 41 or index == 1 or index == 21 then
  18.                         local b = pc.get_empire()
  19.                         command("setblockmode 1")
  20.                         if pc.getqf("bio_gittim") == 0 then
  21.                             local x = pc.getx()
  22.                             local y = pc.gety()
  23.                             say_title("Merhaba "..pc.get_name())
  24.                             say("Biyolog'un yanına ışınlanmak istiyor musun?")
  25.                             say("")
  26.                             local a = select(locale.yes,locale.no)
  27.                             if a == 1 then
  28.                                 pc.setqf("bio_x",x)
  29.                                 pc.setqf("bio_y",y)
  30.                                 pc.setqf("bio_gittim",1)
  31.                                 if b == 1 then
  32.                                     pc.warp(473200,953700)
  33.                                 elseif b == 2 then
  34.                                     pc.warp(65200,165800)
  35.                                 elseif b == 3 then
  36.                                     pc.warp(957900,268900)
  37.                                 end
  38.                             end
  39.                         else
  40.                             say_title("Servis Yüzüğü: ")
  41.                             say("Son noktaya dönmek ister misin?")
  42.                             say("")
  43.                             local c =  select(locale.yes,locale.no)
  44.                             if c == 1 then
  45.                                 pc.setqf("bio_gittim",0)
  46.                                 pc.warp(pc.getqf("bio_x")*100,pc.getqf("bio_y")*100)
  47.                             end
  48.                         end
  49.                     else
  50.                         say_title("Servis Yüzüğü: ")
  51.                         say("Bu bölümü sadece sürgün ")
  52.                         say("mağarasında kullanabilirsin.")
  53.                         return
  54.                     end    
  55.                 else
  56.                     say_title("Servis Yüzüğü: ")
  57.                     say("Baronesin yuvasında ve Ejder Odasında ")
  58.                     say("bu bölümü kullanamazsın.")
  59.                     return
  60.                 end
  61.             elseif pcservismenu == 2 then
  62.                 say_title("Servis: Karakter İşlemleri")
  63.                 say("Servis menüsüne hoş geldin , "..pc.get_name())
  64.                 say("Ne yapmak istiyorsun ?")
  65.                
  66.                 karakterislem = {"Statü Sıfırla","Beceri Sıfırla"}
  67.                 karakterislemsay = tonumber(table.getn(karakterislem))
  68.                 karakterislem[karakterislemsay + 1] = "Kapat"
  69.                 karakterislemmenu = select_table(karakterislem)
  70.                
  71.                 if karakterislemmenu == 1 then -- statü sıfırla
  72.                     say_title("Servis Yüzüğü: Statü Sıfırlama Modülü")
  73.                     say("")
  74.                     say("Bu hizmet henüz yapım aşamasında!")
  75.                 elseif karakterislemmenu == 2 then -- beceri sıfırla
  76.                     if pc.get_level() < 15 then
  77.                         say_title("Servis Yüzüğü: Beceri Sıfırlama Modülü ")
  78.                         say("Bu seçeneği 15.seviye ve daha üst ")
  79.                         say("karakter kullanabilir.")
  80.                         return
  81.                     else
  82.                         local sure = pc.getqf("beceri_islem")
  83.                         if get_time() < sure then
  84.                             say_title("Servis Yüzüğü: Beceri Sıfırlama Modülü ")
  85.                             say("30 dakika boyunca bu işlemi ")
  86.                             say("kullanamazsın.")
  87.                             say("")
  88.                             say_reward("Kalan Süre :"..(math.ceil(sure-get_time())/60).." dakika")
  89.                             return
  90.                         else
  91.                             say_title("Servis Yüzüğü: Beceri Sıfırlama Modülü ")               
  92.                             say("Ne yapmak istiyorsun?")               
  93.                             local skill = select("Beceri Sıfırla ", "Kapat")
  94.                             if skill == 1 then
  95.                                 if  pc.get_skill_group() == 0 then
  96.                                     say_title("Servis Yüzüğü: Beceri Sıfırlama Modülü ")
  97.                                     say("")
  98.                                     say("Beceri Sıfırlamaya ihtiyacın yok.")
  99.                                     say("Çünkü daha becerilerini almamışsın.")
  100.                                     say("")
  101.                                     return
  102.                                 end
  103.                                 pc.setqf("beceri_islem",get_time()+60*30)
  104.                                 char_log(0, "RESET_ALL", "RESET_SKILL_POINTS")
  105.                                 pc.clear_skill()
  106.                                 pc.set_skill_level (137,20)
  107.                                 pc.set_skill_level (138,20)
  108.                                 pc.set_skill_level (139,20)
  109.                                 pc.set_skill_level (131,10)
  110.                                 pc.set_skill_level (129,40)
  111.                                 pc.set_skill_level (128,20)
  112.                                 pc.set_skill_level (127,20)
  113.                                 pc.set_skill_level (126,20)
  114.                                 pc.set_skill_level (124,40)
  115.                                 pc.set_skill_level (121,40)
  116.                                 pc.set_skill_level (122,2)
  117.                                 pc.set_skill_group(0)
  118.                                 set_quest_state("skill_group","run")
  119.                             elseif skill == 3 then
  120.                                 return
  121.                             end
  122.                         end
  123.                     end
  124.                 elseif karakterislemmenu == 3 then
  125.                     return
  126.                 and
  127.             elseif pcservismenu == 3 then
  128.                 if pc.is_gm and pc.get_name() == "[GM]Admin" then
  129.                 oyuncu_bilgileri = {}
  130.                 baslikO = "Bilgilendirme:"
  131.                 baslikOL = "Uyarı:"
  132.                 yonetici_isim = pc.get_name()
  133.                 say_title(baslikO)
  134.                 say("")
  135.                 say("Merhaba yönetici, "..yonetici_isim)
  136.                 say("Buradan banka hesap şifresini unutan oyunculara")
  137.                 say("şifrelerini iletebilir ve oyuncuların")
  138.                 say("hesaplarındaki parayı kontroledebilirsin.")
  139.                 say_reward("İşlem yapmak istediğin oyuncunun adını gir: ")
  140.                 oyuncu_isim = tostring(input())
  141.                 oyuncuAra = find_pc_by_name(oyuncu_isim)
  142.                 if oyuncuAra == 0 then
  143.                     say_title(baslikOL)
  144.                     say("")
  145.                     say_reward("Böyle bir oyuncu yok yada oyunda değil.")
  146.                     say("")
  147.                 else
  148.                     o_id = pc.select(oyuncuAra)
  149.                         oyuncu_bilgileri[1] = pc.getqf("banka_hesap_sifresi")
  150.                         oyuncu_bilgileri[2] = pc.getqf("banka_hesap_A")
  151.                         oyuncu_bilgileri[3] = pc.getqf("banka_hesap_B")
  152.                         oyuncu_bilgileri[4] = pc.getqf("banka_hesap_C")
  153.                     pc.select(o_id)
  154.            
  155.                     say_title(baslikO)
  156.                     say("")
  157.                     say("Oyuncu bilgileri: ")
  158.                     say("")
  159.                     say_reward("Oyuncu şifresi: "..oyuncu_bilgileri[1])
  160.                     say("")
  161.                     say_reward("Banka Hesabı A: "..genel_veri(oyuncu_bilgileri[2]))
  162.                     say_reward("Banka Hesabı B: "..genel_veri(oyuncu_bilgileri[3]))
  163.                     say_reward("Banka Hesabı C: "..genel_veri(oyuncu_bilgileri[4]))
  164.                     say("")
  165.                     oyuncuBilgiSec = select("Şifreyi İlet","Kapat")
  166.                     if oyuncuBilgiSec == 1 then
  167.                         oyuncuAra = find_pc_by_name(oyuncu_isim)
  168.                         if oyuncuAra != 0 then
  169.                             o_id = pc.select(oyuncuAra)
  170.                                 syschat("Banka hesabı şifreniz yönetici tarafından iletildi. Banka hesap şifreniz: "..oyuncu_bilgileri[1])
  171.                             pc.select(o_id)
  172.                             say_title(baslikO)
  173.                             say("")
  174.                             say("Şifre "..oyuncu_isim.." isimli oyuncuya başarı ile iletilmiştir.")
  175.                             say("")
  176.                         else
  177.                             say_title(baslikOL)
  178.                             say("")
  179.                             say_reward("Oyuncu oyunda görünmüyor!")
  180.                             say("")
  181.                         end
  182.                     elseif oyuncuBilgiSec == 2 then
  183.                         return
  184.                     end -- if oyuncuBilgiSec == 1 then  endi
  185.                 end -- if oyuncuAra == 0 then endi
  186.             end -- if oyuncuAra == 0 then endi
  187.            
  188.             if pc.getqf("banka_hesabi") == 0 then
  189.                 baslikO = "Bilgilendirme:"
  190.                 baslikOL = "Uyarı:"
  191.                 oyuncu_isim = pc.get_name()
  192.                 say_title(baslikO)
  193.                 say("")
  194.                 say("Merhaba oyuncu, "..oyuncu_isim)
  195.                 say("Buradan kendine 3 adet banka açabilirsin.")
  196.                 say("Böylece paran biriktiğinde onları saklamak daha kolay olur.")
  197.                 say("")
  198.                 say_reward("Ne yapmak istiyorsun?")
  199.                 say("")
  200.                 bankaSec = select("Banka Hesabı Oluştur","Kapat")
  201.                 if bankaSec == 1 then
  202.                     say_title(baslikO)
  203.                     say("")
  204.                     say("Öncelikle kendine 6 haneli rakamlardan oluşan bir[ENTER]şifre belirlemen gerekiyor.")
  205.                     say("Şifreyi unuttuğunda sadece yöneticiden geri alabilirsin.")
  206.                     say("Bunun için de bazı bilgilerin onaylanması gerekecek.")
  207.                     say("O nedenden şifreni unutmayacağın düzeyde belirle.")
  208.                     say("")
  209.                     say_reward("Oluşturacağınız banka şifrenizi giriniz: ")
  210.                     say_reward("(Şifre 0 ile başlayamaz!)")
  211.                     bankaSifresi = tonumber(input())
  212.                     sifreKontrol = gelismis_banka.bankaSifreKontrol(bankaSifresi)
  213.                     if not sifreKontrol then
  214.                         return
  215.                     end
  216.                     say_title(baslikO)
  217.                     say("")
  218.                     say("Banka şifreniz: "..bankaSifresi)
  219.                     say("")
  220.                     say_reward("Şifrenizi onaylıyor musunuz?")
  221.                     say("")
  222.                     sifreOnayi = select("Evet","Hayır")
  223.                     if sifreOnayi == 1 then
  224.                         pc.setqf("banka_hesap_sifresi",bankaSifresi)
  225.                         pc.setqf("banka_hesabi",1)
  226.                         say_title(baslikO)
  227.                         say("")
  228.                         say("Şifreniz belirlemiş olduğunuz şekilde kayıt edildi [ENTER]ve hesabınız açıldı.")
  229.                         say("")
  230.                         say_reward("Banka hesap şifreniz: "..pc.getqf("banka_hesap_sifresi"))
  231.                         pc.setqf("banka_hesap_A",0)
  232.                         pc.setqf("banka_hesap_B",0)
  233.                         pc.setqf("banka_hesap_C",0)
  234.                         say("")
  235.                     elseif sifreOnayi == 2 then
  236.                         return
  237.                     end -- if sifreOnayi == 1 then endi
  238.                 elseif bankaSec == 2 then
  239.                     return
  240.                 end -- if bankaSec == 1 then endi
  241.             elseif pc.getqf("banka_hesabi") == 1 then
  242.                 baslikO = "Bilgilendirme:"
  243.                 baslikOL = "Uyarı:"
  244.                 oyuncu_isim = pc.get_name()
  245.                 say_title(baslikO)
  246.                 say("")
  247.                 say("Merhaba oyuncu, "..oyuncu_isim)
  248.                 say("Banka hesabına girebilmek için belirlemiş olduğun [ENTER]şifreyi girmen gerekiyor.")
  249.                 say("Şifreni hatırlamıyorsan yöneticiye başvurup,")
  250.                 say("gerekli bilgileri verdikten sonra öğrenebilirsin.")
  251.                 say("")
  252.                 say_reward("Banka şifrenizi giriniz: ")
  253.                 say_reward("(Şifre 0 ile başlayamaz!)")
  254.                 bankaSifresi = tonumber(input())
  255.                 sifreKontrol = gelismis_banka.bankaSifreKontrol(bankaSifresi)
  256.                 if not sifreKontrol then
  257.                     return
  258.                 end -- if not sifreKontrol then endi
  259.                 oyuncu_banka_sifresi = pc.getqf("banka_hesap_sifresi")
  260.                 if bankaSifresi != oyuncu_banka_sifresi then
  261.                     say_title(baslikOL)
  262.                     say("")
  263.                     say_reward("Şifrenizi yanlış girdiniz. Tekrar deneyiniz.")
  264.                     say("")
  265.                 else
  266.                     say_title(baslikO)
  267.                     say("")
  268.                     say("Ne yapmak istersin?")
  269.                     say("")
  270.                     bankaSecenek = select("Para Yatır","Para Çek","Para Gönder","Hesap Durumu","Şifre Değiştir","Kapat")
  271.                     if bankaSecenek == 1 then
  272.                         say_title(baslikO)
  273.                         say("")
  274.                         say("Para yatıracağınız hesabı seçin: ")
  275.                         say("")
  276.                         oyuncu_para = pc.get_money()
  277.                         say_reward("Oyun paranız: "..genel_veri(oyuncu_para))
  278.                         say("")
  279.                         hesapSecDizi = {
  280.                             "Hesap A ("..genel_veri(pc.getqf("banka_hesap_A"))..")",
  281.                             "Hesap B ("..genel_veri(pc.getqf("banka_hesap_B"))..")",
  282.                             "Hesap C ("..genel_veri(pc.getqf("banka_hesap_C"))..")"
  283.                         }
  284.                         hesapSecDiziSay = tonumber(table.getn(hesapSecDizi))
  285.                         hesapSecDizi[hesapSecDiziSay + 1] = "Kapat"
  286.                         hesapSec = select_table(hesapSecDizi)
  287.                         for i=1,hesapSecDiziSay,1 do
  288.                             if hesapSec == hesapSecDiziSay + 1 then
  289.                                 return
  290.                             end -- if hesapSec == hesapSecDiziSay + 1 then endi
  291.                             if hesapSec == i then
  292.                                 say_title(baslikO)
  293.                                 say("")
  294.                                 oyuncu_para = pc.get_money()
  295.                                 say_reward("Hesabınızdaki para: "..genel_veri(oyuncu_para))
  296.                                 say("")
  297.                                 if i == 1 then
  298.                                     say_reward("Banka hesabı A durum: "..genel_veri(pc.getqf("banka_hesap_A")))
  299.                                 elseif i == 2 then
  300.                                     say_reward("Banka hesabı B durum: "..genel_veri(pc.getqf("banka_hesap_B")))
  301.                                 elseif i == 3 then
  302.                                     say_reward("Banka hesabı C durum: "..genel_veri(pc.getqf("banka_hesap_C")))
  303.                                 end -- if i == 1 then endi
  304.                                 say("")
  305.                                 say("Hesaba yüklemek istediğiniz miktarı girin: ")
  306.                                 yuklenecekMiktar = tonumber(input())
  307.                                 yuklenecekMiktarGonder = gelismis_banka.yuklenecekMiktarKontrol(yuklenecekMiktar)
  308.                                 if not yuklenecekMiktarGonder then
  309.                                     return
  310.                                 end -- if not yuklenecekMiktarGonder then endi
  311.                                 if i == 1 then
  312.                                     if pc.getqf("banka_hesap_A")  + yuklenecekMiktar >  1999999999 then
  313.                                         say_title(baslikOL)
  314.                                         say("")
  315.                                         say_reward("Girdiğiniz tutar ile banka hesabı A doluyor.")
  316.                                         say_reward("Para kaybı yaşamamanız için işlem iptal edildi.")
  317.                                         say_reward("Banka hesabınızda en fazla 1.999.999.999 miktar para[ENTER]olabilir.")
  318.                                         say("")
  319.                                     else
  320.                                         pc.setqf("banka_hesap_A",pc.getqf("banka_hesap_A")+yuklenecekMiktar)
  321.                                         para_guncellendi = pc.change_money(-yuklenecekMiktar)
  322.                                         oyuncu_kalan_para = pc.get_money()
  323.                                         hesap_durumu_A = pc.getqf("banka_hesap_A")
  324.                                         say_title(baslikO)
  325.                                         say("")
  326.                                         say("Para hesaba başarı ile yatırılmıştır.")
  327.                                         say("")
  328.                                         say_reward("Kalan paranız: "..genel_veri(oyuncu_kalan_para))
  329.                                         say_reward("Hesap A paranız: "..genel_veri(hesap_durumu_A))
  330.                                         say("")
  331.                                     end -- if pc.getqf("banka_hesap_A")  + yuklenecekMiktar >  1999999999 then endi
  332.                                 elseif i == 2 then
  333.                                     if pc.getqf("banka_hesap_B")  + yuklenecekMiktar >  1999999999 then
  334.                                         say_title(baslikOL)
  335.                                         say("")
  336.                                         say_reward("Girdiğiniz tutar ile banka hesabı B doluyor.")
  337.                                         say_reward("Para kaybı yaşamamanız için işlem iptal edildi.")
  338.                                         say_reward("Banka hesabınızda en fazla 1.999.999.999 miktar para olabilir.")
  339.                                         say("")
  340.                                     else
  341.                                         pc.setqf("banka_hesap_B",pc.getqf("banka_hesap_B")+yuklenecekMiktar)
  342.                                         para_guncellendi = pc.change_money(-yuklenecekMiktar)
  343.                                         oyuncu_kalan_para = pc.get_money()
  344.                                         hesap_durumu_B = pc.getqf("banka_hesap_B")
  345.                                         say_title(baslikO)
  346.                                         say("")
  347.                                         say("Para hesaba başarı ile yatırılmıştır.")
  348.                                         say("")
  349.                                         say_reward("Kalan paranız: "..genel_veri(oyuncu_kalan_para))
  350.                                         say_reward("Hesap B paranız: "..genel_veri(hesap_durumu_B))
  351.                                         say("")
  352.                                     end -- if pc.getqf("banka_hesap_B")  + yuklenecekMiktar >  1999999999 then endi
  353.                                 elseif i == 3 then
  354.                                     if pc.getqf("banka_hesap_C")  + yuklenecekMiktar >  1999999999 then
  355.                                         say_title(baslikOL)
  356.                                         say("")
  357.                                         say_reward("Girdiğiniz tutar ile banka hesabı C doluyor.")
  358.                                         say_reward("Para kaybı yaşamamanız için işlem iptal edildi.")
  359.                                         say_reward("Banka hesabınızda en fazla 1.999.999.999 miktar para olabilir.")
  360.                                         say("")
  361.                                     else
  362.                                         pc.setqf("banka_hesap_C",pc.getqf("banka_hesap_C")+yuklenecekMiktar)
  363.                                         para_guncellendi = pc.change_money(-yuklenecekMiktar)
  364.                                         oyuncu_kalan_para = pc.get_money()
  365.                                         hesap_durumu_C = pc.getqf("banka_hesap_C")
  366.                                         say_title(baslikO)
  367.                                         say("")
  368.                                         say("Para hesaba başarı ile yatırılmıştır.")
  369.                                         say("")
  370.                                         say_reward("Kalan paranız: "..genel_veri(oyuncu_kalan_para))
  371.                                         say_reward("Hesap C paranız: "..genel_veri(hesap_durumu_C))
  372.                                         say("")
  373.                                     end -- if pc.getqf("banka_hesap_C")  + yuklenecekMiktar >  1999999999 then endi
  374.                                 end -- if i == 1 then endi
  375.                             end -- if hesapSec = i then endi
  376.                         end -- for i=1,hesapSecDiziSay,1 do endi
  377.                     elseif bankaSecenek == 2 then
  378.                         say_title(baslikO)
  379.                         say("")
  380.                         say("Para çekeceğiniz hesabı seçin: ")
  381.                         say("")
  382.                         oyuncu_para = pc.get_money()
  383.                         say_reward("Oyun Paranız "..genel_veri(oyuncu_para))
  384.                         say("")
  385.                         hesapSecDizi = {
  386.                             "Hesap A ("..genel_veri(pc.getqf("banka_hesap_A"))..")",
  387.                             "Hesap B ("..genel_veri(pc.getqf("banka_hesap_B"))..")",
  388.                             "Hesap C ("..genel_veri(pc.getqf("banka_hesap_C"))..")"
  389.                         }
  390.                         hesapSecDiziSay = tonumber(table.getn(hesapSecDizi))
  391.                         hesapSecDizi[hesapSecDiziSay + 1 ] = "Kapat"
  392.                         hesapSec = select_table(hesapSecDizi)
  393.                         for i=1,hesapSecDiziSay,1 do
  394.                             if hesapSec == hesapSecDiziSay + 1 then
  395.                                 return
  396.                             end -- if hesapSec = hesapSecDiziSay + 1 then endi
  397.                             if i == hesapSec then
  398.                                 say_title(baslikO)
  399.                                 say("")
  400.                                 oyuncu_para = pc.get_money()
  401.                                 say_reward("Hesabınızdaki para: "..genel_veri(oyuncu_para))
  402.                                 say("")
  403.                                 if i == 1 then
  404.                                     say_reward("Banka hesabı A durum: "..genel_veri(pc.getqf("banka_hesap_A")))
  405.                                 elseif i == 2 then
  406.                                     say_reward("Banka hesabı B durum: "..genel_veri(pc.getqf("banka_hesap_B")))
  407.                                 elseif i == 3 then
  408.                                     say_reward("Banka hesabı C durum: "..genel_veri(pc.getqf("banka_hesap_C")))
  409.                                 end -- if i == 1 then endi
  410.                                 say("")
  411.                                 say("Çekmek istediğiniz miktarı girin: ")
  412.                                 cekilecekMiktar = tonumber(input())
  413.                                 cekilecekMiktarGonder = gelismis_banka.cekilecekMiktarKontrol(cekilecekMiktar)
  414.                                 if not cekilecekMiktarGonder then
  415.                                     return
  416.                                 end -- if not cekilecekMiktarGonder then endi
  417.                                 oyuncu_para = pc.get_money()
  418.                                 if i == 1 then
  419.                                     banka_hesap_A = pc.getqf("banka_hesap_A")
  420.                                     if cekilecekMiktar > banka_hesap_A  then
  421.                                         say_title(baslikOL)
  422.                                         say("")
  423.                                         say_reward("Banka hesabınızda yeterli miktarda para yok.")
  424.                                         say("")
  425.                                     else
  426.                                         pc.setqf("banka_hesap_A",pc.getqf("banka_hesap_A")-cekilecekMiktar)
  427.                                         pc.change_money(cekilecekMiktar)
  428.                                         oyuncu_yeni_para = pc.get_money()
  429.                                         kalan_banka_hesap_A = pc.getqf("banka_hesap_A")
  430.                                         say_title(baslikO)
  431.                                         say("")
  432.                                         say("Para başarı ile çekilmiştir.")
  433.                                         say("")
  434.                                         say_reward("Yeni paranız: "..genel_veri(oyuncu_yeni_para))
  435.                                         say_reward("Kalan banka hesap A paranız: "..genel_veri(kalan_banka_hesap_A))
  436.                                         say("")
  437.                                     end
  438.                                 elseif i == 2 then
  439.                                     banka_hesap_B = pc.getqf("banka_hesap_B")
  440.                                     if cekilecekMiktar > banka_hesap_B  then
  441.                                         say_title(baslikOL)
  442.                                         say("")
  443.                                         say_reward("Banka hesabınızda yeterli miktarda para yok.")
  444.                                         say("")
  445.                                     else
  446.                                         pc.setqf("banka_hesap_B",pc.getqf("banka_hesap_B")-cekilecekMiktar)
  447.                                         pc.change_money(cekilecekMiktar)
  448.                                         oyuncu_yeni_para = pc.get_money()
  449.                                         kalan_banka_hesap_B = pc.getqf("banka_hesap_B")
  450.                                         say_title(baslikO)
  451.                                         say("")
  452.                                         say("Para başarı ile çekilmiştir.")
  453.                                         say("")
  454.                                         say_reward("Yeni paranız: "..genel_veri(oyuncu_yeni_para))
  455.                                         say_reward("Kalan banka hesap B paranız: "..genel_veri(kalan_banka_hesap_B))
  456.                                         say("")
  457.                                     end
  458.                                 elseif i == 3 then
  459.                                     banka_hesap_C = pc.getqf("banka_hesap_C")
  460.                                     if cekilecekMiktar > banka_hesap_C  then
  461.                                         say_title(baslikOL)
  462.                                         say("")
  463.                                         say_reward("Banka hesabınızda yeterli miktarda para yok.")
  464.                                         say("")
  465.                                     else
  466.                                         pc.setqf("banka_hesap_C",pc.getqf("banka_hesap_C")-cekilecekMiktar)
  467.                                         pc.change_money(cekilecekMiktar)
  468.                                         oyuncu_yeni_para = pc.get_money()
  469.                                         kalan_banka_hesap_C = pc.getqf("banka_hesap_C")
  470.                                         say_title(baslikO)
  471.                                         say("")
  472.                                         say("Para başarı ile çekilmiştir.")
  473.                                         say("")
  474.                                         say_reward("Yeni paranız: "..genel_veri(oyuncu_yeni_para))
  475.                                         say_reward("Kalan banka hesap C paranız: "..genel_veri(kalan_banka_hesap_C))
  476.                                         say("")
  477.                                     end
  478.                                 end -- if i == 1 then endi
  479.                             end -- if i = hesapSec then endi
  480.                         end -- for i=1,hesapSecDiziSay,1 do endi
  481.                     elseif bankaSecenek == 3 then
  482.                         say_title(baslikO)
  483.                         say("")
  484.                         say("Merhaba oyuncu, "..oyuncu_isim)
  485.                         say("Buradan dilediğin bir oyuncunun hesabına para[ENTER]gönderebilirsin.")
  486.                         say("")
  487.                         say_reward("Para göndermek istediğin oyuncunun ismini gir: ")
  488.                         say_reward("(Para gönderebilmen için oyuncu oyunda olmalıdır!)")
  489.                         gonderilecekOyuncuAdi = tostring(input())
  490.                         oyuncu_kontrol = gelismis_banka.oyuncuAdiKontrol(gonderilecekOyuncuAdi)
  491.                         if not oyuncu_kontrol then
  492.                             return
  493.                         end -- if not oyuncu_kontrol then endi
  494.                         say_title(baslikO)
  495.                         say("")
  496.                         say("Hangi hesabınızdan para gönderecekseniz seçiniz: ")
  497.                         say("")
  498.                         hesapSecDizi = {
  499.                             "Hesap A ("..genel_veri(pc.getqf("banka_hesap_A"))..")",
  500.                             "Hesap B ("..genel_veri(pc.getqf("banka_hesap_B"))..")",
  501.                             "Hesap C ("..genel_veri(pc.getqf("banka_hesap_C"))..")"
  502.                         }
  503.                         hesapSecDiziSay = tonumber(table.getn(hesapSecDizi))
  504.                         hesapSecDizi[hesapSecDiziSay + 1 ] = "Kapat"
  505.                         hesapSec = select_table(hesapSecDizi)
  506.                         for i=1,hesapSecDiziSay,1 do
  507.                             if hesapSec == hesapSecDiziSay + 1 then
  508.                                 return
  509.                             end -- if hesapSec = hesapSecDiziSay + 1 then endi
  510.                             if i == hesapSec then
  511.                                 say_title(baslikO)
  512.                                 say("")
  513.                                 if i == 1 then
  514.                                     say_reward("Banka hesabı A durum: "..genel_veri(pc.getqf("banka_hesap_A")))
  515.                                 elseif i == 2 then
  516.                                     say_reward("Banka hesabı B durum: "..genel_veri(pc.getqf("banka_hesap_B")))
  517.                                 elseif i == 3 then
  518.                                     say_reward("Banka hesabı C durum: "..genel_veri(pc.getqf("banka_hesap_C")))
  519.                                 end -- if i == 1 then endi
  520.                                 say("")
  521.                                 say("Göndermek istediğiniz miktarı girin: ")
  522.                                 gonderilecekMiktar = tonumber(input())
  523.                                 gonderilecekMiktarGonder = gelismis_banka.gonderilecekMiktarKontrol(gonderilecekMiktar)
  524.                                 if not gonderilecekMiktarGonder then
  525.                                     return
  526.                                 end -- if not gonderilecekMiktarGonder then endi
  527.                                 if i == 1 then
  528.                                     banka_hesap_A = pc.getqf("banka_hesap_A")
  529.                                     if gonderilecekMiktar > banka_hesap_A then
  530.                                         say_title(baslikOL)
  531.                                         say("")
  532.                                         say_reward("Banka hesabınızda yeterli miktarda para yok.")
  533.                                         say("")
  534.                                     else
  535.                                         oyuncuHesabi = {}
  536.                                         oyuncu_ara = find_pc_by_name(gonderilecekOyuncuAdi)
  537.                                         if oyuncu_ara != 0 then
  538.                                             o_id = pc.select(oyuncu_ara)
  539.                                                 oyuncuHesabi[1] = pc.getqf("banka_hesap_A")
  540.                                                 oyuncuHesabi[2] = pc.getqf("banka_hesap_B")
  541.                                                 oyuncuHesabi[3] = pc.getqf("banka_hesap_C")
  542.                                             pc.select(o_id)
  543.                                            
  544.                                             oyuncuBankaHesapDizi = {
  545.                                                 "Hesap A ("..genel_veri(oyuncuHesabi[1])..")",
  546.                                                 "Hesap B ("..genel_veri(oyuncuHesabi[2])..")",
  547.                                                 "Hesap C ("..genel_veri(oyuncuHesabi[3])..")"
  548.                                             }
  549.                                             oyuncuBankaHesapDiziSay = tonumber(table.getn(oyuncuBankaHesapDizi))
  550.                                             oyuncuBankaHesapDizi[oyuncuBankaHesapDiziSay + 1 ] = "Kapat"
  551.                                             say_title(baslikO)
  552.                                             say("")
  553.                                             say("Para göndereceğiniz oyuncunun hesabı seçin: ")
  554.                                             say("")
  555.                                             bankaSec = select_table(oyuncuBankaHesapDizi)
  556.                                             for i=1,oyuncuBankaHesapDiziSay,1 do
  557.                                                 if bankaSec == oyuncuBankaHesapDiziSay + 1 then
  558.                                                     return
  559.                                                 end -- if bankaSec = oyuncuBankaHesapDiziSay + 1 then endi
  560.                                                 if i == bankaSec then
  561.                                                     if i == 1 then
  562.                                                         if (gonderilecekMiktar + oyuncuHesabi[1]) > 1999999999 then
  563.                                                             say_title(baslikOL)
  564.                                                             say("")
  565.                                                             say_reward("Göndereceğiniz para sonrası oyuncunun hesabı dolacak.")
  566.                                                             say_reward("Lütfen başka bir hesap deneyin yada göndereceğiniz para miktarını azaltın.")
  567.                                                             say_reward("Para kaybı yaşanmaması için işleminiz iptal edilmiştir.")
  568.                                                         else
  569.                                                             if oyuncu_ara != 0 then
  570.                                                                 o_id = pc.select(oyuncu_ara)
  571.                                                                     pc.setqf("banka_hesap_A",pc.getqf("banka_hesap_A")+gonderilecekMiktar)
  572.                                                                     syschat(oyuncu_isim.." tarafından A banka hesabanıza "..genel_veri(gonderilecekMiktar).." para aktarıldı.")
  573.                                                                     syschat("A banka hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_A")).." oldu.")
  574.                                                                 pc.select(o_id)
  575.                                                                 pc.setqf("banka_hesap_A",pc.getqf("banka_hesap_A")-gonderilecekMiktar)
  576.                                                                 say_title(baslikO)
  577.                                                                 say("")
  578.                                                                 say("Para başarı ile "..gonderilecekOyuncuAdi.." isimli oyuncunun hesabına aktarıldı.")
  579.                                                                 say("A banka hesabınızdan "..genel_veri(gonderilecekMiktar).." para eksildi.")
  580.                                                                 say("")
  581.                                                                 say_reward("A hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_A")))
  582.                                                                 say("")
  583.                                                             else
  584.                                                                 say_title(baslikOL)
  585.                                                                 say_reward("Para göndereceğiniz oyuncu oyunda görünmüyor.")
  586.                                                                 say("")
  587.                                                             end -- if oyuncu_ara != 0 then endi
  588.                                                         end -- if (gonderilecekMiktar + oyuncuHesabi[1]) > 1999999999 then
  589.                                                     elseif i == 2 then
  590.                                                         if (gonderilecekMiktar + oyuncuHesabi[2]) > 1999999999 then
  591.                                                             say_title(baslikOL)
  592.                                                             say("")
  593.                                                             say_reward("Göndereceğiniz para sonrası oyuncunun hesabı dolacak.")
  594.                                                             say_reward("Lütfen başka bir hesap deneyin yada göndereceğiniz para miktarını azaltın.")
  595.                                                             say_reward("Para kaybı yaşanmaması için işleminiz iptal edilmiştir.")
  596.                                                         else
  597.                                                             if oyuncu_ara != 0 then
  598.                                                                 o_id = pc.select(oyuncu_ara)
  599.                                                                     pc.setqf("banka_hesap_B",pc.getqf("banka_hesap_B")+gonderilecekMiktar)
  600.                                                                     syschat(oyuncu_isim.." tarafından B banka hesabanıza "..genel_veri(gonderilecekMiktar).." para aktarıldı.")
  601.                                                                     syschat("B banka hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_B")).." oldu.")
  602.                                                                 pc.select(o_id)
  603.                                                                 pc.setqf("banka_hesap_A",pc.getqf("banka_hesap_A")-gonderilecekMiktar)
  604.                                                                 say_title(baslikO)
  605.                                                                 say("")
  606.                                                                 say("Para başarı ile "..gonderilecekOyuncuAdi.." isimli oyuncunun hesabına aktarıldı.")
  607.                                                                 say("A banka hesabınızdan "..genel_veri(gonderilecekMiktar).." para eksildi.")
  608.                                                                 say("")
  609.                                                                 say_reward("A hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_A")))
  610.                                                                 say("")
  611.                                                             else
  612.                                                                 say_title(baslikOL)
  613.                                                                 say_reward("Para göndereceğiniz oyuncu oyunda görünmüyor.")
  614.                                                                 say("")
  615.                                                             end -- if oyuncu_ara != 0 then endi
  616.                                                         end -- if (gonderilecekMiktar + oyuncuHesabi[1]) > 1999999999 then
  617.                                                     elseif i == 3 then
  618.                                                         if (gonderilecekMiktar + oyuncuHesabi[3]) > 1999999999 then
  619.                                                             say_title(baslikOL)
  620.                                                             say("")
  621.                                                             say_reward("Göndereceğiniz para sonrası oyuncunun hesabı dolacak.")
  622.                                                             say_reward("Lütfen başka bir hesap deneyin yada göndereceğiniz para miktarını azaltın.")
  623.                                                             say_reward("Para kaybı yaşanmaması için işleminiz iptal edilmiştir.")
  624.                                                         else
  625.                                                             if oyuncu_ara != 0 then
  626.                                                                 o_id = pc.select(oyuncu_ara)
  627.                                                                     pc.setqf("banka_hesap_C",pc.getqf("banka_hesap_C")+gonderilecekMiktar)
  628.                                                                     syschat(oyuncu_isim.." tarafından C banka hesabanıza "..genel_veri(gonderilecekMiktar).." para aktarıldı.")
  629.                                                                     syschat("C banka hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_C")).." oldu.")
  630.                                                                 pc.select(o_id)
  631.                                                                 pc.setqf("banka_hesap_A",pc.getqf("banka_hesap_A")-gonderilecekMiktar)
  632.                                                                 say_title(baslikO)
  633.                                                                 say("")
  634.                                                                 say("Para başarı ile "..gonderilecekOyuncuAdi.." isimli oyuncunun hesabına aktarıldı.")
  635.                                                                 say("A banka hesabınızdan "..genel_veri(gonderilecekMiktar).." para eksildi.")
  636.                                                                 say("")
  637.                                                                 say_reward("A hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_A")))
  638.                                                                 say("")
  639.                                                             else
  640.                                                                 say_title(baslikOL)
  641.                                                                 say_reward("Para göndereceğiniz oyuncu oyunda görünmüyor.")
  642.                                                                 say("")
  643.                                                             end -- if oyuncu_ara != 0 then endi
  644.                                                         end -- if (gonderilecekMiktar + oyuncuHesabi[1]) > 1999999999 then
  645.                                                     end -- if i = 1 then endi
  646.                                                 end -- if i = bankaSec then endi
  647.                                             end -- for i=1,oyuncuBankaHesapDiziSay,1 do endi
  648.                                         else
  649.                                             say_title(baslikOL)
  650.                                             say_reward("Para göndereceğiniz oyuncu oyunda görünmüyor.")
  651.                                             say("")
  652.                                         end
  653.                                     end -- if gonderilecekMiktar > banka_hesap_A then endi
  654.                                 elseif i == 2 then
  655.                                     banka_hesap_B = pc.getqf("banka_hesap_B")
  656.                                     if gonderilecekMiktar > banka_hesap_B then
  657.                                         say_title(baslikOL)
  658.                                         say("")
  659.                                         say_reward("Banka hesabınızda yeterli miktarda para yok.")
  660.                                         say("")
  661.                                     else
  662.                                         oyuncuHesabi = {}
  663.                                         oyuncu_ara = find_pc_by_name(gonderilecekOyuncuAdi)
  664.                                         if oyuncu_ara != 0 then
  665.                                             o_id = pc.select(oyuncu_ara)
  666.                                                 oyuncuHesabi[1] = pc.getqf("banka_hesap_A")
  667.                                                 oyuncuHesabi[2] = pc.getqf("banka_hesap_B")
  668.                                                 oyuncuHesabi[3] = pc.getqf("banka_hesap_C")
  669.                                             pc.select(o_id)
  670.                                            
  671.                                             oyuncuBankaHesapDizi = {
  672.                                                 "Hesap A ("..genel_veri(oyuncuHesabi[1])..")",
  673.                                                 "Hesap B ("..genel_veri(oyuncuHesabi[2])..")",
  674.                                                 "Hesap C ("..genel_veri(oyuncuHesabi[3])..")"
  675.                                             }
  676.                                             oyuncuBankaHesapDiziSay = tonumber(table.getn(oyuncuBankaHesapDizi))
  677.                                             oyuncuBankaHesapDizi[oyuncuBankaHesapDiziSay + 1 ] = "Kapat"
  678.                                             say_title(baslikO)
  679.                                             say("")
  680.                                             say("Para göndereceğiniz oyuncunun hesabı seçin: ")
  681.                                             say("")
  682.                                             bankaSec = select_table(oyuncuBankaHesapDizi)
  683.                                             for i=1,oyuncuBankaHesapDiziSay,1 do
  684.                                                 if bankaSec == oyuncuBankaHesapDiziSay + 1 then
  685.                                                     return
  686.                                                 end -- if bankaSec = oyuncuBankaHesapDiziSay + 1 then endi
  687.                                                 if i == bankaSec then
  688.                                                     if i == 1 then
  689.                                                         if (gonderilecekMiktar + oyuncuHesabi[1]) > 1999999999 then
  690.                                                             say_title(baslikOL)
  691.                                                             say("")
  692.                                                             say_reward("Göndereceğiniz para sonrası oyuncunun hesabı dolacak.")
  693.                                                             say_reward("Lütfen başka bir hesap deneyin yada göndereceğiniz para miktarını azaltın.")
  694.                                                             say_reward("Para kaybı yaşanmaması için işleminiz iptal edilmiştir.")
  695.                                                         else
  696.                                                             if oyuncu_ara != 0 then
  697.                                                                 o_id = pc.select(oyuncu_ara)
  698.                                                                     pc.setqf("banka_hesap_A",pc.getqf("banka_hesap_A")+gonderilecekMiktar)
  699.                                                                     syschat(oyuncu_isim.." tarafından A banka hesabanıza "..genel_veri(gonderilecekMiktar).." para aktarıldı.")
  700.                                                                     syschat("A banka hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_A")).." oldu.")
  701.                                                                 pc.select(o_id)
  702.                                                                 pc.setqf("banka_hesap_B",pc.getqf("banka_hesap_B")-gonderilecekMiktar)
  703.                                                                 say_title(baslikO)
  704.                                                                 say("")
  705.                                                                 say("Para başarı ile "..gonderilecekOyuncuAdi.." isimli oyuncunun hesabına aktarıldı.")
  706.                                                                 say("B banka hesabınızdan "..genel_veri(gonderilecekMiktar).." para eksildi.")
  707.                                                                 say("")
  708.                                                                 say_reward("B hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_B")))
  709.                                                                 say("")
  710.                                                             else
  711.                                                                 say_title(baslikOL)
  712.                                                                 say_reward("Para göndereceğiniz oyuncu oyunda görünmüyor.")
  713.                                                                 say("")
  714.                                                             end -- if oyuncu_ara != 0 then endi
  715.                                                         end -- if (gonderilecekMiktar + oyuncuHesabi[1]) > 1999999999 then
  716.                                                     elseif i == 2 then
  717.                                                         if (gonderilecekMiktar + oyuncuHesabi[2]) > 1999999999 then
  718.                                                             say_title(baslikOL)
  719.                                                             say("")
  720.                                                             say_reward("Göndereceğiniz para sonrası oyuncunun hesabı dolacak.")
  721.                                                             say_reward("Lütfen başka bir hesap deneyin yada göndereceğiniz para miktarını azaltın.")
  722.                                                             say_reward("Para kaybı yaşanmaması için işleminiz iptal edilmiştir.")
  723.                                                         else
  724.                                                             if oyuncu_ara != 0 then
  725.                                                                 o_id = pc.select(oyuncu_ara)
  726.                                                                     pc.setqf("banka_hesap_B",pc.getqf("banka_hesap_B")+gonderilecekMiktar)
  727.                                                                     syschat(oyuncu_isim.." tarafından B banka hesabanıza "..genel_veri(gonderilecekMiktar).." para aktarıldı.")
  728.                                                                     syschat("B banka hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_B")).." oldu.")
  729.                                                                 pc.select(o_id)
  730.                                                                 pc.setqf("banka_hesap_B",pc.getqf("banka_hesap_B")-gonderilecekMiktar)
  731.                                                                 say_title(baslikO)
  732.                                                                 say("")
  733.                                                                 say("Para başarı ile "..gonderilecekOyuncuAdi.." isimli oyuncunun hesabına aktarıldı.")
  734.                                                                 say("B banka hesabınızdan "..genel_veri(gonderilecekMiktar).." para eksildi.")
  735.                                                                 say("")
  736.                                                                 say_reward("B hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_B")))
  737.                                                                 say("")
  738.                                                             else
  739.                                                                 say_title(baslikOL)
  740.                                                                 say_reward("Para göndereceğiniz oyuncu oyunda görünmüyor.")
  741.                                                                 say("")
  742.                                                             end -- if oyuncu_ara != 0 then endi
  743.                                                         end -- if (gonderilecekMiktar + oyuncuHesabi[1]) > 1999999999 then
  744.                                                     elseif i == 3 then
  745.                                                         if (gonderilecekMiktar + oyuncuHesabi[3]) > 1999999999 then
  746.                                                             say_title(baslikOL)
  747.                                                             say("")
  748.                                                             say_reward("Göndereceğiniz para sonrası oyuncunun hesabı dolacak.")
  749.                                                             say_reward("Lütfen başka bir hesap deneyin yada göndereceğiniz para miktarını azaltın.")
  750.                                                             say_reward("Para kaybı yaşanmaması için işleminiz iptal edilmiştir.")
  751.                                                         else
  752.                                                             if oyuncu_ara != 0 then
  753.                                                                 o_id = pc.select(oyuncu_ara)
  754.                                                                     pc.setqf("banka_hesap_C",pc.getqf("banka_hesap_C")+gonderilecekMiktar)
  755.                                                                     syschat(oyuncu_isim.." tarafından C banka hesabanıza "..genel_veri(gonderilecekMiktar).." para aktarıldı.")
  756.                                                                     syschat("C banka hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_C")).." oldu.")
  757.                                                                 pc.select(o_id)
  758.                                                                 pc.setqf("banka_hesap_B",pc.getqf("banka_hesap_B")-gonderilecekMiktar)
  759.                                                                 say_title(baslikO)
  760.                                                                 say("")
  761.                                                                 say("Para başarı ile "..gonderilecekOyuncuAdi.." isimli oyuncunun hesabına aktarıldı.")
  762.                                                                 say("B banka hesabınızdan "..genel_veri(gonderilecekMiktar).." para eksildi.")
  763.                                                                 say("")
  764.                                                                 say_reward("B hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_B")))
  765.                                                                 say("")
  766.                                                             else
  767.                                                                 say_title(baslikOL)
  768.                                                                 say_reward("Para göndereceğiniz oyuncu oyunda görünmüyor.")
  769.                                                                 say("")
  770.                                                             end -- if oyuncu_ara != 0 then endi
  771.                                                         end -- if (gonderilecekMiktar + oyuncuHesabi[1]) > 1999999999 then
  772.                                                     end -- if i = 1 then endi
  773.                                                 end -- if i = bankaSec then endi
  774.                                             end -- for i=1,oyuncuBankaHesapDiziSay,1 do endi
  775.                                         else
  776.                                             say_title(baslikOL)
  777.                                             say_reward("Para göndereceğiniz oyuncu oyunda görünmüyor.")
  778.                                             say("")
  779.                                         end
  780.                                     end -- if gonderilecekMiktar > banka_hesap_A then endi
  781.                                 elseif i == 3 then
  782.                                     banka_hesap_C = pc.getqf("banka_hesap_C")
  783.                                     if gonderilecekMiktar > banka_hesap_C then
  784.                                         say_title(baslikOL)
  785.                                         say("")
  786.                                         say_reward("Banka hesabınızda yeterli miktarda para yok.")
  787.                                         say("")
  788.                                     else
  789.                                         oyuncuHesabi = {}
  790.                                         oyuncu_ara = find_pc_by_name(gonderilecekOyuncuAdi)
  791.                                         if oyuncu_ara != 0 then
  792.                                             o_id = pc.select(oyuncu_ara)
  793.                                                 oyuncuHesabi[1] = pc.getqf("banka_hesap_A")
  794.                                                 oyuncuHesabi[2] = pc.getqf("banka_hesap_B")
  795.                                                 oyuncuHesabi[3] = pc.getqf("banka_hesap_C")
  796.                                             pc.select(o_id)
  797.                                            
  798.                                             oyuncuBankaHesapDizi = {
  799.                                                 "Hesap A ("..genel_veri(oyuncuHesabi[1])..")",
  800.                                                 "Hesap B ("..genel_veri(oyuncuHesabi[2])..")",
  801.                                                 "Hesap C ("..genel_veri(oyuncuHesabi[3])..")"
  802.                                             }
  803.                                             oyuncuBankaHesapDiziSay = tonumber(table.getn(oyuncuBankaHesapDizi))
  804.                                             oyuncuBankaHesapDizi[oyuncuBankaHesapDiziSay + 1 ] = "Kapat"
  805.                                             say_title(baslikO)
  806.                                             say("")
  807.                                             say("Para göndereceğiniz oyuncunun hesabı seçin: ")
  808.                                             say("")
  809.                                             bankaSec = select_table(oyuncuBankaHesapDizi)
  810.                                             for i=1,oyuncuBankaHesapDiziSay,1 do
  811.                                                 if bankaSec == oyuncuBankaHesapDiziSay + 1 then
  812.                                                     return
  813.                                                 end -- if bankaSec = oyuncuBankaHesapDiziSay + 1 then endi
  814.                                                 if i == bankaSec then
  815.                                                     if i == 1 then
  816.                                                         if (gonderilecekMiktar + oyuncuHesabi[1]) > 1999999999 then
  817.                                                             say_title(baslikOL)
  818.                                                             say("")
  819.                                                             say_reward("Göndereceğiniz para sonrası oyuncunun hesabı dolacak.")
  820.                                                             say_reward("Lütfen başka bir hesap deneyin yada göndereceğiniz para miktarını azaltın.")
  821.                                                             say_reward("Para kaybı yaşanmaması için işleminiz iptal edilmiştir.")
  822.                                                         else
  823.                                                             if oyuncu_ara != 0 then
  824.                                                                 o_id = pc.select(oyuncu_ara)
  825.                                                                     pc.setqf("banka_hesap_A",pc.getqf("banka_hesap_A")+gonderilecekMiktar)
  826.                                                                     syschat(oyuncu_isim.." tarafından A banka hesabanıza "..genel_veri(gonderilecekMiktar).." para aktarıldı.")
  827.                                                                     syschat("A banka hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_A")).." oldu.")
  828.                                                                 pc.select(o_id)
  829.                                                                 pc.setqf("banka_hesap_C",pc.getqf("banka_hesap_C")-gonderilecekMiktar)
  830.                                                                 say_title(baslikO)
  831.                                                                 say("")
  832.                                                                 say("Para başarı ile "..gonderilecekOyuncuAdi.." isimli oyuncunun hesabına aktarıldı.")
  833.                                                                 say("C banka hesabınızdan "..genel_veri(gonderilecekMiktar).." para eksildi.")
  834.                                                                 say("")
  835.                                                                 say_reward("C hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_C")))
  836.                                                                 say("")
  837.                                                             else
  838.                                                                 say_title(baslikOL)
  839.                                                                 say_reward("Para göndereceğiniz oyuncu oyunda görünmüyor.")
  840.                                                                 say("")
  841.                                                             end -- if oyuncu_ara != 0 then endi
  842.                                                         end -- if (gonderilecekMiktar + oyuncuHesabi[1]) > 1999999999 then
  843.                                                     elseif i == 2 then
  844.                                                         if (gonderilecekMiktar + oyuncuHesabi[2]) > 1999999999 then
  845.                                                             say_title(baslikOL)
  846.                                                             say("")
  847.                                                             say_reward("Göndereceğiniz para sonrası oyuncunun hesabı dolacak.")
  848.                                                             say_reward("Lütfen başka bir hesap deneyin yada göndereceğiniz para miktarını azaltın.")
  849.                                                             say_reward("Para kaybı yaşanmaması için işleminiz iptal edilmiştir.")
  850.                                                         else
  851.                                                             if oyuncu_ara != 0 then
  852.                                                                 o_id = pc.select(oyuncu_ara)
  853.                                                                     pc.setqf("banka_hesap_B",pc.getqf("banka_hesap_B")+gonderilecekMiktar)
  854.                                                                     syschat(oyuncu_isim.." tarafından B banka hesabanıza "..genel_veri(gonderilecekMiktar).." para aktarıldı.")
  855.                                                                     syschat("B banka hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_B")).." oldu.")
  856.                                                                 pc.select(o_id)
  857.                                                                 pc.setqf("banka_hesap_C",pc.getqf("banka_hesap_C")-gonderilecekMiktar)
  858.                                                                 say_title(baslikO)
  859.                                                                 say("")
  860.                                                                 say("Para başarı ile "..gonderilecekOyuncuAdi.." isimli oyuncunun hesabına aktarıldı.")
  861.                                                                 say("C banka hesabınızdan "..genel_veri(gonderilecekMiktar).." para eksildi.")
  862.                                                                 say("")
  863.                                                                 say_reward("C hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_C")))
  864.                                                                 say("")
  865.                                                             else
  866.                                                                 say_title(baslikOL)
  867.                                                                 say_reward("Para göndereceğiniz oyuncu oyunda görünmüyor.")
  868.                                                                 say("")
  869.                                                             end -- if oyuncu_ara != 0 then endi
  870.                                                         end -- if (gonderilecekMiktar + oyuncuHesabi[1]) > 1999999999 then
  871.                                                     elseif i == 3 then
  872.                                                         if (gonderilecekMiktar + oyuncuHesabi[3]) > 1999999999 then
  873.                                                             say_title(baslikOL)
  874.                                                             say("")
  875.                                                             say_reward("Göndereceğiniz para sonrası oyuncunun hesabı dolacak.")
  876.                                                             say_reward("Lütfen başka bir hesap deneyin yada göndereceğiniz para miktarını azaltın.")
  877.                                                             say_reward("Para kaybı yaşanmaması için işleminiz iptal edilmiştir.")
  878.                                                         else
  879.                                                             if oyuncu_ara != 0 then
  880.                                                                 o_id = pc.select(oyuncu_ara)
  881.                                                                     pc.setqf("banka_hesap_C",pc.getqf("banka_hesap_C")+gonderilecekMiktar)
  882.                                                                     syschat(oyuncu_isim.." tarafından C banka hesabanıza "..genel_veri(gonderilecekMiktar).." para aktarıldı.")
  883.                                                                     syschat("C banka hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_C")).." oldu.")
  884.                                                                 pc.select(o_id)
  885.                                                                 pc.setqf("banka_hesap_C",pc.getqf("banka_hesap_C")-gonderilecekMiktar)
  886.                                                                 say_title(baslikO)
  887.                                                                 say("")
  888.                                                                 say("Para başarı ile "..gonderilecekOyuncuAdi.." isimli oyuncunun hesabına aktarıldı.")
  889.                                                                 say("C banka hesabınızdan "..genel_veri(gonderilecekMiktar).." para eksildi.")
  890.                                                                 say("")
  891.                                                                 say_reward("C hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_C")))
  892.                                                                 say("")
  893.                                                             else
  894.                                                                 say_title(baslikOL)
  895.                                                                 say_reward("Para göndereceğiniz oyuncu oyunda görünmüyor.")
  896.                                                                 say("")
  897.                                                             end -- if oyuncu_ara != 0 then endi
  898.                                                         end -- if (gonderilecekMiktar + oyuncuHesabi[1]) > 1999999999 then
  899.                                                     end -- if i = 1 then endi
  900.                                                 end -- if i = bankaSec then endi
  901.                                             end -- for i=1,oyuncuBankaHesapDiziSay,1 do endi
  902.                                         else
  903.                                             say_title(baslikOL)
  904.                                             say_reward("Para göndereceğiniz oyuncu oyunda görünmüyor.")
  905.                                             say("")
  906.                                         end
  907.                                     end -- if gonderilecekMiktar > banka_hesap_A then endi
  908.                                 end -- if i == 1 then endi
  909.                             end --- if i == hesapSec then endi
  910.                         end -- for i=1,hesapSecDiziSay,1 do endi
  911.                        
  912.                     elseif bankaSecenek  == 4 then
  913.                         say_title("Banka Durumunuz:")
  914.                         say("")
  915.                         say_reward("Banka hesabı A: "..genel_veri(pc.getqf("banka_hesap_A")))
  916.                         say_reward("Banka hesabı B: "..genel_veri(pc.getqf("banka_hesap_B")))
  917.                         say_reward("Banka hesabı C: "..genel_veri(pc.getqf("banka_hesap_C")))
  918.                         say("")
  919.                         toplamPara = pc.getqf("banka_hesap_A") + pc.getqf("banka_hesap_B") + pc.getqf("banka_hesap_C")
  920.                         say_reward("Toplam para tutarınız: "..genel_veri(toplamPara))
  921.                         say("")
  922.                     elseif bankaSecenek == 5 then
  923.                         say_title(baslikO)
  924.                         say("")
  925.                         say("Merhaba oyuncu, "..oyuncu_isim)
  926.                         say("Buradan Banka Hesap Şifreni değiştirebilirsin.")
  927.                         say("")
  928.                         say_reward("Yeni şifrenizi giriniz: ")
  929.                         say_reward("(Şifre 0 ile başlayamaz!)")
  930.                         yeniBankaHesapSifresi = tonumber(input())
  931.                         sifreKontrol = gelismis_banka.bankaSifreKontrol(bankaSifresi)
  932.                         if not sifreKontrol then
  933.                             return
  934.                         end -- if not sifreKontrol then endi
  935.                         say_title(baslikO)
  936.                         say("")
  937.                         say_reward("Eski şifreniz: "..pc.getqf("banka_hesap_sifresi"))
  938.                         say("")
  939.                         say_reward("Yeni oluşturduğunuz şifre: "..yeniBankaHesapSifresi)
  940.                         say("")
  941.                         say_reward("Şifrenizi gerçekten değiştirmek istiyor musunuz?")
  942.                         say("")
  943.                         sifreDegistirSec = select("Evet","Hayır")
  944.                         if sifreDegistirSec == 1 then
  945.                             pc.setqf("banka_hesap_sifresi",yeniBankaHesapSifresi)
  946.                             say_title(baslikO)
  947.                             say("")
  948.                             say("Şifre başarı ile değiştirildi.")
  949.                             say("")
  950.                             say_reward("Yeni banka hesap şifreniz: "..pc.getqf("banka_hesap_sifresi"))
  951.                             say("")
  952.                         elseif sifreDegistirSec == 2 then
  953.                             return
  954.                         end
  955.                     elseif bankaSecenek == 6 then
  956.                         return
  957.                     end -- if bankaSecenek == 1 then endi
  958.                 end -- if bankaSifresi != oyuncu_banka_sifresi then endi
  959.             end -- if pc.setqf("banka_hesabi") == 0 then endi
  960.        
  961.                 function bankaSifreKontrol(gelen_banka_sifresi)
  962.                     baslikOL = "Uyarı:"
  963.                     bankaSifresi_f = gelen_banka_sifresi
  964.                     if bankaSifresi_f == "" or bankaSifresi_f == nil then
  965.                         say_title(baslikOL)
  966.                         say("")
  967.                         say_reward("Boş giriş yada geçersiz karakter girişi yapıldı.")
  968.                         say("")
  969.                         return false
  970.                     elseif string.len(bankaSifresi_f) != 6 then
  971.                         say_title(baslikOL)
  972.                         say("")
  973.                         say_reward("Şifre 6 haneden oluşmalı!")
  974.                         say("")
  975.                         return false
  976.                     end -- if bankaSifresi_f == "" or bankaSifresi_f == nil then endi
  977.                     return true
  978.                 end -- function bankaSıfreKontrol(gelen_banka_sifresi) endi
  979.                
  980.                 function yuklenecekMiktarKontrol(gelen_yuklenecek_miktar)
  981.                     baslikO = "Bilgilendirme:"
  982.                     baslikOL = "Uyarı:"
  983.                     oyuncu_para = pc.get_money()
  984.                     yuklenecekMiktar_f = gelen_yuklenecek_miktar
  985.                     if yuklenecekMiktar_f == "" or yuklenecekMiktar_f == nil then
  986.                         say_title(baslikOL)
  987.                         say("")
  988.                         say_reward("Boş bıraktınız yada sayısal değer girmediniz.")
  989.                         say("")
  990.                         return false
  991.                     elseif yuklenecekMiktar_f < 1 or yuklenecekMiktar_f > 1999999999 then
  992.                         say_title(baslikOL)
  993.                         say("")
  994.                         say_reward("En az 1 en fazla 1.999.999.999 tutarını girmelisiniz. ")
  995.                         say("")
  996.                         return false
  997.                     elseif oyuncu_para < yuklenecekMiktar_f then
  998.                         say_title(baslikOL)
  999.                         say("")
  1000.                         say_reward("Hesabınızda yeterli miktarda para yok.")
  1001.                         say("")
  1002.                         return false
  1003.                     end
  1004.                     return true
  1005.                 end
  1006.                
  1007.                 function cekilecekMiktarKontrol(gelen_cekilecek_miktar)
  1008.                     baslikO = "Bilgilendirme:"
  1009.                     baslikOL = "Uyarı:"
  1010.                     oyuncu_para = pc.get_money()
  1011.                     cekilecekMiktar_f = gelen_cekilecek_miktar
  1012.                     if cekilecekMiktar_f == "" or cekilecekMiktar_f == nil then
  1013.                         say_title(baslikOL)
  1014.                         say("")
  1015.                         say_reward("Boş bıraktınız yada sayısal değer girmediniz.")
  1016.                         say("")
  1017.                         return false
  1018.                     elseif cekilecekMiktar_f < 1 or cekilecekMiktar_f > 1999999999 then
  1019.                         say_title(baslikOL)
  1020.                         say("")
  1021.                         say_reward("En az 1 en fazla 1.999.999.999 tutarını girmelisiniz. ")
  1022.                         say("")
  1023.                         return false
  1024.                     elseif (oyuncu_para + cekilecekMiktar_f) > 1999999999 then
  1025.                         say_title(baslikOL)
  1026.                         say("")
  1027.                         say_reward("Girdiğiniz miktar ile oyun paranız sınırı aşıyor.")
  1028.                         say_reward("Para kaybı yaşamamanız için işlem iptal edildi.")
  1029.                         say("")
  1030.                         return false
  1031.                     end
  1032.                     return true
  1033.                 end
  1034.                
  1035.                 function oyuncuAdiKontrol(gelen_oyuncu_adi)
  1036.                     gonderilecekOyuncuAdi_f = gelen_oyuncu_adi
  1037.                     baslikOL="Uyarı:"
  1038.                     oyuncuAra = find_pc_by_name(gonderilecekOyuncuAdi_f)
  1039.                     oyuncuBilgi = {}
  1040.                     o_id = pc.select(oyuncuAra)
  1041.                         oyuncuBilgi[1] = pc.getqf("banka_hesabi")
  1042.                     pc.select(o_id)
  1043.                     if gonderilecekOyuncuAdi_f == "" or gonderilecekOyuncuAdi_f == nil then
  1044.                         say_title(baslikOL)
  1045.                         say("")
  1046.                         say_reward("Boş bıraktınız yada geçersiz giriş yaptınız!")
  1047.                         say("")
  1048.                         return false
  1049.                     elseif oyuncuAra == 0 then
  1050.                         say_title(baslikOL)
  1051.                         say("")
  1052.                         say_reward("Böyle bir oyuncu yok yada oyunda değil.")
  1053.                         say("")
  1054.                         return false
  1055.                     elseif oyuncuBilgi[1] == 0 then
  1056.                         say_title(baslikOL)
  1057.                         say("")
  1058.                         say_reward("Oyuncu banka hesabını henüz açmamış.")
  1059.                         say("")
  1060.                         return false
  1061.                     end
  1062.                     return true
  1063.                 end
  1064.                
  1065.                 function gonderilecekMiktarKontrol(gelen_gonderilecek_miktar)
  1066.                     baslikOL = "Uyarı:"
  1067.                     gonderilecekMiktar_f = gelen_gonderilecek_miktar
  1068.                     if gonderilecekMiktar_f == "" or gonderilecekMiktar_f == nil then
  1069.                         say_title(baslikOL)
  1070.                         say("")
  1071.                         say_reward("Boş bıraktınız yada sayısal değer girmediniz.")
  1072.                         say("")
  1073.                         return false
  1074.                     elseif gonderilecekMiktar_f < 1 or gonderilecekMiktar_f > 1999999999 then
  1075.                         say_title(baslikOL)
  1076.                         say("")
  1077.                         say_reward("En az 1 en fazla 1.999.999.999 tutarını girmelisiniz. ")
  1078.                         say("")
  1079.                         return false
  1080.                     end
  1081.                     return true
  1082.                 end
  1083.             elseif pcservismenu == 4 then
  1084.                 say_title("Servis Yüzüğü: Arkadaş Çağırma Modülü ")
  1085.                 pc.setqf("isinlamaya_tikladim",1)
  1086.                 timer("oyuncu_isinla",1)
  1087.                 istenilecek_esya_kodu = 40003 -- eklenecek eşya kodu
  1088.                 baslikO = "Bilgilendirme:"
  1089.                 baslikOL = "Uyarı:"
  1090.                 oyuncu_isim = pc.get_name()
  1091.                 oyuncu_kimlik = pc.get_player_id()
  1092.                 say_title("[WINDOW_SIZE width;350|height;450]"..baslikO)
  1093.                 say("")
  1094.                 say("Merhaba oyuncu, "..oyuncu_isim)
  1095.                 say("Buradan dilediğin oyuncuyu yanına çağırabilirsin.")
  1096.                 say("Ama unutma ki bunu dakikada sadece 1 kere yapabilirsin.")
  1097.                 say("")
  1098.                 say("Işınlamayı kullanabilmen için hem senin hem de çağıracağın[ENTER]kişinin aşağıdaki eşyaya sahip olması gerekiyor: ")
  1099.                 say_item_vnum(istenilecek_esya_kodu)
  1100.                 say("")
  1101.                 say_reward("Ne yapmak istiyorsun?")
  1102.                 say("")
  1103.                 oyuncu_isinlan_sec = select("Yanına Çağır","Arkadaşını Çağır","Ayarlar","Kapat")
  1104.                 if oyuncu_isinlan_sec == 1 then
  1105.                     say_title(baslikO)
  1106.                     say("")
  1107.                     say_reward("Yanına çağırmak istediğin kişinin ismini gir: ")
  1108.                     cagirilacak_oyuncu_isim = tostring(input())
  1109.                     cagirilacak_oyuncu_isimK = oyuncu_isinlan.isim_kontrol(cagirilacak_oyuncu_isim)
  1110.                     if pc.count_item(istenilecek_esya_kodu) < 1 then
  1111.                         say_title(baslikOL)
  1112.                         say("")
  1113.                         say_reward("Oyuncuyu çağırabilmek için Işınlama Pasaportuna sahip[ENTER]olmanız gerekiyor.")
  1114.                         say("")
  1115.                         return
  1116.                     elseif not cagirilacak_oyuncu_isimK then
  1117.                         say_title(baslikOL)
  1118.                         say("")
  1119.                         say_reward("Hatalı bir giriş yaptınız yada oyuncu oyunda değil.")
  1120.                         say("")
  1121.                         return
  1122.                     elseif cagirilacak_oyuncu_isimK == -1 then
  1123.                         say_title(baslikOL)
  1124.                         say("")
  1125.                         say_reward("Yöneticiyi yanınıza çağıramazsınız!")
  1126.                         say("")
  1127.                         return
  1128.                     elseif cagirilacak_oyuncu_isimK == -2 then
  1129.                         say_title(baslikOL)
  1130.                         say("")
  1131.                         say_reward("Çağırdığınız oyuncu ışınlama isteklerini kabul etmiyor.")
  1132.                         say("")
  1133.                         return
  1134.                     end -- if pc.count_item(istenilecek_esya_kodu) < 1 then
  1135.                    
  1136.                     harita_kimlik = pc.get_map_index()
  1137.                     yasakli_bolgelerK = oyuncu_isinlan.yasakli_bolge(harita_kimlik)
  1138.                     if not b then
  1139.                         say_title(baslikOL)
  1140.                         say("")
  1141.                         say_reward("Bu bölgeye oyuncu çağıramazsınız!")
  1142.                         say("")
  1143.                         return
  1144.                     end -- if not yasakli_bolgelerK then
  1145.                    
  1146.                     oyuncu_kontrol = find_pc_by_name(cagirilacak_oyuncu_isim)
  1147.                     istek_yolla = confirm(oyuncu_kontrol,oyuncu_isim.." sizi yanına çağırıyor. Gitmek istiyor musunuz?",30)
  1148.                     if istek_yolla == CONFIRM_OK then
  1149.                         oyuncu_konum_x = pc.get_x()*100
  1150.                         oyuncu_konum_y = pc.get_y()*100
  1151.                         o_id = pc.select(oyuncu_kontrol)
  1152.                        
  1153.                         if pc.getqf("sure") - get_time() > 0 then
  1154.                             sure_k = 1
  1155.                             syschat("Sistem: Henüz yeni ışınlandınız. 1 dakika beklemeniz gerekiyor.")
  1156.                         elseif pc.count_item(istenilecek_esya_kodu) < 1 then
  1157.                             esya_k = 1
  1158.                             syschat("Sistem: Işınlanmak için Işınlanma Pasaportuna sahip olmanız gerekiyor.")
  1159.                         else
  1160.                             pc.setqf("sure",get_time()+60)
  1161.                             pc.warp(oyuncu_konum_x,oyuncu_konum_y)
  1162.                         end -- if pc.getqf("sure") - get_time() > 0 then endi
  1163.                        
  1164.                         pc.select(o_id)
  1165.                         if esya_k == 1 then
  1166.                             syschat("Sistem: Çağırdığınız oyuncuda Işınlama Pasaportu mevcut değil.")
  1167.                             esya_k = 0
  1168.                         elseif sure_k == 1 then
  1169.                             syschat("Sistem: Oyuncu henüz yeni ışınlanmış. 1 dakika beklemesi gerekiyor.")
  1170.                             sure_k = 0
  1171.                         end -- if esya_k == 1 then endi
  1172.                     else
  1173.                         o_id = pc.select(oyuncu_kontrol)
  1174.                         syschat("Sistem: Işınlamayı kabul etmediniz.")
  1175.                         pc.select(o_id)
  1176.                         syschat("Sistem: Oyuncu ışınlama isteğinizi kabul etmedi.")
  1177.                     end -- if istek_yolla == CONFIRM_OK then endi
  1178.                 elseif oyuncu_isinlan_sec == 2 then
  1179.                     say_title(baslikO)
  1180.                     say("")
  1181.                     say("Çağırmak istediğiniz arkadaşınızı seçin: ")
  1182.                     say("")
  1183.                     arkadasKontrol = mysql_query10("select * from player.messenger_list where account='"..oyuncu_isim.."' ")
  1184.                     arkadasKontrolSay = tonumber(table.getn(arkadasKontrol))
  1185.                    
  1186.                     if arkadasKontrolSay < 1 then
  1187.                         say_reward("Arkadaş listenizde kimse ekli değil.")
  1188.                         say("")
  1189.                     else
  1190.                         arkadasListesiDizi = {}
  1191.                         for i=1,arkadasKontrolSay,1 do
  1192.                             arkadas = arkadasKontrol.companion[i]
  1193.                             arkadasAra = find_pc_by_name(arkadas)
  1194.                             if arkadasAra != 0 then
  1195.                                 arkadasListesiDizi[i] = arkadas
  1196.                             end -- if arkadasAra != 0 then endi
  1197.                         end -- for i=1,arkadasKontrolSay,1 do endi
  1198.                         arkadasListesiDiziSay = tonumber(table.getn(arkadasListesiDizi))
  1199.                         arkadasListesiDizi[arkadasListesiDiziSay+1] = "Kapat"
  1200.                         arkadasSec = select_table(arkadasListesiDizi)
  1201.                         for i=1,arkadasListesiDiziSay,1 do
  1202.                             if arkadasSec == arkadasListesiDiziSay + 1 then
  1203.                                 return
  1204.                             end -- if arkadasSec == arkadasListesiDiziSay + 1 then endi
  1205.                             if arkadasSec == i then
  1206.                                 cagirilacak_oyuncu_isim = tostring(arkadasListesiDizi[i])
  1207.                                 cagirilacak_oyuncu_isimK = oyuncu_isinlan.isim_kontrol(cagirilacak_oyuncu_isim)
  1208.                                 if pc.count_item(istenilecek_esya_kodu) < 1 then
  1209.                                     say_title(baslikOL)
  1210.                                     say("")
  1211.                                     say_reward("Oyuncuyu çağırabilmek için Işınlama Pasaportuna sahip[ENTER]olmanız gerekiyor.")
  1212.                                     say("")
  1213.                                     return
  1214.                                 elseif not cagirilacak_oyuncu_isimK then
  1215.                                     say_title(baslikOL)
  1216.                                     say("")
  1217.                                     say_reward("Oyuncu oyunda değil!")
  1218.                                     say("")
  1219.                                     return
  1220.                                 elseif cagirilacak_oyuncu_isimK == -1 then
  1221.                                     say_title(baslikOL)
  1222.                                     say("")
  1223.                                     say_reward("Yöneticiyi yanınıza çağıramazsınız!")
  1224.                                     say("")
  1225.                                     return
  1226.                                 elseif cagirilacak_oyuncu_isimK == -2 then
  1227.                                     say_title(baslikOL)
  1228.                                     say("")
  1229.                                     say_reward("Çağırdığınız oyuncu ışınlama isteklerini kabul etmiyor.")
  1230.                                     say("")
  1231.                                     return
  1232.                                 end -- if pc.count_item(istenilecek_esya_kodu) < 1 then endi
  1233.                                 harita_kimlik = pc.get_map_index()
  1234.                                 yasakli_bolgelerK = oyuncu_isinlan.yasakli_bolge(harita_kimlik)
  1235.                                 if not yasakli_bolgelerK then
  1236.                                     say_title(baslikOL)
  1237.                                     say("")
  1238.                                     say_reward("Bu bölgeye oyuncu çağıramazsınız!")
  1239.                                     say("")
  1240.                                     return
  1241.                                 end -- if not yasakli_bolgelerK then
  1242.                                 oyuncu_kontrol = find_pc_by_name(cagirilacak_oyuncu_isim)
  1243.                                 istek_yolla = confirm(oyuncu_kontrol,oyuncu_isim.." sizi yanına çağırıyor. Gitmek istiyor musunuz?",30)
  1244.                                 if istek_yolla == CONFIRM_OK then
  1245.                                     oyuncu_konum_x = pc.get_x()*100
  1246.                                     oyuncu_konum_y = pc.get_y()*100
  1247.                                     o_id = pc.select(oyuncu_kontrol)
  1248.                                         if pc.getqf("sure") - get_time() > 0 then
  1249.                                             sure_k = 1
  1250.                                             syschat("Sistem: Henüz yeni ışınlandınız. 1 dakika beklemeniz gerekiyor.")
  1251.                                         elseif pc.count_item(istenilecek_esya_kodu) < 1 then
  1252.                                             esya_k = 1
  1253.                                             syschat("Sistem: Işınlanmak için Işınlanma Pasaportuna sahip olmanız gerekiyor.")
  1254.                                         else
  1255.                                             pc.setqf("sure",get_time()+60)
  1256.                                             pc.warp(oyuncu_konum_x,oyuncu_konum_y)
  1257.                                         end -- if pc.getqf("sure") - get_time() > 0 then endi
  1258.                                     pc.select(o_id)
  1259.                                     if esya_k == 1 then
  1260.                                         syschat("Sistem: Çağırdığınız oyuncuda Işınlama Pasaportu mevcut değil.")
  1261.                                         esya_k = 0
  1262.                                     elseif sure_k == 1 then
  1263.                                         syschat("Sistem: Oyuncu henüz yeni ışınlanmış. 1 dakika beklemesi gerekiyor.")
  1264.                                     end -- if esya_k == 1 then endi
  1265.                                 else
  1266.                                     o_id = pc.select(oyuncu_kontrol)
  1267.                                         syschat("Sistem: Işınlamayı kabul etmediniz.")
  1268.                                     pc.select(o_id)
  1269.                                     syschat("Sistem: Oyuncu ışınlama isteğinizi kabul etmedi.")
  1270.                                 end -- if istek_yolla == CONFIRM_OK then endi
  1271.                             end -- if arkadasSec == i then endi
  1272.                         end -- for i=1,arkadasListesiDiziSay,1 do endi
  1273.                     end -- if arkadasKontrolSay < 1 then endi
  1274.                 elseif oyuncu_isinlan_sec == 3 then
  1275.                     isinlama_durumK = mysql_query("select * from player.player where id='"..oyuncu_kimlik.."' ")
  1276.                     oyuncu_isinlama_durum = tonumber(isinlama_durumK.isinlan_durum[1])
  1277.                     if oyuncu_isinlama_durum == 0 then
  1278.                         durum = "PASİF"
  1279.                     elseif oyuncu_isinlama_durum == 1 then
  1280.                         durum = "AKTİF"
  1281.                     end
  1282.                     say_title(baslikO)
  1283.                     say("")
  1284.                     say("Merhaba oyuncu, "..oyuncu_isim)
  1285.                     say("Dilersen buradan ışınlama isteklerini kapatabilirsin.")
  1286.                     say("Böylelikle kimse sana ışınlama isteği yollayamaz.")
  1287.                     say("")
  1288.                     say_reward("Işınlama durumun: "..durum)
  1289.                     say("")
  1290.                     say_reward("Ne yapmak istiyorsun?")
  1291.                     say("")
  1292.                    
  1293.                     isinlanma_durum_sec = select("Işınlama Durumu: Aktif Et","Işınlama Durumu: Pasifleştir","Kapat")
  1294.                     if isinlanma_durum_sec == 1 then
  1295.                         isinlama_durumK = mysql_query("select * from player.player where id='"..oyuncu_kimlik.."' ")
  1296.                         oyuncu_isinlama_durum = tonumber(isinlama_durumK.isinlan_durum[1])
  1297.                         if oyuncu_isinlama_durum == 1 then
  1298.                             say_title(baslikOL)
  1299.                             say("")
  1300.                             say_reward("Işınlama durumu zaten aktif. Tekrar aktifleştiremezsiniz.")
  1301.                             say("")
  1302.                         elseif oyuncu_isinlama_durum == 0 then
  1303.                             say_title(baslikO)
  1304.                             say("")
  1305.                             say("Işınlama durumu başarı ile aktifleştirildi.")
  1306.                             say("")
  1307.                             mysql_query("UPDATE player.player SET isinlan_durum=1 where id='"..oyuncu_kimlik.."' ")
  1308.                         end
  1309.                     elseif isinlanma_durum_sec == 2 then
  1310.                         if oyuncu_isinlama_durum == 0  then
  1311.                             say_title(baslikOL)
  1312.                             say("")
  1313.                             say_reward("Işınlama durumu zaten pasif. Tekrar pasifleştiremezsiniz.")
  1314.                             say("")
  1315.                         elseif oyuncu_isinlama_durum == 1 then
  1316.                             say_title(baslikO)
  1317.                             say("")
  1318.                             say("Işınlama durumu başarı ile pasifleştirildi.")
  1319.                             say("")
  1320.                             mysql_query("UPDATE player.player SET isinlan_durum=0 where id='"..oyuncu_kimlik.."' ")
  1321.                         end
  1322.                     end -- if isinlanma_durum_sec == 1 then endi
  1323.                 elseif oyuncu_isinlan_sec == 4 then
  1324.                     return
  1325.                 end -- if oyuncu_isinlan_sec == 1 then endi
  1326.                    
  1327.                 function isim_kontrol(gelen_oyuncu_isim)
  1328.                     oyuncu_isim_f = gelen_oyuncu_isim
  1329.                     oyuncu_ara = find_pc_by_name(oyuncu_isim_f)
  1330.                     if oyuncu_isim_f == "" or oyuncu_isim_f == nil then
  1331.                         return false
  1332.                     elseif oyuncu_isim_f == pc.get_name() then
  1333.                         return false
  1334.                     elseif oyuncu_ara == 0 then
  1335.                         return false
  1336.                     end
  1337.                     o_id = pc.select(oyuncu_ara)
  1338.                         if pc.is_gm() then
  1339.                             oyuncu_yonetici = 1
  1340.                         else
  1341.                             oyuncu_kimlik = pc.get_player_id()
  1342.                             isinlan_durumK = mysql_query10("select * from player.player where id='"..oyuncu_kimlik.."' ")
  1343.                             isinlan_durumK_Say = tonumber(table.getn(isinlan_durumK))
  1344.                             if isinlan_durumK_Say > 0 then
  1345.                                 isinlan_deger = tonumber(isinlan_durumK.isinlan_durum[1])
  1346.                                 if isinlan_deger == 0 then
  1347.                                     isinlan_durum_kontrol = 1
  1348.                                 end
  1349.                             end
  1350.                         end
  1351.                     pc.select(o_id)
  1352.                     if oyuncu_yonetici == 1 then
  1353.                         oyuncu_yonetici = 0
  1354.                         return -1
  1355.                     elseif isinlan_durum_kontrol == 1 then
  1356.                         isinlan_durum_kontrol = 0
  1357.                         return -2
  1358.                     end
  1359.                     return true
  1360.                 end -- function isim_kontrol(gelen_oyuncu_isim) endi
  1361.                    
  1362.                 function yasakli_bolge(gelen_harita_kimlik)
  1363.                     harita_kimlik_f = gelen_harita_kimlik
  1364.                     yasakli_bolgeD =  {
  1365.                         103
  1366.                     }
  1367.                     yasakli_bolgeD_Say = tonumber(table.getn(yasakli_bolgeD))
  1368.                     for i=1,yasakli_bolgeD_Say,1 do
  1369.                         if harita_kimlik_f == yasakli_bolgeD[i] then
  1370.                             return false
  1371.                         end
  1372.                     end
  1373.                     return true
  1374.                 end --function yasakli_bolge(gelen_harita_kimlik)          
  1375.             elseif pcservismenu == 5 then
  1376.                 -----------------------------------
  1377.                 oyuncu_kimlik = tonumber(pc.get_player_id())
  1378.                 hesap_id = tonumber(pc.get_account_id())
  1379.                 karakter_isim = tostring(pc.get_name())
  1380.                 oyuncu_isim = pc.get_name()
  1381.                 oyuncu_x_koordinat = pc.get_x()
  1382.                 oyuncu_y_koordinat = pc.get_y()
  1383.                 oyuncu_harita = pc.get_map_index()
  1384.                 oyuncu_konum_sayisi = pc.getqf("konum_sayisi")
  1385.                 -----------------------------------
  1386.                 KvipKontrol = mysql_query10("select * from player.player where id='"..oyuncu_kimlik.."' and name='"..karakter_isim.."' ")
  1387.                 KvipMi = tonumber(KvipKontrol.vip[1])       ----
  1388.                 if pc.get_level() < 30 and  KvipMi == 0 or KvipMi != 1 then
  1389.                     say_title("Uyarı:")
  1390.                     say("")
  1391.                     say_reward("Sistemi kullanabilmek için en az 30.seviye [ENTER] ve VİP üye olmanız lazım.")
  1392.                     say("")
  1393.                     return
  1394.                 end
  1395.                 say_title("[WINDOW_SIZE width;350|height;400]Bilgilendirme")
  1396.                 say("")
  1397.                 say("Konum kayıt sistemine hoş geldiniz oyuncu, "..oyuncu_isim)
  1398.                 say("")
  1399.                 say("Şuan ki konum bilgileriniz: ")
  1400.                 say("")
  1401.                 say_reward("X Koordinatı: "..oyuncu_x_koordinat)
  1402.                 say_reward("Y Koordinatı: "..oyuncu_y_koordinat)
  1403.                 say_reward("Harita Kimlik Numarası: "..oyuncu_harita)
  1404.                 say("")
  1405.                 say_reward("Toplam kayıtlı konum: "..oyuncu_konum_sayisi)
  1406.                 say("")
  1407.                 say_reward("Ne yapmak istersiniz?")
  1408.                 say("")
  1409.                
  1410.                 konum_kayit_sec = select("Konum Kaydet","Kayıtlı Konumlar","Kapat")
  1411.                 if konum_kayit_sec == 1 then
  1412.                     harita_kontrol = konum_kayit.yasakli_bolge(oyuncu_harita)
  1413.                     if not harita_kontrol then
  1414.                         say_title("Uyarı:")
  1415.                         say("")
  1416.                         say_reward("Bu haritada konum kaydetme engellenmiştir.")
  1417.                         say("")
  1418.                         return
  1419.                     end
  1420.                     if pc.getqf("konum_sayisi") > 9 then
  1421.                         say_title("Uyarı:")
  1422.                         say_reward("En fazla 10 adet konum kaydedebilirsiniz.")
  1423.                         say("")
  1424.                         return
  1425.                     end
  1426.                     say_title("Bilgilendirme:")
  1427.                     say("")
  1428.                     say_reward("Lütfen konumunuza bir isim verin:")
  1429.                     oyuncu_konum_adi = tostring(input())
  1430.                     if oyuncu_konum_adi == nil or oyuncu_konum_adi == "" then
  1431.                         say_title("Uyarı:")
  1432.                         say("")
  1433.                         say_reward("Geçersiz giriş yaptınız! İşlemler sıfırlandı.")
  1434.                         say("")
  1435.                     else
  1436.                         konum_kaydet = mysql_query("insert into konum_kayit(oyuncu_kimlik,oyuncu_isim,oyuncu_x_koordinat,oyuncu_y_koordinat,oyuncu_harita,oyuncu_konum_adi)values('"..oyuncu_kimlik.."','"..oyuncu_isim.."','"..oyuncu_x_koordinat.."','"..oyuncu_y_koordinat.."','"..oyuncu_harita.."','"..oyuncu_konum_adi.."')")
  1437.                         if konum_kaydet then
  1438.                             pc.setqf("konum_sayisi",pc.getqf("konum_sayisi")+1)
  1439.                             say_title("Bilgilendirme:")
  1440.                             say("")
  1441.                             say("Konumunuz başarı ile kaydedilmiştir.")
  1442.                             say("")
  1443.                         else
  1444.                             say_title("Uyarı:")
  1445.                             say("")
  1446.                             say_reward("Konum kaydedilemedi! İşlemler sıfırlandı.")
  1447.                             say("")
  1448.                         end
  1449.                     end
  1450.                 elseif konum_kayit_sec == 2 then
  1451.                     konum_kimlik_dizi = {}
  1452.                     oyuncu_x_koordinat_dizi = {}
  1453.                     oyuncu_y_koordinat_dizi = {}
  1454.                     oyuncu_harita_kimlik_dizi = {}
  1455.                     oyuncu_harita_konum_adi_dizi = {}
  1456.                     konumlari_cek = mysql_query("select * from player.konum_kayit where oyuncu_kimlik='"..oyuncu_kimlik.."' and oyuncu_isim='"..oyuncu_isim.."' ")
  1457.                     konumlari_cek_say = tonumber(table.getn(konumlari_cek))
  1458.                     if konumlari_cek_say < 1 then
  1459.                         say_title("Uyarı:")
  1460.                         say("")
  1461.                         say_reward("Kayıtlı konum bulunamadı.")
  1462.                         say("")
  1463.                         return
  1464.                     end
  1465.                     for i=1,konumlari_cek_say,1 do
  1466.                         oyuncu_x_koordinat_dizi[i] = konumlari_cek.oyuncu_x_koordinat[i]
  1467.                         oyuncu_y_koordinat_dizi[i] = konumlari_cek.oyuncu_y_koordinat[i]
  1468.                         oyuncu_harita_kimlik_dizi[i] = konumlari_cek.oyuncu_harita[i]
  1469.                         oyuncu_harita_konum_adi_dizi[i] = konumlari_cek.oyuncu_konum_adi[i]
  1470.                         konum_kimlik_dizi[i] = konumlari_cek.id[i]
  1471.                     end
  1472.                     oyuncu_konum_adi_say = tonumber(table.getn(oyuncu_harita_konum_adi_dizi))
  1473.                     oyuncu_harita_konum_adi_dizi[oyuncu_konum_adi_say + 1] = "Kapat"
  1474.                     oyuncu_konum_adi_sec = select_table(oyuncu_harita_konum_adi_dizi)
  1475.                     for m=1,konumlari_cek_say,1 do
  1476.                         if oyuncu_konum_adi_sec == oyuncu_konum_adi_say + 1 then
  1477.                             return
  1478.                         end
  1479.                         if oyuncu_konum_adi_sec == m then
  1480.                             o_x_koordinat = oyuncu_x_koordinat_dizi[m]
  1481.                             o_y_koordinat = oyuncu_y_koordinat_dizi[m]
  1482.                             o_harita_kimlik = oyuncu_harita_kimlik_dizi[m]
  1483.                             o_konum_kimlik = konum_kimlik_dizi[m]
  1484.                             say_title("[WINDOW_SIZE width;350|height;400]Bilgilendirme")
  1485.                             say("")
  1486.                             say("Merhaba oyuncu, "..oyuncu_isim)
  1487.                             say("Buradan kaydettiğin konumuna ışınlanabilir, konumunu[ENTER]silebilir ya da konum ismini düzenleyebilirsin.")
  1488.                             say("")
  1489.                             say_title("Konum bilgileri: ")
  1490.                             say("")
  1491.                             say_reward("X Koordinatı: "..o_x_koordinat)
  1492.                             say_reward("Y Koordinatı: "..o_y_koordinat)
  1493.                             say_reward("Harita Kimlik Numarası: "..o_harita_kimlik)
  1494.                             say("")
  1495.                             say_reward("Ne yapmak istiyorsun?")
  1496.                             say("")
  1497.                             konum_ne_yapilacak = select("Konuma Işınlan","Konum Adı Düzenle","Konum Sil","Kapat")
  1498.                             if konum_ne_yapilacak == 1 then
  1499.                                 pc.warp((o_x_koordinat*100),(o_y_koordinat*100))
  1500.                             elseif konum_ne_yapilacak == 2 then
  1501.                                 say_title("Bilgilendirme:")
  1502.                                 say("")
  1503.                                 say_reward("Lütfen yeni konum adını giriniz: ")
  1504.                                 oyuncu_konum_adi = tostring(input())
  1505.                                 if oyuncu_konum_adi == nil or oyuncu_konum_adi == "" then
  1506.                                     say_title("Uyarı:")
  1507.                                     say("")
  1508.                                     say_reward("Geçersiz giriş yaptınız! İşlemler sıfırlandı.")
  1509.                                     say("")
  1510.                                 else
  1511.                                     konum_adi_guncelle = mysql_query("UPDATE player.konum_kayit SET oyuncu_konum_adi='"..oyuncu_konum_adi.."' where oyuncu_kimlik='"..oyuncu_kimlik.."' and id='"..o_konum_kimlik.."'")
  1512.                                     if konum_adi_guncelle then
  1513.                                         say_title("Bilgilendirme:")
  1514.                                         say("")
  1515.                                         say("Konum adı başarı ile güncellendi.")
  1516.                                         say("")
  1517.                                     end
  1518.                                 end
  1519.                             elseif konum_ne_yapilacak == 3 then
  1520.                                 konum_sil = mysql_query("DELETE FROM player.konum_kayit WHERE id='"..o_konum_kimlik.."' and oyuncu_kimlik='"..oyuncu_kimlik.."'")
  1521.                                 if konum_sil then
  1522.                                     pc.setqf("konum_sayisi",pc.getqf("konum_sayisi")-1)
  1523.                                     say_title("Bilgilendirme:")
  1524.                                     say("")
  1525.                                     say("Konum başarı ile silindi.")
  1526.                                     say("")
  1527.                                 end
  1528.                             elseif konum_ne_yapilacak == 4 then
  1529.                                 return
  1530.                             end
  1531.                         end
  1532.                     end
  1533.                 elseif konum_kayit_sec == 3 then
  1534.                     return
  1535.                 end -- if konum_kayit_sec == 1 then endi
  1536.            
  1537.                 function yasakli_bolge(gelen_harita_kimlik)
  1538.                     harita_kimlik_f = gelen_harita_kimlik
  1539.                     yasakli_bolgeD =  {
  1540.                         66, -- Şeytan kulesi
  1541.                         72, -- Sürgün mağarası 1.kat
  1542.                         73, -- Sürgün mağarası 2.kat
  1543.                         79, -- Sürgün Mağarası Boss odası
  1544.                         103, -- Özel GM haritası
  1545.                         206, -- Şeytan Katakombu
  1546.                         660000 -- Şeytan kulesi 3 ve 9.kat arası
  1547.                     }
  1548.                     yasakli_bolgeD_Say = tonumber(table.getn(yasakli_bolgeD))
  1549.                     for i=1,yasakli_bolgeD_Say,1 do
  1550.                         if harita_kimlik_f == yasakli_bolgeD[i] then
  1551.                             return false
  1552.                         end
  1553.                     end
  1554.                     return true
  1555.                 end --function yasakli_bolge(gelen_harita_kimlik)
  1556.             elseif pcservismenu == 6 then
  1557.                 say_title("Servis Yüzüğü: Market MEnüsü")
  1558.                 say("Ne almak istiyorsun?")
  1559.                
  1560.                 itemsatinal = {"İksir Seti Al","Güneş Özütü","Ay Özütü"}
  1561.                 itemsatinalsay = tonumber(table.getn(itemsatinal))
  1562.                 itemsatinal[itemsatinalsay + 1] = "Kapat"
  1563.                 itemsatinalmenu = select_table(itemsatinal)
  1564.            
  1565.                 if itemsatinalmenu == 1 then   -- iksir
  1566.                     local cost = 100000
  1567.                     if pc.money < cost then
  1568.                         say_title("Servis Yüzüğü ")
  1569.                         say("Yeterli Yang'a sahip değilsin, ")
  1570.                         say(cost.." Yang olmadan sana yardım edemem. ")
  1571.                         return
  1572.                     else
  1573.                         pc.give_item2("27003",1) -- kırmızı
  1574.                         pc.give_item2("27006",1) -- mavi
  1575.                         pc.give_item2("27102",1) -- yeşil
  1576.                         pc.give_item2("71050",1) -- mor +60
  1577.                         pc.change_gold(-cost)
  1578.                     end
  1579.                 elseif itemsatinalmenu == 2 then  -- Gunes ozutu
  1580.                     local cost = 7500000
  1581.                     if pc.money < cost then
  1582.                         say_title("Servis Yüzüğü ")
  1583.                         say("Yeterli Yang'a sahip değilsin, ")
  1584.                         say(cost.." Yang olmadan sana yardım edemem. ")
  1585.                         return
  1586.                     else
  1587.                         pc.give_item2("72725",1)
  1588.                         pc.change_gold(-cost)
  1589.                     end
  1590.                 elseif itemsatinalmenu == 3 then  -- Ay ozutu
  1591.                     local cost = 5000000
  1592.                     if pc.money < cost then
  1593.                         say_title("Servis Yüzüğü ")
  1594.                         say("Yeterli Yang'a sahip değilsin, ")
  1595.                         say(cost.." Yang olmadan sana yardım edemem. ")
  1596.                         return
  1597.                     else
  1598.                         pc.give_item2("72729",1)
  1599.                         pc.change_gold(-cost)
  1600.                     end
  1601.                 elseif itemsatinalmenu == 4 then  -- Yesil iksir mor iksir
  1602.                     return
  1603.                 end
  1604.             elseif pcservismenu ==  7 then
  1605.                 say_title("Servis: VIP Menü ")
  1606.                 say("Bu menü henüz yapım aşamasında!")
  1607.                 say("")
  1608.                 return
  1609.             elseif pcservismenu ==  8 then
  1610.                 return
  1611.             end
  1612.         end
  1613.     end
  1614. end
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!