DryUz

Gracias!

Esta quest es del metin2 atenas creo!

quest ascaria begin
    state start begin
  when login begin
   if pc.get_map_index() == 191 then
    pc.set_warp_location(191, 80845, 900)   
   elseif pc.get_map_index() >= 1910000 and pc.get_map_index() < 1920000 then
    pc.set_warp_location(191, 80845, 900)   
   end
  end  
 
  when 8024.kill with pc.get_map_index()==191 begin
   local jump1 = math.random(1, 20)
   if jump1 <= 10 then
    chat("¿Has encontrado un desconocido anillo?.")
    chat("Llévelo a sura Fantasma.")
    game.drop_item(40001, 1)
   else
    chat("Il metin e' vuoto!!!")
   end
  end 
  when 30121.click with pc.get_map_index() != 191 begin
   say_title("Sura Fantasma")
   say("")
   say("In passato ero guerriero dell esercito imperiale.")
   say("Molti anni fa venne scoperto un luogo protetto dal")
   say("terribile Drago Rosso. Oggi sono il solo a sapere")
   say("dove si trovi la valle di Ascaria. In realta")
   say("mi e' proibito dare informazioni su questo luogo")
   say("ma posso comunque portarti li...")
   say("Nella valle di Ascaria.")
   say("")
   say_reward("Vuoi essere teletrasportato?")   
   local s = select("Andiamo!", "Annulla")
   if s == 2 then
    return
   end
   pc.warp(8084500, 90000)
  end 
  when 30121.click with pc.get_map_index() == 191 begin 
   if pc.count_item(40001)>=1 then
    say_title("Sura Fantasma:")
    say("")
    say("Hai trovato un anello?!")
    say("Fammi vedere!")
    say("")
    say("")
    pc.removeitem("40001", 1)
    wait()
    say_title("Sura Fantasma:")
    say("")
    say("Okay, e' quello che cercavo..")
    say("Si va Bene.. Addio!!")
    say("")
    say("")
    wait()	   
    d.new_jump_all(191, 80100, 100)
    d.setf("ascaria", 1)
   else
    say_title("Sura Fantasma:")
    say("")
    say("Molte leggende narrano di un anello antico")
    say("Tale anello e' stato nascosto all interno delle")
    say("Roccie Metin. Se mi porterai tale acessorio")
    say("io potro farti accedere alla prossima area")
    say("in modo che tu possa approfondire le ricerche")
    say("in questa area!!")
    say("")
    say("")
   end
  end
 
  when login with pc.in_dungeon() and d.getf("ascaria") == 1 begin
  
   -- Removed key -----------------------------------------------------------------------------
    local boxto7= pc.count_item(50084) 
    pc.remove_item(50084,boxto7)
   --------------------------------------------------------------------------------------------
  
   local vid = d.spawn_mob(11510, 268, 311)
   d.regen_file("data/dungeon/ascaria2_regen.txt")
   d.set_unique("real", vid)
   d.setf("ascaria", 1)
   d.notice("Distruggi il segnale di fuoco Leggendario.");
  
  end
 
  when 11510.kill with pc.in_dungeon() begin
   if d.is_unique_dead("real") then
    d.setf("ascaria", 2)
    d.jump_all(80500, 780)
   end
  end
 
  when 20094.chat."Mio fratello" with pc.in_dungeon() and d.getf("ascaria") == 2 begin
   say_title("Hong-Hae: ")
   say("")  
   say(" Se potessi vedere mio fratello...")
   say("Questo posto... mi demotiva ")
   say("")
   say("E' tutto il giorno che corro qua intorno,")
   say("non ho nessuna idea di dove possa andare")
   say("Sto solo cercando mio fratello..")  
   say("")
   say("Se solo lo trovassi... non sarei più sola!")
   say("") 
   say("")
   say("")
   wait()
   d.setf("ascaria", 3)
   timer("ascaria_warps", 1)
   d.jump_all(80275, 780)
   d.spawn_mob(20095, 368, 894)
  end 
 
  when ascaria_warps.timer begin
   d.regen_file("data/dungeon/ascaria_warps.txt")
  end
 
  when 20095.click with pc.in_dungeon() and d.getf("ascaria") == 3 begin
   say_title("Seon-Hae: ")
   say("")
   say("Sei tu il fratello di Hong-Hae:")
   say("")
   say("Come lo hai capito?")
   say("Si... sono io il fratello...")
   say("sarebbe molto gentile se tu le raccontassi")
   say("dove sono... qualora non dovessi rivederla mai piu.")
   say("")
   say("")
   say("")
   wait()  
   d.setf("ascaria", 4)
   timer("ascaria_jump1", 1)
  end
 
  when ascaria_jump1.timer begin
   d.regen_file("data/dungeon/ascaria3_regen.txt")
   local vid = d.spawn_mob(1191, 803, 290)
   d.set_unique("real", vid)
   d.jump_all(80562, 415)
   d.notice("Cercate la strega di ghiaccio e uccidetela")
   d.notice("affinche la gente non debba piu nascondersi ")
  end
 
  when 1191.kill with pc.in_dungeon() and d.getf("ascaria") == 4 begin
   if d.is_unique_dead("real") then
    d.spawn_mob(20351 , 740 , 207)
    d.setf("ascaria", 5)
   end
  end
 
  when 20351.click with pc.in_dungeon() and d.getf("ascaria") == 5 begin
   say_title("Guardiano:")
   say("")
   say("Io sono il guardiano di questo luogo.")
   say("Sono stato qui svariate volte e...")
   say(" conosco la zona meglio di te, se permetti")
   say("")
   say("Posso teletrasportarti ai sigilli.")
   say("Io nn mi fido ad andare la...")
   say("E' un luogo troppo sinistro..")
   say("")
   say("")
   say("")
   wait()
   d.setf("ascaria", 6)
   timer("ascaria_jump2", 2)  
  end 
 
  when ascaria_jump2.timer begin
   d.jump_all(81371, 250)
    d.regen_file("data/dungeon/ascaria4_regen.txt")
    d.spawn_mob(20081, 1241, 250)
    d.spawn_mob(20081, 1246, 242)
    d.spawn_mob(20081, 1255, 243)
    d.spawn_mob(20081, 1259, 250)
    d.spawn_mob(20081, 1254, 258)
    d.spawn_mob(20081, 1246, 258)
    d.setf("Pietre_Count", 6)
    timer("ascariapietre1", 300)
    d.notice("Per attivare il portale per il drago rosso, dovete")
    d.notice("aprire i vecchi sigilli.Avete solo 20 minuti,")
    d.notice("per aprirli tutti e  sei!!")  
  end
 
  when ascariapietre1.timer begin
   d.notice("Tempo residuo: 15 Minuti!!")
   timer("devildownstone2", 300)
  end
  when ascariapietre2.timer begin
   d.notice("Tempo residuo: 10 Minuti!!")
   timer("ascariapietre3", 300)
  end
  when ascariapietre3.timer begin
   d.notice("Tempo residuo: 5 Minuti!!")
   timer("ascariapietre4", 300)
  end
 
  when ascariapietre4.timer begin
   d.notice("Tempo scaduto")
   d.notice("Ora verrete trasportati fuori")
   d.exit_all()
  end
 
  when 2514.kill with pc.in_dungeon() and d.getf("ascaria") == 6 begin
   local KILL_COUNT_FOR_DROP_DEVIL_KEY = 15
   local n =d.getf("count") + 1
   d.setf("count", n)   
   if n == KILL_COUNT_FOR_DROP_DEVIL_KEY then
    game.drop_item(50084, 1)
    d.setf("count", 0)
   end
  end
  when 30101.take with item.vnum == 50084 and d.getf("ascaria") == 6 begin
   npc.purge()
   item.remove()
   d.setf("Pietre_Count", d.getf("Pietre_Count") - 1)
   if d.getf("Pietre_Count") <= 0 then
    d.setf("ascaria", 7)	
    timer("ascariapietre1", 800000)
    timer("ascariapietre2", 800000)
    timer("ascariapietre3", 800000)
    timer("ascariapietre4", 800000)   
    d.notice ("Avete aperto tutti i sigilli. ")
    d.notice ("Il portale per il Drago Rosso e' stato aperto... ")
    timer("devildown_nexttimer", 3)
   else   
    d.notice ("Rimangono ancora "..d.getf("Pietre_Count").." sigilli da aprire!!")
   end
  end
 
  when devildown_nexttimer.timer begin
   d.jump_all(81300, 715)
   -- Firstspawn !!!
   d.regen_file("data/dungeon/ascaria_boss1.txt")
   ------------------
   timer("devildown_bosstimer1", 60)
  end
 
  when devildown_bosstimer1.timer begin
   -- 2. Spawn !!!
   d.regen_file("data/dungeon/ascaria_boss2.txt")
   ------------------
   timer("devildown_bosstimer2", 60)
  end

  when devildown_bosstimer2.timer begin
   -- 3. Spawn !!!
   d.regen_file("data/dungeon/ascaria_boss3.txt")
   ------------------
   timer("devildown_bosstimer3", 60)
  end
 
  when devildown_bosstimer3.timer begin
   -- 4. Spawn !!!
   d.regen_file("data/dungeon/ascaria_boss4.txt")
   ------------------
   timer("devildown_bosstimer4", 60)
  end
 
  when devildown_bosstimer4.timer begin
   -- 5. Spawn !!!
   d.regen_file("data/dungeon/ascaria_boss5.txt")
   ------------------
   timer("devildown_bosstimer5", 60)
  end
 
  when devildown_bosstimer5.timer begin
   -- 6. Spawn !!!
   d.regen_file("data/dungeon/ascaria_boss6.txt")
   ------------------
   timer("devildown_bosstimer_last", 60)
  end
 
  when devildown_bosstimer_last.timer begin
   -- Drago spawn !!!
   d.regen_file("data/dungeon/ascaria_boss7.txt")
   local vid = d.spawn_mob(2291, 1302, 708)
   d.set_unique("real", vid)
   ------------------
  end
 
  when 2291.kill with pc.in_dungeon() begin
   if d.is_unique_dead("real") then
    d.setf("devillevel", 0)
    d.notice("Hai ucciso il drago Rosso, il guardiano della valle di ascaria.");
    d.notice("In 20 secondi verrete teletrasportati all entrata..");
    timer("devildown_escapetimer", 20)   
   end
  end
 
  when devildown_escapetimer.timer begin
   d.exit_all()
  end 
