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!
MERHABA ARKADAŞLAR BAZI ARKADAŞLAR 1 SAAT YADA 2 SAATLİK DROPLAR ARIYORLARMIS BU QUEST SÜREYİ VE ORANI AYRALAYA BİLİRSİNİZ BU QUEST DE LONCAYA YADA KRALIGA ÖZEL DROP ORANI VERE BİLİRSİNİZ KOY GARDİYANINDAN AÇILIYOR
Kod:
quest priv_guild begin state start begin
when guild_man1.chat."GM: Lonca Primi" or
guild_man2.chat."GM: Lonca Primi" or
guild_man3.chat."GM: Lonca Primi" with pc.is_gm() begin
-- Select guild
say_title("Lonca Primi Onayi")
say( "Lonca ismini yaz" )
local g_name = input()
local g_id = __get_guildid_byname( g_name )
if 0 == g_id then
say( "Bu isimde bir lonca mevcut degil." )
return
end
-- Select bonus type
say_title("Lonca Primi Onayi")
say("Mevcut Parametre:")
say( __get_guild_priv_string( g_id ) )
say("Tip Seçimi")
local titles = {
"Düsen esyanin yüzdesi",
"Düsen altinin yüzdesi",
"Düsen altin-orani yüzdesi",
"Tecrübe orani",
}
local t = select(
titles[1],
titles[2],
titles[3],
titles[4],
"iptal")
if t == 5 then
return
end
-- Select the number of bonus
say_title("Lonca Prim Onayi")
say(string.format("%s Prim : %s", g_name, titles[t]))
say("")
local g = {0,10,20,30,40,50}
say("Ne kadar?")
local p = select(g[1].."%",g[2].."%",g[3].."%",g[4].."%",g[5].."%",g[6].."%", "Abbrechen")
if p == 7 then
return
end
-- Select bonus time
say_title("Lonca Prim Onayi")
say(string.format("%s Prim : %s %d%%", g_name, titles[t], g[p]))
say("")
say("Prim Zamani Seçimi")
local v = 0
local h = select("6 Saat", "12 Saat", "24 Saat", "Hemen", "Çikis")
if 5 == h then
return
elseif 4 == h then
-- Enter bonus time directly
say_title("Lonca Prim Onayi")
say(string.format("%s Prim : %s %d%%", g_name, titles[t], g[p]))
say("")
say("Prim zamanini yaz")
v= input()
if v == "" then
v = 0
else
v = tonumber( v )
end
elseif 3 == h then
v=24
elseif 2 == h then
v=12
elseif 1 == h then
v=6
end
-- Confirm setting
say_title("Lonca Prim Onayi")
say(string.format("%s Prim : %s %d%% (%dsüre)", g_name, titles[t], g[p], v))
say("")
say("Yeni ayarlari onayliyor musunuz?")
local s = select("Evet", "Hayir")
if 1 == s then
__give_guild_priv(g_id, t, g[p], v*60*60)
say("Ayarlar onaylandi.")
else
say("iptal edildi")
end
end
end
end
şöyle bir quest yapabilecek var mı her drop için ayrı ayrı yazma mesela ben exp drobunu 100 yang 200 para 50 gibi değerlerle açmak istiyorum.
teşekkürler
teşekkürler
Kod:
quest drop begin state start begin when letter with pc.is_gm() begin
send_letter ("GM : Drop")
end
when button or info begin
say_title(" Merhaba "..pc.get_name().." ")
say("")
say(" Drop Açmak İstiyormusun? ")
say("")
local dropayar=select("Evet", "Hayır")
if 1==dropayar then
say_title("Drop Ayari")
say("")
say("1 ile 1000 arası değer girin.")
say("")
local deger = input()
command("priv_empire 0 1:shop "..deger.." 999")
command("priv_empire 0 2:shop "..deger.." 999")
command("priv_empire 0 3:gold "..deger.." 999")
command("priv_empire 0 4:exp "..deger.." 999")
send_letter ("GM : Drop")
elseif 2==dropayar then
send_letter ("GM : Drop")
else
say("Bilinmeyen buton ["..dropayar.."]")
send_letter ("GM : Drop")
end
end
end
end
