[QUEST]Obtineti Piatra Insangerata

Deconectat
Avatar utilizator
Western
Nivel 3
Nivel 3
Mesaje: 339
Membru din: 30 Iul 2013
Localitate: Craiova
Status: Va urma ...
Mulțumiri acordate: 0
Mulțumiri primite: 14
Contact:

[QUEST]Obtineti Piatra Insangerata

Mesajde Western » 10 Iun 2014, 00:39

Cu acest quest veti obtine Piatra Insangerata .Este foarte bun pentru un PvM Hard. Questul l-am testat si merge foarte bine!

Cod: Selectaţi tot

quest bloodstone begin
state start begin
when login or levelup with pc.get_level()>=75 begin
if pc.count_item("80041")>=1 then
syschat("Nu poti folosi acest obiect.")
return
end
local v=find_npc_by_vnum(20091)
if 0==v then
else
target.vid("__TARGET__",v,"Seon-Pyeong")
set_state(run)
end
end
end
state run begin
when letter begin
send_letter("In grota")
end
when button or info begin
say_title("In grota:")
say("Probabil ai auzit de Grota exilului. Ca sa poti")
say("intra acolo ai nevoie de o piatra insangerata.")
say("Seon-Pyeong este singurul care stie cum sa produca")
say("aceste pietre. In acest moment chiar te cauta sa-ti")
say("dea o sarcina. Mergi la el, cu putin noroc poate")
say("poti obtine o piatra insangerata.")
say()
end
when __TARGET__.target.click or 20091.chat."In grota" begin
target.delete("__TARGET__")
if pc.get_level()<75 then
say_title("Seon-Pyeong:")
say("Tinere razboinic, aceasta misiune este mult prea")
say("periculoasa pentru tine. Revino dupa ce ai")
say("acumulat mai multa experienta.")
say()
say_reward("Trebuie sa ai cel putin nivelul 75.")
say()
return
end
say_title("Seon-Pyeong:")
say("Oh, cat ma bucur ca ai venit. Am o sarcina")
say("dificila pe care nu o pot indeplinii singur.")
say("Tu pari a fi omul potrivit care ma poate")
say("ajuta.")
say()
wait()
say_title("Seon-Pyeong:")
say("Ma ocup de ceva timp de misterele Grotei")
say("Exilului si producerea pietrelor insangerate.")
say("Dar ingredientele necesare nu sunt usor de")
say("obtinut. Trebuie sa strabat Tara de foc pentru")
say("a le gasi si aici am nevoie de ajutorul tau.")
say()
wait()
say_title("Seon-Pyeong:")
say("O sa-ti marchez pe harta punctele unde")
say("Baljit-Elvedin a ascuns Lacrimile fosilizate.")
say("Le aduni pe toate si mi le aduci, dar asta")
say("nu este tot... mai este nevoie si de patru")
say("Obsidiane, acestea le poti gasi doar la Flacari.")
say("Trebuie sa fii foarte atent!")
say()
wait()
say_title("Seon-Pyeong:")
say("Poftim harta cu punctele marcate unde poti")
say("gasii lacrimile fosilizate. Eu am sa te")
say("astept aici. Mult noroc!")
say()
if pc.count_item(30186)>=7 and pc.count_item(30188)>=4 then
say("In grota")
set_state(backtoseon)
return
end
set_state(doyyumhwaji)
end
end
state doyyumhwaji begin
when letter begin
if pc.count_item(30186)>=7 and pc.count_item(30188)>=4 then
set_state(backtoseon)
return
end
send_letter("In grota")
end
when letter with pc.get_map_index()==62 begin
--pc.remove_item(30186,anzahl1)
--pc.remove_item(30188,anzahl2)
local tear={
{1333,785},
{900,730},
{656,716},
{543,821},
{460,771},
{379,685},
{480,623},
{428,468},
{327,359},
{224,539},
{175,727},
{145,900},
{59,1000},
{176,1150},
{438,1112},
{646,1015},
{790,1183},
{1027,1043},
{1326,1028},
{1376,1198},
{1408,1369},
{899,1396},
{539,1338},
{574,361},
{846,455},
{1154,498},
{1222,440},
{1425,500},
{1283,347},
{1396,148},
{1100,159},
{787,1083},
{610,175},
{500,278},
{390,125},
}
local r=number(1,30)
target.pos("p1",tear[r][1],tear[r][2],62,"Lacrima fosilizata")
local r=r+1
target.pos("p2",tear[r][1],tear[r][2],62,"Lacrima fosilizata")
local r= r+1
target.pos("p3",tear[r][1],tear[r][2],62,"Lacrima fosilizata")
local r=r+1
target.pos("p4",tear[r][1],tear[r][2],62,"Lacrima fosilizata")
local r=r+1
target.pos("p5",tear[r][1],tear[r][2],62,"Lacrima fosilizata")
local r=r+1
target.pos("p6",tear[r][1],tear[r][2],62,"Lacrima fosilizata")
local r=r+1
target.pos("p7",tear[r][1],tear[r][2],62,"Lacrima fosilizata")
local r=r+1
end
when button or info begin
say_title("In grota:")
say("Mergi in Doyyumhwan si cauta cele patru bucati")
say("de obsidian si cele sapte lacrimi fosilizate.")
say("Seon-Pyeong ti-a marcat pe harta unde le poti gasi.")
say()
end
when p1.target.arrive begin
target.delete("p1")
say_title("In grota:")
say("Acesta este locul marcat pe harta.")
say("Se pare ca sub pamantul pietros este o")
say("lacrima fosilizata.")
say()
pc.give_item2(30186,1)
if pc.count_item(30186)>=7 then
say("Ai luat ultima bucata de lacrima fosilizata.")
if pc.count_item(30188)>=4 then
say("Intoarce-te la Seon-Pyeong.")
say()
set_state(backtoseon)
else
say("Mai ai de cautat cele patru bucati de")
say("obsidian.")
say()
end
end
end
when p2.target.arrive begin
target.delete("p2")
say_title("In grota:")
say("Acesta este locul marcat pe harta.")
say("Se pare ca sub pamantul pietros este o")
say("lacrima fosilizata.")
say()
pc.give_item2(30186,1)
if pc.count_item(30186)>=7 then
say("Ai luat ultima bucata de lacrima fosilizata.")
if pc.count_item(30188)>=4 then
say("Intoarce-te la Seon-Pyeong.")
say()
set_state(backtoseon)
else
say("Mai ai de cautat cele patru bucati de")
say("obsidian.")
say()
end
end
end
when p3.target.arrive begin
target.delete("p3")
say_title("In grota:")
say("Acesta este locul marcat pe harta.")
say("Se pare ca sub pamantul pietros este o")
say("lacrimă fosilizata.")
say()
pc.give_item2(30186,1)
if pc.count_item(30186)>=7 then
say("Ai luat ultima bucata de lacrima fosilizata.")
if pc.count_item(30188)>=4 then
say("Intoarce-te la Seon-Pyeong.")
say()
set_state(backtoseon)
else
say("Mai ai de cautat cele patru bucati de")
say("obsidian.")
say()
end
end
end
when p4.target.arrive begin
target.delete("p4")
say_title("In grota:")
say("Acesta este locul marcat pe harta.")
say("Se pare ca sub pamantul pietros este o")
say("lacrima fosilizata.")
say()
pc.give_item2(30186,1)
if pc.count_item(30186)>=7 then
say("Ai luat ultima bucata de lacrima fosilizata.")
if pc.count_item(30188)>=4 then
say("Intoarce-te la Seon-Pyeong.")
say()
set_state(backtoseon)
else
say("Mai ai de cautat cele patru bucati de")
say("obsidian.")
say()
end
end
end
when p5.target.arrive begin
target.delete("p5")
say_title("In grota:")
say("Acesta este locul marcat pe harta.")
say("Se pare ca sub pamantul pietros este o")
say("lacrima fosilizata.")
say()
pc.give_item2(30186,1)
if pc.count_item(30186)>=7 then
say("Ai luat ultima bucata de lacrima fosilizata.")
if pc.count_item(30188)>=4 then
say("Intoarce-te la Seon-Pyeong.")
say()
set_state(backtoseon)
else
say("Mai ai de cautat cele patru bucati de")
say("obsidian.")
say()
end
end
end
when p6.target.arrive begin
target.delete("p6")
say_title("In grota:")
say("Acesta este locul marcat pe harta.")
say("Se pare ca sub pamantul pietros este o")
say("lacrima fosilizata.")
say()
pc.give_item2(30186,1)
if pc.count_item(30186)>=7 then
say("Ai luat ultima bucata de lacrima fosilizata.")
if pc.count_item(30188)>=4 then
say("Intoarce-te la Seon-Pyeong.")
say()
set_state(backtoseon)
else
say("Mai ai de cautat cele patru bucati de")
say("obsidian.")
say()
end
end
end
when p7.target.arrive begin
target.delete("p7")
say_title("In grota:")
say("Acesta este locul marcat pe harta.")
say("Ai luat ultima bucata de lacrima fosilizata.")
pc.give_item2(30186,1)
if pc.count_item(30186)>=7 then
if pc.count_item(30188)>=4 then
say("Intoarce-te la Seon-Pyeong.")
say()
set_state(backtoseon)
else
say("Mai ai de cautat cele patru bucati de")
say("obsidian.")
say()
end
end
end
when 2204.kill begin
local n=number(1,50)
if n<=7 then
pc.give_item2(30188,1)
if pc.count_item(30188)>=4 then
say_title("In grota:")
say("Ai luat ultima bucata de obsidian.")
if pc.count_item(30186)>=7 then
say("Intoarce-te la Seon-Pyeong.")
say()
set_state(backtoseon)
else
say("Mai ai nevoie de cele sapte lacrimi fosilizate.")
say()
end
end
end
end
end
state backtoseon begin
when letter begin
send_letter("In grota")
local v=find_npc_by_vnum(20091)
if 0==v then
else
target.vid("__TARGETs__",v,"Lacrima fosilizata")
end
target.delete("__TARGET1__")
target.delete("__TARGET2__")
target.delete("__TARGET3__")
target.delete("__TARGET4__")
target.delete("__TARGET5__")
target.delete("__TARGET6__")
target.delete("__TARGET7__")
end
when button or info begin
say_title("In grota:")
say("Bun, ai gasit toate materialele necesare.")
say("Intoarce-te la Seon-Pyeong acum.")
say()
end
when 20091.chat."In grota" with pc.count_item(30186)>=7 and pc.count_item(30188)>=4 begin
target.delete("__TARGETs__")
pc.remove_item(30186,7)
pc.remove_item(30188,4)
say_title("Seon-Pyeong:")
say("Foarte bine, dar mai avem de facut un singur")
say("lucru in Padurea Rosie.")
say("Mergi cu acest vas magic acolo si cauta spiritul")
say("zeitei Bahar-Taraji. Aceasta iti va oferii")
say("sangele ei in schimbul lacrimilor fratelui sau.")
say("Un strop ar trebuii sa fie de ajuns sa-si faca")
say("efect.")
say()
set_state(gototrent02)
pc.give_item2(30189,1)
end
end
state gototrent02 begin
when letter begin
send_letter("In grota")
end
when letter begin
target.pos("__TARGETtr2__",650,633,68,"Bahar-Taraji")
end
when button or info begin
say_title("In grota:")
say("Cauta spiritul zeitei Bahar-Taraji in Lungsam,")
say("zona Padurii Rosii. Chiar daca nu poti vedea")
say("spiritul zeitei poti simti prezenta ei.")
say()
end
when __TARGETtr2__.target.arrive begin
target.delete("__TARGETtr2__")
say_title("Bahar-Taraji:")
say("O voce inceată iti zice:")
say("Ai adus lacrimile fratelui meu pentru a ma")
say("consola, ca recompensa iti dau sângele meu")
say("pentru a putea lupta in continuare.")
say()
pc.give_item2(30187, 1)
set_state(backtoseon2)
end
end
state backtoseon2 begin
when letter begin
send_letter("In grota")
target.vid("__TARGETseon2__",v,"Seon-Pyeong")

