IMPLEMENTARE PET-URI!!!

ryoku1998 · 20 Mar 2015, 18:18

SALUTARE,
am si eu o intrebare...
am implementat pet-uri noi in client + server
adica i-am bagat ca, mobi..
dar nu imi dau seama cum sa modific questul asta sa le adaug...
il postez mai jos care ma poate ajuta...

Cod: Selectaţi tot

quest official_pets begin
	state start begin	
		when 53001.use with pc.getqf("firephoenix1") == 0 and pc.getqf("firephoenix2") == 0
		and pc.getqf("firephoenix3") == 0 and pc.getqf("firephoenix4") == 0
		and pc.getqf("firephoenix5") == 0 and pc.getqf("firephoenix6") == 0
		and pc.getqf("firephoenix7") == 0 begin
				
				cmdchat("b10")
				
			if pc.getqf("firephoenix") == 0 then
				horse.set_level("22")
				horse.set_name(""..pc.get_name().." - Phoenix de Foc")
				pc.setqf("phoenix_fly", 1)
                pc.setqf("firephoenix", 1)
                affect.add_collect(apply.MAX_HP, 4000, 60*60*8)
                affect.add_collect(apply.ATTBONUS_HUMAN, 10, 60*60*8)
				affect.add_collect(apply.CRITICAL_PCT, 15, 60*60*8)
				affect.add_collect(apply.PENETRATE_PCT, 15, 60*60*8)
                pet.unsummon() pet.summon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				
				loop_timer("bugcheck", 0.2)
				
			elseif pc.getqf("firephoenix") == 1 then	
				pet.unsummon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal")
                affect.remove_collect(apply.MAX_HP, 4000, 60*60*8)
                affect.remove_collect(apply.ATTBONUS_HUMAN, 10, 60*60*8)
				affect.remove_collect(apply.CRITICAL_PCT, 15, 60*60*8)
				affect.remove_collect(apply.PENETRATE_PCT, 15, 60*60*8)
				pc.setqf("phoenix_fly", 0)
                pc.setqf("firephoenix", 0)
				cleartimer("bugcheck")
				
			end		
		end	
		
		
		-- Bugschutz
		
		when bugcheck.timer begin

			if pc.count_item(53001) == 0 then
				
				pet.unsummon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				
                affect.remove_collect(apply.MAX_HP, 4000, 60*60*8)
                affect.remove_collect(apply.ATTBONUS_HUMAN, 10, 60*60*8)
				affect.remove_collect(apply.CRITICAL_PCT, 15, 60*60*8)
				affect.remove_collect(apply.PENETRATE_PCT, 15, 60*60*8) 
				pc.setqf("phoenix_fly", 0)
                pc.setqf("firephoenix", 0)
				syschat(" <Pet> Sigiliul nu a putut fi gasit! ")
				cleartimer("bugcheck")		
			end
		end
		
		when login or logout or disconnect with pc.getqf("firephoenix") == 1 begin
                horse.set_level("22")
				horse.set_name(""..pc.get_name().." - Phoenix de Foc ")
				pc.setqf("phoenix_fly", 1)
                pc.setqf("firephoenix", 1)
                pet.unsummon() pet.summon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				
				loop_timer("bugcheck", 0.2)
				
		end		
		
	end	
end	


