I tried solving your [007] DawisHU at that bug fail ...
I dropped the system because of that bug, a las quest if I can help you with him
quest pet_system begin
state start begin
when letter begin
cmdchat("petguihideshow "..q.getcurrentquestindex())
end
function givebonus(x)
local mobVnum = pc.getqf("mobVnum")
local y,boni = {17,16,1},pet_system.bonusliste()
table.foreach(boni[x],function(i,l) cmdchat("HaustierBonus"..i.." "..l.."") affect.add_collect(y[i],l,60*60*24*365*60) end )
cmdchat("HaustierLevel "..pc.getqf('petlevel_'..mobVnum).."")
cmdchat("HaustierName "..pc.get_name().."")
pc.setqf("petruf",1)
pc.setqf("petguishow",1)
end
function bonusliste()
return {
[1] = {1,1,200},
[2] = {2,2,300},
[3] = {3,3,400},
[4] = {4,4,500},
[5] = {5,5,600},
[6] = {6,6,700},
[7] = {7,7,800},
[8] = {8,8,900},
[9] = {9,9,1000},
[10] = {10,10,1100},
[11] = {11,11,1200},
[12] = {12,12,1300},
[13] = {13,13,1400},
[14] = {14,14,1500},
[15] = {15,15,1600},
[16] = {16,16,1700},
[17] = {17,17,1800},
[18] = {18,18,1900},
[19] = {19,19,1950},
[20] = {20,20,2000},
}
end
function removebonus(x)
local y,boni = {17,16,1},pet_system.bonusliste()
table.foreach(boni[x],function(i,l) affect.remove_collect(y[i],l,60*60*24*365*60) end )
pc.setqf("petruf",0)
--cmdchat("HidePetGui")
pc.setqf("petguishow",0)
cleartimer("bugcheck")
end
function get_pet_info(itemVnum)
pet_info_map = {
-- [ITEM VNUM] MOB_VNUM, DEFAULT NAME, buff_idx, spawn_effect_idx
[53225] = { 34029, "-Sigiliu Clopotel de Nea", 1},
}
itemVnum = tonumber(itemVnum)
return pet_info_map[itemVnum]
end
function get_spawn_effect_file(idx)
effect_table = {
[0] = nil,
[1] = "d:ymir workeffectetcappear_diemonster_appear.mse",
}
return effect_table [idx]
end
when 53007.use or 53013.use or 53012.use or 53011.use or 53010.use or
53005.use or 53006.use or 53003.use or 53002.use or 53001.use or 53014.use or
53015.use or 53017.use or 53018.use or 53019.use or 53016.use or 53008.use or
53009.use or 53020.use or 53021.use or 53022.use or 53023.use or 53024.use or
53224.use or 53225.use begin
local pet_info = pet_system.get_pet_info(item.vnum)
if null != pet_info then
local mobVnum = pet_info[1]
local petName = pet_info[2]
local spawn_effect_file_name = pet_system.get_spawn_effect_file(pet_info[4])
pc.setqf("mobVnum",mobVnum)
if true == pet.is_summon(mobVnum) then
if spawn_effect_file_name != nil then
pet.spawn_effect (mobVnum, spawn_effect_file_name)
end
pet.unsummon(mobVnum)
pet_system.removebonus(pc.getqf('petlevel_'..mobVnum))
cmdchat("HidePetGui")
syschat("Animalul de companie a fost alungat")
else
if pet.count_summoned() < 1 then
pet.summon(mobVnum, petName, false)
if pet_info[4] ~= nil then
cmdchat(pet_info[4])
end
if pc.getqf('petlevel_'..mobVnum) == 0 then
pc.setqf('petlevel_'..mobVnum,1)
end
syschat("Animalul de companie a fost chemat.")
pet_system.givebonus(pc.getqf('petlevel_'..mobVnum))
local expprocent1 = {20, 40, 60, 80, 100, 120, 140, 160, 180, 200, 220, 240, 260, 280, 300, 320, 350, 400, 450, 500}
cmdchat("PetProcentExp "..(pc.getqf("exp_"..mobVnum)/expprocent1[pc.getqf("petlevel_"..mobVnum)]).."")
cmdchat("ShowPetGui")
loop_timer("bugcheck", 0.2)
else
syschat("Ai deja chemat un animalut!")
end
if spawn_effect_file_name != nil then
pet.spawn_effect(mobVnum, spawn_effect_file_name)
end
end -- if pet.is_summon
end -- if null != pet_info
end -- when
when kill with not npc.is_pc() begin
local mobVnum = pc.getqf("mobVnum")
if pc.getqf("petlevel_"..mobVnum) == 20 then
return
else
if pc.getqf("petruf")==1 then
--intervall = 10
--if pc.get_level() <= mob.get_level(npc.get_race())+ intervall then -- Poate fi doar lvl max 10 peste monstru
pc.setqf("exp_"..mobVnum,pc.getqf("exp_"..mobVnum)+1)
local exp2up = {2000, 4000, 6000, 8000, 10000, 12000, 14000, 16000, 18000, 20000, 22000, 24000, 26000, 28000, 30000, 32000, 35000, 40000, 45000, 50000}
local expprocent = {20, 40, 60, 80, 100, 120, 140, 160, 180, 200, 220, 240, 260, 280, 300, 320, 350, 400, 450, 500}
cmdchat("PetProcentExp "..(pc.getqf("exp_"..mobVnum)/expprocent[pc.getqf("petlevel_"..mobVnum)]).."")
if pc.getqf("exp_"..mobVnum) == exp2up[pc.getqf("petlevel_"..mobVnum)] then
if pc.getqf("petlevel_"..mobVnum) == 19 then
say_title("Animal de companie")
say("Animalut de companie Level "..(pc.getqf("petlevel_"..mobVnum)+1).."")
say_reward("Acesta a fost ultimul nivel!")
end
say_title("Animal de companie")
say("Animalut de companie Level "..(pc.getqf("petlevel_"..mobVnum)+1).."")
say("Felicitarii!")
pc.setqf("petlevel_"..mobVnum,pc.getqf("petlevel_"..mobVnum)+1)
pc.setqf("exp_"..mobVnum,0)
pet_system.removebonus(pc.getqf('petlevel'))
end
end -- if not...
end -- if pc.get...
end -- when
-- Bugschutz
when bugcheck.timer begin
if pc.is_dead() then
pet_system.removebonus(pc.getqf('petlevel'))
end
end
when login or dead or logout or disconnect with pc.getqf("petruf") == 1 begin
local mobVnum = pc.getqf("petlevel_")
pet_system.removebonus(petlevel_)
end
end -- state
end -- quest