quest drop_event begin
state start begin
when login begin
if game.get_event_flag("drop_event") == 1 then
local new_chance = game.get_event_flag("drop_event_chance")
notice("[!]Info: Eveniment Luna Activ! (Sansa: " ..new_chance.. "%.)")
end
end
when kill with not npc.is_pc() and game.get_event_flag("drop_event") == 1 begin
local chance = number(1, 100)
local chance_max = game.get_event_flag("drop_event_chance")
if chance <= chance_max then
pc.give_item2(50011)
else
end
end
when 20086.chat."GM: Eveniment Luna " with pc.is_gm() begin
addimage(20, 12, "admin.tga")
say("")
say("")
say("")
say_title("Login")
say_reward("Introduceti parola mai jos:")
local password = input ( )
if password != locale.parola then
addimage(20, 12, "admin.tga")
say("")
say("")
say("")
say_title("Login")
say("")
say_reward("Ati introdus o parola gresita!")
else
if game.get_event_flag("drop_event") == 0 then
say("Eveniment Luna este oprit.")
say("")
else
say("Evenimentul cufarul lunii este pornit.")
say("")
end

local s=select("Porneste evenimentul","Opreste evenimentul","Sansa aruncare","Iesire")

if s==1 then
local new_chance = game.get_event_flag("drop_event_chance")
notice_all("[!]Info: Eveniment Luna a inceput! (Sansa: " ..new_chance.. "%.)")
game.set_event_flag("drop_event", 1)

say_title("Eveniment Luna:")
say("")
say("Evenimentul a fost pornit.")
say("")

elseif s==2 then
notice_all("[!]Info: Eveniment Luna a luat sfarsit!")
game.set_event_flag("drop_event", 0)

say_title("Eveniment Luna:")
say("")
say("Evenimentul a luat sfarsit.")
say("")

elseif s==3 then
say_title("Eveniment Luna:")
say("")
say("Cat de mare doresti sa fie sansa de aruncare?")
say("")
say("Intre 1-100:")
say("")

local new_chance = tonumber(input())

if new_chance < 0 or new_chance > 100 then
say_title("Eveniment Luna:")
say("")
say("Valorile introduse nu sunt bune.")
else

game.set_event_flag("drop_event_chance", new_chance)
notice_all("[!]Info: Eveniment Luna este activ! (Sansa: " ..new_chance.. "%.)")
say_title("Eveniment Luna:")
say("")
say("Sansa a fost modificata; Sansa " ..new_chance.. "%.")
say("")
end

elseif s==4 then
return
end
end
end
end
end