Pongo scrie:

quest eventdepaste_tree begin
        state start begin
when 30129.click begin
         local SOCK_VNUM = 50162
         say("Echipa just4metin.ro iti ureaza PasteFericit!")
         local s = select("Am Oul pentru Epurila!","Nu am niciun Ou!","În ce consta evenimentul?")
         if s==1 then
  -- Socke abgeben
  if pc.level >= 20 then
          if pc.getqf("put_sock_count") >= 100 then
   say("Imi pare rau! Ai dus Deja 100 de oua lui Iepurila!")
          else
   if pc.countitem(SOCK_VNUM) >= 1 then
           pc.setqf("put_sock_count", pc.getqf("put_sock_count") + 1)
           pc.removeitem(SOCK_VNUM, 1)
           say("Iepurila Tia adus un cadou frumos!")

           pc.give_item_from_special_item_group(SOCK_VNUM)
   else
           say("Îmi pare rau nu ai Oua de pAste")
   end
          end
  else
          say("Din pacate trebuie sa ai level 20 pentru a duce oua la iepurila!")
  end
         elseif s==2 then
  -- Keine Socke
  say("Pacat! Cu toate acestea va uram Paste Fericit!")
         elseif s==3 then
  -- Info
  say_reward("Eveniment De Pasti!")
  say("Atâta timp cât acest Iepure exista orice monstru va dropa Oua si aveti posibilitatea sa le Duceti Lui iepurila!")
         end
end
        end
end

si drop-ul pt event-ul de paste

quest event_oua begin
    state start begin
        when login begin
            if game.get_event_flag("oua_event") == 1 then
                notice("Evenimentul : Eveniment De Pasti ~ Activ !")
            end
        end
        when kill begin
            local m_ind = pc.get_map_index()
            if nu ai pentru ce.is_pc() then
            else
                if m_ind == 1 or m_ind == 3 or m_ind == 21 or m_ind == 23 or m_ind == 41 or m_ind == 43 and pc.get_level() <= 20 then
                    if game.get_event_flag("oua_event") == 1 then
                        local chance = number(1, 100)
                        local chance_max = game.get_event_flag("mond_drop_chance")
                        if chance <= chance_max then
                            pc.give_item2(50162)
                            --game.drop_item(50162)
                        else
                        end
                    else
                    end
                elseif m_ind == 63 or m_ind == 64 and pc.get_level() <= 40 then
                    if game.get_event_flag("oua_event") == 1 then
                        local chance = number(1, 100)
                        local chance_max = game.get_event_flag("mond_drop_chance")
                        if chance <= chance_max then
                            pc.give_item2(50162)
                            --game.drop_item(50162)
                        else
                        end
                    else
                    end
                elseif m_ind == 65 or m_ind == 61 or m_ind == 104 and pc.get_level() <= 60 then
                    if game.get_event_flag("oua_event") == 1 then
                        local chance = number(1, 100)
                        local chance_max = game.get_event_flag("mond_drop_chance")
                        if chance <= chance_max then
                            pc.give_item2(50162)
                            --game.drop_item(50162)
                        else
                        end
                    else
                    end
                elseif m_ind == 62 or m_ind == 71 or m_ind == 67 and pc.get_level() <= 70 then
                    if game.get_event_flag("oua_event") == 1 then
                        local chance = number(1, 100)
                        local chance_max = game.get_event_flag("mond_drop_chance")
                        if chance <= chance_max then
                            pc.give_item2(50162)
                            --game.drop_item(50162)
                        else
                        end
                    else
                    end
                elseif m_ind == 68 or m_ind == 72 or m_ind == 73 or m_ind == 66 and pc.get_level() <= 90 then
                    if game.get_event_flag("oua_event") == 1 then
                        local chance = number(1, 100)
                        local chance_max = game.get_event_flag("mond_drop_chance")
                        if chance <= chance_max then
                            pc.give_item2(50162)
                            --game.drop_item(50162)
                        else
                        end
                    else
                    end
                elseif m_ind == 103 or m_ind == 70 or m_imd == 69 and pc.get_level() <= 250 then
                    if game.get_event_flag("oua_event") == 1 then
                        local chance = number(1, 100)
                        local chance_max = game.get_event_flag("mond_drop_chance")
                        if chance <= chance_max then
                            pc.give_item2(50162)
                            --game.drop_item(50162)
                        else
                        end
                    else
                    end
                end
            end
        end
        when 20087.chat."<GM> Eveniment De Pasti" with pc.is_gm() begin
            if game.get_event_flag("oua_event") == 1 then
                say_title("Administrare Eveniment:")
                say("")
                say("Eveniment Cu Oua De pasti : ~ Activ ")
                say("")
                say_reward("Event Beenden?")
                local s=select("Da", "Nu")
                if s==1 then
                    say_title("Administrare Eveniment:")
                    say("")
                    say("Evenimentul a luat sfârsit .")
                    say("~ Pe data viitoare !")
                    game.set_event_flag("oua_event", 0)
                    char_log(0, "Oua_event_end from" ..pc.get_name())
                    notice_all("Eveniment Cu Oua De pasti ~ Terminat.")
                elseif s==2 then
                    say_title("Administrare Eveniment:")
                    say("")
                    say("~ Pe curând !")
                end
            else
                say_title("Administrare Eveniment:")
                say("")
                say("Eveniment Cu Oua De pasti: ~ Închis ")
                say("")
                say_reward("Start Eveniment?")
                local s=select("Da", "Nu")
                if s==1 then
                    say_title("Administrare Eveniment:")
                    say("")
                    say("Evenimentul ~ A Început ! .")
                    say("~ Succes la strâns mai multe Ouaaaaa !")
                    game.set_event_flag("oua_event", 1)
                    char_log(0, "Oua_event_start from" ..pc.get_name())
                    notice_all("Eveniment Cu Oua De pasti ~ A Început !")
                elseif s==2 then
                    say_title("Administrare Eveniment:")
                    say("")
                    say("~ Pe curând !")
                end
            end
        end
        when 20087.chat."<GM> Eveniment Cu Oua De pasti" with pc.is_gm() begin
            if pc.get_name() == "[SA]DEM0Nrau" or pc.get_name() == "...."or pc.get_name() == "....."then
                say_title("Administrare Eveniment:")
                say("")
                say("Cat de mult sã fie dropul acestora ?")
                say("")
                say_reward("Între 1-100")
                say("")
                local new_chance = tonumber(input())
                if new_chance < 0 or new_chance > 100 then
                    say_title("Administrare Eveniment:")
                    say("")
                    say("Introducere incorectã ~")
                else
                    char_log(0, "Oua_event_chance from" ..pc.get_name().. " to " ..new_chance.. "%")
                    game.set_event_flag("mond_drop_chance", new_chance)
                    say_title("Administrare Eveniment:")
                    say("")
                    say("Dropul actual " ..new_chance.. " setat.")
                    say("~ Pe curând !")
                end
            else
                say_title("Administrare Eveniment:")
                say("")
                say("Nu ai dreptul pentru a executa evenimentul .")
            end
        end
    end