quest official_pets begin
	state start begin		
		when 53003.use with pc.getqf("firephoenix") == 0 and pc.getqf("firephoenix2") == 0
		and pc.getqf("firephoenix3") == 0 and pc.getqf("firephoenix4") == 0
		and pc.getqf("firephoenix5") == 0 and pc.getqf("firephoenix6") == 0
		and pc.getqf("firephoenix7") == 0 begin
		
			if pc.getqf("firephoenix1") == 0 then
                horse.set_level("23")
				horse.set_name(""..pc.get_name().." - Phoenix de Gheata")
				pc.setqf("phoenix_fly1", 1)
                pc.setqf("firephoenix1", 1)
                affect.add_collect(apply.MAX_HP, 4000, 60*60*8)
                affect.add_collect(apply.ATTBONUS_HUMAN, 10, 60*60*8)
				affect.add_collect(apply.CRITICAL_PCT, 15, 60*60*8)
				affect.add_collect(apply.PENETRATE_PCT, 15, 60*60*8)
                pet.unsummon() pet.summon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				
				loop_timer("bugcheck1", 0.2)
				
			elseif pc.getqf("firephoenix1") == 1 then	
				pet.unsummon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
                affect.remove_collect(apply.MAX_HP, 4000, 60*60*8)
                affect.remove_collect(apply.ATTBONUS_HUMAN, 10, 60*60*8)
				affect.remove_collect(apply.CRITICAL_PCT, 15, 60*60*8)
				affect.remove_collect(apply.PENETRATE_PCT, 15, 60*60*8) 
				pc.setqf("phoenix_fly1", 0)
                pc.setqf("firephoenix1", 0)
				cleartimer("bugcheck1")
				
			end		
		end
		
		
		
		-- Bugschutz
		
		when bugcheck1.timer begin

			if pc.count_item(53003) == 0 then
				
				pet.unsummon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				syschat(" <Pet> Sigiliul nu a putut fi gasit! ")
                affect.remove_collect(apply.MAX_HP, 4000, 60*60*8)
                affect.remove_collect(apply.ATTBONUS_HUMAN, 10, 60*60*8)
				affect.remove_collect(apply.CRITICAL_PCT, 15, 60*60*8)
				affect.remove_collect(apply.PENETRATE_PCT, 15, 60*60*8) 
				pc.setqf("phoenix_fly1", 0)
                pc.setqf("firephoenix1", 0)
				
				cleartimer("bugcheck1")		
			end
		end
		
		when login or logout or disconnect with pc.getqf("firephoenix1") == 1 begin
                horse.set_level("23")
				horse.set_name(""..pc.get_name().." - Phoenix de Gheata")
				pc.setqf("phoenix_fly1", 1)
                pc.setqf("firephoenix1", 1)
                pet.unsummon() pet.summon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				
				loop_timer("bugcheck1", 0.2)
				
		end		
		
	end	
end	

	quest official_pets begin
	state start begin	
		when 53002.use with pc.getqf("firephoenix") == 0 and pc.getqf("firephoenix1") == 0
		and pc.getqf("firephoenix3") == 0 and pc.getqf("firephoenix4") == 0
		and pc.getqf("firephoenix5") == 0 and pc.getqf("firephoenix6") == 0
		and pc.getqf("firephoenix7") == 0 begin
		
			if pc.getqf("firephoenix2") == 0 then
                horse.set_level("24")
				horse.set_name(""..pc.get_name().." - Panda")
				pc.setqf("phoenix_fly2", 1)
                pc.setqf("firephoenix2", 1)
                affect.add_collect(apply.MAX_HP, 5000, 60*60*8)
                affect.add_collect(apply.ATTBONUS_HUMAN, 10, 60*60*8)
				affect.add_collect(apply.CRITICAL_PCT, 15, 60*60*8)
				affect.add_collect(apply.PENETRATE_PCT, 15, 60*60*8)
				affect.add_collect(apply.CAST_SPEED, 20, 60*60*8)
                pet.unsummon() pet.summon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				
				loop_timer("bugcheck2", 0.2)
				
			elseif pc.getqf("firephoenix2") == 1 then	
				pet.unsummon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
                affect.remove_collect(apply.MAX_HP, 4000, 60*60*8)
                affect.remove_collect(apply.ATTBONUS_HUMAN, 10, 60*60*8)
				affect.remove_collect(apply.CRITICAL_PCT, 15, 60*60*8)
				affect.remove_collect(apply.PENETRATE_PCT, 15, 60*60*8) 
				pc.setqf("phoenix_fly2", 0)
                pc.setqf("firephoenix2", 0)
				cleartimer("bugcheck2")
				
			end		
		end
		
		
		
		-- Bugschutz
		
		when bugcheck2.timer begin

			if pc.count_item(53002) == 0 then
				
				pet.unsummon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				syschat(" <Pet> Sigiliul nu a putut fi gasit! ")
                affect.remove_collect(apply.MAX_HP, 4000, 60*60*8)
                affect.remove_collect(apply.ATTBONUS_HUMAN, 10, 60*60*8)
				affect.remove_collect(apply.CRITICAL_PCT, 15, 60*60*8)
				affect.remove_collect(apply.PENETRATE_PCT, 15, 60*60*8)
				pc.setqf("phoenix_fly2", 0)
                pc.setqf("firephoenix2", 0)
				
				cleartimer("bugcheck2")		
			end
		end
		
		when login or logout or disconnect with pc.getqf("firephoenix2") == 1 begin
                horse.set_level("24")
				horse.set_name(""..pc.get_name().." - Panda")
				pc.setqf("phoenix_fly2", 1)
                pc.setqf("firephoenix2", 1)
                pet.unsummon() pet.summon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				
				loop_timer("bugcheck2", 0.2)
				
		end		
		
	end	
