quest schwangerschaft begin
state start begin
when login with pc.is_married() begin
if game.get_event_flag(pc.get_name().."kinderwunsch") == 1 then
clear_server_timer("getit")
clear_server_timer("start")
game.set_event_flag(pc.get_name().."kinderwunsch", 0)
game.set_event_flag(u_vid.."kinderwunsch", 0)
end
if game.get_event_flag(pc.get_name().."kinderwunsch") == 2 then
setstate(schwangermale)
return
end
send_letter("Беременность")
end
when button or info begin
say_title("Беременность")
say("Вы женаты, как это прекрасно!")
say("Поздравляю!")
say("")
say("Но как же Ваш брак")
say("без ребенка?")
say("Существует возможность иметь ребенка")
say("Разве у вас есть ребенок с вашим партнером?")
local a2 = select("Далее", "Отменить")
if a2 == 2 then
return
end
local a5 = get_marriage_partner(pc.get_name())
local ztfna = pc.get_name()
say("Вашему партнеру будет отправлено сообщение..")
local u_vid = find_pc_by_name(a5[1])
local m_vid = pc.get_vid()
if pc.get_sex() == 0 then
say("Ваш партнер отказался")
return
end
if u_vid == 0 then
say("Существует ошибка в")
say("Признании вашего партнера.")
return
end
if not npc.is_near_vid(u_vid, 2) then
say("Ваш партнер должен быть рядом с Вами")
return
end
say("Поздравляем!")
say("Вы должны оставаться вместе!")
say("Если вы остановитесь")
say("прогресс обнулится.")
say("После регистрации прогресс теряется")
game.set_event_flag(pc.get_name().."kinderwunsch", 1)
game.set_event_flag(u_vid.."kinderwunsch", 1)
server_loop_timer("start", 10)
timer("getit", 30*60)
end
when "start".timer begin
local a5 = get_marriage_partner(pc.get_name())
local u_vid = find_pc_by_name(a5[1])
if not npc.is_near_vid(u_vid, 2) then
say("Ваш партнер должен быть рядом с вами.")
clear_server_timer("getit")
clear_server_timer("start")
game.set_event_flag(pc.get_name().."kinderwunsch", 0)
game.set_event_flag(u_vid.."kinderwunsch", 0)
return
end
end
when "getit".timer begin
local a5 = get_marriage_partner(pc.get_name())
local u_vid = find_pc_by_name(a5[1])
if not npc.is_near_vid(u_vid, 2) then
say("Ваш партнер должен быть рядом с вами.")
clear_server_timer("getit")
clear_server_timer("start")
game.set_event_flag(pc.get_name().."kinderwunsch", 0)
game.set_event_flag(u_vid.."kinderwunsch", 0)
return
end
local b = number(1, 10)
if b == 3 then
say_title("Спаривание успешно!")
say("Поздравляем!")
say("Отныне Вы просто должны")
say("ожидать береманность.")
game.set_event_flag(u_vid.."kinderwunsch", 2)
pc.setqf("durationschwanger",get_time()+60*60*22*14)
setstate(schwanger)
else
say_title("Ты не беременна.")
say("Попробуй еще раз")
end
end
end
state schwangermale begin
when login begin
if game.get_event_flag(pc.get_name().."kinderwunsch") == 3 then
setstate(baby)
return
end
send_letter("Беременность")
end
when button or info begin
say_title("Беременность")
say("Твоя жена беременна.")
say("Вы должны ждать ребенка!")
end
end
state schwanger begin
when login begin
if pc.getqf("durationschwanger") >= get_time() then
send_letter("Ребенок находится здесь!")
return
end
send_letter("Беременность")
end
when button or info begin
if pc.getqf("durationschwanger") >= get_time() then
say_title("Беременность")
say("Поздравляем!")
say("Ребенок ныне там.")
local a5 = get_marriage_partner(pc.get_name())
local u_vid = find_pc_by_name(a5[1])
if game.get_event_flag(a.."kinderwunsch") != 2 then
say("Пожалуйста, введите настоящее имя ..")
return
end
local u_vid = find_pc_by_name(a)
local m_vid = pc.get_vid()
if u_vid == 0 then
say("Существовал ошибка в")
say("Признании вашего партнера.")
return
end
if not npc.is_near_vid(u_vid, 10) then
say("Ваш партнер должен быть рядом с вами.")
return
end
say("Поздравляем!")
say("Теперь у вас есть ребенок!")
game.set_event_flag(u_vid.."kinderwunsch", 3)
game.set_event_flag(pc.get_name().."kinderwunsch", 3)
game.set_event_flag(u_vid.."babyalter", 1)
game.set_event_flag(pc.get_name().."babyalter", 1)
local timing1 = game.get_event_flag(pc.get_name().."babyalter")+1
local timing = 60*60*24*7*timing1
game.set_event_flag(pc.get_name().."durationbaby", timing)
game.set_event_flag(a.."durationbaby", timing)
setstate(baby)
return
end
say_title("Беременность")
say("Вы в настоящее время беременны.")
say("Подождите, пока ребенок родится!")
end
end
state baby begin
when login begin
if game.get_event_flag(pc.get_name().."babyalter") == 5 then
send_letter("Ребенок")
return
end
if game.get_event_flag(pc.get_name().."babyalteraff") < game.get_event_flag(pc.get_name().."babyalter") then
if game.get_event_flag(pc.get_name().."babyalteraff") == 0 then
game.set_event_flag(pc.get_name().."babyalteraff", 1)
affect.add_collect("EXP", 10, 60*60*24*365*5)
else
game.set_event_flag(pc.get_name().."babyalteraff", game.get_event_flag(pc.get_name().."babyalteraff")+1)
affect.add_collect("EXP", 10, 60*60*24*365*5)
end
end
send_letter("Ребенок")
end
when button or info begin
if game.get_event_flag(pc.get_name().."durationbaby") >= get_time() then
say("Ваш ребенок готов двигаться вверх.")
say("Пожалуйста, введите имя вашей жены/мужа.")
local manfrauname = input("")
if game.get_event_flag(pc.get_name().."kinderwunsch") == 3 then
if game.get_event_flag(manfrauname.."kinderwunsch") == 3 then
local u_vid = find_pc_by_name(manfrauname)
local m_vid = pc.get_vid()
if u_vid == 0 then
say("Существовала ошибка в")
say("Признании вашего партнера.")
return
end
if not npc.is_near_vid(u_vid, 5) then
say("Ваш партнер должен быть рядом с вами.")
return
end
game.set_event_flag(pc.get_name().."babyalter", game.get_event_flag(pc.get_name().."babyalter")+1)
game.set_event_flag(manfrauname.."babyalter", game.get_event_flag(pc.get_name().."babyalter")+1)
local timing1 = game.get_event_flag(pc.get_name().."babyalter")+1
local timing = 60*60*24*7*timing1
game.set_event_flag(pc.get_name().."durationbaby", timing)
game.set_event_flag(a.."durationbaby", timing)
end
end
return
end
say("Вашему ребенку возраста "..game.get_event_flag(pc.get_name().."babyalter")".")
say("Вы получите 10% бонус опыта в возрастной группе.")
end
end
end