Konum Kaydetme Sistemi[LUA] 1

[thenemne0032]

ROHAN2 WORLD 1-120 TR TİPİ OFFICIAL YOHARA, BALATHOR VE AMON! 80. GÜNÜNDE! +10.000 ONLİNE! HİLE VE BOT %100 ENGELLİ HEMEN TIKLA!

Merhabalar,


Konum Kaydetme Sistemi nedir?


Oyuncular 30.seviyeden sonra "40004" kodlu yüzükten sistemi kullanabilirler. Dileyen oyuncu bulunduğu yerin koordinatlarını kaydeder ve dilediğin zaman kaydettiği koordinata ışınlanabilir. Bir nevi oyuncu kendi ışınlanma yüzüğünü yaratmış olur. Eşya ile girilen özel haritaların ya da bossların olduğu haritaların bir kısmını kendim engelledim fakat sizlerde aşağıda anlatacağım şekilde dilediğiniz haritayı engelleyebilirsiniz. Böylelikle oyuncu o haritada herhangi bir konum kaydetme işlemi gerçekleştiremez. Ayrıca oyuncu en fazla 10 adet konum kaydedebilir ve konum kaydederken, konumun ismini kendisi belirler. Dilediğin zaman konumun ismini yeniden değiştirebilir ya da kaydettiği konumu silebilir. Detayla aşağıdaki resimlerde mevcuttur:

Konum Kaydetme Sistemi - DOSYALAR

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

 

[DeadLyEscaPe]

Merhabalar,


Konum Kaydetme Sistemi nedir?


Oyuncular 30.seviyeden sonra "40004" kodlu yüzükten sistemi kullanabilirler. Dileyen oyuncu bulunduğu yerin koordinatlarını kaydeder ve dilediğin zaman kaydettiği koordinata ışınlanabilir. Bir nevi oyuncu kendi ışınlanma yüzüğünü yaratmış olur. Eşya ile girilen özel haritaların ya da bossların olduğu haritaların bir kısmını kendim engelledim fakat sizlerde aşağıda anlatacağım şekilde dilediğiniz haritayı engelleyebilirsiniz. Böylelikle oyuncu o haritada herhangi bir konum kaydetme işlemi gerçekleştiremez. Ayrıca oyuncu en fazla 10 adet konum kaydedebilir ve konum kaydederken, konumun ismini kendisi belirler. Dilediğin zaman konumun ismini yeniden değiştirebilir ya da kaydettiği konumu silebilir. Detayla aşağıdaki resimlerde mevcuttur:

Konum Kaydetme Sistemi - DOSYALAR​

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

​

Kodları indirmeden kontrol etmek isteyenler için:

quest konum_kayit begin
    state start begin
        when 40004.use begin
            -----------------------------------
            oyuncu_kimlik = pc.get_player_id()
            oyuncu_isim = pc.get_name()
            oyuncu_x_koordinat = pc.get_x()
            oyuncu_y_koordinat = pc.get_y()
            oyuncu_harita = pc.get_map_index()
            oyuncu_konum_sayisi = pc.getqf("konum_sayisi")
            -----------------------------------
            if pc.get_level() < 30 then
                say_title("Uyarı:")
                say("")
                say_reward("Sistemi kullanabilmek için en az 30.seviye olmanız lazım.")
                say("")
                return
            end
            say_title("[WINDOW_SIZE width;350|height;400]Bilgilendirme")
            say("")
            say("Konum kayıt sistemine hoş geldiniz oyuncu, "..oyuncu_isim)
            say("")
            say("Şuan ki konum bilgileriniz: ")
            say("")
            say_reward("X Koordinatı: "..oyuncu_x_koordinat)
            say_reward("Y Koordinatı: "..oyuncu_y_koordinat)
            say_reward("Harita Kimlik Numarası: "..oyuncu_harita)
            say("")
            say_reward("Toplam kayıtlı konum: "..oyuncu_konum_sayisi)
            say("")
            say_reward("Ne yapmak istersiniz?")
            say("")
            konum_kayit_sec = select("Konum Kaydet","Kayıtlı Konumlar","Kapat")
            if konum_kayit_sec == 1 then
                harita_kontrol = konum_kayit.yasakli_bolge(oyuncu_harita)
                if not harita_kontrol then
                    say_title("Uyarı:")
                    say("")
                    say_reward("Bu haritada konum kaydetme engellenmiştir.")
                    say("")
                    return
                end
                if pc.getqf("konum_sayisi") > 9 then
                    say_title("Uyarı:")
                    say_reward("En fazla 10 adet konum kaydedebilirsiniz.")
                    say("")
                    return
                end
                say_title("Bilgilendirme:")
                say("")
                say_reward("Lütfen konumunuza bir isim verin:")
                oyuncu_konum_adi = tostring(input())
                if oyuncu_konum_adi == nil or oyuncu_konum_adi == "" then
                    say_title("Uyarı:")
                    say("")
                    say_reward("Geçersiz giriş yaptınız! İşlemler sıfırlandı.")
                    say("")
                else
                    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.."')")
                    if konum_kaydet then
                        pc.setqf("konum_sayisi",pc.getqf("konum_sayisi")+1)
                        say_title("Bilgilendirme:")
                        say("")
                        say("Konumunuz başarı ile kaydedilmiştir.")
                        say("")
                    else
                        say_title("Uyarı:")
                        say("")
                        say_reward("Konum kaydedilemedi! İşlemler sıfırlandı.")
                        say("")
                    end
                end
            elseif konum_kayit_sec == 2 then
                konum_kimlik_dizi = {}
                oyuncu_x_koordinat_dizi = {}
                oyuncu_y_koordinat_dizi = {}
                oyuncu_harita_kimlik_dizi = {}
                oyuncu_harita_konum_adi_dizi = {}
                konumlari_cek = mysql_query("select * from player.konum_kayit where oyuncu_kimlik='"..oyuncu_kimlik.."' and oyuncu_isim='"..oyuncu_isim.."' ")
                konumlari_cek_say = tonumber(table.getn(konumlari_cek))
                if konumlari_cek_say < 1 then
                    say_title("Uyarı:")
                    say("")
                    say_reward("Kayıtlı konum bulunamadı.")
                    say("")
                    return
                end
                for i=1,konumlari_cek_say,1 do
                    oyuncu_x_koordinat_dizi[i] = konumlari_cek.oyuncu_x_koordinat[i]
                    oyuncu_y_koordinat_dizi[i] = konumlari_cek.oyuncu_y_koordinat[i]
                    oyuncu_harita_kimlik_dizi[i] = konumlari_cek.oyuncu_harita[i]
                    oyuncu_harita_konum_adi_dizi[i] = konumlari_cek.oyuncu_konum_adi[i]
                    konum_kimlik_dizi[i] = konumlari_cek.id[i]
                end
                oyuncu_konum_adi_say = tonumber(table.getn(oyuncu_harita_konum_adi_dizi))
                oyuncu_harita_konum_adi_dizi[oyuncu_konum_adi_say + 1] = "Kapat"
                oyuncu_konum_adi_sec = select_table(oyuncu_harita_konum_adi_dizi)
                for m=1,konumlari_cek_say,1 do
                    if oyuncu_konum_adi_sec == oyuncu_konum_adi_say + 1 then
                        return
                    end
                    if oyuncu_konum_adi_sec == m then
                        o_x_koordinat = oyuncu_x_koordinat_dizi[m]
                        o_y_koordinat = oyuncu_y_koordinat_dizi[m]
                        o_harita_kimlik = oyuncu_harita_kimlik_dizi[m]
                        o_konum_kimlik = konum_kimlik_dizi[m]
                        say_title("[WINDOW_SIZE width;350|height;400]Bilgilendirme")
                        say("")
                        say("Merhaba oyuncu, "..oyuncu_isim)
                        say("Buradan kaydettiğin konumuna ışınlanabilir, konumunu[ENTER]silebilir ya da konum ismini düzenleyebilirsin.")
                        say("")
                        say_title("Konum bilgileri: ")
                        say("")
                        say_reward("X Koordinatı: "..o_x_koordinat)
                        say_reward("Y Koordinatı: "..o_y_koordinat)
                        say_reward("Harita Kimlik Numarası: "..o_harita_kimlik)
                        say("")
                        say_reward("Ne yapmak istiyorsun?")
                        say("")
                        konum_ne_yapilacak = select("Konuma Işınlan","Konum Adı Düzenle","Konum Sil","Kapat")
                        if konum_ne_yapilacak == 1 then
                            pc.warp((o_x_koordinat*100),(o_y_koordinat*100))
                        elseif konum_ne_yapilacak == 2 then
                            say_title("Bilgilendirme:")
                            say("")
                            say_reward("Lütfen yeni konum adını giriniz: ")
                            oyuncu_konum_adi = tostring(input())
                            if oyuncu_konum_adi == nil or oyuncu_konum_adi == "" then
                                say_title("Uyarı:")
                                say("")
                                say_reward("Geçersiz giriş yaptınız! İşlemler sıfırlandı.")
                                say("")
                            else
                                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.."'")
                                if konum_adi_guncelle then
                                    say_title("Bilgilendirme:")
                                    say("")
                                    say("Konum adı başarı ile güncellendi.")
                                    say("")
                                end
                            end
                        elseif konum_ne_yapilacak == 3 then
                            konum_sil =    mysql_query("DELETE FROM player.konum_kayit WHERE id='"..o_konum_kimlik.."' and oyuncu_kimlik='"..oyuncu_kimlik.."'")
                            if konum_sil then
                                pc.setqf("konum_sayisi",pc.getqf("konum_sayisi")-1)
                                say_title("Bilgilendirme:")
                                say("")
                                say("Konum başarı ile silindi.")
                                say("")
                            end
                        elseif konum_ne_yapilacak == 4 then
                            return
                        end
                    end
                end
            elseif konum_kayit_sec == 3 then
                return
            end -- if konum_kayit_sec == 1 then endi
        end -- when 40004.use begin  endi
        
        function yasakli_bolge(gelen_harita_kimlik) 
            harita_kimlik_f = gelen_harita_kimlik
            yasakli_bolgeD =  {
                66, -- Şeytan kulesi
                72, -- Sürgün mağarası 1.kat
                73, -- Sürgün mağarası 2.kat
                79, -- Sürgün Mağarası Boss odası
                103, -- Özel GM haritası
                206, -- Şeytan Katakombu
                660000 -- Şeytan kulesi 3 ve 9.kat arası
            }
            yasakli_bolgeD_Say = tonumber(table.getn(yasakli_bolgeD))
            for i=1,yasakli_bolgeD_Say,1 do
                if harita_kimlik_f == yasakli_bolgeD[i] then
                    return false
                end
            end
            return true
        end --function yasakli_bolge(gelen_harita_kimlik)
        
    end -- state start begin endi
end -- quest konum_kayit begin endi

Engellemek istediğiniz haritaların kimlik numarasını buraya düzgün şekilde ekleyin:

yasakli_bolgeD =  
{
  66, -- Şeytan kulesi
  72, -- Sürgün mağarası 1.kat
  73, -- Sürgün mağarası 2.kat
  79, -- Sürgün Mağarası Boss odası
  103, -- Özel GM haritası
  206, -- Şeytan Katakombu
  660000 -- Şeytan kulesi 3 ve 9.kat arası
}

Konumu kaydet diyorum adını yazıyorum, tamam diyorum pencere kapanıyor işlem görmüyor. Hata nerede acaba?
[B @thenemne0032;[/B]

 

[thenemne0032]

Konumu kaydet diyorum adını yazıyorum, tamam diyorum pencere kapanıyor işlem görmüyor. Hata nerede acaba?
[B @thenemne0032;[/B]

Sql dosyasını player veritabanına eklediniz değil mi?

 

[ZacqooLeaven]

Harikaalar ötesi bir paylaşim daha

 

[Pelin Melek Aslan]

Gayet güzel bir çalışma olmuş kullanıcağım teşekkürler.