end	

quest official_pets begin
	state start begin		
		when 53005.use with pc.getqf("firephoenix") == 0 and pc.getqf("firephoenix1") == 0 
		and pc.getqf("firephoenix2") == 0 and pc.getqf("firephoenix4") == 0
		and pc.getqf("firephoenix5") == 0 and pc.getqf("firephoenix6") == 0
		and pc.getqf("firephoenix7") == 0 begin
		
			if pc.getqf("firephoenix3") == 0 then
                horse.set_level("25")
				horse.set_name(""..pc.get_name().." - Baby Azrael")
				pc.setqf("phoenix_fly3", 1)
                pc.setqf("firephoenix3", 1)
                affect.add_collect(apply.MAX_HP, 4000, 60*60*8)
                affect.add_collect(apply.ATTBONUS_HUMAN, 10, 60*60*8)
				affect.add_collect(apply.CRITICAL_PCT, 15, 60*60*8)
				affect.add_collect(apply.PENETRATE_PCT, 15, 60*60*8)
                pet.unsummon() pet.summon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				
				loop_timer("bugcheck3", 0.2)
				
			elseif pc.getqf("firephoenix3") == 1 then	
				pet.unsummon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
                affect.remove_collect(apply.MAX_HP, 4000, 60*60*8)
                affect.remove_collect(apply.ATTBONUS_HUMAN, 10, 60*60*8)
				affect.remove_collect(apply.CRITICAL_PCT, 15, 60*60*8)
				affect.remove_collect(apply.PENETRATE_PCT, 15, 60*60*8) 
				pc.setqf("phoenix_fly3", 0)
                pc.setqf("firephoenix3", 0)
				cleartimer("bugcheck3")
				
			end		
		end
		
		
		
		-- Bugschutz
		
		when bugcheck3.timer begin

			if pc.count_item(53005) == 0 then
				
				pet.unsummon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				syschat(" <Pet> Sigiliul nu a putut fi gasit! ")
                affect.remove_collect(apply.MAX_HP, 4000, 60*60*8)
                affect.remove_collect(apply.ATTBONUS_HUMAN, 10, 60*60*8)
				affect.remove_collect(apply.CRITICAL_PCT, 15, 60*60*8)
				affect.remove_collect(apply.PENETRATE_PCT, 15, 60*60*8)
				pc.setqf("phoenix_fly3", 0)
                pc.setqf("firephoenix3", 0)
				
				cleartimer("bugcheck3")		
			end
		end
		
		when login or logout or disconnect with pc.getqf("firephoenix3") == 1 begin
                horse.set_level("25")
				horse.set_name(""..pc.get_name().." - Baby Azrael")
				pc.setqf("phoenix_fly3", 1)
                pc.setqf("firephoenix3", 1)
                pet.unsummon() pet.summon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				
				loop_timer("bugcheck3", 0.2)
				
		end		
		
	end	
end

