Posts by Piciul- [Legacy 3554]

Noroc.

quest tanaka begin
    state start begin
      when 9003.chat."50 Tanaka Event" with pc.is_gm() begin
         say("Trebuie sa omori 50 de Tanaka")
         say("Jucatorului care ii cade urechea")
         say("Este si castigatorul!")
         say("Start Event?")
         local m=select("Da", "Nu")
         if 1==m then
            game.set_event_flag("50tanaka",1)
            command("m 5001 49")
            command("m 5004 1")
            say("Eventul a inceput !")
         elseif 2==b then
            say("Eventul nu va incepe!")
         end
      end
      
      when 5004.kill with game.get_event_flag("50tanaka")>0  begin       
         pc.give_item2(30202)
         say("Event oprit! by Metin2M5")
         command("n ".. pc.get_name() .." ia cazut urechea!")
         command("n ".. pc.get_name() .." castiga eventul!")
         command("n O Recompensa a fost pusa in inventarul lui ".. pc.get_name() .." ")
         game.set_event_flag("50tanaka",0)
         
         local r=number(1, 3)
         if 1==r then
            say_reward("Recompensa!")
            pc.give_item2(70005)
         elseif 2==r then
            say_reward("Recompensa!")
            pc.give_item2(80005)
         elseif 3==r then
            say_reward("Recompensa!")
            pc.give_item2(80004)
         end
      end
   end
end

Tutorial instalare quest:

1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu nume_quest.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 nume_quest.quest

5. Intraţi pe server şi scrieţi /reload q .

quest scroll_exit begin
state start begin
when login with pc.get_map_index() == 195 and pc.level < 75 begin
warp_to_village()
end
end
end

Tutorial instalare quest:

1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu nume_quest.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 nume_quest.quest

5. Intraţi pe server şi scrieţi /reload q .

quest minereaza begin
state start begin
when 20047.click or
20048.click or
20049.click or
20050.click or
20051.click or
20052.click or
20053.click or
20054.click or
20055.click or
20056.click or
20057.click or
20058.click or
20059.click begin

if pc.is_mount() != true then
pc.mining()
end
end
end
end

Tutorial instalare quest:

1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu nume_quest.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 nume_quest.quest

5. Intraţi pe server şi scrieţi /reload q .

quest anti_afk begin
state start begin
function scrivi(var)
chat(locale.ROSSO_COLOR.. var)
end
when 50200.use begin
pc.setqf("lock", 0)
end
when login begin
if pc.getqf("sonouscito") == 1 then
anti_afk.scrivi("Ai fost deconectat pentru ca ai fost absent mai mult de 30 minute!")
pc.setqf("sonouscito", 0)
end
pc.setqf("adessox", pc.get_local_x())
pc.setqf("adessoy", pc.get_local_y())
timer("timee", 60*30)
end
when timee.timer with pc.get_map_index() ~= 1 and pc.get_map_index() ~= 3 and pc.get_map_index() ~= 21 and pc.get_map_index() ~= 41 and pc.get_map_index() ~= 43 and pc.get_map_index() ~= 78 and pc.get_map_index() ~= 78 and pc.get_map_index() ~= 113 and pc.get_map_index() ~= 193 begin
if pc.getqf("adessox") == pc.get_local_x() and pc.getqf("adessoy") == pc.get_local_y() and pc.getqf("lock") == 1 then
command("logout")
say("Utilizator absent de 30 de minute, deconectare automata.")
pc.setqf("sonouscito", 1)
say(delay(10000) .. " .")
return
else
pc.setqf("adessox", pc.get_local_x())
pc.setqf("adessoy", pc.get_local_y())
timer("timee", 60*30)   
end
end
end"
SAU

Instalare:

1. Creezi un fişier text cu numele nume_quest.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 nume_quest.quest

5. Intraţi pe server şi scrieţi /reload q .

quest neovipplayer begin
state start begin
when 70025.use begin 

say_title("Meniu Iteme")
say("")
say("Buna, "..pc.get_name().."!")
say("Bine ai venit.")
say("Speram ca te simti bine pe serverul nostru...")
say("Acceseaza unul dintre optiunile de mai jos.")
say("")

local w = select("Obiecte", "Yang", "Teleportare Regate!", "Anuleaza")

if w == 1 then
local e = select("Platosa de smarald+9-War", "Costum de smarald+9-Ninja", "Armura de smarald+9-Sura", "Vasmant de smarald+9-Saman", "Otravita+9-War,Ninja,Sura", "Batalie+9-War,Ninja,Sura", "Arma dinte+9-Sura", "Clopot Orhidee+9-Saman", "Costum Sihastru (B)", "Frizura Badana (B)", "Costum Sihastru (F)", "Frizura Badana (F)", "Platosa de Rubin+9-War", "Costum de Rubin+9-Ninja", "Armura de Rubin+9-Sura", "Vasmant de Rubin+9","Anuleaza")

