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!
Çok teşekkürler. Özellikle bu son yaptığım şuan üzerinde çalıştığım "Offline Alışveriş Sistemi" sabit olursa benim için daha değerli. Size kalmış tabii. Bitirip paylaşayım ben.
2089 game kullanan arkadaşlar epostaya tıkladığınızda ekrana hiçbişey gelmiyosa bunu kullanın
Kod:
quest eposta_sistemi begin
state start begin
when login begin
local karakter_id = pc.get_player_id()
loop_timer("eposta_kontrol",1)
pc.setqf("eposta_var",0)
end
when eposta_kontrol.timer begin
local karakter_id = tonumber(pc.get_player_id())
local karakter_isim = pc.get_name()
local gelen_mesaj = mysql_query10("select * from player.eposta where alan_id='"..karakter_id.."' and alan_isim='"..karakter_isim.."' and okundu_mu='0' ")
local gelen_mesaj_kactane = tonumber(table.getn(gelen_mesaj))
if pc.getqf("eposta_var") == 0 and gelen_mesaj_kactane > 0 then
send_letter("E-Posta("..gelen_mesaj_kactane..")")
pc.setqf("eposta_var",1)
elseif pc.getqf("eposta_var") == 1 and gelen_mesaj_kactane > 0 then
send_letter(" ")
pc.setqf("eposta_var",0)
else
send_letter("E-Posta("..gelen_mesaj_kactane..")")
end
end
when letter with pc.is_gm() begin
local karakter_id = tonumber(pc.get_player_id())
local karakter_isim = pc.get_name()
local gelen_mesaj = mysql_query10("select * from player.eposta where alan_id='"..karakter_id.."' and alan_isim='"..karakter_isim.."' and okundu_mu='0' ")
local gelen_mesaj_kactane = tonumber(table.getn(gelen_mesaj))
send_letter("E-Posta("..gelen_mesaj_kactane..")")
end
when button or info with pc.is_gm() begin
local karakter_id = tonumber(pc.get_player_id())
local karakter_isim = pc.get_name()
say_title("Merhaba "..pc.get_name().."")
say("Buradan istediğin kişiye Posta gönderebilir veya kendi posta kutunu kontrol edenilirsin.")
local eposta = select("E-Posta Gönder","E-Posta Kontrol","Yönetici E-Posta Kontrol","E-Posta Alım","Kapat")
if eposta == 1 then
say_title("Bilgilendirme:")
say("")
say("Merhaba "..karakter_isim)
say("E-Posta sistemine hoş geldin.")
say("")
say_reward("Devam etmek istiyor musun?")
say("")
local eposta_gonderme = select("Evet","Hayır")
if eposta_gonderme == 1 then
say_title("Bilgilendirme:")
say("")
say("E-Posta karakter ismine göre gönderilmektedir.")
say("Karakter ismi dışında herhangi bir şey girerseniz E-Postanız yollanmayacaktır.")
say("")
say_reward("E-Posta yollayacağınız karakter adını giriniz:")
local eposta_gonderilen = tostring(input())
if eposta_gonderilen == "" then
say_title("Uyarı:")
say("")
say_reward("Bu alanı boş bırakamazsınız, tekrar deneyin.")
say("")
else
local gonderilen_kisi_bilgiler = mysql_query10("select * from player.player")
local kac_kisi_var = tonumber(table.getn(gonderilen_kisi_bilgiler))
local i = 1
while i <= kac_kisi_var do
local gonderilen_kisi_isim = tostring(gonderilen_kisi_bilgiler.name[i])
if eposta_gonderilen == gonderilen_kisi_isim then
local gonderilen_kisi_kontrol = mysql_query10("select * from player.player where name= '"..eposta_gonderilen.."'")
pc.setqf("eposta_durum",gonderilen_kisi_kontrol.eposta_durum[1])
pc.setqf("eposta_gelen",gonderilen_kisi_kontrol.eposta_gelen[1])
local kisi_kontrol_id = gonderilen_kisi_kontrol.id[1]
local kisi_kontrol_isim = gonderilen_kisi_kontrol.name[1]
if pc.getqf("eposta_durum") == 1 then
say_title("Bilgilendirme:")
say("")
say("E-Posta gönderme bölümüne hoş geldin, "..karakter_isim)
say("")
say_reward("Aşağıya yollamak istediğin mesajı gir:")
local giden_mesaj = tostring(input())
if giden_mesaj == "" then
say_title("Uyarı:")
say("")
say_reward("Mesaj kısmını boş bırakamazsınız! Tekrar deneyin.")
say()
else
--------------------- Mesaj Gönderilecek
local tarih_saat = os.date("%x").." "..os.date("%X")
local eposta_ekle = mysql_query10("insert into eposta(gonderen_id,gonderen_isim,alan_id,alan_isim,mesaj,tarih_saat) values('"..karakter_id.."','"..karakter_isim.."','"..kisi_kontrol_id.."','"..kisi_kontrol_isim.."','"..giden_mesaj.."','"..tarih_saat.."')")
local eposta_ekle1 = mysql_query10("insert into eposta_kontrol(gonderen_id,gonderen_isim,alan_id,alan_isim,mesaj,tarih_saat) values('"..karakter_id.."','"..karakter_isim.."','"..kisi_kontrol_id.."','"..kisi_kontrol_isim.."','"..giden_mesaj.."','"..tarih_saat.."')")
if eposta_ekle and eposta_ekle1 then
mysql_query10("UPDATE player.player SET eposta_gelen = eposta_gelen + 1 where id= '"..kisi_kontrol_id.."' and name='"..kisi_kontrol_isim.."'")
say_title("Bilgilendirme:")
say("")
say("..karakter_isim..", isteğiniz üzerine mesajınız "..kisi_kontrol_isim.." isimli oyuncuya başarı ile[ENTER]iletilmiştir.")
say("")
else
say_title("Uyarı:")
say("")
say_reward("Mesajınız gönderilemedi, tekrar deneyiniz!")
end
---------------------- END
end
else
say_title("Uyarı:")
say("")
say_reward("Bu kişi E-Posta alımlarını kapatmıştır.[ENTER]Mesaj gönderemezsiniz!")
say("")
end
break
elseif i == kac_kisi_var then
say_title("Uyarı:")
say("")
say_reward("Aradığınız kişi oyunumuzda kayıtlı değildir.")
say("")
break
end
i = i + 1
end
end
elseif eposta_gonderme == 2 then
return
end
elseif eposta == 2 then
local karakter_id = tonumber(pc.get_player_id())
local karakter_isim = pc.get_name()
local gelen_mesaj = mysql_query10("select * from player.eposta where alan_id='"..karakter_id.."' and alan_isim='"..karakter_isim.."'")
local gelen_mesaj_kactane = tonumber(table.getn(gelen_mesaj))
local gonderen_dizi = {}
for z=1,gelen_mesaj_kactane,1 do
gonderen_dizi[z] = gelen_mesaj.gonderen_isim[z]
end
local gelen_mesaj_dizi = {}
for z=1,gelen_mesaj_kactane,1 do
gelen_mesaj_dizi[z] = gelen_mesaj.mesaj[z]
end
local gelen_mesaj_id = {}
for z=1,gelen_mesaj_kactane,1 do
gelen_mesaj_id[z] = gelen_mesaj.id[z]
end
gonderen_dizi[gelen_mesaj_kactane + 1] = "Kapat"
mesaj_gonderen = select_table(gonderen_dizi)
local i = 1
while i < (gelen_mesaj_kactane + 1) do
if mesaj_gonderen == gelen_mesaj_kactane + 1 then
break
end
if mesaj_gonderen == i then
say_title("Bilgilendirme:")
say("")
say_reward("Mesajınız:")
say_title(gelen_mesaj_dizi[i])
say("")
say_reward("Ne yapmak istersin?")
say("")
local islem_yap = select("Okundu Olarak İşaretle","Sil","Kapat")
if islem_yap == 1 then
local okundu = mysql_query10("UPDATE player.eposta SET okundu_mu = 1 where id='"..gelen_mesaj_id[i].."' ")
if okundu then
say_title("Bilgilendirme:")
say("")
say("Gelen mesaj okundu olarak işaretlenmiştir.")
say("")
else
say_title("Uyarı:")
say("")
say_reward("Mesaj okundu olarak işaretlenemedi!")
say("")
end
elseif islem_yap == 2 then
local silindi = mysql_query10("DELETE FROM player.eposta WHERE id='"..gelen_mesaj_id[i].."'")
local gelen_eksilt = mysql_query10("UPDATE player.player SET eposta_gelen = eposta_gelen -1 where id= '"..karakter_id.."' and name='"..karakter_isim.."'")
local eposta_kac_sorgula = mysql_query10("select * from player.player where id= '"..karakter_id.."' and name='"..karakter_isim.."' ")
local epostasi_kac = tonumber(eposta_kac_sorgula.eposta_gelen[1])
if epostasi_kac > 0 then
if silindi and gelen_eksilt then
say_title("Bilgilendirme:")
say("")
say("Gelen mesaj başarı ile silinmiştir.")
say("")
else
say_title("Uyarı:")
say("")
say_reward("Mesaj silinemedi!")
say("")
end
end
end
end
i = i + 1
end
elseif eposta == 3 then
say_title("Bilgilendirme:")
say("")
say("YAKINDA...")
say("")
elseif eposta == 4 then
local karakter_id_y = pc.get_player_id()
local karakter_isim_y = pc.get_name()
local kapansin_mi_sorgula = mysql_query10("select * from player.player where id= '"..karakter_id_y.."' and name='"..karakter_isim_y.."' ")
local eposta_durum = tonumber(kapansin_mi_sorgula.eposta_durum[1])
local eposta_alimi = select("Aktif Et","Kapat","Çıkış")
if eposta_alimi == 1 then
say_title("Bilgilendirme:")
say("")
say("Merhaba,"..pc.get_name())
say("Buradan E-Posta alımını aktif edebilirsin.")
say("E-Posta alımını aktif edersen, diğer oyuncular sana mesaj yollayabilirler.")
say("E-Posta alımını dilersen tekrardan kapatabilirsin.")
say("")
say_reward("Aktif etmek istiyor musun?")
say("")
local aktif_olsun_mu = select("Evet","Hayır")
if aktif_olsun_mu == 1 then
if eposta_durum == 0 then
local eposta_aktif_et = mysql_query10("UPDATE player.player SET eposta_durum = '1' where id='"..karakter_id_y.."' and name='"..karakter_isim_y.."' ")
if eposta_aktif_et then
say_title("Bilgilendirme:")
say("")
say("E-Posta alımı başarı ile aktif edilmiştir. Artık mesaj alabileceksiniz.")
say("")
end
else
say_title("Uyarı:")
say("")
say_reward("E-Posta alımlarınız zaten aktif, tekrar aktif edemezsiniz.")
say("")
end
end
elseif eposta_alimi == 2 then
say_title("Bilgilendirme:")
say("")
say("Merhaba,"..pc.get_name())
say("Buradan E-Posta alımını kapatabilirsin.")
say("E-Posta alımını kapatırsan, kimse sana mesaj yollayamaz.")
say("Dilersen tekrardan açabilirsin.")
say("")
say_reward("Kapatmak istiyor musun?")
say("")
local kapansin_mi = select("Evet","Hayır")
if kapansin_mi == 1 then
if eposta_durum == 1 then
local eposta_kapat = mysql_query10("UPDATE player.player SET eposta_durum = '0' where id='"..karakter_id_y.."' and name='"..karakter_isim_y.."' ")
if eposta_kapat then
say_title("Bilgilendirme:")
say("")
say("E-Posta alımı başarı ile kapatılmıştır. Artık mesaj alamayacaksınız.")
say("")
end
else
say_title("Uyarı:")
say("")
say_reward("E-Posta alımlarınız zaten kapalı, tekrar kaptamazsınız.")
say("")
end
end
end
end
end
end
end
Son düzenleme:
- Durum
- Üzgünüz bu konu cevaplar için kapatılmıştır...
Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)
Benzer konular