quest official_pets begin
	state start begin		
		when 53006.use with pc.getqf("firephoenix") == 0 and pc.getqf("firephoenix1") == 0
		and pc.getqf("firephoenix2") == 0 and pc.getqf("firephoenix3") == 0
		and pc.getqf("firephoenix5") == 0 and pc.getqf("firephoenix6") == 0
		and pc.getqf("firephoenix7") == 0 begin
		
			if pc.getqf("firephoenix4") == 0 then
                horse.set_level("26")
				horse.set_name(""..pc.get_name().." - Caine")
				pc.setqf("phoenix_fly4", 1)
                pc.setqf("firephoenix4", 1)
                affect.add_collect(apply.MAX_HP, 3000, 60*60*8)
				affect.add_collect(apply.ATTBONUS_UNDEAD, 15, 60*60*8) 
				affect.add_collect(apply.ATTBONUS_DEVIL, 15, 60*60*8)
				affect.add_collect(apply.ATTBONUS_ANIMAL, 15, 60*60*8)
				affect.add_collect(apply.CRITICAL_PCT, 10, 60*60*8)
				affect.add_collect(apply.PENETRATE_PCT, 10, 60*60*8)
				affect.add_collect(apply.CON, 20, 60*60*8)
                pet.unsummon() pet.summon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				
				loop_timer("bugcheck4", 0.2)
				
			elseif pc.getqf("firephoenix4") == 1 then	
				pet.unsummon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
                affect.remove_collect(apply.MAX_HP, 3000, 60*60*8)
				affect.remove_collect(apply.ATTBONUS_UNDEAD, 15, 60*60*8) 
				affect.remove_collect(apply.ATTBONUS_DEVIL, 15, 60*60*8)
				affect.remove_collect(apply.ATTBONUS_ANIMAL, 15, 60*60*8)
				affect.remove_collect(apply.CRITICAL_PCT, 10, 60*60*8)
				affect.remove_collect(apply.PENETRATE_PCT, 10, 60*60*8)
				affect.remove_collect(apply.CON, 20, 60*60*8) 
				pc.setqf("phoenix_fly4", 0)
                pc.setqf("firephoenix4", 0)
				cleartimer("bugcheck4")
				
			end		
		end
		
		
		
		-- Bugschutz
		
		when bugcheck4.timer begin

			if pc.count_item(53006) == 0 then
				
				pet.unsummon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				syschat(" <Pet> Sigiliul nu a putut fi gasit! ")
                affect.remove_collect(apply.MAX_HP, 3000, 60*60*8)
				affect.remove_collect(apply.ATTBONUS_UNDEAD, 15, 60*60*8) 
				affect.remove_collect(apply.ATTBONUS_DEVIL, 15, 60*60*8)
				affect.remove_collect(apply.ATTBONUS_ANIMAL, 15, 60*60*8)
				affect.remove_collect(apply.CRITICAL_PCT, 10, 60*60*8)
				affect.remove_collect(apply.PENETRATE_PCT, 10, 60*60*8)
				affect.remove_collect(apply.CON, 20, 60*60*8)  
				pc.setqf("phoenix_fly4", 0)
                pc.setqf("firephoenix4", 0)
				
				cleartimer("bugcheck4")		
			end
		end
		
		when login or logout or disconnect with pc.getqf("firephoenix4") == 1 begin
                horse.set_level("26")
				horse.set_name(""..pc.get_name().." - Caine")
				pc.setqf("phoenix_fly4", 1)
                pc.setqf("firephoenix4", 1)
                pet.unsummon() pet.summon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				
				loop_timer("bugcheck4", 0.2)
				
		end		
		
	end	
end

quest official_pets begin
	state start begin		
		when 53007.use with pc.getqf("firephoenix") == 0 and pc.getqf("firephoenix1") == 0
		and pc.getqf("firephoenix2") == 0 and pc.getqf("firephoenix3") == 0
		and pc.getqf("firephoenix4") == 0 and pc.getqf("firephoenix6") == 0
		and pc.getqf("firephoenix7") == 0 begin
		
			if pc.getqf("firephoenix5") == 0 then
                horse.set_level("27")
				horse.set_name(""..pc.get_name().." - Leu")
				pc.setqf("phoenix_fly5", 1)
                pc.setqf("firephoenix5", 1)
                affect.add_collect(apply.MAX_HP, 3000, 60*60*8)
				affect.add_collect(apply.ATTBONUS_UNDEAD, 15, 60*60*8) 
				affect.add_collect(apply.ATTBONUS_DEVIL, 15, 60*60*8)
				affect.add_collect(apply.ATTBONUS_ANIMAL, 15, 60*60*8)
				affect.add_collect(apply.CRITICAL_PCT, 10, 60*60*8)
				affect.add_collect(apply.PENETRATE_PCT, 10, 60*60*8)
				affect.add_collect(apply.DEX, 10, 60*60*8)
                pet.unsummon() pet.summon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				
				loop_timer("bugcheck5", 0.2)
				
			elseif pc.getqf("firephoenix5") == 1 then	
				pet.unsummon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
                affect.remove_collect(apply.MAX_HP, 3000, 60*60*8)
				affect.remove_collect(apply.ATTBONUS_UNDEAD, 15, 60*60*8) 
				affect.remove_collect(apply.ATTBONUS_DEVIL, 15, 60*60*8)
				affect.remove_collect(apply.ATTBONUS_ANIMAL, 15, 60*60*8)
				affect.remove_collect(apply.CRITICAL_PCT, 10, 60*60*8)
				affect.remove_collect(apply.PENETRATE_PCT, 10, 60*60*8)
				affect.remove_collect(apply.DEX, 10, 60*60*8) 
				pc.setqf("phoenix_fly5", 0)
                pc.setqf("firephoenix5", 0)
				cleartimer("bugcheck5")
				
			end		
		end
		
		
		
		-- Bugschutz
		
		when bugcheck5.timer begin

			if pc.count_item(53007) == 0 then
				
				pet.unsummon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				syschat(" <Pet> Sigiliul nu a putut fi gasit! ")
                affect.remove_collect(apply.MAX_HP, 3000, 60*60*8)
				affect.remove_collect(apply.ATTBONUS_UNDEAD, 15, 60*60*8) 
				affect.remove_collect(apply.ATTBONUS_DEVIL, 15, 60*60*8)
				affect.remove_collect(apply.ATTBONUS_ANIMAL, 15, 60*60*8)
				affect.remove_collect(apply.CRITICAL_PCT, 10, 60*60*8)
				affect.remove_collect(apply.PENETRATE_PCT, 10, 60*60*8)
				affect.remove_collect(apply.DEX, 10, 60*60*8)  
				pc.setqf("phoenix_fly5", 0)
                pc.setqf("firephoenix5", 0)
				
				cleartimer("bugcheck5")		
			end
		end
		
		when login or logout or disconnect with pc.getqf("firephoenix5") == 1 begin
                horse.set_level("27")
				horse.set_name(""..pc.get_name().." - Leu")
				pc.setqf("phoenix_fly5", 1)
                pc.setqf("firephoenix5", 1)
                pet.unsummon() pet.summon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				
				loop_timer("bugcheck5", 0.2)
				
		end		
		
	end	
