Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Przerobionie questa pod 40k - pet gui

TheFarcik

Rekomendowane odpowiedzi

TheFarcik Budowniczy

TheFarcik

Opublikowano
Budowniczy

TheFarcik

Opublikowano 
quest horse_summon begin
state start begin
function get_horse_summon_prob_pct() 
local prob = {10,15,20,30,40,50,60,70,80,90,100}
local skill_level = pc.get_skill_level(131) + 1
return prob[skill_level]
end
when 20349.chat."Nowa Księga Zwykłego Konia " with horse.get_grade()==1 and pc.countitem("50051")<1 begin
say_title("Stajenny:")
say("Zgubiłeś Księgę Zwykłego Konia! ")
say("Mogę dać Ci nową za 500.000 Yang.")
local b=select("Tak", "Nie")
if 1==b then
if pc.money>=10000 then
pc.changemoney(-10000)
say_title("Informacja:")
say("Oto nowa Księga Zwykłego Konia! [ENTER]Tym razem spróbuj jej nie zgubić! ")
pc.give_item2("50051", 1)
else
say_title("Informacja:")
say("Nie masz wystarczająco dużo yang!")
end
else
return
end
end
when 20349.chat."Nowa Księga Opancerz. Konia " with horse.get_grade()==2 and pc.countitem("50052")<1 begin
say_title("Stajenny:")
say("Zgubiłeś Księgę Opancerz. Konia! ")
say("Mogę dać Ci nową za 500.000 Yang.")
local b=select("Tak", "Nie")
if 1==b then
if pc.money>=50000 then
pc.changemoney(-50000)
say_title("Informacja:")
say("Oto nowa Księga Opancerz. Konia![ENTER]Tym razem spróbuj jej nie zgubić! ")
pc.give_item2("50052", 1)
else
say_title("Informacja:")
say("Nie masz wystarczająco dużo yang!")
end
else
return
end
end
when 20349.chat."Nowa Księga Wojskowego Konia " with horse.get_grade()==3 and pc.countitem("50053")<1 begin
say_title("Stajenny:")
say("Zgubiłeś Księgę Wojskowego Konia! ")
say("Mogę dać Ci nową za 500.000 Yang.")
local b=select("Tak", "Nie")
if 1==b then
if pc.money>=100000 then
pc.changemoney(-100000)
say_title("Informacja:")
say("Oto nowa Księga Wojskowego Konia![ENTER]Tym razem spróbuj jej nie zgubić! ")
pc.give_item2("50053", 1)
else
say_title("Informacja:")
say("Nie masz wystarczająco dużo yang!")
end
else
return
end
end
when 50051.use or 50052.use or 50053.use begin
pc.set_skill_level(131, 10) 
horse.set_level(21)
horse.ride()
end
when 53001.use or 53002.use or 53003.use or 53005.use or 53006.use or 53007.use or 53008.use or 53009.use begin
if not PetSystem.IsActive() then
if item.get_vnum() == 53001 then
cmdchat("buff8")
elseif item.get_vnum() == 53002 then
cmdchat("buff10")
elseif item.get_vnum() == 53003 then
cmdchat("buff9")
elseif item.get_vnum() == 53005 then
cmdchat("buff11")
elseif item.get_vnum() == 53006 then
cmdchat("buff12")
elseif item.get_vnum() == 53007 then
cmdchat("buff13")
elseif item.get_vnum() == 53008 then
cmdchat("buff14")
elseif item.get_vnum() == 53009 then
cmdchat("buff15") 
end
local PetNumber = {[53001]=1,[53002]=3,[53003]=2,[53005]=4,[53006]=5,[53007]=6,[53008]=7,[53009]=8}
local petIndex = PetNumber[item.get_vnum()]
local id = pc.getqf("id")
local id1 = item.get_id()
pc.setqf("id",id1)
pc.setqf("petindex", petIndex)
item.set_socket(1, PetSystem.GetLevel(petIndex)) 
if horse.is_dead() then
say_title("Informacja:")
say("Nie można przywołać martwego zwierzęcia.")
say("Ożyw zwierze")
return
end 
local horse_lev = horse.get_level()
local horse_name = horse.get_name()
PetSystem.SetActivePet(petIndex)
PetSystem.AddBonus(petIndex)
PetSystem.SetHorseData(PetSystem[petIndex].Level, "Lv"..PetSystem.GetLevel(petIndex).." "..PetSystem[petIndex].Name)
pet.summon()
PetSystem.SetHorseData(horse_lev, horse_name)
cleartimer("give_exp")
timer("give_exp", 2)
chat(""..PetSystem[petIndex].Name.." został przywołany.")
PetSystem.pokaz_gui(1)
item.set_socket(0, 1)
else
PetSystem.PetBack()
end
end
when login begin
if PetSystem.IsActive() then
if pc.count_item(PetSystem[PetSystem.GetActivePet()].Item) != 0 and not horse.is_dead() then
local horse_lev = horse.get_level()
local horse_name = horse.get_name() 
local PetIndex = PetSystem.GetActivePet() 
local id = pc.getqf("id") 
PetSystem.SetHorseData(PetSystem[PetIndex].Level, "Lv"..PetSystem.GetLevel(PetIndex).." "..PetSystem[PetIndex].Name)
pet.summon()
PetSystem.pokaz_gui(1)
PetSystem.SetHorseData(horse_lev, horse_name)
timer("give_exp", 2)
else
PetSystem.SetInactive()
timer("remove_bonus", 2)
end 
end 
pc.setqf("current_exp", pc.get_exp())
end