if e == 1 then
pc.give_item2(42009, 1) 
elseif e == 2 then
pc.give_item2(44009, 1) 
elseif e == 3 then
pc.give_item2(46009, 1) 
elseif e == 4 then
pc.give_item2(48009, 1) 
elseif e == 5 then
pc.give_item2(189, 1) 
elseif e == 6 then
pc.give_item2(149, 1) 
elseif e == 7 then
pc.give_item2(159, 1) 
elseif e == 8 then
pc.give_item2(5129, 1) 
elseif e == 9 then
pc.give_item2(41003, 1) 
elseif e == 10 then
pc.give_item2(45003, 1) 
elseif e == 11 then
pc.give_item2(41004, 1) 
elseif e == 12 then
pc.give_item2(45004, 1) 
elseif e == 13 then
pc.give_item2(42039, 1) 
elseif e == 14 then
pc.give_item2(44039, 1) 
elseif e == 15 then
pc.give_item2(46039, 1) 
elseif e == 16 then
pc.give_item2(48039, 1) 
elseif e == 17 then
return
else 
return
end

elseif w == 2 then
local tele = select("100 mil. yang", "250 mil. yang", "500 mil. yang", "750 mil. yang", "1 mld. yang", "1.5 mld. yang", "1 mld. yang", "Anuleaza") 

if tele == 1 then
pc.change_money(10000000)
elseif tele == 2 then
pc.change_money(25000000)
elseif tele == 3 then
pc.change_money(50000000)
elseif tele == 4 then
pc.change_money(75000000)
elseif tele == 5 then
pc.change_money(1000000000)
elseif tele == 6 then
pc.change_money(150000000)
elseif tele == 7 then
pc.change_money(5000000000)
elseif tele == 8 then
return

else 
return
end

elseif w == 3 then
local tele2 = select("Regat-ul Rosu ", "Regat-ul Galben", "Regat-ul Albastru", "Anuleaza")

if tele2 == 1 then
syschat("Inchide ochi...vei fi transportat in cateva secunde.")
pc.warp(469300, 964200)
elseif tele2 == 2 then
syschat("Inchide ochi...vei fi transportat in cateva secunde.")
pc.warp(969600, 278400)
elseif tele2 == 3 then
syschat("Inchide ochi...vei fi transportat in cateva secunde.")
pc.warp(63200, 166100)
elseif tele == 4 then
return

else
return
end
elseif w == 4 then

return
else
return

end


end 
end 
end

Tutorial instalare quest:

1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu dueluri.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 dueluri.quest

5. Intraţi pe server şi scrieţi /reload q .