end	

quest official_pets begin
	state start begin		
		when 53008.use with pc.getqf("firephoenix") == 0 and pc.getqf("firephoenix1") == 0
		and pc.getqf("firephoenix2") == 0 and pc.getqf("firephoenix3") == 0
		and pc.getqf("firephoenix4") == 0 and pc.getqf("firephoenix5") == 0
		and pc.getqf("firephoenix7") == 0 begin
		
		cmdchat("buff15")
		
			if pc.getqf("firephoenix6") == 0 then
			    horse.set_level("28")
				horse.set_name(""..pc.get_name().." - Porc")
				pc.setqf("phoenix_fly6", 1)
                pc.setqf("firephoenix6", 1)
                affect.add_collect(apply.MAX_HP, 3000, 60*60*8)
				affect.add_collect(apply.ATTBONUS_UNDEAD, 15, 60*60*8) 
				affect.add_collect(apply.ATTBONUS_DEVIL, 15, 60*60*8)
				affect.add_collect(apply.ATTBONUS_ANIMAL, 15, 60*60*8)
				affect.add_collect(apply.CRITICAL_PCT, 10, 60*60*8)
				affect.add_collect(apply.PENETRATE_PCT, 10, 60*60*8)
				affect.add_collect(apply.INT, 10, 60*60*8)
                pet.unsummon() pet.summon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				
				loop_timer("bugcheck6", 0.2)
				
			elseif pc.getqf("firephoenix6") == 1 then	
				pet.unsummon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
                affect.remove_collect(apply.MAX_HP, 3000, 60*60*8)
				affect.remove_collect(apply.ATTBONUS_UNDEAD, 15, 60*60*8) 
				affect.remove_collect(apply.ATTBONUS_DEVIL, 15, 60*60*8)
				affect.remove_collect(apply.ATTBONUS_ANIMAL, 15, 60*60*8)
				affect.remove_collect(apply.CRITICAL_PCT, 10, 60*60*8)
				affect.remove_collect(apply.PENETRATE_PCT, 10, 60*60*8)
				affect.remove_collect(apply.INT, 10, 60*60*8) 
				pc.setqf("phoenix_fly6", 0)
                pc.setqf("firephoenix6", 0)
				cleartimer("bugcheck6")
				
			end		
		end
		
		
		
		-- Bugschutz
		
		when bugcheck6.timer begin

			if pc.count_item(53008) == 0 then
				
				pet.unsummon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				syschat(" <Pet> Sigiliul nu a putut fi gasit! ")
                affect.remove_collect(apply.MAX_HP, 3000, 60*60*8)
				affect.remove_collect(apply.ATTBONUS_UNDEAD, 15, 60*60*8) 
				affect.remove_collect(apply.ATTBONUS_DEVIL, 15, 60*60*8)
				affect.remove_collect(apply.ATTBONUS_ANIMAL, 15, 60*60*8)
				affect.remove_collect(apply.CRITICAL_PCT, 10, 60*60*8)
				affect.remove_collect(apply.PENETRATE_PCT, 10, 60*60*8)
				affect.remove_collect(apply.INT, 10, 60*60*8)  
				pc.setqf("phoenix_fly6", 0)
                pc.setqf("firephoenix6", 0)
				
				cleartimer("bugcheck6")		
			end
		end
		
		when login or logout or disconnect with pc.getqf("firephoenix6") == 1 begin
                horse.set_level("28")
				horse.set_name(""..pc.get_name().." - Porc")
				pc.setqf("phoenix_fly6", 1)
                pc.setqf("firephoenix6", 1)
                pet.unsummon() pet.summon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				
				loop_timer("bugcheck6", 0.2)
				
		end		
		
	end	
