[Quest] Evento De Pescar

[Rancoroso 604]

OLÁ PESSOAL.BOM HOJE VOU DISPONIBILIZAR MINHA QUEST DE EVENTO DE PESCAR PARA QUEM QUISE USAR CLARO.OBSERVAÇÃO:PREMIO É EM MODO RANDOM ENTÃO VOCÊ PODE AUMENTAR OU DIMINUIR O LIMITE ESTÁ DE 20 ITEMS NO RANDOM.JOGADOR GANHAR APENAS 1 ITEM EM MODO RANDOM.BOM COMO A MAIORIA JÁ SABE COMO INSTALAR A QUEST NÃO SERÁ NECESSÁRIO UM TUTORIAL DE COMO INSTALAR A QUEST NA SUA SERVERFILES.ENTÃO VAMOS A QUEST BASTAR CRIAR UM ARQUIVO DE TEXTO COM O FORMATO QUEST E NOME evento_pescar.quest E DEPOIS ADD O SCRIPT ABAIXO FEITO POR MIM E DEPOIS DE CRIAR BASTAR INSTALAR:

--------------------------------------------------------------------- Criado por Rancoroso - Overgame.-- Quest evento de pescar by Rancoroso.-- Email: [email protected] Skype: invisionbrazil.-- Site: www.overgame.hostei.com.--------------------------------------------------------------------quest evento_pescar beginstate start beginwhen 9009.chat."GM: Evento de Pescador" with pc.is_gm() beginsay_title("Pescador:")say("")say("Olá, Administrador gostaria de iníciar um")say("evento de pescar para animar o pessoal?")say("")local s = select ( "Começar Evento" , "Terminar Evento" , "Fechar" )if s == 1 thennotice_all("Evento de pescar foi iníciado!")command("e peixaria 1")elseif s == 2 thennotice_all("Evento de pescar foi finalizado!")command("e peixaria 0")elseif s == 3 thenreturnendendwhen 9009.chat."Pescar do Pescador" with game.get_event_flag("peixaria")>0 beginsay_title("Pescador:")say("")say("Olá pescadores estou precisando de ajuda")say("não consigo pescar 1 peixe.")say("Preciso de 1 peixe usado para pegar peixes maiores.")say_item_vnum(27802)say("Em trocar da sua ajuda vou lhe dar um grande")say("prêmio como recompensa.")say("")endwhen 9009.chat."Trouxe a Isca de Peixe?" with game.get_event_flag("peixaria")>0 and pc.countitem(27802) >= 1 beginsay_title("Pescador:")say("")say("Nossa! muito obrigado por mim ajudar")say("como recompensa lhe darei seu prêmio.")say("")wait()pc.removeitem("27802", 1)local r=number(1, 20)if r==1 thenpc.give_item2("71085", 1)elseif r==2 thenpc.give_item2("70024", 1)elseif r==3 thenpc.give_item2("71051", 1)elseif r==4 thenpc.give_item2("71084", 1)elseif r==5 thenpc.give_item2("71052", 1)elseif r==6 thenpc.give_item2("71083", 1)elseif r==7 thenpc.give_item2("71001", 1)elseif r==8 thenpc.give_item2("71020", 15)elseif r==9 thenpc.give_item2("71032", 1)elseif r==10 thenpc.give_item2("71033", 1)elseif r==11 thenpc.give_item2("71034", 5)elseif r==12 thenpc.give_item2("71044", 5)elseif r==13 thenpc.give_item2("71045", 5)elseif r==14 thenpc.give_item2("71094", 1)elseif r==15 thenpc.give_item2("27992", 1)elseif r==16 thenpc.give_item2("70038", 20)elseif r==17 thenpc.give_item2("71027", 5)elseif r==18 thenpc.give_item2("71028", 5)elseif r==19 thenpc.give_item2("71029", 5)elseif r==20 thenpc.give_item2("71030", 5)endendendend

CRÉDITOS: RANCOROSO.OBRIGADO PELA A ATENÇÃO.

[kimameixede 70]

muito boa obrigado

[Gleisson 0]

http://cyber-gamers.org/public/style_emoticons/default/451960.gif