quest feuer_und_eis begin
state start begin
when login or levelup with pc.get_level()>= 75 begin
set_state(info)
end
end
state info begin
when letter begin
send_letter("Masca de lemn")
local v = find_npc_by_vnum(20023)
if v != 0 then
target.vid("target1", v, "Soon")
end
end
when button or info begin
say_title("Masca de lemn")
say("Du-te la Mr.Soon si cere-i ajutorul.")
say("Te va indruma intr-o aventura.")
end
when target1.target.click or 20023.chat."Masca de lemn" begin
target.delete("target1")
say_title("Soon")
say("Am gasit o masca de lemn sumbru")
say("printre cartile mele. Pare sa fie")
say("o masca pentru ceremoni satanice.")
say("Ai grija !")
say("Legenda spune ca masca apartinea")
say("Vrajitoarei de Gheata din Atlantida.")
say("Ma duc sa aduc masca, asteapta putin.")
wait()
if pc.count_item(30183)>1 then
pc.remove_item(30183, pc.count_item(30183))
end
if pc.count_item(30184)>1 then
pc.remove_item(30184, pc.count_item(30184))
end
if pc.count_item(30185)>1 then
pc.remove_item(30185, pc.count_item(30185))
end
if pc.count_item(30146)>1 then
pc.remove_item(30146, pc.count_item(30146))
end
say_title("Soon")
say("Am revenit. Am incredere in tine")
say("aventurierule ! Legenda spune ca")
say("masca trebuie sa fie arsa in flacarile")
say("Spiritului focului.")
say("Ma vei ajuta cu asta, nu?")
say_reward("Omoara 150 Spiritul focului.")
pc.give_item2(30183, 1)
clear_letter()
set_state(flammen)
end
end
state flammen begin
when letter begin
send_letter("Masca de lemn")
end
when button or info begin
say_title("Masca de lemn")
say("Ucide 150 spiritul focului")
say("pentru a arde masca.")
end
when 2202.kill begin
local pct = number(1,150)
if pct==150 then
clear_letter()
pc.remove_item(30183, 1)
pc.give_item2(30184, 1)
chat("Hey, ai reusit! ")
set_state(to_soon)
end
end
end
state to_soon begin
when letter begin
send_letter("Masca de lemn")
local v = find_npc_by_vnum(20023)
if v != 0 then
target.vid("target2", v, "Soon")
end
end
when button or info begin
say_title("Masca de lemn")
say("Masca este arsa acum.")
say("Intoarce-te la Mr.Soon si vorbeste cu el.")
end
when target2.target.click or 20023.chat."Masca de lemn" begin
target.delete("target2")
say_title("Soon")
say("Sa ars? Lasa-ma sa vad...")
say("Bine lucrat aventurierule dar masca")
say("este inca fierbinte. Cel mai bine este sa")
say("o racim imediat. ")
say("Cauta Yeti si obtine de la el bulgare")
say("de gheata apoi intoarce-te la mine.")
clear_letter()
set_state(yeti)
end
end
state yeti begin
when letter begin
send_letter("Fos si Gheata")
end
when button or info begin
say_title("Fos si Gheata")
say("Obtine 10 bulgari de gheata")
say("Din muntele Sohan.")
end
when 1106.kill begin
local pct = number(1,10)
if pct==10 then
pc.give_item2(30146, 1)
pc.setqf("eis", pc.getqf("eis")+1)
end
if pc.getqf("eis")==10 then
clear_letter()
set_state(to_soon2)
end
end
end
state to_soon2 begin
when letter begin
send_letter("Fos si Gheata")
local v = find_npc_by_vnum(20023)
if v != 0 then
target.vid("target3", v, "Soon")
end
end
when button or info begin
say_title("Fos si Gheata")
say("Ai gasit bulgari, intoarce-te rapid la ")
say("Mr.Soon si pune gheata pe masca. ")
end
when target3.target.click or 20023.chat."Fos si Gheata" begin
target.delete("target3")
say_title("Soon")
say("Ai reusit din nou esti number#1 !")
say("Da-mi toate lucrurile ca sa le amestec.")
if pc.count_item(30146)<10 or pc.count_item(30184)<1 then
say("")
say("Nu ai toate ingredientele !")
say("Continua cautarea. ")
return
else
pc.remove_item(30146, 10)
pc.remove_item(30184, 1)
pc.give_item2(30190, 10)
pc.give_item2(50033, 1)
pc.give_item2(50124, 1)
end
say("Ai reusit. Se vede ceva scris pe masca")
say("Dar nu-l pot intelege.. poate reusesti tu")
say(""Avelo Bahtalo"")
say("Ai inteles? Spune-mi si mie !")
clear_letter()
set_state(complete)
end
end
state complete begin
end
end

Tutorial instalare quest:

1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu nume_quest.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 nume_quest.quest

5. Intraţi pe server şi scrieţi /reload q .

quest teleporteritem begin
state start begin
when 20090.chat."Mapa Bosilor" begin
say_title("Mapa cu metine si Bosi")
say("Aici este foarte periculos")
say("Si Esti in primejdie")
say("Asa ca nu te pot lasa sa intri pe gratis")
say("Iti trebuie Bucata De Piatra Pretioasa")
say("")

if pc.count_item(30219) >= 1 then
local s = select("Da", "Nu")
if s==1 then
pc.removeitem("30219", 1)

say_title("Te voi teleporta")
say("Ai grija de tine")
say("Si")
say("aduna cat mai multe iteme")
say("!")
say("")
pc.warp(1269900,57000)
else
return
end
else
say_title("Nu ai itemul necesar")
say("Nu te pot lasa sa treci")
say("Intoarce-te cand il vei avea")

say_item_vnum(30219)
end
end
end
end

 

 

when 20090 - aici modificati la ce NPC vreti sa instalati questul.

if pc.count_item(30219) - aici schimbati ce ITEM doriti sa va ceara cand va teleporteaza

pc.warp(1269900,57000) - aici puneti coordonatele mapei unde doriti sa va teleporteze

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 .