end

quest official_pets begin
	state start begin		
		when 53009.use with pc.getqf("firephoenix") == 0 and pc.getqf("firephoenix1") == 0
		and pc.getqf("firephoenix2") == 0 and pc.getqf("firephoenix3") == 0
		and pc.getqf("firephoenix4") == 0 and pc.getqf("firephoenix5") == 0
		and pc.getqf("firephoenix6") == 0 begin
		
		cmdchat("buff8")
		
			if pc.getqf("firephoenix7") == 0 then
                horse.set_level("29")
				horse.set_name(""..pc.get_name().." - Tigru")
				pc.setqf("phoenix_fly7", 1)
                pc.setqf("firephoenix7", 1)
                affect.add_collect(apply.MAX_HP, 3000, 60*60*8)
				affect.add_collect(apply.ATTBONUS_UNDEAD, 15, 60*60*8) 
				affect.add_collect(apply.ATTBONUS_DEVIL, 15, 60*60*8)
				affect.add_collect(apply.ATTBONUS_ANIMAL, 15, 60*60*8)
				affect.add_collect(apply.CRITICAL_PCT, 10, 60*60*8)
				affect.add_collect(apply.PENETRATE_PCT, 10, 60*60*8)
				affect.add_collect(apply.STR, 10, 60*60*8)
                pet.unsummon() pet.summon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				
				loop_timer("bugcheck7", 0.2)
				
			elseif pc.getqf("firephoenix7") == 1 then	
				pet.unsummon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
                affect.remove_collect(apply.MAX_HP, 3000, 60*60*8)
				affect.remove_collect(apply.ATTBONUS_UNDEAD, 15, 60*60*8) 
				affect.remove_collect(apply.ATTBONUS_DEVIL, 15, 60*60*8)
				affect.remove_collect(apply.ATTBONUS_ANIMAL, 15, 60*60*8)
				affect.remove_collect(apply.CRITICAL_PCT, 10, 60*60*8)
				affect.remove_collect(apply.PENETRATE_PCT, 10, 60*60*8)
				affect.remove_collect(apply.STR, 10, 60*60*8) 
				pc.setqf("phoenix_fly7", 0)
                pc.setqf("firephoenix7", 0)
				cleartimer("bugcheck7")
				
			end		
		end
		
		
		
		-- Bugschutz
		
		when bugcheck7.timer begin

			if pc.count_item(53009) == 0 then
				
				pet.unsummon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				syschat(" <Pet> Sigiliul nu a putut fi gasit! ")
                affect.remove_collect(apply.MAX_HP, 3000, 60*60*8)
				affect.remove_collect(apply.ATTBONUS_UNDEAD, 15, 60*60*8) 
				affect.remove_collect(apply.ATTBONUS_DEVIL, 15, 60*60*8)
				affect.remove_collect(apply.ATTBONUS_ANIMAL, 15, 60*60*8)
				affect.remove_collect(apply.CRITICAL_PCT, 10, 60*60*8)
				affect.remove_collect(apply.PENETRATE_PCT, 10, 60*60*8)
				affect.remove_collect(apply.STR, 10, 60*60*8) 
				pc.setqf("phoenix_fly7", 0)
                pc.setqf("firephoenix7", 0)
				
				cleartimer("bugcheck7")		
			end
		end
		
		when login or logout or disconnect with pc.getqf("firephoenix7") == 1 begin
                horse.set_level("29")
				horse.set_name(""..pc.get_name().." - Tigru")
				pc.setqf("phoenix_fly7", 1)
                pc.setqf("firephoenix7", 1)
                pet.unsummon() pet.summon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				
				loop_timer("bugcheck7", 0.2)
				
		end		
		
	end	
end		

