Arkadaşlar oyma taş eventi için quest ararken bir quest buldum kendimce türkçeleştirdiğim biraz ama oyunda şöyle bi sorun var gm hesabında sol tarafta görev olarak göründü eventi başlattıktan sonra görev artık gelmedi kapatmak için tekrar açamadım ve görev npc sinde buton boş görünüyor npc mesajları görünmüyor
pre_event_heavens_cave.quest:
quest pre_event_heavens_cave begin
state start begin
when login with pc.get_level() >= 15 begin -- tbd
pc.setqf("personalvalue", 0)
set_state(pre_event_heavens_cave)
end -- tbd
end
state pre_event_heavens_cave begin
when enter with pc.is_gm() begin -- tbd
send_letter("Heavens Cave Ön Etkinlik Yardımcısı") -- TR
end -- tbd
when button or info begin -- tbd
say_reward("UYARI!") -- TR
say("Bu diyalog Heavens Cave Ön Etkinliği'nin bir parçası değildir!") -- TR
say("Amacı, etkinliğin test edilmesine yardımcı olmaktır.") -- TR
say("BU SCRIPT SUNUCUDA SADECE 1 KEZ ÇALIŞTIRILMALIDIR,") -- TR
say("çünkü otomatik olarak etkinliği başlatır ve bu işlem yalnızca bir kez yapılmalıdır!") -- TR
say("Dilerseniz Durdur ve ardından Başlat diyerek tüm etkinlik değişkenlerini sıfırlayabilirsiniz.") -- TR
say("Bu işlem sadece etkinliğe ait değişkenleri sıfırlar, karakter değişkenlerini etkilemez.") -- TR
say("Bu etkinlikle ilişkili biletler: 0030149, 0030150 ve 0031479.") -- TR
say("İyi eğlenceler!") -- TR
say("") -- tbd
say("Benjamin") -- tbd
local startevent = select("Etkinliği Başlat", "Etkinliği Durdur", "Kapat") -- TR
if startevent == 1 then
game.set_event_flag("pre_event_hc", 1) -- tbd
game.set_event_flag("glyphstones_collected", 0) -- tbd
game.set_event_flag("hc_drop", 100) -- tbd
game.set_event_flag("gold_collected", 0) -- tbd
game.set_event_flag("score0",100) -- tbd
game.set_event_flag("score1",90) -- tbd
game.set_event_flag("score2",80) -- tbd
game.set_event_flag("score3",70) -- tbd
game.set_event_flag("score4",60) -- tbd
game.set_event_flag("score5",50) -- tbd
game.set_event_flag("score6",40) -- tbd
game.set_event_flag("score7",30) -- tbd
game.set_event_flag("score8",20) -- tbd
game.set_event_flag("score9",10) -- tbd
elseif startevent == 2 then
game.set_event_flag("pre_event_hc", 0) -- tbd
game.set_event_flag("hc_drop", 0) -- tbd
else -- tbd
return -- tbd
end -- tbd
end -- tbd
function getherbs(maxlevel)
local range = maxlevel -12
range = math.floor(range /4)
local randomvalue = math.random(1,range)
local herbvnum=0
if randomvalue == 2 then
herbvnum = 50722 -- Glockenblume - LV20
elseif randomvalue == 3 then
herbvnum = 50723 -- Kakiblüte - LV24
elseif randomvalue == 4 then
herbvnum = 50724 -- Gango-Wurzel - LV28
elseif randomvalue == 5 or randomvalue == 6 then
herbvnum = 50725 -- Flieder - LV32
elseif randomvalue == 7 or randomvalue == 8 then
herbvnum = 50726 -- Tue-Pilz - LV40
elseif randomvalue == 9 then
herbvnum = 50727 -- Alpenrose - LV46
elseif randomvalue >= 10 then
herbvnum = 50728 -- Maulbeeren - LV50
else
herbvnum = 50721 -- Pfirsichblüte - LV16
end
return herbvnum
end
function getpotion(maxlevel)
local randomvalue = math.random(1,6)
local potionvnum = 0
if maxlevel <= 18 then
if randomvalue <= 3 then potionvnum = 27100 -- Yeşil İksir (K)
else potionvnum = 27103 -- Mor İksir (K)
end
elseif maxlevel > 18 and maxlevel <= 25 + randomvalue then
if randomvalue == 1 then potionvnum = 27100
elseif randomvalue == 2 then potionvnum = 27103
elseif randomvalue == 3 then potionvnum = 27002
elseif randomvalue == 4 then potionvnum = 27005
elseif randomvalue == 5 then potionvnum = 27101
else potionvnum = 27104
end
else
if randomvalue == 1 then potionvnum = 27101
elseif randomvalue == 2 then potionvnum = 27104
elseif randomvalue == 3 then potionvnum = 27003
elseif randomvalue == 4 then potionvnum = 27006
elseif randomvalue == 5 then potionvnum = 27102
else potionvnum = 27105
end
end
return potionvnum
end
function getsushi()
local randomvalue = math.random(1,5)
local sushivnum = 0
if randomvalue == 1 then sushivnum = 50091
elseif randomvalue == 2 then sushivnum = 50092
elseif randomvalue == 3 then sushivnum = 50093
elseif randomvalue == 4 then sushivnum = 50094
else sushivnum = 50901 end
return sushivnum
end
when 20090.chat.gameforge.pre_event_heavens_cave._10_npcChat
with pc.get_level() >= 15 and pc.get_map_index() <= 43 and game.get_event_flag("hc_drop") > 0 begin
say(gameforge.pre_event_heavens_cave._20_say)
say(gameforge.pre_event_heavens_cave._30_say)
if pc.get_map_index() == 3 then
say(gameforge.pre_event_heavens_cave._40_say)
elseif pc.get_map_index() == 23 then
say(gameforge.pre_event_heavens_cave._50_say)
elseif pc.get_map_index() == 43 then
say(gameforge.pre_event_heavens_cave._60_say)
end
wait()
say(gameforge.pre_event_heavens_cave._70_say)
say(gameforge.pre_event_heavens_cave._80_say)
say_item_vnum(30178)
local maxlevel = pc.get_level()
local glyphcount = pc.count_item(30178)
if glyphcount > 0 then
local giveglyphstone = select(
gameforge.pre_event_heavens_cave._90_1_select,
gameforge.pre_event_heavens_cave._90_2_select
)
if giveglyphstone == 1 then
say_pc_name()
say(gameforge.pre_event_heavens_cave._100_say)
local pickpotion = 0
if pc.get_level() < 24 and pc.get_level() >= 20 then
pickpotion = math.random(0,8)
elseif pc.get_level() < 20 then
pickpotion = math.random(0,4)
else
pickpotion = math.random(0,9)
end
local potion1 = 0
local potion2 = 0
local potion3 = 0
if pickpotion <= 4 then
potion1 = pre_event_heavens_cave.getherbs(maxlevel)
potion2 = pre_event_heavens_cave.getpotion(maxlevel)
potion3 = pre_event_heavens_cave.getsushi()
elseif pickpotion == 5 or pickpotion == 6 then
potion1 = pre_event_heavens_cave.getherbs(maxlevel)
potion2 = pre_event_heavens_cave.getherbs(maxlevel)
while potion2 == potion1 do
potion2 = pre_event_heavens_cave.getherbs(maxlevel)
end
potion3 = pre_event_heavens_cave.getpotion(maxlevel)
elseif pickpotion == 7 or pickpotion == 8 then
potion1 = pre_event_heavens_cave.getherbs(maxlevel)
potion2 = pre_event_heavens_cave.getherbs(maxlevel)
while potion2 == potion1 do
potion2 = pre_event_heavens_cave.getherbs(maxlevel)
end
potion3 = pre_event_heavens_cave.getsushi()
else
potion1 = pre_event_heavens_cave.getherbs(maxlevel)
potion2 = pre_event_heavens_cave.getherbs(maxlevel)
while potion2 == potion1 do
potion2 = pre_event_heavens_cave.getherbs(maxlevel)
end
potion3 = pre_event_heavens_cave.getherbs(maxlevel)
while potion3 == potion1 or potion3 == potion2 do
potion3 = pre_event_heavens_cave.getherbs(maxlevel)
end
end
local potion1amount = pc.count_item(30178) * 7
local potion2amount = 0
local potion3amount = 0
if potion2 < 27200 then
potion2amount = pc.count_item(30178) * 3
else
potion2amount = pc.count_item(30178) * 5
end
if potion3 < 27200 then
potion3amount = pc.count_item(30178) * 2
elseif potion1 > 50800 then
potion3amount = pc.count_item(30178) * 6
else
potion3amount = pc.count_item(30178) * 3
end
wait()
say(gameforge.pre_event_heavens_cave._20_say)
say(gameforge.pre_event_heavens_cave._110_say)
say(string.format("%dx", potion1amount))
say_item_vnum(potion1)
say(string.format("%dx", potion2amount))
say_item_vnum(potion2)
wait()
say(string.format(gameforge.pre_event_heavens_cave._120_say, potion3amount))
say_item_vnum(potion3)
local choosereward = select(
string.format("%d %s", potion1amount, item_name(potion1)),
string.format("%d %s", potion2amount, item_name(potion2)),
string.format("%d %s", potion3amount, item_name(potion3)),
gameforge.pre_event_heavens_cave._130_4_select
)
if choosereward < 4 then
local glyphstones = pc.count_item(30178)
pc.remove_item(30178, glyphstones)
local glyphcount = game.get_event_flag("glyphstones_collected")
glyphcount = glyphcount + glyphstones
game.set_event_flag("glyphstones_collected", glyphcount)
if choosereward == 1 then
pc.give_item2(potion1, potion1amount)
elseif choosereward == 2 then
pc.give_item2(potion2, potion2amount)
elseif choosereward == 3 then
pc.give_item2(potion3, potion3amount)
end
say(gameforge.pre_event_heavens_cave._20_say)
say(string.format(gameforge.pre_event_heavens_cave._140_say, glyphcount))
say_pc_name()
local eventstory = select(
gameforge.pre_event_heavens_cave._150_1_select,
gameforge.pre_event_heavens_cave._150_2_select
)
if eventstory == 1 then
say(gameforge.pre_event_heavens_cave._20_say)
say(gameforge.pre_event_heavens_cave._160_say)
say(gameforge.pre_event_heavens_cave._170_say)
say(gameforge.pre_event_heavens_cave._180_say)
say(gameforge.pre_event_heavens_cave._190_say)
say(gameforge.pre_event_heavens_cave._200_say)
wait()
if pc.getqf("goldstatus") == 0 then
say(string.format(
gameforge.pre_event_heavens_cave._210_say,
item_name(30180)
))
say_item_vnum(30180)
pc.setqf("goldstatus", 2)
say(string.format(
gameforge.pre_event_heavens_cave._220_say,
mob_name(20009),
mob_name(9012)
))
wait()
say(gameforge.pre_event_heavens_cave._230_say)
else
say(gameforge.pre_event_heavens_cave._240_say)
end
say_item_vnum(50626)
say_item_vnum(80008)
wait()
say("")
say_item_vnum(80005)
say_item_vnum(80006)
say_item_vnum(80007)
end
else
say(gameforge.pre_event_heavens_cave._250_say)
end
end
end
end
when 20090.chat.gameforge.pre_event_heavens_cave._260_npcChat
with pc.getqf("goldstatus") > 0 begin
if game.get_event_flag("hc_drop") == 0 then
set_state(__COMPLETE__)
end
if pc.count_item(80005) == 0
and pc.count_item(80006) == 0
and pc.count_item(80007) == 0
and pc.count_item(80008) == 0
and pc.count_item(50626) == 0 then
say(gameforge.pre_event_heavens_cave._20_say)
say(string.format(
gameforge.pre_event_heavens_cave._270_say,
item_name(30180)
))
say(item_name(80005))
say(item_name(80006))
say(item_name(80007))
say(item_name(80008))
say(item_name(50626))
return
end
say(gameforge.pre_event_heavens_cave._280_say)
local checkinventory = {}
checkinventory[1] = { vnum = 80005 }
checkinventory[2] = { vnum = 80006 }
checkinventory[3] = { vnum = 80007 }
checkinventory[4] = { vnum = 80008 }
checkinventory[5] = { vnum = 50626 }
local goldcounter = 1
repeat
checkinventory[goldcounter]["amount"] =
pc.count_item(checkinventory[goldcounter].vnum)
checkinventory[goldcounter]["name"] =
item_name(checkinventory[goldcounter].vnum)
goldcounter = goldcounter + 1
until goldcounter > 5
local gold = {}
local buttoncounter = 1
goldcounter = 1
repeat
if checkinventory[goldcounter]["amount"] > 0 then
gold[buttoncounter] = checkinventory[goldcounter]
buttoncounter = buttoncounter + 1
end
goldcounter = goldcounter + 1
until goldcounter > 5
local choosegold = 0
if buttoncounter == 2 then
choosegold = select(
gameforge.pre_event_heavens_cave._290_select,
string.format("%dx %s", gold[1].amount, gold[1].name)
)
elseif buttoncounter == 3 then
choosegold = select(
gameforge.pre_event_heavens_cave._290_select,
string.format("%dx %s", gold[1].amount, gold[1].name),
string.format("%dx %s", gold[2].amount, gold[2].name)
)
elseif buttoncounter == 4 then
choosegold = select(
gameforge.pre_event_heavens_cave._290_select,
string.format("%dx %s", gold[1].amount, gold[1].name),
string.format("%dx %s", gold[2].amount, gold[2].name),
string.format("%dx %s", gold[3].amount, gold[3].name)
)
elseif buttoncounter == 5 then
choosegold = select(
gameforge.pre_event_heavens_cave._290_select,
string.format("%dx %s", gold[1].amount, gold[1].name),
string.format("%dx %s", gold[2].amount, gold[2].name),
string.format("%dx %s", gold[3].amount, gold[3].name),
string.format("%dx %s", gold[4].amount, gold[4].name)
)
elseif buttoncounter == 6 then
choosegold = select(
gameforge.pre_event_heavens_cave._290_select,
string.format("%dx %s", gold[1].amount, gold[1].name),
string.format("%dx %s", gold[2].amount, gold[2].name),
string.format("%dx %s", gold[3].amount, gold[3].name),
string.format("%dx %s", gold[4].amount, gold[4].name),
string.format("%dx %s", gold[5].amount, gold[5].name)
)
end
if choosegold > 1 then
choosegold = choosegold - 1
pc.remove_item(gold[choosegold].vnum, 1)
local globalvalue = 0
local personalvalue = 0
if gold[choosegold].vnum == 80005 then
globalvalue = 500000 + game.get_event_flag("gold_collected")
personalvalue = 500000 + pc.getqf("personalvalue")
elseif gold[choosegold].vnum == 80006 then
globalvalue = 1000000 + game.get_event_flag("gold_collected")
personalvalue = 1000000 + pc.getqf("personalvalue")
elseif gold[choosegold].vnum == 80007 then
globalvalue = 2000000 + game.get_event_flag("gold_collected")
personalvalue = 2000000 + pc.getqf("personalvalue")
elseif gold[choosegold].vnum == 80008 then
globalvalue = 100000 + game.get_event_flag("gold_collected")
personalvalue = 100000 + pc.getqf("personalvalue")
elseif gold[choosegold].vnum == 50626 then
globalvalue = 200 + game.get_event_flag("gold_collected")
personalvalue = 200 + pc.getqf("personalvalue")
end
game.set_event_flag("gold_collected", globalvalue)
pc.setqf("personalvalue", personalvalue)
if pc.getqf("goldstatus") == 2 then
say(gameforge.pre_event_heavens_cave._20_say)
say(gameforge.pre_event_heavens_cave._300_say)
pc.give_item2(30180)
pc.setqf("goldstatus", 1)
say(string.format(
gameforge.pre_event_heavens_cave._310_say,
item_name(30180),
mob_name(20009),
mob_name(9012)
))
else
say(gameforge.pre_event_heavens_cave._20_say)
say(gameforge.pre_event_heavens_cave._320_say)
end
say(string.format(
gameforge.pre_event_heavens_cave._330_say,
globalvalue
))
wait()
local scoretable = {}
for i = 1, 11 do scoretable[i] = {} end
local scorecounter0 = 0
local scorecounter1 = 1
repeat
local score = string.format("score%s", scorecounter0)
scoretable[scorecounter1]["score"] =
game.get_event_flag(score) * 100
scorecounter0 = scorecounter0 + 1
scorecounter1 = scorecounter1 + 1
until scorecounter0 == 10
local letmeout = 0
scorecounter0 = 10
scorecounter1 = 11
repeat
if scorecounter0 > 0 then
if pc.getqf("personalvalue") >
scoretable[scorecounter0]["score"] then
scoretable[scorecounter1] =
scoretable[scorecounter0]
scorecounter0 = scorecounter0 - 1
scorecounter1 = scorecounter1 - 1
else
letmeout = 1
end
else
letmeout = 1
end
until letmeout > 0
local scoreplace = scorecounter1
scoretable[scoreplace]["score"] =
pc.getqf("personalvalue")
say_title(gameforge.pre_event_heavens_cave._340_say_title)
scorecounter0 = 0
scorecounter1 = 1
repeat
local score = string.format("score%d", scorecounter0)
game.set_event_flag(
score,
scoretable[scorecounter1]["score"] / 100
)
if scorecounter1 == scoreplace then
say_reward(string.format(
gameforge.pre_event_heavens_cave._350_say_reward,
scorecounter1,
scoretable[scorecounter1]["score"]
))
else
say(string.format(
gameforge.pre_event_heavens_cave._350_say_reward,
scorecounter1,
scoretable[scorecounter1]["score"]
))
end
scorecounter0 = scorecounter0 + 1
scorecounter1 = scorecounter1 + 1
until scorecounter0 == 10
else
say(gameforge.pre_event_heavens_cave._20_say)
say(gameforge.pre_event_heavens_cave._250_say)
end
end
end
state __COMPLETE__ begin
end
end