end

DjFly scrie:Care ma ajuta si pe mine cu o problema exemplu am 100 oua de paste dau clik pe ele si dispar toate cum fac sa nu mai dispar toate ?

quest oua begin
state start begin
when 50160.use begin
local box = {
--treeee --
45139, 45140, 45141, 45142, 71135, 71136, 71137, 71138, 71139, 71140, 71141, 71158, 80005, 71143, 50123, 31019, 31045,
}
local give,a = number(1, 1),{}
local items
for i = 1, give do
items = number(1, table.getn(box))
table.insert(a,i,box[items])
end
table.foreach(a,
function(i,l)
pc.give_item2(l)
end
)
item.remove()
end
end
end

quest oua begin
state start begin
when 50160.use begin
local box = {
--treeee --
45139, 45140, 45141, 45142, 71135, 71136, 71137, 71138, 71139, 71140, 71141, 71158, 80005, 71143, 50123, 31019, 31045,
}
local give,a = number(1, 1),{}
local items
for i = 1, give do
items = number(1, table.getn(box))
table.insert(a,i,box[items])
end
table.foreach(a,
function(i,l)
pc.give_item2(l)
end
)
pc.remove_item2(50160,1)
end
end
end 

[Tupeu] scrie:

DjFly scrie:Care ma ajuta si pe mine cu o problema exemplu am 100 oua de paste dau clik pe ele si dispar toate cum fac sa nu mai dispar toate ?