end
when button or info begin
say_title("In grota:")
say("Ai obtinut ultimul ingredient necesar. Intoarce-te")
say("la Seon-Pyeong.")
say()
end
when 20091.chat."In grota" begin
if pc.count_item(30189)>=1 then
pc.remove_item(30189,1)
end
if pc.count_item(30187)>=1 then
pc.remove_item(30187,1)
end
target.delete("__TARGETseon2__")
say_title("Seon-Pyeong:")
say("Perfect, acum avem toate ingredientele")
say("necesare. Voi transforma sangele zeitei")
say("Bahar-Taraji într-o piatra insangerata.")
say("Da-mi cateva minute[DELAY value;400]. . .[/DELAY]")
say()
wait()
say_title("Seon-Pyeong:")
say("Poftim, sa-ti foloseasca cu bine.")
say()
say_reward("Ai primit 10 Pietre insangerate.")
say()
wait()
say_title("Seon-Pyeong:")
say("Cu aceste pietre poti trece de Koe-Pung")
say("paznicul Grotei Exilului.")
say("Poti reveni la mine de fiecare data cand")
say("ai nevoie de o noua piatra insangerata.")
local serverid=game.get_event_flag("SERVERID")
if serverid==2 then
pc.give_item2(30191,10)
else
pc.give_item2(30191,10)
end
clear_letter()
pc.setqf("time",get_global_time())
set_state(__COMPLETE__)
end
end
state __COMPLETE__ begin
when 20091.chat."In grota" begin
local delay=86400
if get_global_time()-pc.getqf("time")<delay and pc.getqf("time")!=0 then
local remaining_time=delay-(get_global_time()-pc.getqf("time"))
say_title("Seon-Pyeong:")
say("Ai nevoie de inca o piatra insangerata? Koe-Pung")
say("nu este cel mai destept, dar trebuie sa astepti")
say("putin, in caz contrar ar putea observa ca nu faci")
say("parte din ordinul lui.")
say()
say_reward("Timp ramas: "..remaining_time.." secunde.")
say()
return
end
if pc.get_level()<75 then
say_title("Seon-Pyeong:")
say("Tinere razboinic, aceasta misiune este mult prea")
say("periculoasa pentru tine. Revino dupa ce ai")
say("acumulat mai multa experienta.")
say()
say_reward("Trebuie sa ai cel putin nivelul 75.")
return
end
target.delete("__TARGET__")
say_title("Seon-Pyeong:")
say("Mai ai nevoie de piatra insangerata pentru a")
say("trece de Garda Ordinului? In acest caz strange")
say("alte sapte lacrimi fosilizate si patru bucati de")
say("obsidian din Doyyumhwan.")
say()
set_state(doyyumhwaji)
end
end
end


