Jump to content
Sign in to follow this  
Metin2Arceus

[Quest]Evento Mineria

Recommended Posts

Quiero dejar la quest puesta aqui para los que si algun dia les viene bien la puedan usar ya que fue probada y sirve Muchisimas gracias a Dilong por la quest

quest mineria begin
state start begin
when 20090.chat."Evento Mineria" with pc.is_gm() begin
coord_map_x = numero
coord_map_y = numero
index_map = index
say_title("Evento De Mineria")
say("Mineria")
local event = select("Activar","Finalizar","Cerrar")
if event == 1 then
    game.set_event_flag("event1",1)
    notice_all("El Evento De Mineria Esta Activo")
elseif event == 2 then
    game.set_event_flag("event1",0)
    notice_all("El Evento De Mineria Ha Terminado")
    return
end
end
when 20011.chat."Mapa de Mineria" with game.get_event_flag("event1")==1 begin
local map = select("Entrar","Cancelar")
if map == 1 then
    pc.warp(coord_map_x,coord_map_y)
    return
end
end
when login with pc.get_map_index()==index_map and get_event_flag("event1")==1 begin
loop_timer("eliminarobjeto",5)
loop_timer("warp",10)
end
when warp.timer begin
if game.get_event_flag("event1")==0 then
    cleartimer("warp")
    warp_to_village()
end end
when eliminarobjeto.timer begin
if game.get_event_flag("event1")==0 then
    local lista_mineral = {id1,id2,id3} -- elimina los minerales cuando acaba el evento, se debe poner las ids aqui
    for i=1,table.getn(lista_mineral) do
        pc.remove_item(lista_mineral,999)
        cleartimer("eliminarobjeto")
    end end end
when 20011.chat."Obtener objetos" with game.get_event_flag("event1")==1 and pc.get_map_index()==index_map begin
local objetos = {
    {"objeto1", idmineral, cantidad,premio,cantidad},
    {"objeto2",    idmineral, cantidad,premio,cantidad},
    {"objeto3",    idmineral, cantidad,premio,cantidad},
    {"Cerrar"}
}
local objetos2 = {}
for i = 1, table.getn(objetos) do
    table.insert(objetos2, objetos[1])
end
local sel = select_table(objetos2)
if pc.count_item(objetos[sel][2]) < objetos[sel][3] then
    say_reward("No tienes la cantidad necesaria")
    return end
    pc.remove_item(objetos[sel][2],objetos[sel][3])
    pc.give_item2(objetos[sel][4],objetos[sel][5])
end
end
end

 

Quest echa por Dilong

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...