quest oua begin
state start begin
when 50160.use begin
local box = {
--treeee --
45139, 45140, 45141, 45142, 71135, 71136, 71137, 71138, 71139, 71140, 71141, 71158, 80005, 71143, 50123, 31019, 31045,
}
local give,a = number(1, 1),{}
local items
for i = 1, give do
items = number(1, table.getn(box))
table.insert(a,i,box[items])
end
table.foreach(a,
function(i,l)
pc.give_item2(l)
end
)
item.remove()
end
end
end

Poftim:

Cod: Selectaţi tot

quest oua begin
state start begin
when 50160.use begin
local box = {
--treeee --
45139, 45140, 45141, 45142, 71135, 71136, 71137, 71138, 71139, 71140, 71141, 71158, 80005, 71143, 50123, 31019, 31045,
}
local give,a = number(1, 1),{}
local items
for i = 1, give do
items = number(1, table.getn(box))
table.insert(a,i,box[items])
end
table.foreach(a,
function(i,l)
pc.give_item2(l)
end
)
pc.remove_item2(50160,1)
end
end
end 

DjFly scrie:

[Tupeu] scrie:

DjFly scrie:Care ma ajuta si pe mine cu o problema exemplu am 100 oua de paste dau clik pe ele si dispar toate cum fac sa nu mai dispar toate ?

quest oua begin
state start begin
when 50160.use begin
local box = {
--treeee --
45139, 45140, 45141, 45142, 71135, 71136, 71137, 71138, 71139, 71140, 71141, 71158, 80005, 71143, 50123, 31019, 31045,
}
local give,a = number(1, 1),{}
local items
for i = 1, give do
items = number(1, table.getn(box))
table.insert(a,i,box[items])
end
table.foreach(a,
function(i,l)
pc.give_item2(l)
end
)
item.remove()
end
end
end

Poftim:

Cod: Selectaţi tot

quest oua begin
state start begin
when 50160.use begin
local box = {
--treeee --
45139, 45140, 45141, 45142, 71135, 71136, 71137, 71138, 71139, 71140, 71141, 71158, 80005, 71143, 50123, 31019, 31045,
}
local give,a = number(1, 1),{}
local items
for i = 1, give do
items = number(1, table.getn(box))
table.insert(a,i,box[items])
end
table.foreach(a,
function(i,l)
pc.give_item2(l)
end
)
pc.remove_item2(50160,1)
end
end
end 

Tot la fel se deschide bro le ia pe toate

quest oua begin
state start begin
when 50160.use begin
local box = {
--treeee --
45139, 45140, 45141, 45142, 71135, 71136, 71137, 71138, 71139, 71140, 71141, 71158, 80005, 71143, 50123, 31019, 31045,
}
local give,a = number(1, 1),{}
local items
for i = 1, give do
items = number(1, table.getn(box))
table.insert(a,i,box[items])
end
table.foreach(a,
function(i,l)
pc.give_item2(l)
end
)
pc.remove_item(50160,1)
end
end
end

DjFly scrie: da lam instalat din nou

*A.Sebastian* scrie:ai setat dropul la oua?

[Tupeu] scrie:

DjFly scrie:

[Tupeu] scrie: Poftim:

Cod: Selectaţi tot

quest oua begin
state start begin
when 50160.use begin
local box = {
--treeee --
45139, 45140, 45141, 45142, 71135, 71136, 71137, 71138, 71139, 71140, 71141, 71158, 80005, 71143, 50123, 31019, 31045,
}
local give,a = number(1, 1),{}
local items
for i = 1, give do
items = number(1, table.getn(box))
table.insert(a,i,box[items])
end
table.foreach(a,
function(i,l)
pc.give_item2(l)
end
)
pc.remove_item2(50160,1)
end
end
end 

Tot la fel se deschide bro le ia pe toate

Am gresit eu questul.
Poftim:

Cod: Selectaţi tot

quest oua begin
state start begin
when 50160.use begin
local box = {
--treeee --
45139, 45140, 45141, 45142, 71135, 71136, 71137, 71138, 71139, 71140, 71141, 71158, 80005, 71143, 50123, 31019, 31045,
}
local give,a = number(1, 1),{}
local items
for i = 1, give do
items = number(1, table.getn(box))
table.insert(a,i,box[items])
end
table.foreach(a,
function(i,l)
pc.give_item2(l)
end
)
pc.remove_item(50160,1)
end
end
end