[Quest] Item Multi-Usos (Mais Para Gm, Mas Pronto <.<)

['PACI 2,317]

Boas Pessoal,

Estava sem nada para fazer... aborrecido... e decidi fazer uma quest, já que melhor para fazer não há...

Consiste num item multi-usos, apesar de ter mais usos para um GM do que para um Player.

Imagens:

Para GM:

Para Players:

É o que Disse, tem poucos usos para player xD

Quest:

quest item_multi_usos beginstate start begin  when 70007.use begin   say_reward("Quest BY PACIFICADOR.")   say("Que desejas Fazer?")	if pc.is_gm() then	 local a = select ("Teleportar à Beira de um Player" , "Ir às Cidades" , "Colocar Dia/Noite" , "Remover Itens do Inventário" , "Remover Só 1 Item", "Nevar/Parar de Nevar", "Seguinte")	  if a == 1 then	   say_title("Teleportar à Beira de um Player:")	   say("Indica o Nome do Player.")	   local nome = input ()	   if nome == "" then		say("Tens que indicar o nome do Player.")	   else		pc.teleport(nome)	   end	  end	  if a == 2 then	   say_title("Escolhe a Cidade onde Queres Ir:")	   local b = select ("Cidade 1 Azuis", "Cidade 2 Azuis", "Cidade 1 Vermelhos", "Cidade 2 Vermelhos", "Cidade 1 Amarelos", "Cidade 2 Amarelos", "Sair")	   if b == 1 then		pc.warp(969600, 278400)	   end	   if b == 2 then		pc.warp(873100, 242600)	   end	   if b == 3 then		pc.warp (469300, 964200)	   end	   if b == 4 then		pc.warp (360800, 877600)	   end	   if b == 5 then		pc.warp (55700, 157900)	   end	   if b == 6 then		pc.warp (138500, 234900)	   end	   if b == 7 then		return	   end	  end	  if a == 3 then	   say_title("Colocar Dia/Noite:")	   say("Queres Meter de Dia ou De Noite?")	   local c = select ("Dia", "Noite", "Sair")	   if c == 1 then		game.set_event_flag("xmas_boom", 1)	   end	   if c == 2 then		game.set_event_flag("xmas_boom", 0)	   end	  end	  if a == 4 then	   say_title("Remover Itens do Inventário:")	   say("Queres mesmo remover tudo do Inventário?")	   local d = select ("Sim", "Não")	   if d == 1 then		command("ip")	   end	   if d == 2 then		return	   end	  end	  if a == 5 then	   say_title("Remover 1 Item do Inventário:")	   say("Introduz o ID Do Item")	   local remover_item = input ()	   if remover_item == "" then		say_reward("Tens que Colocar o ID DO ITEM!")	   else		pc.remove_item("" ..remover_item.. "")	   end	  end	  if a == 6 then	   say_title("Começar/Parar de Nevar:")	   say("Queres Fazer o Quê?")		local t = select ("Meter a Nevar", "Parar de Nevar", "Sair")		if t == 2 then		 game.set_event_flag("xmas_snow", 0)		end		if t == 1 then		 game.set_event_flag("xmas_snow", 1)		end		if t == 3 then		 return		end	  end	  if a == 7 then	   local z = select ("Abrir Armazém", "Resetar Atributos", "Sair")	   if z == 1 then		game.open_safebox()	   setskin(NOWINDOW)	   end	   if z == 2 then		char_log(0, "RESET_ALL", "RESET_STAT_POINTS")		pc.reset_point()		char_log(0, "RESET_ALL", "RESET_END")	   end	   if z == 3 then		return	   end	  end	else	 local x = select ("Teleportar às Cidades", "Abrir Armazém", "Abrir Armazém de Artigos", "Sair")	 if x == 1 then	  say_title("Escolhe a Cidade onde Queres Ir:")	  local y = select ("Cidade 1 Azuis", "Cidade 2 Azuis", "Cidade 1 Vermelhos", "Cidade 2 Vermelhos", "Cidade 1 Amarelos", "Cidade 2 Amarelos", "Sair")	  if y == 1 then	   pc.warp(969600, 278400)	  end	  if y == 2 then	   pc.warp(873100, 242600)	  end	  if y == 3 then	   pc.warp (469300, 964200)	  end	  if y == 4 then	   pc.warp (360800, 877600)	  end	  if y == 5 then	   pc.warp (55700, 157900)	  end	  if y == 6 then	   pc.warp (138500, 234900)	  end	  if y == 7 then	   return	  end	 end	 if x == 2 then	  game.open_safebox()	  setskin(NOWINDOW)	 end	 if x == 3 then	  game.open_mall()	  setskin(NOWINDOW)	 end	 if x == 4 then	  return	 end	end  endendend

Está definida para ser usada no item nº 70007, podem mudar em:

when 70007.use begin

Onde está esse número, mudam para o que vocês queiram e instalam em:

/usr/.../locale/.../quest

Vão ao locale_list e metem lá o nome_da_quest.quest e guardam.

Vão à Máquina e escrevem:

cd /usr/.../portugal/.../quest

./qc nome_da_quest.quest

Vão reload q ou reboot e pronto xD

Espero que gostem ou assim.

Cumprimentos.

[•αddicτ• 9]

Bom trabalho e obrigado por partilhar.http://cyber-gamers.org/public/style_emoticons/default/451960.gif

['PACI 2,317]

Bom trabalho e obrigado por partilhar.

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

De nada.

Cumprimentos.

[ShadowKnight 35]

Uma quest muito boa que pode ajudar muita gente.Obrigado http://cyber-gamers.org/public/style_emoticons/default/451960.gif

[Andre 309]

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

[米格尔滨江 37]

Alguem me pode dizer como o por como uma "MISSÃO"

['PACI 2,317]

Mudas isto:

when 70007.use begin

Por isto:

  when login beginset_state(missao)endendstate letter beginwhen letter begin("Multi Usos")endwhen button or info begin

[米格尔滨江 37]

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