quest gm_logout begin
state start begin
when logout with pc.is_gm() begin
command("n ".. pc.get_name() .." s-a deconectat")
command("n "Vă urez un joc plăcut și baftă la crescut! ")
end
end
end

Tutorial instalare quest:

1. Intraţi în file zila scrieţi "/usr/home/game/share/locale/germany/quest (depinde ce server aveţi)."

2. Îl puneţi acolo (să fie. Quest) şi dă-ţi click dreapta pe el apoi selectaţi Permisiunile Filelor apoi scrieţi la valoare numerică:777.

3. Te loghezi în FreeBSD/putty şi scrii în felul următor: cd/usr/home/game/share/locale/germany/quest apoi ./qc gm_logout.quest (sau cum lati redenumit dvs!)

4. Intraţi pe server şi scrieţi /reload q!

quest obtain_key begin
state start begin
when login with get_global_time() – pc.getqf(“last_mission”) >= 24*60*60 begin
send_letter(“Armatele”)
local v = find_npc_by_vnum(20355)
target.vid(“captain”, v, “Capitan”)
end

when info or button begin
–if pc.getqf(“action”) == 0
say_title(“Atentie, “.. pc.get_name() ..”.Este nevoie de tine!”)
say(“”)
say(“Capitanul are nevoie de tine!”)
say(“Armatele noastre sunt pregatite sa treaca”)
say(“in imparatia raului si au nevoie de cristale”)
say(“pentru a activa portalul dintre lumea noastra”)
say(“si lumea de dincolo.”)
say_item_vnum(“90003″)
say(“Ia-ti arma si mergi la el!”)
–end
end

when captain.target.click begin
say_title(“Capitanul:”)
say(“Iti multimesc pentru ca ai venit atat de repede.”)
say(“Armatele noastre sunt pregatite sa treaca granita”)
say(“dar ne lipsesc cristalele pentru a activa portalul.”)
say(“Te rugam sa ne ajuti sa le obtinem.”)
say_reward(“Ca recompensa vei primi 3 bilete de trecere”)
say_reward(“spre Valea ******.”)
wait()
say_title(“Capitanul:”)
say(“Pentru a obtine aceste cristale am nevoie de zece”)
say(“pietre ale sufletelor”)
say_item_vnum(30221)
say(“Le poti obtine omorand demoni din Turnul Diavolilor”)
say(“Obtine aceste pietre si du-i-le lui Uriel”)
target.delete(“captain”)
set_state(killing)
end
end

state killing begin

when letter begin
send_letter(“Armatele”)
end

when button or info begin
say_title(“Armatele”)
say(“Omoara demoni din Turnul Diavolului”)
say(“pentru a obtine pietrele sufletelor”)
say(“necesare crearii cristalelor”)
say_item_vnum(30221)
end

when 1001.kill or 1002.kill or 1003.kill or 1004.kill begin
local n = number(0,30)
if n>27 then
if pc.count_item(30221) == 9 then
pc.give_item2(30221, 1)
say_title(“Armatele”)
say(“Ai obtinut toate pietrele necesare.”)
say(“Du-le lui Uriel pentru a le transforma in cristale.”)
set_state(backuriel)
else
pc.give_item2(30221, 1)
end
end
end
end

state backuriel begin
when letter begin
send_letter(“Armatele”)
local v = find_npc_by_vnum(20011)
target.vid(“uriel”, v, “Uriel”)
end

when button or info begin
say_title(“Armatele”)
say(“Ai obtinut toate pietrele necesare.”)
say(“Du-le lui Uriel pentru a le transforma in cristale.”)
end

when uriel.target.click begin
if pc.count_item(30221) <10 then
say(“Am nevoie de zece pietre pentru a crea cristale!”)
else
say_title(“Uriel:”)
say(“Iti multumesc ca ai adus pietrele.”)
say(“Te rog sa ma astepti putin, ca sa iti dau cristalele”)
pc.remove_item(30221, 10)
wait()
say_title(“Uriel:”)
say(“Uite aici cristalul pentru gardian.”)
say(“Du-il repede, cat armatele noastre sunt”)
say(“inca in avantaj.”)
target.delete(“uriel”)
pc.give_item2(90003, 1)
set_state(captback)
end
end
end
state captback begin
when letter begin
send_letter(“Armatele”)
local v = find_npc_by_vnum(20355)
target.vid(“captain”, v, “Capitan”)
end

when button or info begin
say_title(“Armatele”)
say(“Dute si dui captitanului cristalul cat mai repede.”)
end

when captain.target.click begin
if pc.count_item(90003) > 0 then
say_title(“Capitan:”)
say(“Iti multumesc pentru ca mi-ai adus acest cristal.”)
say(“Acum vom fi mai aproape de a distruge raul.”)
say_reward(“Poftim ce ti-am promis.”)
say_reward(“Ca rasplata iti dau si un inel de EXP.”)
pc.setqf(“last_mission”, get_global_time())
pc.remove_item(90003, 1)
pc.give_item(71095, 3)
pc.give_item2(70005, 1)
target.delete(“captain”)
set_state(start)
clear_letter()
else
say_title(“Capitan:”)
say(“Adu-mi cristalul cat mai repede!”)
end
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 .