server/gamefiles/locale/english/quest/event_easter.quest

452 lines
12 KiB
Plaintext
Raw Normal View History

quest event_easter begin
state start begin
function is_running()
return (game.get_event_flag("easter_drop") > 0)
end
function has_rabbit()
return (game.get_event_flag("easter_rabbit") > 0)
end
function get_settings()
local spawnPromille = game.get_event_flag("easter_spawn_chance")
if spawnPromille <= 0 then
spawnPromille = 5
end
return {
["eggvnums"] = {
["first"] = 50160,
["last"] = 50179,
},
["baskets"] = {
["full"] = 50181,
["empty"] = 50180,
},
["metins"] = {
[8041] = 10,
[8042] = 20,
[8043] = 30,
[8044] = 40,
[8045] = 50,
[8046] = 60,
[8047] = 70,
[8048] = 80,
[8049] = 90,
[8050] = 95
},
["max_level_difference"] = 15,
["rabbit"] = 30129,
["spawn"] = {
["kill"] = 50,
["cooldown"] = 3600,
["promille"] = spawnPromille,
["maps"] = {
[1] = {
[10] = {1, 3, 4, 69},
[20] = {1, 3, 4, 5, 69},
[30] = {3, 4, 5, 63, 64, 108},
[40] = {63, 64, 108, 65},
[50] = {63, 64, 108, 65, 61, 107, 109},
[60] = {65, 61, 107, 109, 62, 67, 69, 71, 70},
[70] = {65, 61, 62, 67, 69, 71, 70, 68, 72, 73},
[80] = {67, 69, 70, 68, 72},
[90] = {70, 68, 72, 73},
[95] = {70, 68, 73},
},
[2] = {
[10] = {21, 23, 24, 69},
[20] = {21, 23, 24, 25, 69},
[30] = {23, 24, 25, 63, 64, 108},
[40] = {63, 64, 108, 65},
[50] = {63, 64, 108, 65, 61, 107, 109},
[60] = {65, 61, 107, 109, 62, 67, 69, 71, 70},
[70] = {65, 61, 62, 67, 69, 71, 70, 68, 72, 73},
[80] = {67, 69, 70, 68, 72},
[90] = {70, 68, 72, 73},
[95] = {70, 68, 73},
},
[3] = {
[10] = {41, 43, 44, 69},
[20] = {41, 43, 44, 45, 69},
[30] = {43, 44, 45, 63, 64, 108},
[40] = {63, 64, 108, 65},
[50] = {63, 64, 108, 65, 61, 107, 109},
[60] = {65, 61, 107, 109, 62, 67, 69, 71, 70},
[70] = {65, 61, 62, 67, 69, 71, 70, 68, 72, 73},
[80] = {67, 69, 70, 68, 72},
[90] = {70, 68, 72, 73},
[95] = {70, 68, 73},
},
},
},
}
end
function get_reward_table_for_item()
-- for each level range there is a different reward
local playerlevel = pc.get_level()
if playerlevel <= 18 then
return {
{27002, 13},
{27005, 13},
{27100, 8},
{27103, 8},
{50721, 4},
{30053, 9, 20},
{30073, 9, 20},
{30033, 9, 20},
{30010, 9, 20},
{30031, 9, 20},
{30032, 9, 20}
}
elseif playerlevel > 18 and playerlevel <= 30 then
return {
{27002, 18},
{27005, 18},
{27100, 7},
{27103, 7},
{27101, 3},
{27104, 3},
{50721, 8},
{50722, 8},
{50723, 8},
{50724, 8},
{50300, 2, 20},
{30196, 5, 20},
{30090, 5, 20}
}
elseif playerlevel > 30 and playerlevel <= 52 then
return {
{27101, 8},
{27104, 8},
{27003, 17},
{27006, 17},
{27102, 3},
{27105, 3},
{50721, 5},
{50722, 5},
{50723, 5},
{50724, 5},
{50725, 5},
{50726, 5},
{50727, 5},
{50728, 5},
{50300, 1, 20},
{30195, 4, 20},
{30197, 4, 20},
{30193, 3, 20}
}
elseif playerlevel > 53 and playerlevel <= 74 then
return {
{27003, 14},
{27006, 14},
{27102, 9},
{27105, 9},
{50721, 5},
{50722, 5},
{50723, 5},
{50724, 5},
{50725, 5},
{50726, 5},
{50727, 5},
{50728, 5},
{50300, 1, 20},
{30198, 4, 20},
{30199, 4, 20},
{08005, 3},
}
else
return {
{27102, 11},
{27105, 11},
{50091, 15},
{50092, 15},
{50093, 15},
{50094, 15},
{50300, 4, 20},
{50060, 6, 20},
{08005, 4},
{30196, 2, 20},
{30090, 2, 20},
{30195, 2, 20},
{30197, 2, 20},
{30198, 2, 20},
{30199, 2, 20}
}
end
end
function get_reward_for_basket()
local reward_table = {
{70102, 6},
{27808, 12},
{27816, 12},
{27992, 8},
{27993, 6},
{27994, 4},
{27987, 8},
{72018, 3},
{71113, 4},
{71004, 3},
{71012, 3},
{71083, 3},
{70035, 4},
{70038, 2},
{71029, 6},
{71030, 6},
{71094, 5},
{25040, 5}
}
return get_random_vnum_from_table(reward_table)
end
function get_reward_amount_for_vnum(reward_table, vnum_to_search)
local amount_needed = 1
table.foreachi(reward_table,
function(index, item)
local itemVnum = item[1]
if itemVnum == vnum_to_search then
if table.getn(item) > 2 then
amount_needed = item[3]
else
amount_needed = 1
end
return
end
end
)
return amount_needed
end
function get_number_of_eggs()
local settings = event_easter.get_settings()
return count_item_range(settings.eggvnums.first, settings.eggvnums.last)
end
function get_random_reward_vnum(reward_table)
local temp_table = {}
local easterEggCount = event_easter.get_number_of_eggs()
table.foreachi(reward_table,
function(index, item)
local itemProbability = item[2]
local itemVnum = item[1]
local meetsAmountLimit = true
-- check if we need more than one easter egg
if table.getn(item) > 2 then
if easterEggCount < item[3] then
-- player does not have enough eggs for this item
meetsAmountLimit = false
end
end
if meetsAmountLimit then
for amount = 1, itemProbability do
table.insert(temp_table, itemVnum)
end
end
end
)
return temp_table[math.random(table.getn(temp_table))]
end
function spawn_metin(level, empire)
if pc.is_gm() then
return
end
local settings = event_easter.get_settings()
if level >= 10 and level < 95 then
level = math.floor(level / 10) * 10
elseif level >= 95 then
level = 95
else
return
end
local randomMap = math.random(table.getn(settings.spawn.maps[empire][level]))
local mapNumber = settings.spawn.maps[empire][level][randomMap]
regen_in_map(mapNumber, "locale/_master/map/easter/metin_regen_level" .. level .. ".txt")
-- We have show a notice when logging is enabled (1)
local logging = game.get_event_flag("easter_logging")
if logging == 1 then
notice(string.format("metin spawn in map %d, level: %d", mapNumber, level))
end
end
function spawn_metin_at_login()
local settings = event_easter.get_settings()
local timestamp = get_global_time()
local cooldownRemaining = pc.getqf("cooldown") + settings.spawn.cooldown - timestamp
if cooldownRemaining <= 0 then
pc.setqf("cooldown", timestamp)
if cooldownRemaining > -43200 then
if math.random(1000) <= settings.spawn.promille then
event_easter.spawn_metin(pc.get_level(), pc.get_empire())
end
end
end
end
function metin_killed(vnum)
local settings = event_easter.get_settings()
local level = settings.metins[vnum]
event_easter.spawn_metin_at_login()
if level < pc.get_level() - settings.max_level_difference then
-- don't drop an egg when the player who killed the easter egg is more than 15 levels higher
event_easter.spawn_metin(level, pc.get_empire())
else
game.drop_item_with_ownership(settings.baskets.full, 1) -- full basket
if math.random(1, 100) <= settings.spawn.kill then
event_easter.spawn_metin(level, pc.get_empire())
end
end
end
when login or enter with event_easter.has_rabbit() begin
-- spawn rabbit if he is not there
local settings = event_easter.get_settings()
local mapIndex = pc.get_map_index()
if mapIndex == 1 or mapIndex == 21 or mapIndex == 41 then
if find_npc_by_vnum(settings.rabbit) == 0 then
if mapIndex == 1 then
mob.spawn(settings.rabbit, 591, 472, 1, 1, 1)
elseif mapIndex == 21 then
mob.spawn(settings.rabbit, 517, 742, 1, 1, 1)
elseif mapIndex == 41 then
mob.spawn(settings.rabbit, 306, 828, 1, 1, 1)
end
end
end
end
when login or enter with event_easter.is_running() begin
event_easter.spawn_metin_at_login()
end
-- "Was machst du hier?"
--when 30129.chat.gameforge.event_easter._010_chat with event_easter.get_number_of_eggs() == 0 begin
when 30129.chat.gameforge.main_quest_lv2._10_npcChat with event_easter.get_number_of_eggs() == 0 begin
event_easter.spawn_metin_at_login()
say_title(gameforge.event_easter._020_sayTitle) -- "Osterhase: "
say(gameforge.event_easter._030_say) -- "Ich verstecke Ostereier. Wenn du welche findest und mir zur<75>ck bringst, belohne ich dich toll!"
say(gameforge.event_easter._035_say)
if not event_easter.has_rabbit() then
-- purge the rabbit if the event has finished
npc.purge()
end
end
-- "Ich hab Eier gefunden!"
when 30129.chat.gameforge.event_easter._040_chat with event_easter.get_number_of_eggs() > 0 begin
event_easter.spawn_metin_at_login()
local settings = event_easter.get_settings()
local reward_table = event_easter.get_reward_table_for_item()
local amount_to_remove = 0
local amount_to_give = 0
local vnum_to_give = 0
local number_of_eggs = event_easter.get_number_of_eggs()
local wants_items = 2
while wants_items == 2 do
say_title(gameforge.event_easter._020_sayTitle) -- "Osterhase: "
vnum_to_give = event_easter.get_random_reward_vnum(reward_table)
local amount_needed = event_easter.get_reward_amount_for_vnum(reward_table, vnum_to_give)
if amount_needed == 20 then
amount_to_remove = 20
amount_to_give = 1
say(string.format(gameforge.event_easter._050_say, amount_to_give)) -- "Ich gebe dir %d hiervon:"
say_item_vnum(vnum_to_give)
say(string.format(gameforge.event_easter._065_say, amount_to_remove)) -- "Daf<61>r musst du mir %d Eier geben! M<>chtest du das tun?"
say("")
-- "Okay, das nehme ich!" / "Nein, das will ich nicht!"
wants_items = select(gameforge.event_easter._070_select, gameforge.event_easter._071_select)
else
if number_of_eggs > 20 then
amount_to_remove = 20
else
amount_to_remove = number_of_eggs
end
if vnum_to_give < 27200 then
amount_to_give = amount_to_remove * 3
else
amount_to_give = amount_to_remove * 5
end
say(string.format(gameforge.event_easter._050_say, amount_to_give)) -- "Ich gebe dir %d hiervon:"
say_item_vnum(vnum_to_give)
say(string.format(gameforge.event_easter._060_say, amount_to_remove)) -- "Daf<61>r musst du mir %d Eier geben!"
wants_items = 1
end
end
if (remove_item_range(amount_to_remove, settings.eggvnums.first, settings.eggvnums.last)) then
pc.give_item2(vnum_to_give, amount_to_give)
end
say_title(gameforge.event_easter._020_sayTitle) -- "Osterhase: "
say(gameforge.event_easter._080_say) -- "Danke f<>r die Eier, ich hoffe du hast Spa<70> mit dem was du bekommen hast"
if not event_easter.has_rabbit() then
-- purge the rabbit if the event has finished
npc.purge()
end
end
when 8041.kill begin
event_easter.metin_killed(8041)
end
when 8042.kill begin
event_easter.metin_killed(8042)
end
when 8043.kill begin
event_easter.metin_killed(8043)
end
when 8044.kill begin
event_easter.metin_killed(8044)
end
when 8045.kill begin
event_easter.metin_killed(8045)
end
when 8046.kill begin
event_easter.metin_killed(8046)
end
when 8047.kill begin
event_easter.metin_killed(8047)
end
when 8048.kill begin
event_easter.metin_killed(8048)
end
when 8049.kill begin
event_easter.metin_killed(8049)
end
when 8050.kill begin
event_easter.metin_killed(8050)
end
-- empty basket, not the right vnum right now
when 50180.use begin
event_easter.spawn_metin_at_login()
if event_easter.get_number_of_eggs() > 0 then
local settings = event_easter.get_settings()
-- remove one easter egg and the empty basket and give player a full basket
if (remove_item_range(1, settings.eggvnums.first, settings.eggvnums.last)) then
pc.remove_item(settings.baskets.empty)
pc.give_item2(settings.baskets.full, 1)
end
else
say_title(gameforge.event_easter._090_sayTitle) -- "Leerer Korb: "
say(gameforge.event_easter._100_say) -- "Du hast kein Osterei, das du in den Korb legen k<>nntest."
end
end
-- full basket, not the right
when 50181.use begin
event_easter.spawn_metin_at_login()
local settings = event_easter.get_settings()
pc.remove_item(settings.baskets.full)
pc.give_item2(event_easter.get_reward_for_basket(), 1)
end
end
end