Mudança Bónus Biologo (Nivel 92 A 96)

[[Admin] tierrilopes]

Spoiler

quest collect_quest_reset_v2 begin
	state start begin
		when login with pc.level >= 92 begin
			if tostring(get_quest_state("collect_quest_lv92")) == "557528158" or tostring(get_quest_state("collect_quest_lv92")) == "1918565466" or
				tostring(get_quest_state("collect_quest_lv94")) == "557528158" or tostring(get_quest_state("collect_quest_lv94")) == "1918565466" or 
				tostring(get_quest_state("collect_quest_lv96")) == "557528158" or tostring(get_quest_state("collect_quest_lv96")) == "1918565466" then
				set_state( check_reset_able )
			end
		end
	end

	state check_reset_able begin
		when 20091.chat."Desejas mudar a tua recompensa?" begin
			---                                                   l
			say_title("Seon-Pyeong:")
			say("")
			say("Eh.. Desejas mudar a recompensa que escolhes-te?")
			say("Hmmmm....")
			say("")

			wait()

			say_title("Seon-Pyeong:")
			say("")
			say("Preciso de um Jade Celestial para fazer a mudança.")
			say("Poderás encontrá-lo na Gruta das Almas.")
			say("")
			say("Será que me podes trazer 5 Jades?")
			say("")

			wait()

			say_title("Seon-Pyeong:")
			say("")
			say("Se trouxeres 5 Jades Celestiais eu consigo")
			say("mudar um dos extras que tinhas antes.")
			say("")
			say("Que tal huh?")
			say("")

			local s = select("Okay", "Deixa-me pensar.")

			if s == 1 then
				say_title("Seon-Pyeong:")
				say("")
				say("Ficarei à tua espera.")
				say("")

				set_state( find_jewel )
			else
				say_title("Seon-Pyeong:")
				say("")
				say("À vontade, pensa cuidadosamente.")
				say("")
			end
		end
	end

	state find_jewel begin
		when letter begin
			send_letter("Seon-Pyeong's offer")
		end

		when button or info begin
			say("")
			say("Traz 5 Jades Celestiais a Seon-Pyeong")
			say("para ele mudar um dos extras.")
			say("")

			say_item_vnum( 30254 )

			say_reward("Coleccionas-te "..pc.getqf("collect_count").."  até agora.")
			say("")
		end

		when 2401.kill or 2402.kill or 2403.kill or 2404.kill begin
			if number(1, 100) <= 40 then
				pc.give_item2(30254, 1)
				send_letter("Encontras-te Jade Celestial!")
			end
		end

		when 2411.kill or 2412.kill or 2413.kill or 2414.kill begin
			if number(1, 100) <= 20 then
				pc.give_item2(30254, 1)
				send_letter("Tens Jade Celestial!")
			end
		end

		when 20091.chat."Trouxes-te uma Jade?" with pc.count_item(30254) > 0 begin
			pc.remove_item( 30254 , 1 )

			say_title("Seon-Pyeong:")
			say("")
			say("Ah, aqui estás tu. Deixa-me ver...")

			setdelay(150)
			say("Hmmm...")
			resetdelay()

			if number(1, 100) <= 20 then
				say("Este não serve.")
				say("Por favor traz-me outro.")
				say("")
				return
			end

			say("Sim... Isto é um verdadeiro Jade Celestial!!")
			say("")

			wait()

			local count = pc.getqf( "collect_count" ) + 1

			if count < 5 then
				pc.setqf( "collect_count", count )

				say_title("Seon-Pyeong:")
				say("")
				say("Agora precisas de trazer mais " .. 5-count .. ".")
				say("Continua assim!")
				say("")
				return
			end
			
			say_title("Seon-Pyeong:")
			say("")
			say("Como prometido irei mudar um dos extras!")
			say_reward("Atenção:")
			say_reward("Os extras NÃO podem ser repetidos.")
			say("")

			local selTab = {}
			local pos = 1 

			if tostring(get_quest_state("collect_quest_lv92")) == "557528158"  or tostring(get_quest_state("collect_quest_lv92")) == "1918565466" and
				tostring(get_quest_state("collect_quest_lv94")) != "1918565466" and
				tostring(get_quest_state("collect_quest_lv94")) != "557528158" and
				tostring(get_quest_state("collect_quest_lv96")) != "1918565466" and
				tostring(get_quest_state("collect_quest_lv96")) != "557528158" then
				table.insert(selTab, pos, "92 sky gem reward")
				pos = pos + 1
			end

			if tostring(get_quest_state("collect_quest_lv92")) == "557528158"  or tostring(get_quest_state("collect_quest_lv92")) == "1918565466" and
				tostring(get_quest_state("collect_quest_lv94")) == "557528158"  or tostring(get_quest_state("collect_quest_lv94")) == "1918565466" and
				tostring(get_quest_state("collect_quest_lv96")) != "1918565466" and
				tostring(get_quest_state("collect_quest_lv96")) != "557528158" then
				table.insert(selTab, pos, "92 and 94 sky gem reward")
				pos = pos + 1
			end

			if tostring(get_quest_state("collect_quest_lv92")) == "557528158"  or tostring(get_quest_state("collect_quest_lv92")) == "1918565466" and
				tostring(get_quest_state("collect_quest_lv94")) == "557528158"  or tostring(get_quest_state("collect_quest_lv94")) == "1918565466" and
				tostring(get_quest_state("collect_quest_lv96")) == "557528158"  or tostring(get_quest_state("collect_quest_lv96")) == "1918565466" then
				table.insert(selTab, pos, "92, 94 and 96 sky gem reward")
				pos = pos + 1
			end

			local s = select_table( selTab )

			if selTab[s] == "92 sky gem reward" then
				affect.remove_collect(1, 1000)
				affect.remove_collect(apply.DEF_GRADE_BONUS, 300)
				affect.remove_collect(apply.ATT_GRADE_BONUS, 100)
				pc.setf("collect_quest_lv92","block_id",0)
				
				while true do
					say_title("Seon-Pyeong:")
					say("")
					say("Escolhe a nova recompensa de LV.92:")
					say("")
					s = select("Max VD +1000","Defesa +300","Valor Ataque +100")
					if 1== s then
						if pc.getf("collect_quest_lv94","block_id") == 1 or pc.getf("collect_quest_lv96","block_id") == 1 then
							say_white("Dois extras não podem ser iguais.")
							wait()
						else
							affect.add_collect(1, 1000, 60*60*24*365*60) --hp+3000  hp is 1 
							pc.setf("collect_quest_lv92","block_id",1)
							break
						end
					elseif 2== s then
						if pc.getf("collect_quest_lv94","block_id") == 2 or pc.getf("collect_quest_lv96","block_id") == 2 then
							say_white("Dois extras não podem ser iguais.")
							wait()
						else
							affect.add_collect(apply.DEF_GRADE_BONUS, 300, 60*60*24*365*60) 
							pc.setf("collect_quest_lv92","block_id",2)
							break
						end
					else 
						if pc.getf("collect_quest_lv94","block_id") == 3 or pc.getf("collect_quest_lv96","block_id") == 3 then
							say_white("Dois extras não podem ser iguais.")
							wait()
						else
							affect.add_collect(apply.ATT_GRADE_BONUS,100,60*60*24*365*60)--60years
							pc.setf("collect_quest_lv92","block_id",3)
							break
						end
				    end
				end
			elseif selTab[s] == "92 and 94 sky gem reward" then
				affect.remove_collect(1, 1000)
				affect.remove_collect(apply.DEF_GRADE_BONUS, 300)
				affect.remove_collect(apply.ATT_GRADE_BONUS, 100)
				pc.setf("collect_quest_lv92","block_id",0)
				affect.remove_collect(1, 1500)
				affect.remove_collect(apply.DEF_GRADE_BONUS, 500)
				affect.remove_collect(apply.ATT_GRADE_BONUS, 200)
				pc.setf("collect_quest_lv94","block_id",0)
				
				while true do
					say_title("Seon-Pyeong:")
					say("")
					say("Escolhe a nova recompensa de LV.92:")
					say("")
					s = select("Max VD +1000","Defesa +300","Valor Ataque +100")
					if 1== s then
						if pc.getf("collect_quest_lv94","block_id") == 1 or pc.getf("collect_quest_lv96","block_id") == 1 then
							say_white("Dois extras não podem ser iguais.")
							wait()
						else
							affect.add_collect(1, 1000, 60*60*24*365*60) --hp+3000  hp is 1 
							pc.setf("collect_quest_lv92","block_id",1)
							break
						end
					elseif 2== s then
						if pc.getf("collect_quest_lv94","block_id") == 2 or pc.getf("collect_quest_lv96","block_id") == 2 then
							say_white("Dois extras não podem ser iguais.")
							wait()
						else
							affect.add_collect(apply.DEF_GRADE_BONUS, 300, 60*60*24*365*60) 
							pc.setf("collect_quest_lv92","block_id",2)
							break
						end
					else 
						if pc.getf("collect_quest_lv94","block_id") == 3 or pc.getf("collect_quest_lv96","block_id") == 3 then
							say_white("Dois extras não podem ser iguais.")
							wait()
						else
							affect.add_collect(apply.ATT_GRADE_BONUS,100,60*60*24*365*60)--60years
							pc.setf("collect_quest_lv92","block_id",3)
							break
						end
				    end
				end
				while true do
					say_title("Seon-Pyeong:")
					say("")
					say("Escolhe a nova recompensa de LV.94:")
					say("")
					s2 = select("Max VD +1500","Defesa +500","Valor Ataque +200")
					if 1== s2 then
						if pc.getf("collect_quest_lv92","block_id") == 1 or pc.getf("collect_quest_lv96","block_id") == 1 then
							say_white("Dois extras não podem ser iguais.")
							wait()
						else
							affect.add_collect(1, 1500, 60*60*24*365*60) --hp+3000  hp is 1 
							pc.setf("collect_quest_lv94","block_id",1)
							break
						end
					elseif 2== s2 then
						if pc.getf("collect_quest_lv92","block_id") == 2 or pc.getf("collect_quest_lv96","block_id") == 2 then
							say_white("Dois extras não podem ser iguais.")
							wait()
						else
							affect.add_collect(apply.DEF_GRADE_BONUS, 500, 60*60*24*365*60) 
							pc.setf("collect_quest_lv94","block_id",2)
							break
						end
					else 
						if pc.getf("collect_quest_lv92","block_id") == 3 or pc.getf("collect_quest_lv96","block_id") == 3 then
							say_white("Dois extras não podem ser iguais.")
							wait()
						else
							affect.add_collect(apply.ATT_GRADE_BONUS,200,60*60*24*365*60)--60years
							pc.setf("collect_quest_lv94","block_id",3)
							break
						end
				    end
				end
			elseif selTab[s] == "92, 94 and 96 sky gem reward" then
				affect.remove_collect(1, 1000)
				affect.remove_collect(apply.DEF_GRADE_BONUS, 300)
				affect.remove_collect(apply.ATT_GRADE_BONUS, 100)
				pc.setf("collect_quest_lv92","block_id",0)
				affect.remove_collect(1, 1500)
				affect.remove_collect(apply.DEF_GRADE_BONUS, 500)
				affect.remove_collect(apply.ATT_GRADE_BONUS, 200)
				pc.setf("collect_quest_lv94","block_id",0)
				affect.remove_collect(1, 3000)
				affect.remove_collect(apply.DEF_GRADE_BONUS, 700)
				affect.remove_collect(apply.ATT_GRADE_BONUS, 300)
				pc.setf("collect_quest_lv96","block_id",0)

				while true do
					say_title("Seon-Pyeong:")
					say("")
					say("Escolhe a nova recompensa de LV.92:")
					say("")
					s = select("Max VD +1000","Defesa +300","Valor Ataque +100")
					if 1== s then
						if pc.getf("collect_quest_lv94","block_id") == 1 or pc.getf("collect_quest_lv96","block_id") == 1 then
							say_white("Dois extras não podem ser iguais.")
							wait()
						else
							affect.add_collect(1, 1000, 60*60*24*365*60) --hp+3000  hp is 1 
							pc.setf("collect_quest_lv92","block_id",1)
							break
						end
					elseif 2== s then
						if pc.getf("collect_quest_lv94","block_id") == 2 or pc.getf("collect_quest_lv96","block_id") == 2 then
							say_white("Dois extras não podem ser iguais.")
							wait()
						else
							affect.add_collect(apply.DEF_GRADE_BONUS, 300, 60*60*24*365*60) 
							pc.setf("collect_quest_lv92","block_id",2)
							break
						end
					else 
						if pc.getf("collect_quest_lv94","block_id") == 3 or pc.getf("collect_quest_lv96","block_id") == 3 then
							say_white("Dois extras não podem ser iguais.")
							wait()
						else
							affect.add_collect(apply.ATT_GRADE_BONUS,100,60*60*24*365*60)--60years
							pc.setf("collect_quest_lv92","block_id",3)
							break
						end
				    end
				end
				while true do
					say_title("Seon-Pyeong:")
					say("")
					say("Escolhe a nova recompensa de LV.94:")
					say("")
					s2 = select("Max VD +1500","Defesa +500","Valor Ataque +200")
					if 1== s2 then
						if pc.getf("collect_quest_lv92","block_id") == 1 or pc.getf("collect_quest_lv96","block_id") == 1 then
							say_white("Dois extras não podem ser iguais.")
							wait()
						else
							affect.add_collect(1, 1500, 60*60*24*365*60) --hp+3000  hp is 1 
							pc.setf("collect_quest_lv94","block_id",1)
							break
						end
					elseif 2== s2 then
						if pc.getf("collect_quest_lv92","block_id") == 2 or pc.getf("collect_quest_lv96","block_id") == 2 then
							say_white("Dois extras não podem ser iguais.")
							wait()
						else
							affect.add_collect(apply.DEF_GRADE_BONUS, 500, 60*60*24*365*60) 
							pc.setf("collect_quest_lv94","block_id",2)
							break
						end
					else 
						if pc.getf("collect_quest_lv92","block_id") == 3 or pc.getf("collect_quest_lv96","block_id") == 3 then
							say_white("Dois extras não podem ser iguais.")
							wait()
						else
							affect.add_collect(apply.ATT_GRADE_BONUS,200,60*60*24*365*60)--60years
							pc.setf("collect_quest_lv94","block_id",3)
							break
						end
				    end
				end
				while true do
					say_title("Seon-Pyeong:")
					say("")
					say("Escolhe a nova recompensa de LV.96:")
					say("")
					s3 = select("Max VD +3000","Defesa +700","Valor Ataque +300")
					if 1== s3 then
						if pc.getf("collect_quest_lv92","block_id") == 1 or pc.getf("collect_quest_lv94","block_id") == 1 then
							say_white("Dois extras não podem ser iguais.")
							wait()
						else
							affect.add_collect(1, 3000, 60*60*24*365*60) --hp+3000  hp is 1 
							pc.setf("collect_quest_lv96","block_id",1)
							break
						end
					elseif 2== s3 then
						if pc.getf("collect_quest_lv92","block_id") == 2 or pc.getf("collect_quest_lv94","block_id") == 2 then
							say_white("Dois extras não podem ser iguais.")
							wait()
						else
							affect.add_collect(apply.DEF_GRADE_BONUS, 700, 60*60*24*365*60) 
							pc.setf("collect_quest_lv96","block_id",2)
							break
						end
					else 
						if pc.getf("collect_quest_lv92","block_id") == 3 or pc.getf("collect_quest_lv94","block_id") == 3 then
							say_white("Dois extras não podem ser iguais.")
							wait()
						else
							affect.add_collect(apply.ATT_GRADE_BONUS,300,60*60*24*365*60)--60years
							pc.setf("collect_quest_lv96","block_id",3)
							break
						end
					end
				end
			end
			pc.setqf( "collect_count", 0 )
			set_state( check_reset_able )

			say_title("Seon-Pyeong:")
			say("")
			say("Já mudei as recompensas.")
			say("Vem ter comigo se precisares de mudar mais uma vez.")
			say("")
		end
	end
end

 

 

collect_quest_reset_v2.quest

[Devil]

esta é uma quest sempre ativa ou apenas funciona uma vez? ate gostei da ideia de poderem alterar a escolha.

[[Admin] tierrilopes]

Sempre ativa, consumindo os 5 itens.

No entanto pode ser adaptada para apenas funcionar uma vez.