[米格尔滨江 37]

http://cyber-gamers.org/public/style_emoticons/default/451960.gif

[PokerAlho *-* 13]

Pode-se editar tudo o que diz rancoroso?

[MetinProfile 16]

Pode-se editar tudo o que diz rancoroso?

sim podes nao sei se ja tem ..mas se nao tiver podes cumpz

[PokerAlho *-* 13]

como se ativa esse evento?

[amptteixeira1 39]

Meti essa Quest (deu tudo bem e dei reboot) e quando vou pescador não aparece nada para ligar ela (em personagem GM).

[larimalakian 2]

para mim tb nao

[Vintereais 5]

Meti essa Quest (deu tudo bem e dei reboot) e quando vou pescador não aparece nada para ligar ela (em personagem GM).

Isso porque deve ir até Npc (Pescado) se ajudei não custa dar +1 :)

[Tiago Gomes 3]

alguem tem a quest como deve ser?

[Tyler Durden 556]

alguem tem a quest como deve ser?

-------------------------------------------------------------------- 
-- Criado por Rancoroso - Overgame.
-- Quest evento de pescar by Rancoroso.
-- Email: [email protected].
-- Skype: invisionbrazil.
-- Site: www.overgame.hostei.com.
--------------------------------------------------------------------
quest evento_pescar begin
	state start begin
		when 9009.chat."GM: Evento de Pescador" with pc.is_gm() begin
			say_title("Pescador:")
			say("")
			say("Olá, Administrador gostaria de iníciar um")
			say("evento de pescar para animar o pessoal?")
			say("")
			local s = select ( "Começar Evento" , "Terminar Evento" , "Fechar" )
			if s == 1 then
				notice_all("Evento de pescar foi iníciado!")
				command("e peixaria 1")
			elseif s == 2 then
				notice_all("Evento de pescar foi finalizado!")
				command("e peixaria 0")
			elseif s == 3 then
				return
			end
		end
		when 9009.chat."Pescar do Pescador" with game.get_event_flag("peixaria")>0 begin
			say_title("Pescador:")
			say("")
			say("Olá pescadores estou precisando de ajuda")
			say("não consigo pescar 1 peixe.")
			say("Preciso de 1 peixe usado para pegar peixes maiores.")
			say_item_vnum(27802)
			say("Em trocar da sua ajuda vou lhe dar um grande")
			say("prêmio como recompensa.")
			say("")
		end
		when 9009.chat."Trouxe a Isca de Peixe?" with game.get_event_flag("peixaria")>0 and pc.countitem(27802) >= 1 begin
			say_title("Pescador:")
			say("")
			say("Nossa! muito obrigado por mim ajudar")
			say("como recompensa lhe darei seu prêmio.")
			say("")
			wait()
			pc.removeitem("27802", 1)
			local r=number(1, 20)
			if r==1 then
				pc.give_item2("71085", 1)
			elseif r==2 then 
				pc.give_item2("70024", 1)
			elseif r==3 then
				pc.give_item2("71051", 1)
			elseif r==4 then
				pc.give_item2("71084", 1)
			elseif r==5 then
				pc.give_item2("71052", 1)
			elseif r==6 then
				pc.give_item2("71083", 1)
			elseif r==7 then
				pc.give_item2("71001", 1)
			elseif r==8 then
				pc.give_item2("71020", 15)
			elseif r==9 then
				pc.give_item2("71032", 1)
			elseif r==10 then
				pc.give_item2("71033", 1)
			elseif r==11 then
				pc.give_item2("71034", 5)
			elseif r==12 then
				pc.give_item2("71044", 5)
			elseif r==13 then
				pc.give_item2("71045", 5)
			elseif r==14 then
				pc.give_item2("71094", 1)
			elseif r==15 then
				pc.give_item2("27992", 1)
			elseif r==16 then
				pc.give_item2("70038", 20)
			elseif r==17 then
				pc.give_item2("71027", 5)
			elseif r==18 then
				pc.give_item2("71028", 5)
			elseif r==19 then
				pc.give_item2("71029", 5)
			elseif r==20 then
				pc.give_item2("71030", 5)
			end
		end
	end
end