when remove_bonus.timer begin
PetSystem.RemoveBonus()
end 


when give_exp.timer begin
if pc.count_item(PetSystem[PetSystem.GetActivePet()].Item) < 1 then
syschat("Nie możliwe! Pieczęć peta znikła! Muszę go odwołać!")
PetSystem.PetBack() 
return
elseif horse.is_dead() then
syschat("Twój zwierzak nie żyje! Muszę go odwołać!")
PetSystem.PetBack() 
return
elseif pc.is_dead() then
PetSystem.PetBack()
return 
end
end
when kill with not npc.is_pc() begin
local razem = pc.get_level() - npc.get_level()
if PetSystem.IsActive() and not PetSystem.IsExpBlocked() then
if razem < 50 then
local gained_exp = pc.get_exp()
if gained_exp < 0 then
return
end
local licz = npc.get_level()*25
test = pc.get_level()*4
if item.select_cell(97) then
if 72909 == item.vnum then
test = pc.get_level()*2
licz = npc.get_level()*12
pd = 1
end
end
if item.select_cell(98) then
if 72909 == item.vnum then
test = pc.get_level()*2
licz = npc.get_level()*12
pd = 1
end
end
if pc.get_level() < 75 then
test = pc.get_level()
licz = npc.get_level()*8
if pd == 1 then
licz = npc.get_level()*4
end
end
local pet_exp = math.floor(gained_exp/licz)
pet_exp = math.floor(pet_exp/test)
pet_exp = pet_exp*10
if pet_exp != 0 then
local PetHasGotExp = PetSystem.GiveExp(PetSystem.GetActivePet(), pet_exp)
if PetHasGotExp then
if pc.get_level() < 75 then
pc.give_exp2(-pet_exp)
else
pc.give_exp2(-pet_exp*10)
end
end 
PetSystem.pokaz_gui(2) 
end
end
end
end
when button or info begin
say_title("Nowe Umiejetnosci")
say("Twój zwierzak ma odblokowane")
say("nowe umiejętności, aby dowiedzieć się ")
say("więcej przejśdz do menu Zwierzaka .[ENTER]")
q.done()
end


-----***** Menu Pet
when 20120.click begin PetSystem.ShowMenu(1) end
when 20121.click begin PetSystem.ShowMenu(1) end
when 20122.click begin PetSystem.ShowMenu(1) end
when 20123.click begin PetSystem.ShowMenu(2) end
when 20124.click begin PetSystem.ShowMenu(2) end
when 20125.click begin PetSystem.ShowMenu(2) end
when 20126.click begin PetSystem.ShowMenu(3) end
when 20127.click begin PetSystem.ShowMenu(3) end
when 20128.click begin PetSystem.ShowMenu(3) end
when 20129.click begin PetSystem.ShowMenu(4) end
when 20130.click begin PetSystem.ShowMenu(4) end
when 20131.click begin PetSystem.ShowMenu(4) end
when 20132.click begin PetSystem.ShowMenu(5) end
when 20133.click begin PetSystem.ShowMenu(5) end
when 20134.click begin PetSystem.ShowMenu(5) end
when 20135.click begin PetSystem.ShowMenu(6) end
when 20136.click begin PetSystem.ShowMenu(6) end
when 20137.click begin PetSystem.ShowMenu(6) end
when 20138.click begin PetSystem.ShowMenu(7) end
when 20139.click begin PetSystem.ShowMenu(7) end
when 20140.click begin PetSystem.ShowMenu(7) end
when 20141.click begin PetSystem.ShowMenu(8) end
when 20142.click begin PetSystem.ShowMenu(8) end
when 20143.click begin PetSystem.ShowMenu(8) end
when logout begin cmdchat("PetZamnkij") end
end
end

Przerobiłby ktos tego questa na peta pod 40k ?

 

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...