Tutorial instalare quest:
1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu rasplata.quest .
2. Vă conectaţi la filezilla / winscp şi întrati în /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).
3. Îl puneţi acolo (să fie .quest) şi da-ţi permisiuni 777.
4. Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/quest apoi ./qc rasplata.quest
5. Intraţi pe server şi scrieţi /reload q .
6. Testaţi quest-ul .

Deconectat
Avatar utilizator
mihaiboss
Nivel 1
Nivel 1
Mesaje: 59
Membru din: 05 Aug 2014
Status: Sunt bine mersi ^.^
Server Metin2: Metin2AllStars
Regat: Shinsoo
Mulțumiri acordate: 0
Mulțumiri primite: 0

Re: [QUEST]Obtineti Piatra Insangerata

Mesajde mihaiboss » 01 Sep 2014, 03:06

e testata?

Conectat
Avatar utilizator
Unix97
Nivel 1
Nivel 1
Mesaje: 136
Membru din: 19 Oct 2014
Localitate: My world
Status: I'm happy..
Server Metin2: In Soon.
Regat: Shinsoo
Mulțumiri acordate: 1
Mulțumiri primite: 0

Re: [QUEST]Obtineti Piatra Insangerata

Mesajde Unix97 » 18 Dec 2014, 16:21

Mersi mult. Questul este testat de mine imi merge la perfectie :X Ai un like :ymhug:

Deconectat
Avatar utilizator
StrikeZone
Nivel 1
Nivel 1
Mesaje: 108
Membru din: 02 Sep 2014
Status: Sunt bine mersi ^.^
Server Metin2: Metin2 Apca
Mulțumiri acordate: 0
Mulțumiri primite: 0

Re: [QUEST]Obtineti Piatra Insangerata

Mesajde StrikeZone » 17 Apr 2015, 07:02

Segmentation fault (core dumped) de ce ?
Imagine

Deconectat
Avatar utilizator
h u m a n
Super Ad Mod
Super Ad Mod
Mesaje: 1884
Membru din: 03 Sep 2014
Localitate: Bravos
Reputație: Gabor
Nume anterior: IPS Sociopath
Status: NU!
Server Metin2: NU!
Mulțumiri acordate: 17
Mulțumiri primite: 14
Contact:

Re: [QUEST]Obtineti Piatra Insangerata

Mesajde h u m a n » 07 Iul 2015, 23:17

Mutat în quest-uri

[ Mesaj scris via Android ] Imagine
Imagine


Înapoi la “Quest-uri”

Cine este conectat

Utilizatori ce ce navighează pe acest forum: Niciun utilizator înregistrat și 5 vizitatori