HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!
Merhabalar,
Gelişmiş Banka Sistemi hakkında kısaca bilgi vereceğim. Detayları videoda öğrenebilirsiniz.
Gelişmiş Banka Sisteminde 3 adet hesap bulunur A,B,C hesapları. Oyuncular toplamda hesaplarında 6 T para tutabilirler. Dileyen oyun içerisinde anlık olarak başka bir oyuncunun A,B,C hesaplarından herhangi birine para yatırabilir. Sistemde herhangi bir bug ya da aklınıza gelebilecek herhangi bir sorun yoktur. Sistem tamamen güvenlidir. Herhangi bir para bugu yapamazlar.
Banka Sistemi - Tanıtım
Gelişmiş Banka Sistemi - Dosyalar
Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.
PARA MİKTARI ARASINA .(NOKTA) KOYMA:
Şimdi para tutarlarının arasına .(nokta) koyma fonksiyonuna geldik. Bu fonksiyonu da eklemeniz gerekiyor. Eğer bu fonksiyonu eklemezseniz sistem çalışmaz. Ona göre kodlandı. Şimdi o fonksiyonu eklemeyi göstereceğim:
"questlib.lua" dosyasını açıyoruz ve en alta aşağıdaki kodları ekleyip kapatıyoruz. Reboot atmanıza gerek yok. Sistemleri ekledikten sonra /reload q yapmanız yeterlidir.
Fonksiyon kodu:
PHP:function genel_veri(gelen_miktar) gelen2 = tostring(gelen_miktar) local gelen = gelen_miktar local sayac = 10 local basamak = 1 local ilkhal = basamak while true do if gelen / sayac >= 1 then basamak = basamak + 1 sayac = sayac * 10 else break end end t = {} sonucText = "" for i=1, string.len(gelen2) do t[i]= (string.sub(gelen2,i,i)) end for k , v in pairs(t) do--1324 if (basamak == 9 or basamak == 6 or basamak == 3) and sonucText != "" then sonucText = sonucText.."." sonucText = sonucText..v else sonucText = sonucText..v end basamak = basamak - 1 end return sonucText end
Bu işlem de bittikten sonra "quest_functions" dosyasını açıyor ve en alta "genel_veri" fonksiyonunu ekliyoruz. Bura ile de işimiz bitti.
İndirmeden kodları incelemek isteyenler için:
PHP:quest gelismis_banka begin state start begin when 20355.chat."GM: Oyuncu Banka Bilgileri" with pc.is_gm() begin oyuncu_bilgileri = {} baslikO = "Bilgilendirme:" baslikOL = "Uyarı:" yonetici_isim = pc.get_name() say_title(baslikO) say("") say("Merhaba yönetici, "..yonetici_isim) say("Buradan banka hesap şifresini unutan oyunculara şifrelerini iletebilir ve oyuncuların hesaplarındaki parayı kontrol[ENTER]edebilirsin.") say("") say_reward("İşlem yapmak istediğin oyuncunun adını gir: ") oyuncu_isim = tostring(input()) oyuncuAra = find_pc_by_name(oyuncu_isim) if oyuncuAra == 0 then say_title(baslikOL) say("") say_reward("Böyle bir oyuncu yok yada oyunda değil.") say("") else o_id = pc.select(oyuncuAra) oyuncu_bilgileri[1] = pc.getqf("banka_hesap_sifresi") oyuncu_bilgileri[2] = pc.getqf("banka_hesap_A") oyuncu_bilgileri[3] = pc.getqf("banka_hesap_B") oyuncu_bilgileri[4] = pc.getqf("banka_hesap_C") pc.select(o_id) say_title(baslikO) say("") say("Oyuncu bilgileri: ") say("") say_reward("Oyuncu şifresi: "..oyuncu_bilgileri[1]) say("") say_reward("Banka Hesabı A: "..genel_veri(oyuncu_bilgileri[2])) say_reward("Banka Hesabı B: "..genel_veri(oyuncu_bilgileri[3])) say_reward("Banka Hesabı C: "..genel_veri(oyuncu_bilgileri[4])) say("") oyuncuBilgiSec = select("Şifreyi İlet","Kapat") if oyuncuBilgiSec == 1 then oyuncuAra = find_pc_by_name(oyuncu_isim) if oyuncuAra != 0 then o_id = pc.select(oyuncuAra) syschat("Banka hesabı şifreniz yönetici tarafından iletildi. Banka hesap şifreniz: "..oyuncu_bilgileri[1]) pc.select(o_id) say_title(baslikO) say("") say("Şifre "..oyuncu_isim.." isimli oyuncuya başarı ile iletilmiştir.") say("") else say_title(baslikOL) say("") say_reward("Oyuncu oyunda görünmüyor!") say("") end elseif oyuncuBilgiSec == 2 then return end -- if oyuncuBilgiSec == 1 then endi end -- if oyuncuAra == 0 then endi end -- when 9005.chat."GM: Oyuncu Banka Bilgileri" with pc.is_gm() begin endi when 20355.chat."Banka Sistemi" begin if pc.getqf("banka_hesabi") == 0 then baslikO = "Bilgilendirme:" baslikOL = "Uyarı:" oyuncu_isim = pc.get_name() say_title(baslikO) say("") say("Merhaba oyuncu, "..oyuncu_isim) say("Buradan kendine 3 adet banka açabilirsin.") say("Böylece paran biriktiğinde onları saklamak daha kolay olur.") say("") say_reward("Ne yapmak istiyorsun?") say("") bankaSec = select("Banka Hesabı Oluştur","Kapat") if bankaSec == 1 then say_title(baslikO) say("") say("Öncelikle kendine 6 haneli rakamlardan oluşan bir şifre[ENTER]belirlemen gerekiyor.") say("Şifreyi unuttuğunda sadece yöneticiden geri alabilirsin.[ENTER]Bunun için de bazı bilgilerin onaylanması gerekecek.") say("O nedenden şifreni unutmayacağın düzeyde belirle.") say("") say_reward("Oluşturacağınız banka şifrenizi giriniz: ") say_reward("(Şifre 0 ile başlayamaz!)") bankaSifresi = tonumber(input()) sifreKontrol = gelismis_banka.bankaSifreKontrol(bankaSifresi) if not sifreKontrol then return end say_title(baslikO) say("") say("Banka şifreniz: "..bankaSifresi) say("") say_reward("Şifrenizi onaylıyor musunuz?") say("") sifreOnayi = select("Evet","Hayır") if sifreOnayi == 1 then pc.setqf("banka_hesap_sifresi",bankaSifresi) pc.setqf("banka_hesabi",1) say_title(baslikO) say("") say("Şifreniz belirlemiş olduğunuz şekilde kayıt edildi ve[ENTER]hesabınız açıldı.") say("") say_reward("Banka hesap şifreniz: "..pc.getqf("banka_hesap_sifresi")) pc.setqf("banka_hesap_A",0) pc.setqf("banka_hesap_B",0) pc.setqf("banka_hesap_C",0) say("") elseif sifreOnayi == 2 then return end -- if sifreOnayi == 1 then endi elseif bankaSec == 2 then return end -- if bankaSec == 1 then endi elseif pc.getqf("banka_hesabi") == 1 then baslikO = "Bilgilendirme:" baslikOL = "Uyarı:" oyuncu_isim = pc.get_name() say_title(baslikO) say("") say("Merhaba oyuncu, "..oyuncu_isim) say("Banka hesabına girebilmek için belirlemiş olduğun şifreyi[ENTER]girmen gerekiyor.") say("Şifreni hatırlamıyorsan yöneticiye başvurup, gerekli[ENTER]bilgileri verdikten sonra öğrenebilirsin.") say("") say_reward("Banka şifrenizi giriniz: ") say_reward("(Şifre 0 ile başlayamaz!)") bankaSifresi = tonumber(input()) sifreKontrol = gelismis_banka.bankaSifreKontrol(bankaSifresi) if not sifreKontrol then return end -- if not sifreKontrol then endi oyuncu_banka_sifresi = pc.getqf("banka_hesap_sifresi") if bankaSifresi != oyuncu_banka_sifresi then say_title(baslikOL) say("") say_reward("Şifrenizi yanlış girdiniz. Tekrar deneyiniz.") say("") else say_title(baslikO) say("") say("Ne yapmak istersin?") say("") bankaSecenek = select("Para Yatır","Para Çek","Para Gönder","Hesap Durumu","Şifre Değiştir","Kapat") if bankaSecenek == 1 then say_title(baslikO) say("") say("Para yatıracağınız hesabı seçin: ") say("") oyuncu_para = pc.get_money() say_reward("Oyun paranız: "..genel_veri(oyuncu_para)) say("") hesapSecDizi = { "Hesap A ("..genel_veri(pc.getqf("banka_hesap_A"))..")", "Hesap B ("..genel_veri(pc.getqf("banka_hesap_B"))..")", "Hesap C ("..genel_veri(pc.getqf("banka_hesap_C"))..")" } hesapSecDiziSay = tonumber(table.getn(hesapSecDizi)) hesapSecDizi[hesapSecDiziSay + 1] = "Kapat" hesapSec = select_table(hesapSecDizi) for i=1,hesapSecDiziSay,1 do if hesapSec == hesapSecDiziSay + 1 then return end -- if hesapSec == hesapSecDiziSay + 1 then endi if hesapSec == i then say_title(baslikO) say("") oyuncu_para = pc.get_money() say_reward("Hesabınızdaki para: "..genel_veri(oyuncu_para)) say("") if i == 1 then say_reward("Banka hesabı A durum: "..genel_veri(pc.getqf("banka_hesap_A"))) elseif i == 2 then say_reward("Banka hesabı B durum: "..genel_veri(pc.getqf("banka_hesap_B"))) elseif i == 3 then say_reward("Banka hesabı C durum: "..genel_veri(pc.getqf("banka_hesap_C"))) end -- if i == 1 then endi say("") say("Hesaba yüklemek istediğiniz miktarı girin: ") yuklenecekMiktar = tonumber(input()) yuklenecekMiktarGonder = gelismis_banka.yuklenecekMiktarKontrol(yuklenecekMiktar) if not yuklenecekMiktarGonder then return end -- if not yuklenecekMiktarGonder then endi if i == 1 then if pc.getqf("banka_hesap_A") + yuklenecekMiktar > 1999999999 then say_title(baslikOL) say("") say_reward("Girdiğiniz tutar ile banka hesabı A doluyor.") say_reward("Para kaybı yaşamamanız için işlem iptal edildi.") say_reward("Banka hesabınızda en fazla 1.999.999.999 miktar para[ENTER]olabilir.") say("") else pc.setqf("banka_hesap_A",pc.getqf("banka_hesap_A")+yuklenecekMiktar) para_guncellendi = pc.change_money(-yuklenecekMiktar) oyuncu_kalan_para = pc.get_money() hesap_durumu_A = pc.getqf("banka_hesap_A") say_title(baslikO) say("") say("Para hesaba başarı ile yatırılmıştır.") say("") say_reward("Kalan paranız: "..genel_veri(oyuncu_kalan_para)) say_reward("Hesap A paranız: "..genel_veri(hesap_durumu_A)) say("") end -- if pc.getqf("banka_hesap_A") + yuklenecekMiktar > 1999999999 then endi elseif i == 2 then if pc.getqf("banka_hesap_B") + yuklenecekMiktar > 1999999999 then say_title(baslikOL) say("") say_reward("Girdiğiniz tutar ile banka hesabı B doluyor.") say_reward("Para kaybı yaşamamanız için işlem iptal edildi.") say_reward("Banka hesabınızda en fazla 1.999.999.999 miktar para olabilir.") say("") else pc.setqf("banka_hesap_B",pc.getqf("banka_hesap_B")+yuklenecekMiktar) para_guncellendi = pc.change_money(-yuklenecekMiktar) oyuncu_kalan_para = pc.get_money() hesap_durumu_B = pc.getqf("banka_hesap_B") say_title(baslikO) say("") say("Para hesaba başarı ile yatırılmıştır.") say("") say_reward("Kalan paranız: "..genel_veri(oyuncu_kalan_para)) say_reward("Hesap B paranız: "..genel_veri(hesap_durumu_B)) say("") end -- if pc.getqf("banka_hesap_B") + yuklenecekMiktar > 1999999999 then endi elseif i == 3 then if pc.getqf("banka_hesap_C") + yuklenecekMiktar > 1999999999 then say_title(baslikOL) say("") say_reward("Girdiğiniz tutar ile banka hesabı C doluyor.") say_reward("Para kaybı yaşamamanız için işlem iptal edildi.") say_reward("Banka hesabınızda en fazla 1.999.999.999 miktar para olabilir.") say("") else pc.setqf("banka_hesap_C",pc.getqf("banka_hesap_C")+yuklenecekMiktar) para_guncellendi = pc.change_money(-yuklenecekMiktar) oyuncu_kalan_para = pc.get_money() hesap_durumu_C = pc.getqf("banka_hesap_C") say_title(baslikO) say("") say("Para hesaba başarı ile yatırılmıştır.") say("") say_reward("Kalan paranız: "..genel_veri(oyuncu_kalan_para)) say_reward("Hesap C paranız: "..genel_veri(hesap_durumu_C)) say("") end -- if pc.getqf("banka_hesap_C") + yuklenecekMiktar > 1999999999 then endi end -- if i == 1 then endi end -- if hesapSec = i then endi end -- for i=1,hesapSecDiziSay,1 do endi elseif bankaSecenek == 2 then say_title(baslikO) say("") say("Para çekeceğiniz hesabı seçin: ") say("") oyuncu_para = pc.get_money() say_reward("Oyun Paranız "..genel_veri(oyuncu_para)) say("") hesapSecDizi = { "Hesap A ("..genel_veri(pc.getqf("banka_hesap_A"))..")", "Hesap B ("..genel_veri(pc.getqf("banka_hesap_B"))..")", "Hesap C ("..genel_veri(pc.getqf("banka_hesap_C"))..")" } hesapSecDiziSay = tonumber(table.getn(hesapSecDizi)) hesapSecDizi[hesapSecDiziSay + 1 ] = "Kapat" hesapSec = select_table(hesapSecDizi) for i=1,hesapSecDiziSay,1 do if hesapSec == hesapSecDiziSay + 1 then return end -- if hesapSec = hesapSecDiziSay + 1 then endi if i == hesapSec then say_title(baslikO) say("") oyuncu_para = pc.get_money() say_reward("Hesabınızdaki para: "..genel_veri(oyuncu_para)) say("") if i == 1 then say_reward("Banka hesabı A durum: "..genel_veri(pc.getqf("banka_hesap_A"))) elseif i == 2 then say_reward("Banka hesabı B durum: "..genel_veri(pc.getqf("banka_hesap_B"))) elseif i == 3 then say_reward("Banka hesabı C durum: "..genel_veri(pc.getqf("banka_hesap_C"))) end -- if i == 1 then endi say("") say("Çekmek istediğiniz miktarı girin: ") cekilecekMiktar = tonumber(input()) cekilecekMiktarGonder = gelismis_banka.cekilecekMiktarKontrol(cekilecekMiktar) if not cekilecekMiktarGonder then return end -- if not cekilecekMiktarGonder then endi oyuncu_para = pc.get_money() if i == 1 then banka_hesap_A = pc.getqf("banka_hesap_A") if cekilecekMiktar > banka_hesap_A then say_title(baslikOL) say("") say_reward("Banka hesabınızda yeterli miktarda para yok.") say("") else pc.setqf("banka_hesap_A",pc.getqf("banka_hesap_A")-cekilecekMiktar) pc.change_money(cekilecekMiktar) oyuncu_yeni_para = pc.get_money() kalan_banka_hesap_A = pc.getqf("banka_hesap_A") say_title(baslikO) say("") say("Para başarı ile çekilmiştir.") say("") say_reward("Yeni paranız: "..genel_veri(oyuncu_yeni_para)) say_reward("Kalan banka hesap A paranız: "..genel_veri(kalan_banka_hesap_A)) say("") end elseif i == 2 then banka_hesap_B = pc.getqf("banka_hesap_B") if cekilecekMiktar > banka_hesap_B then say_title(baslikOL) say("") say_reward("Banka hesabınızda yeterli miktarda para yok.") say("") else pc.setqf("banka_hesap_B",pc.getqf("banka_hesap_B")-cekilecekMiktar) pc.change_money(cekilecekMiktar) oyuncu_yeni_para = pc.get_money() kalan_banka_hesap_B = pc.getqf("banka_hesap_B") say_title(baslikO) say("") say("Para başarı ile çekilmiştir.") say("") say_reward("Yeni paranız: "..genel_veri(oyuncu_yeni_para)) say_reward("Kalan banka hesap B paranız: "..genel_veri(kalan_banka_hesap_B)) say("") end elseif i == 3 then banka_hesap_C = pc.getqf("banka_hesap_C") if cekilecekMiktar > banka_hesap_C then say_title(baslikOL) say("") say_reward("Banka hesabınızda yeterli miktarda para yok.") say("") else pc.setqf("banka_hesap_C",pc.getqf("banka_hesap_C")-cekilecekMiktar) pc.change_money(cekilecekMiktar) oyuncu_yeni_para = pc.get_money() kalan_banka_hesap_C = pc.getqf("banka_hesap_C") say_title(baslikO) say("") say("Para başarı ile çekilmiştir.") say("") say_reward("Yeni paranız: "..genel_veri(oyuncu_yeni_para)) say_reward("Kalan banka hesap C paranız: "..genel_veri(kalan_banka_hesap_C)) say("") end end -- if i == 1 then endi end -- if i = hesapSec then endi end -- for i=1,hesapSecDiziSay,1 do endi elseif bankaSecenek == 3 then say_title(baslikO) say("") say("Merhaba oyuncu, "..oyuncu_isim) say("Buradan dilediğin bir oyuncunun hesabına para[ENTER]gönderebilirsin.") say("") say_reward("Para göndermek istediğin oyuncunun ismini gir: ") say_reward("(Para gönderebilmen için oyuncu oyunda olmalıdır!)") gonderilecekOyuncuAdi = tostring(input()) oyuncu_kontrol = gelismis_banka.oyuncuAdiKontrol(gonderilecekOyuncuAdi) if not oyuncu_kontrol then return end -- if not oyuncu_kontrol then endi say_title(baslikO) say("") say("Hangi hesabınızdan para gönderecekseniz seçiniz: ") say("") hesapSecDizi = { "Hesap A ("..genel_veri(pc.getqf("banka_hesap_A"))..")", "Hesap B ("..genel_veri(pc.getqf("banka_hesap_B"))..")", "Hesap C ("..genel_veri(pc.getqf("banka_hesap_C"))..")" } hesapSecDiziSay = tonumber(table.getn(hesapSecDizi)) hesapSecDizi[hesapSecDiziSay + 1 ] = "Kapat" hesapSec = select_table(hesapSecDizi) for i=1,hesapSecDiziSay,1 do if hesapSec == hesapSecDiziSay + 1 then return end -- if hesapSec = hesapSecDiziSay + 1 then endi if i == hesapSec then say_title(baslikO) say("") if i == 1 then say_reward("Banka hesabı A durum: "..genel_veri(pc.getqf("banka_hesap_A"))) elseif i == 2 then say_reward("Banka hesabı B durum: "..genel_veri(pc.getqf("banka_hesap_B"))) elseif i == 3 then say_reward("Banka hesabı C durum: "..genel_veri(pc.getqf("banka_hesap_C"))) end -- if i == 1 then endi say("") say("Göndermek istediğiniz miktarı girin: ") gonderilecekMiktar = tonumber(input()) gonderilecekMiktarGonder = gelismis_banka.gonderilecekMiktarKontrol(gonderilecekMiktar) if not gonderilecekMiktarGonder then return end -- if not gonderilecekMiktarGonder then endi if i == 1 then banka_hesap_A = pc.getqf("banka_hesap_A") if gonderilecekMiktar > banka_hesap_A then say_title(baslikOL) say("") say_reward("Banka hesabınızda yeterli miktarda para yok.") say("") else oyuncuHesabi = {} oyuncu_ara = find_pc_by_name(gonderilecekOyuncuAdi) if oyuncu_ara != 0 then o_id = pc.select(oyuncu_ara) oyuncuHesabi[1] = pc.getqf("banka_hesap_A") oyuncuHesabi[2] = pc.getqf("banka_hesap_B") oyuncuHesabi[3] = pc.getqf("banka_hesap_C") pc.select(o_id) oyuncuBankaHesapDizi = { "Hesap A ("..genel_veri(oyuncuHesabi[1])..")", "Hesap B ("..genel_veri(oyuncuHesabi[2])..")", "Hesap C ("..genel_veri(oyuncuHesabi[3])..")" } oyuncuBankaHesapDiziSay = tonumber(table.getn(oyuncuBankaHesapDizi)) oyuncuBankaHesapDizi[oyuncuBankaHesapDiziSay + 1 ] = "Kapat" say_title(baslikO) say("") say("Para göndereceğiniz oyuncunun hesabı seçin: ") say("") bankaSec = select_table(oyuncuBankaHesapDizi) for i=1,oyuncuBankaHesapDiziSay,1 do if bankaSec == oyuncuBankaHesapDiziSay + 1 then return end -- if bankaSec = oyuncuBankaHesapDiziSay + 1 then endi if i == bankaSec then if i == 1 then if (gonderilecekMiktar + oyuncuHesabi[1]) > 1999999999 then say_title(baslikOL) say("") say_reward("Göndereceğiniz para sonrası oyuncunun hesabı dolacak.") say_reward("Lütfen başka bir hesap deneyin yada göndereceğiniz para miktarını azaltın.") say_reward("Para kaybı yaşanmaması için işleminiz iptal edilmiştir.") else if oyuncu_ara != 0 then o_id = pc.select(oyuncu_ara) pc.setqf("banka_hesap_A",pc.getqf("banka_hesap_A")+gonderilecekMiktar) syschat(oyuncu_isim.." tarafından A banka hesabanıza "..genel_veri(gonderilecekMiktar).." para aktarıldı.") syschat("A banka hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_A")).." oldu.") pc.select(o_id) pc.setqf("banka_hesap_A",pc.getqf("banka_hesap_A")-gonderilecekMiktar) say_title(baslikO) say("") say("Para başarı ile "..gonderilecekOyuncuAdi.." isimli oyuncunun hesabına aktarıldı.") say("A banka hesabınızdan "..genel_veri(gonderilecekMiktar).." para eksildi.") say("") say_reward("A hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_A"))) say("") else say_title(baslikOL) say_reward("Para göndereceğiniz oyuncu oyunda görünmüyor.") say("") end -- if oyuncu_ara != 0 then endi end -- if (gonderilecekMiktar + oyuncuHesabi[1]) > 1999999999 then elseif i == 2 then if (gonderilecekMiktar + oyuncuHesabi[2]) > 1999999999 then say_title(baslikOL) say("") say_reward("Göndereceğiniz para sonrası oyuncunun hesabı dolacak.") say_reward("Lütfen başka bir hesap deneyin yada göndereceğiniz para miktarını azaltın.") say_reward("Para kaybı yaşanmaması için işleminiz iptal edilmiştir.") else if oyuncu_ara != 0 then o_id = pc.select(oyuncu_ara) pc.setqf("banka_hesap_B",pc.getqf("banka_hesap_B")+gonderilecekMiktar) syschat(oyuncu_isim.." tarafından B banka hesabanıza "..genel_veri(gonderilecekMiktar).." para aktarıldı.") syschat("B banka hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_B")).." oldu.") pc.select(o_id) pc.setqf("banka_hesap_A",pc.getqf("banka_hesap_A")-gonderilecekMiktar) say_title(baslikO) say("") say("Para başarı ile "..gonderilecekOyuncuAdi.." isimli oyuncunun hesabına aktarıldı.") say("A banka hesabınızdan "..genel_veri(gonderilecekMiktar).." para eksildi.") say("") say_reward("A hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_A"))) say("") else say_title(baslikOL) say_reward("Para göndereceğiniz oyuncu oyunda görünmüyor.") say("") end -- if oyuncu_ara != 0 then endi end -- if (gonderilecekMiktar + oyuncuHesabi[1]) > 1999999999 then elseif i == 3 then if (gonderilecekMiktar + oyuncuHesabi[3]) > 1999999999 then say_title(baslikOL) say("") say_reward("Göndereceğiniz para sonrası oyuncunun hesabı dolacak.") say_reward("Lütfen başka bir hesap deneyin yada göndereceğiniz para miktarını azaltın.") say_reward("Para kaybı yaşanmaması için işleminiz iptal edilmiştir.") else if oyuncu_ara != 0 then o_id = pc.select(oyuncu_ara) pc.setqf("banka_hesap_C",pc.getqf("banka_hesap_C")+gonderilecekMiktar) syschat(oyuncu_isim.." tarafından C banka hesabanıza "..genel_veri(gonderilecekMiktar).." para aktarıldı.") syschat("C banka hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_C")).." oldu.") pc.select(o_id) pc.setqf("banka_hesap_A",pc.getqf("banka_hesap_A")-gonderilecekMiktar) say_title(baslikO) say("") say("Para başarı ile "..gonderilecekOyuncuAdi.." isimli oyuncunun hesabına aktarıldı.") say("A banka hesabınızdan "..genel_veri(gonderilecekMiktar).." para eksildi.") say("") say_reward("A hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_A"))) say("") else say_title(baslikOL) say_reward("Para göndereceğiniz oyuncu oyunda görünmüyor.") say("") end -- if oyuncu_ara != 0 then endi end -- if (gonderilecekMiktar + oyuncuHesabi[1]) > 1999999999 then end -- if i = 1 then endi end -- if i = bankaSec then endi end -- for i=1,oyuncuBankaHesapDiziSay,1 do endi else say_title(baslikOL) say_reward("Para göndereceğiniz oyuncu oyunda görünmüyor.") say("") end end -- if gonderilecekMiktar > banka_hesap_A then endi elseif i == 2 then banka_hesap_B = pc.getqf("banka_hesap_B") if gonderilecekMiktar > banka_hesap_B then say_title(baslikOL) say("") say_reward("Banka hesabınızda yeterli miktarda para yok.") say("") else oyuncuHesabi = {} oyuncu_ara = find_pc_by_name(gonderilecekOyuncuAdi) if oyuncu_ara != 0 then o_id = pc.select(oyuncu_ara) oyuncuHesabi[1] = pc.getqf("banka_hesap_A") oyuncuHesabi[2] = pc.getqf("banka_hesap_B") oyuncuHesabi[3] = pc.getqf("banka_hesap_C") pc.select(o_id) oyuncuBankaHesapDizi = { "Hesap A ("..genel_veri(oyuncuHesabi[1])..")", "Hesap B ("..genel_veri(oyuncuHesabi[2])..")", "Hesap C ("..genel_veri(oyuncuHesabi[3])..")" } oyuncuBankaHesapDiziSay = tonumber(table.getn(oyuncuBankaHesapDizi)) oyuncuBankaHesapDizi[oyuncuBankaHesapDiziSay + 1 ] = "Kapat" say_title(baslikO) say("") say("Para göndereceğiniz oyuncunun hesabı seçin: ") say("") bankaSec = select_table(oyuncuBankaHesapDizi) for i=1,oyuncuBankaHesapDiziSay,1 do if bankaSec == oyuncuBankaHesapDiziSay + 1 then return end -- if bankaSec = oyuncuBankaHesapDiziSay + 1 then endi if i == bankaSec then if i == 1 then if (gonderilecekMiktar + oyuncuHesabi[1]) > 1999999999 then say_title(baslikOL) say("") say_reward("Göndereceğiniz para sonrası oyuncunun hesabı dolacak.") say_reward("Lütfen başka bir hesap deneyin yada göndereceğiniz para miktarını azaltın.") say_reward("Para kaybı yaşanmaması için işleminiz iptal edilmiştir.") else if oyuncu_ara != 0 then o_id = pc.select(oyuncu_ara) pc.setqf("banka_hesap_A",pc.getqf("banka_hesap_A")+gonderilecekMiktar) syschat(oyuncu_isim.." tarafından A banka hesabanıza "..genel_veri(gonderilecekMiktar).." para aktarıldı.") syschat("A banka hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_A")).." oldu.") pc.select(o_id) pc.setqf("banka_hesap_B",pc.getqf("banka_hesap_B")-gonderilecekMiktar) say_title(baslikO) say("") say("Para başarı ile "..gonderilecekOyuncuAdi.." isimli oyuncunun hesabına aktarıldı.") say("B banka hesabınızdan "..genel_veri(gonderilecekMiktar).." para eksildi.") say("") say_reward("B hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_B"))) say("") else say_title(baslikOL) say_reward("Para göndereceğiniz oyuncu oyunda görünmüyor.") say("") end -- if oyuncu_ara != 0 then endi end -- if (gonderilecekMiktar + oyuncuHesabi[1]) > 1999999999 then elseif i == 2 then if (gonderilecekMiktar + oyuncuHesabi[2]) > 1999999999 then say_title(baslikOL) say("") say_reward("Göndereceğiniz para sonrası oyuncunun hesabı dolacak.") say_reward("Lütfen başka bir hesap deneyin yada göndereceğiniz para miktarını azaltın.") say_reward("Para kaybı yaşanmaması için işleminiz iptal edilmiştir.") else if oyuncu_ara != 0 then o_id = pc.select(oyuncu_ara) pc.setqf("banka_hesap_B",pc.getqf("banka_hesap_B")+gonderilecekMiktar) syschat(oyuncu_isim.." tarafından B banka hesabanıza "..genel_veri(gonderilecekMiktar).." para aktarıldı.") syschat("B banka hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_B")).." oldu.") pc.select(o_id) pc.setqf("banka_hesap_B",pc.getqf("banka_hesap_B")-gonderilecekMiktar) say_title(baslikO) say("") say("Para başarı ile "..gonderilecekOyuncuAdi.." isimli oyuncunun hesabına aktarıldı.") say("B banka hesabınızdan "..genel_veri(gonderilecekMiktar).." para eksildi.") say("") say_reward("B hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_B"))) say("") else say_title(baslikOL) say_reward("Para göndereceğiniz oyuncu oyunda görünmüyor.") say("") end -- if oyuncu_ara != 0 then endi end -- if (gonderilecekMiktar + oyuncuHesabi[1]) > 1999999999 then elseif i == 3 then if (gonderilecekMiktar + oyuncuHesabi[3]) > 1999999999 then say_title(baslikOL) say("") say_reward("Göndereceğiniz para sonrası oyuncunun hesabı dolacak.") say_reward("Lütfen başka bir hesap deneyin yada göndereceğiniz para miktarını azaltın.") say_reward("Para kaybı yaşanmaması için işleminiz iptal edilmiştir.") else if oyuncu_ara != 0 then o_id = pc.select(oyuncu_ara) pc.setqf("banka_hesap_C",pc.getqf("banka_hesap_C")+gonderilecekMiktar) syschat(oyuncu_isim.." tarafından C banka hesabanıza "..genel_veri(gonderilecekMiktar).." para aktarıldı.") syschat("C banka hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_C")).." oldu.") pc.select(o_id) pc.setqf("banka_hesap_B",pc.getqf("banka_hesap_B")-gonderilecekMiktar) say_title(baslikO) say("") say("Para başarı ile "..gonderilecekOyuncuAdi.." isimli oyuncunun hesabına aktarıldı.") say("B banka hesabınızdan "..genel_veri(gonderilecekMiktar).." para eksildi.") say("") say_reward("B hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_B"))) say("") else say_title(baslikOL) say_reward("Para göndereceğiniz oyuncu oyunda görünmüyor.") say("") end -- if oyuncu_ara != 0 then endi end -- if (gonderilecekMiktar + oyuncuHesabi[1]) > 1999999999 then end -- if i = 1 then endi end -- if i = bankaSec then endi end -- for i=1,oyuncuBankaHesapDiziSay,1 do endi else say_title(baslikOL) say_reward("Para göndereceğiniz oyuncu oyunda görünmüyor.") say("") end end -- if gonderilecekMiktar > banka_hesap_A then endi elseif i == 3 then banka_hesap_C = pc.getqf("banka_hesap_C") if gonderilecekMiktar > banka_hesap_C then say_title(baslikOL) say("") say_reward("Banka hesabınızda yeterli miktarda para yok.") say("") else oyuncuHesabi = {} oyuncu_ara = find_pc_by_name(gonderilecekOyuncuAdi) if oyuncu_ara != 0 then o_id = pc.select(oyuncu_ara) oyuncuHesabi[1] = pc.getqf("banka_hesap_A") oyuncuHesabi[2] = pc.getqf("banka_hesap_B") oyuncuHesabi[3] = pc.getqf("banka_hesap_C") pc.select(o_id) oyuncuBankaHesapDizi = { "Hesap A ("..genel_veri(oyuncuHesabi[1])..")", "Hesap B ("..genel_veri(oyuncuHesabi[2])..")", "Hesap C ("..genel_veri(oyuncuHesabi[3])..")" } oyuncuBankaHesapDiziSay = tonumber(table.getn(oyuncuBankaHesapDizi)) oyuncuBankaHesapDizi[oyuncuBankaHesapDiziSay + 1 ] = "Kapat" say_title(baslikO) say("") say("Para göndereceğiniz oyuncunun hesabı seçin: ") say("") bankaSec = select_table(oyuncuBankaHesapDizi) for i=1,oyuncuBankaHesapDiziSay,1 do if bankaSec == oyuncuBankaHesapDiziSay + 1 then return end -- if bankaSec = oyuncuBankaHesapDiziSay + 1 then endi if i == bankaSec then if i == 1 then if (gonderilecekMiktar + oyuncuHesabi[1]) > 1999999999 then say_title(baslikOL) say("") say_reward("Göndereceğiniz para sonrası oyuncunun hesabı dolacak.") say_reward("Lütfen başka bir hesap deneyin yada göndereceğiniz para miktarını azaltın.") say_reward("Para kaybı yaşanmaması için işleminiz iptal edilmiştir.") else if oyuncu_ara != 0 then o_id = pc.select(oyuncu_ara) pc.setqf("banka_hesap_A",pc.getqf("banka_hesap_A")+gonderilecekMiktar) syschat(oyuncu_isim.." tarafından A banka hesabanıza "..genel_veri(gonderilecekMiktar).." para aktarıldı.") syschat("A banka hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_A")).." oldu.") pc.select(o_id) pc.setqf("banka_hesap_C",pc.getqf("banka_hesap_C")-gonderilecekMiktar) say_title(baslikO) say("") say("Para başarı ile "..gonderilecekOyuncuAdi.." isimli oyuncunun hesabına aktarıldı.") say("C banka hesabınızdan "..genel_veri(gonderilecekMiktar).." para eksildi.") say("") say_reward("C hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_C"))) say("") else say_title(baslikOL) say_reward("Para göndereceğiniz oyuncu oyunda görünmüyor.") say("") end -- if oyuncu_ara != 0 then endi end -- if (gonderilecekMiktar + oyuncuHesabi[1]) > 1999999999 then elseif i == 2 then if (gonderilecekMiktar + oyuncuHesabi[2]) > 1999999999 then say_title(baslikOL) say("") say_reward("Göndereceğiniz para sonrası oyuncunun hesabı dolacak.") say_reward("Lütfen başka bir hesap deneyin yada göndereceğiniz para miktarını azaltın.") say_reward("Para kaybı yaşanmaması için işleminiz iptal edilmiştir.") else if oyuncu_ara != 0 then o_id = pc.select(oyuncu_ara) pc.setqf("banka_hesap_B",pc.getqf("banka_hesap_B")+gonderilecekMiktar) syschat(oyuncu_isim.." tarafından B banka hesabanıza "..genel_veri(gonderilecekMiktar).." para aktarıldı.") syschat("B banka hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_B")).." oldu.") pc.select(o_id) pc.setqf("banka_hesap_C",pc.getqf("banka_hesap_C")-gonderilecekMiktar) say_title(baslikO) say("") say("Para başarı ile "..gonderilecekOyuncuAdi.." isimli oyuncunun hesabına aktarıldı.") say("C banka hesabınızdan "..genel_veri(gonderilecekMiktar).." para eksildi.") say("") say_reward("C hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_C"))) say("") else say_title(baslikOL) say_reward("Para göndereceğiniz oyuncu oyunda görünmüyor.") say("") end -- if oyuncu_ara != 0 then endi end -- if (gonderilecekMiktar + oyuncuHesabi[1]) > 1999999999 then elseif i == 3 then if (gonderilecekMiktar + oyuncuHesabi[3]) > 1999999999 then say_title(baslikOL) say("") say_reward("Göndereceğiniz para sonrası oyuncunun hesabı dolacak.") say_reward("Lütfen başka bir hesap deneyin yada göndereceğiniz para miktarını azaltın.") say_reward("Para kaybı yaşanmaması için işleminiz iptal edilmiştir.") else if oyuncu_ara != 0 then o_id = pc.select(oyuncu_ara) pc.setqf("banka_hesap_C",pc.getqf("banka_hesap_C")+gonderilecekMiktar) syschat(oyuncu_isim.." tarafından C banka hesabanıza "..genel_veri(gonderilecekMiktar).." para aktarıldı.") syschat("C banka hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_C")).." oldu.") pc.select(o_id) pc.setqf("banka_hesap_C",pc.getqf("banka_hesap_C")-gonderilecekMiktar) say_title(baslikO) say("") say("Para başarı ile "..gonderilecekOyuncuAdi.." isimli oyuncunun hesabına aktarıldı.") say("C banka hesabınızdan "..genel_veri(gonderilecekMiktar).." para eksildi.") say("") say_reward("C hesabınızdaki toplam para: "..genel_veri(pc.getqf("banka_hesap_C"))) say("") else say_title(baslikOL) say_reward("Para göndereceğiniz oyuncu oyunda görünmüyor.") say("") end -- if oyuncu_ara != 0 then endi end -- if (gonderilecekMiktar + oyuncuHesabi[1]) > 1999999999 then end -- if i = 1 then endi end -- if i = bankaSec then endi end -- for i=1,oyuncuBankaHesapDiziSay,1 do endi else say_title(baslikOL) say_reward("Para göndereceğiniz oyuncu oyunda görünmüyor.") say("") end end -- if gonderilecekMiktar > banka_hesap_A then endi end -- if i == 1 then endi end --- if i == hesapSec then endi end -- for i=1,hesapSecDiziSay,1 do endi elseif bankaSecenek == 4 then say_title(baslikO) say("") say("Aşağıda banka hesabınızda olan toplam paralarınız vardır: ") say() say_reward("Banka hesabı A: "..genel_veri(pc.getqf("banka_hesap_A"))) say_reward("Banka hesabı B: "..genel_veri(pc.getqf("banka_hesap_B"))) say_reward("Banka hesabı C: "..genel_veri(pc.getqf("banka_hesap_C"))) say("") toplamPara = pc.getqf("banka_hesap_A") + pc.getqf("banka_hesap_B") + pc.getqf("banka_hesap_C") say_reward("Toplam para tutarınız: "..genel_veri(toplamPara)) say("") elseif bankaSecenek == 5 then say_title(baslikO) say("") say("Merhaba oyuncu, "..oyuncu_isim) say("Buradan Banka Hesap Şifreni değiştirebilirsin.") say("") say_reward("Yeni şifrenizi giriniz: ") say_reward("(Şifre 0 ile başlayamaz!)") yeniBankaHesapSifresi = tonumber(input()) sifreKontrol = gelismis_banka.bankaSifreKontrol(bankaSifresi) if not sifreKontrol then return end -- if not sifreKontrol then endi say_title(baslikO) say("") say_reward("Eski şifreniz: "..pc.getqf("banka_hesap_sifresi")) say("") say_reward("Yeni oluşturduğunuz şifre: "..yeniBankaHesapSifresi) say("") say_reward("Şifrenizi gerçekten değiştirmek istiyor musunuz?") say("") sifreDegistirSec = select("Evet","Hayır") if sifreDegistirSec == 1 then pc.setqf("banka_hesap_sifresi",yeniBankaHesapSifresi) say_title(baslikO) say("") say("Şifre başarı ile değiştirildi.") say("") say_reward("Yeni banka hesap şifreniz: "..pc.getqf("banka_hesap_sifresi")) say("") elseif sifreDegistirSec == 2 then return end elseif bankaSecenek == 6 then return end -- if bankaSecenek == 1 then endi end -- if bankaSifresi != oyuncu_banka_sifresi then endi end -- if pc.setqf("banka_hesabi") == 0 then endi end -- when 20355.chat."Banka Sistemi" begin endi function bankaSifreKontrol(gelen_banka_sifresi) baslikOL = "Uyarı:" bankaSifresi_f = gelen_banka_sifresi if bankaSifresi_f == "" or bankaSifresi_f == nil then say_title(baslikOL) say("") say_reward("Boş giriş yada geçersiz karakter girişi yapıldı.") say("") return false elseif string.len(bankaSifresi_f) != 6 then say_title(baslikOL) say("") say_reward("Şifre 6 haneden oluşmalı!") say("") return false end -- if bankaSifresi_f == "" or bankaSifresi_f == nil then endi return true end -- function bankaSıfreKontrol(gelen_banka_sifresi) endi function yuklenecekMiktarKontrol(gelen_yuklenecek_miktar) baslikO = "Bilgilendirme:" baslikOL = "Uyarı:" oyuncu_para = pc.get_money() yuklenecekMiktar_f = gelen_yuklenecek_miktar if yuklenecekMiktar_f == "" or yuklenecekMiktar_f == nil then say_title(baslikOL) say("") say_reward("Boş bıraktınız yada sayısal değer girmediniz.") say("") return false elseif yuklenecekMiktar_f < 1 or yuklenecekMiktar_f > 1999999999 then say_title(baslikOL) say("") say_reward("En az 1 en fazla 1.999.999.999 tutarını girmelisiniz. ") say("") return false elseif oyuncu_para < yuklenecekMiktar_f then say_title(baslikOL) say("") say_reward("Hesabınızda yeterli miktarda para yok.") say("") return false end return true end function cekilecekMiktarKontrol(gelen_cekilecek_miktar) baslikO = "Bilgilendirme:" baslikOL = "Uyarı:" oyuncu_para = pc.get_money() cekilecekMiktar_f = gelen_cekilecek_miktar if cekilecekMiktar_f == "" or cekilecekMiktar_f == nil then say_title(baslikOL) say("") say_reward("Boş bıraktınız yada sayısal değer girmediniz.") say("") return false elseif cekilecekMiktar_f < 1 or cekilecekMiktar_f > 1999999999 then say_title(baslikOL) say("") say_reward("En az 1 en fazla 1.999.999.999 tutarını girmelisiniz. ") say("") return false elseif (oyuncu_para + cekilecekMiktar_f) > 1999999999 then say_title(baslikOL) say("") say_reward("Girdiğiniz miktar ile oyun paranız sınırı aşıyor.") say_reward("Para kaybı yaşamamanız için işlem iptal edildi.") say("") return false end return true end function oyuncuAdiKontrol(gelen_oyuncu_adi) gonderilecekOyuncuAdi_f = gelen_oyuncu_adi baslikOL="Uyarı:" oyuncuAra = find_pc_by_name(gonderilecekOyuncuAdi_f) oyuncuBilgi = {} o_id = pc.select(oyuncuAra) oyuncuBilgi[1] = pc.getqf("banka_hesabi") pc.select(o_id) if gonderilecekOyuncuAdi_f == "" or gonderilecekOyuncuAdi_f == nil then say_title(baslikOL) say("") say_reward("Boş bıraktınız yada geçersiz giriş yaptınız!") say("") return false elseif oyuncuAra == 0 then say_title(baslikOL) say("") say_reward("Böyle bir oyuncu yok yada oyunda değil.") say("") return false elseif oyuncuBilgi[1] == 0 then say_title(baslikOL) say("") say_reward("Oyuncu banka hesabını henüz açmamış.") say("") return false end return true end function gonderilecekMiktarKontrol(gelen_gonderilecek_miktar) baslikOL = "Uyarı:" gonderilecekMiktar_f = gelen_gonderilecek_miktar if gonderilecekMiktar_f == "" or gonderilecekMiktar_f == nil then say_title(baslikOL) say("") say_reward("Boş bıraktınız yada sayısal değer girmediniz.") say("") return false elseif gonderilecekMiktar_f < 1 or gonderilecekMiktar_f > 1999999999 then say_title(baslikOL) say("") say_reward("En az 1 en fazla 1.999.999.999 tutarını girmelisiniz. ") say("") return false end return true end end -- state start begin endi end -- quest gelismis_banka begin endi
güzel sistem ama adam her seferinde yüzbaşıyamı gitcek para cekmk için bence görev bölgesinde Bankam vs. olsa oradan tıklayıp işlem yapsa daha ii olur. ellerine sağlık
Hortlatmak gibi oldu güncelleme şansın var mı linkleri?
Tarafımca güncellenmiştir.
Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)
Benzer konular
- Cevaplar
- 10
- Görüntüleme
- 334