quest official_pets begin
	state start begin		
		when 53010.use with pc.getqf("firephoenix") == 0 and pc.getqf("firephoenix1") == 0
		and pc.getqf("firephoenix2") == 0 and pc.getqf("firephoenix3") == 0
		and pc.getqf("firephoenix4") == 0 and pc.getqf("firephoenix5") == 0
		and pc.getqf("firephoenix8") == 0 begin
		
		cmdchat("buff8")
		
			if pc.getqf("firephoenix7") == 0 then
                horse.set_level("29")
				horse.set_name(""..pc.get_name().." - Tigru")
				pc.setqf("phoenix_fly7", 1)
                pc.setqf("firephoenix7", 1)
                affect.add_collect(apply.MAX_HP, 3000, 60*60*8)
				affect.add_collect(apply.ATTBONUS_UNDEAD, 15, 60*60*8) 
				affect.add_collect(apply.ATTBONUS_DEVIL, 15, 60*60*8)
				affect.add_collect(apply.ATTBONUS_ANIMAL, 15, 60*60*8)
				affect.add_collect(apply.CRITICAL_PCT, 10, 60*60*8)
				affect.add_collect(apply.PENETRATE_PCT, 10, 60*60*8)
				affect.add_collect(apply.STR, 10, 60*60*8)
                pet.unsummon() pet.summon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				
				loop_timer("bugcheck7", 0.2)
				
			elseif pc.getqf("firephoenix7") == 1 then	
				pet.unsummon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
                affect.remove_collect(apply.MAX_HP, 3000, 60*60*8)
				affect.remove_collect(apply.ATTBONUS_UNDEAD, 15, 60*60*8) 
				affect.remove_collect(apply.ATTBONUS_DEVIL, 15, 60*60*8)
				affect.remove_collect(apply.ATTBONUS_ANIMAL, 15, 60*60*8)
				affect.remove_collect(apply.CRITICAL_PCT, 10, 60*60*8)
				affect.remove_collect(apply.PENETRATE_PCT, 10, 60*60*8)
				affect.remove_collect(apply.STR, 10, 60*60*8) 
				pc.setqf("phoenix_fly7", 0)
                pc.setqf("firephoenix7", 0)
				cleartimer("bugcheck7")
				
			end		
		end
		
		
		
		-- Bugschutz
		
		when bugcheck7.timer begin

			if pc.count_item(53009) == 0 then
				
				pet.unsummon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				syschat(" <Pet> Sigiliul nu a putut fi gasit! ")
                affect.remove_collect(apply.MAX_HP, 3000, 60*60*8)
				affect.remove_collect(apply.ATTBONUS_UNDEAD, 15, 60*60*8) 
				affect.remove_collect(apply.ATTBONUS_DEVIL, 15, 60*60*8)
				affect.remove_collect(apply.ATTBONUS_ANIMAL, 15, 60*60*8)
				affect.remove_collect(apply.CRITICAL_PCT, 10, 60*60*8)
				affect.remove_collect(apply.PENETRATE_PCT, 10, 60*60*8)
				affect.remove_collect(apply.STR, 10, 60*60*8) 
				pc.setqf("phoenix_fly7", 0)
                pc.setqf("firephoenix7", 0)
				
				cleartimer("bugcheck7")		
			end
		end
		
		when login or logout or disconnect with pc.getqf("firephoenix7") == 1 begin
                horse.set_level("29")
				horse.set_name(""..pc.get_name().." - Tigru")
				pc.setqf("phoenix_fly7", 1)
                pc.setqf("firephoenix7", 1)
                pet.unsummon() pet.summon()
				horse.set_level("21")
				horse.set_name(""..pc.get_name().." - Cal ")
				
				loop_timer("bugcheck7", 0.2)
				
		end		
		
	end	
end

Cryptex · 21 Mar 2015, 08:41

Iti trebuie un quest ca al meu

ala nu merge sa bagi mai mult de 6 peturi sau ceva de genu.

Cod: Selectaţi tot

