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

Butelka dla Peta


Rekomendowane odpowiedzi

Opublikowano

Witajcie. Mam problem, mam na swoim serwerze butelkę z doswiadczeniem dla peta, a problem jest w tym, że moge ja klikac do woli nie znika : 

		when 30130.use begin
			if not PetSystem.IsActive() then
				chat("[Pet] Należy przywołać Tego zwierzaka, któremu chcesz dodać punkty doświadczenia! ")
				chat("[Pet] Przywołaj swojego zwierzaka! ")
				
				return
			end
			
			local PetHasGotExp = PetSystem.GiveExp(PetSystem.GetActivePet(), PetSystem.ItemExp)
			if not PetHasGotExp then
				chat("[Pet] Twój zwierz "..PetSystem[petIndex].Name.." ma maksymalnym poziom. ")
			else
				chat("[Pet] Twój zwierz "..PetSystem[petIndex].Name.." otrzymał "..PetSystem.ItemExp.." punktów doświadczenia. ")
				pc.remove_item(30130, 1)
			end

Dziekuje za pomoc

Opublikowano

when 30130.use begin

if not PetSystem.IsActive() then

chat("[Pet] Należy przywołać Tego zwierzaka, któremu chcesz dodać punkty doświadczenia! ")

chat("[Pet] Przywołaj swojego zwierzaka! ")

 

return

end

 

local PetHasGotExp = PetSystem.GiveExp(PetSystem.GetActivePet(), PetSystem.ItemExp)

if not PetHasGotExp then

chat("[Pet] Twój zwierz "..PetSystem[petIndex].Name.." ma maksymalnym poziom. ")

else

if pc.count_item(30130) > 0 then

chat("[Pet] Twój zwierz "..PetSystem[petIndex].Name.." otrzymał "..PetSystem.ItemExp.." punktów doświadczenia. ")

pc.remove_item(30130, 1)

else

chat("Nie masz itemu.")

end

end

 

Opublikowano

Podczas wgrywania mam taki błąd: 

 

horse/horse_summon.quest:290:syntax error : [string "start"]:17: unexpected symbol near `when'
Abort (core dumped)

W momencie dodania kolejno "end" quest sie wgrywa, jednakże item nadal nie znika .

Opublikowano

/

/

/

/

/

/

/

/

/

/

/

/

/

/

/

/

        when 30130.use with item.count == 1 begin
		if not PetSystem.IsActive() then
			chat("[Zwierzak] Należy przywołać Tego zwierzaka, któremu chcesz dodać punkty doświadczenia! ")
			chat("[Zwierzak] Przywołaj swojego zwierzaka! ")
			return
		end
		
		local PetHasGotExp = PetSystem.GiveExp(PetSystem.GetActivePet(), PetSystem.ItemExp)
		if not PetHasGotExp then
			chat("[Pet] Twój zwierzak "..PetSystem[petIndex].Name.." ma maksymalnym poziom. ")
		end
		
		item.remove()
		chat("[Zwierzak] Twój zwierzak "..PetSystem[petIndex].Name.." otrzymał "..PetSystem.ItemExp.." punktów doświadczenia. ")
	end
Opublikowano
 

 

 

        when 30130.use with item.count == 1 begin
        if not PetSystem.IsActive() then
            chat("[Zwierzak] Należy przywołać Tego zwierzaka, któremu chcesz dodać punkty doświadczenia! ")
            chat("[Zwierzak] Przywołaj swojego zwierzaka! ")
            return
        end
        
        local PetHasGotExp = PetSystem.GiveExp(PetSystem.GetActivePet(), PetSystem.ItemExp)
        if not PetHasGotExp then
            chat("[Pet] Twój zwierzak "..PetSystem[petIndex].Name.." ma maksymalnym poziom. ")
        end
        
        item.remove()
        chat("[Zwierzak] Twój zwierzak "..PetSystem[petIndex].Name.." otrzymał "..PetSystem.ItemExp.." punktów doświadczenia. ")
    end

 

 

 

Super, działa należycie. ! 

 

Jednakże nie pokazuje sie informacja, ze pet dostał doświadczenie ... Tylko butla znika, ale dodaje co ma dodawac. Dalo by rady to jeszcze poprawić? 

Opublikowano

/

/

/

/

/

/

/

/

/

/

/

/

/

/

/

/

/

/

	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
			local PetNumber = {[53001]=1,[53002]=2,[53003]=3,[53005]=4,[53006]=5,[53007]=6,[53008]=7,[53009]=8}
			local petIndex = PetNumber[item.get_vnum()]
			pc.setqf("pet_Index", 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")
			loop_timer("give_exp", PetSystem.UpdateFrequency)
			chat("[Zwierzak] Twój zwierzak "..PetSystem[petIndex].Name.." został przywołany. ")
		else
			PetSystem.PetBack()
			pc.setqf("pet_Index",0)
		end
	end
 
	when 30130.use with item.count == 1 begin
		if not PetSystem.IsActive() then
			chat("[Zwierzak] Należy przywołać Tego zwierzaka, któremu chcesz dodać punkty doświadczenia! ")
			chat("[Zwierzak] Przywołaj swojego zwierzaka! ")
			return
		end
	
		local PetHasGotExp = PetSystem.GiveExp(PetSystem.GetActivePet(), PetSystem.ItemExp)
		if not PetHasGotExp then
			chat("[Pet] Twój zwierzak "..PetSystem[pc.getqf("pet_Index")].Name.." ma maksymalnym poziom. ")
		end
	
		item.remove()
		chat("[Zwierzak] Twój zwierzak "..PetSystem[pc.getqf("pet_Index")].Name.." otrzymał "..PetSystem.ItemExp.." punktów doświadczenia. ")
	end

Zarchiwizowany

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

×
×
  • Dodaj nową pozycję...