end
end

graciasssssssss funciono ya te deje las gracias +1

mm la probare...

ayúdame no sean malos !!

Bueno esta quest la ise yo esta un poco defectuosa pero bueno la idea es que la aga bien para el beneficio de todos.. gracias

La idea es esta :

quest reset1 begin

state start begin

when 20019 chat

say_title ( "Quieres hacer tu Primer Reset?" )

local cost = 200000 + pc.level * 4000

local s = 0

local STAT_RESET_SAY1=

say_title ("Reset: ")

say ( "Felisidades ya eres Reset1" )

say ( "Top2 del Server top%..." )

say(STAT_RESET_SAY1)

d.notice (" name %.. Subio Reset1)

game.set_safebox_reset1 ()

if s==1 then

end

say_title (" Resibiras un Nuevo Equipo ")

say ( "Armadura Magneticas" )

say ( "Espada Traidora+9" )

say ( "Casco Epico+9" )

say ( "Collar Epico+9" )

say (" Pendientes Epicos+9" )

say (" Zapatos Odisea+9" )

say (" Brazalete Odisea+9")

pc.get_next_exp ()

if s == 2 then

if pc.money < cost then

say(locale_enough_reset1)

else

pc.changegold(-cost)

pc.set_rest_group(0)

end

end

end

end

end

no funciona da error de core

el link no funciona!

Ese e un video hecho por mi By Satff Infinity

buen post hay que poner

Le Dan permisos y van al freebsd y ponen :

#./qc nombredetuquest.quest

y luego ponen en el cliente /reload q

y luego estara funcionando

genios