-------------------------------
-- SERVERFILE BY Cryptex 
-------------------------------
quest pet_system begin
    state start begin
        function get_pet_info(itemVnum)
            pet_info_map = {
            --  [ITEM VNUM] MOB_VNUM, DEFAULT NAME, buff_idx, spawn_effect_idx
                [53001]     = { 20120, "'s Phoenix de foc", 0},
		[53002]     = { 30254, "'s Pui de ren", 0},
                [53003]     = { 20125, "'s Pheonix de gheata", 0},
                [53005]     = { 20127, "'s Baby Azrael", 1},
                [53006]     = { 20127, "'s Azrael de aur", 1},
		[53007]     = { 30253, "'s Bambi", 0},
                [53008]     = { 20130, "'s Knuud", 0},
                [53009]     = { 34012, "'s Bao Bao", 0},
                [53010]     = { 34018, "'s Leonidas", 0},
                [53011]     = { 34007, "'s Khan", 0},
                [53012]     = { 34005, "´s Porky", 0},
                [53013]     = { 34006, "´s Rufus", 0},
                [53018]     = { 30231, "´s Colt Alb", 0},
                [53019]     = { 30232, "´s Fulg de nea", 0},
                [53020]     = { 30233, "´s Cainele iadului", 0},
                [53021]     = { 30234, "´s Cainele ghetii", 0},
                [53022]     = { 30235, "´s Cainele de jad", 0},
                [53023]     = { 30236, "´s Cainele iernii", 0},
                [53024]     = { 30237, "´s Pui de moa", 0},
                [53025]     = { 30238, "´s BoneDog", 0},
                [53026]     = { 30239, "´s Leopard", 0},
                [53027]     = { 30240, "´s Leopard", 0},
                [53028]     = { 30241, "´s Leul iadului", 0},
                [53029]     = { 30242, "´s Leul ghetii", 0},
                [53030]     = { 30243, "´s Leul de jad", 0},
                [53031]     = { 30244, "´s Leul iernii", 0},
                [53032]     = { 30245, "´s Pui de panda", 0},
                [53033]     = { 30246, "´s Porcul iadului", 0},
                [53034]     = { 30247, "´s Porcul ghetii", 0},
                [53035]     = { 30248, "´s Porcul de jad", 0},
                [53036]     = { 30249, "´s Porcul iernii", 0},
                [53038]     = { 30251, "´s Executioner", 0},
                [53039]     = { 30252, "´s Executioner(gold)", 0},
                [53040]     = { 30255, "´s Tigrul iadului", 0},
                [53041]     = { 30256, "´s Tigrul ghetii", 0},
                [53042]     = { 30257, "´s Tigrul de jad", 0},
                [53043]     = { 30258, "´s Tigrul iernii", 0},
            }

            itemVnum = tonumber(itemVnum)

            return pet_info_map[itemVnum]
        end
		function get_spawn_effect_file(idx)
			effect_table = {
				[0] = nil,
				[1] = "d:\\\\ymir work\\\\effect\\\\etc\\\\appear_die\\\\npc2_appear.mse",
			}
			return effect_table [idx]
		end
        when 53001.use or
			 53002.use or
			 53003.use or
			 53004.use or
			 53005.use or
			 53006.use or
			 53007.use or
			 53008.use or
			 53009.use or
			 53010.use or
			 53011.use or
			 53012.use or
			 53013.use or
			 53018.use or
			 53019.use or
			 53020.use or
			 53021.use or
			 53022.use or
			 53023.use or
			 53024.use or
			 53025.use or
			 53026.use or
			 53027.use or
			 53028.use or
			 53029.use or
			 53030.use or
			 53031.use or
			 53032.use or
			 53033.use or
			 53034.use or
			 53035.use or
			 53036.use or
			 53038.use or
			 53039.use or
			 53040.use or
			 53041.use or
			 53042.use or
			 53043.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[3])

                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)
                else
                    if pet.count_summoned() < 1 then
                        pet.summon(mobVnum, petName, false)
                    else
                        syschat("Nu mai poti chema inca un pet.")
                    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
    end -- state
end -- quest

Issack · 21 Mar 2015, 09:23

Acela e quest pentru 2089M pe care nu se pot adăuga mai mult de 9 pet-uri .. Şi questul nu merge schimbat pe SF-ul ăla doar dacă rulezi diff-uri de 34K..îţi recomand schimbarea SF-ului pe o versiunea superioară 34-40k.

[ Mesaj scris via Android ] Imagine

ryoku1998 · 21 Mar 2015, 13:25

daca schimb questul o sa merga??

22 Mar 2015, 18:47

Nu merge. Trebuie să schimbi serverfiles cu o versiune superioară 34k-40k, să implementezi pet-uri noi.

10 Iun 2015, 14:01

Arhivat,subiect inactiv!

IMPLEMENTARE PET-URI!!!

[IMPLEMENTARE] Implementare atac automat

implementare in v2`

Implementare Fox Fs

implementare 6/7

Cine este conectat