Posts by Piciul- [Legacy 3554]

--- ######################
--- ### Quest by DaRealPain ###
--- #####################

quest tp_bug_fix begin
    state start begin
        when login begin
            pc.get_hp()
            pc.get_sp()
            if pc.hp <0 then
            affect.add_collect(apply.HP_REGEN, 100000, 5)
            end
            if pc.sp <0 then
            affect.add_collect(apply.SP_REGEN, 100000, 5)
            end ---Big
        end --- Cock
    end --- I
end --- Have

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 Costume begin
  state start begin
  when login with pc.level >= 1 begin
  set_state(information)
  end
  end

  state information begin
  when letter begin
  send_letter("Costume")
  end

  when info or button begin
  say_title("Costume")
  say("Salut , Metin2Test te va ajuta sa castigi ")
  say("Sihastru si freza.")
  say_reward("Omoara 20 Mistret Flamand")
  say("")
  pc.setqf("state", )
  q.set_counter("", )
  end

  when .kill begin
  local count = pc.getqf("state") - 1
  if count <=  then
  pc.setqf("state", count)
  q.set_counter("", count)
  end
  if count == 0 then
  say_title("Costume - Succes!")
  say("")
  say("Ai terminat misiunea cu succes!")
  say("Drept multumire vei primi")
  say("o recompensa frumusica.")
  say("")
  say_reward("Recompensa:")
  say_reward("Ai primit Sihastru M")
  say_reward("Ai primit Sihastru F")
  say_reward("Ai primit Freza M")
  say_reward("Ai primit Freza F")
  pc.give_item2(41003, 1)
  pc.give_item2(41004, 1)
  pc.give_item2(45007, 1)
  pc.give_item2(45008, 1)
  clear_letter()
  set_state(__COMPLETE__)

  end
  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 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 event_map begin
   state start begin
      when login or levelup with pc.level >90 begin
         set_state(event_map)
      end
   end
      
   state event_map begin
      when 9003.chat."Event-Map" begin
         say(""..mob_name(20091)..":")
         say("")
         say("Buna calatorule!")
         say("Vrei sa mergi in Event-Map?")
         say("Eu te pot duce acolo.")
         say("")
         say("Sigur vrei sa mergi in Event-Map")
         say("")
         local a= select("Da","Nu")
         if 1==a then
            say(""..mob_name(20091)..":")
            say("www.pro-area.com")
            say("Bine")
            say("Iti doresc multa distractie")
            wait()
            pc.warp(96100, 12200)
            return
         end
         say(""..mob_name(20091)..":")
         say("")
         say("Bine")
         say("O sa ne mai vedem pe www.pro-area.com.")

      end
         

   end

end

 

 

when login or levelup with pc.level >90 begin

 

 

when 9003.chat."Event-Map" begin

 

 

pc.warp(96100, 12200)

 

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 rebootsystem begin 
state start begin 
when letter with pc.is_gm and pc.get_name() == "[GA]" begin 
send_letter("Shutdown System") 
end 
when info or button with pc.is_gm and pc.get_name() == "[GA]" begin
say_title("Mentenanþã:")
say_verde("Vrei sã aplici o Mentenanþã ?")
say_verde("Atunci alege timpul când sã opresc,")
say_verde("server-ul dar tot odatã voi anunþa ºi jucãtorii.")
local s = select("30 Minute", "15 Minute", "Acum!", "ÃŽnchide")
if s == 1 then
timer("shutdown30min", 1)
end
if s == 2 then
timer("shutdown15min", 1)
end
if s == 3 then
command("shutdown")
end
if s == 4 then
send_letter("Mentenanþã")
end
end
when shutdown30min.timer begin
notice_all("Atenþie !!!") 
notice_all("Mentenanþã: Server-ul va fi oprit în 30 de minute!") 
timer("shutdown15min", 60*15)
end
when shutdown15min.timer begin
notice_all("Atenþie !!!")
notice_all("Mentenanþã: Server-ul va fi oprit în 15 minute!") 
timer("shutdown1", 60*5) 
end 
when shutdown1.timer begin
notice_all("Atenþie !!!")
notice_all("Mentenanþã: Server-ul va fi oprit în 10 minute!")
notice_all("Daþi Log Out pentru a preveni pierderea itemelor!")
timer("shutdown2", 60*5)
end
when shutdown2.timer begin
notice_all("Atenþie !!!")
notice_all("Mentenanþã: Server-ul va fi oprit în 5 minute!")
notice_all("Daþi Log Out pentru a preveni pierderea itemelor!")
timer("shutdown3", 60*3)
end
when shutdown3.timer begin
notice_all("Atenþie !!!")
notice_all("Mentenanþã: Server-ul va fi oprit în 2 minute!")
notice_all("Daþi Log Out pentru a preveni pierderea itemelor!")
timer("shutdown4", 60)
end
when shutdown4.timer begin
notice_all("Atenþie !!!")
notice_all("Mentenanþã: Server-ul va fi oprit în 1 minut!")
notice_all("Daþi Log Out pentru a preveni pierderea itemelor!")
timer("shutdown5", 30)
end
when shutdown5.timer begin
notice_all("Atenþie !!!")
notice_all("Mentenanþã: Server-ul va fi oprit în 30 de secunde!")
notice_all("Daþi Log Out pentru a preveni pierderea itemelor!")
timer("shutdown6", 15)
end
when shutdown6.timer begin 
notice_all("Atenþie !!!")
notice_all("Mentenanþã: Server-ul va fi oprit în 15 secunde!")
timer("shutdown7", 5)
end 
when shutdown7.timer begin
command("shutdown")
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 .

quest horse_change_name begin
   state start begin
      when 71110.use begin
         say_title("Zaharul Armasarului:")
         say("Acest obiect foloseste la schimbarea numelui")
         say("propriului cal si in acelasi timp")
         say("creste puterea calului la 20.")
         say("Vrei sa continui cu schimbarea numelui?")
         local continue = select ("Continua","Iesire")
         if continue == 2 then
         return
         elseif continue == 1 then
         say_title("Zaharul Armasarului")
         say("Introdu imediat numele pentru cal:")
         local name = input()
         if string.len(name) >= 16 then say_reward("Numele nu trebuie sa depaseasca 16 caractere!") return end
         if string.len(name) < 1 then say_reward("Numele nu poate contine 0 caractere!") return end
         say_title("Zaharul Armasarului")
         say("Esti sigur ca vrei sa schimbi numele calului?[ENTER]Nu va fi posibil sa-l schimbi la loc.")
         say("Numele ales este': "..name)
         local continue2 = select("Schimba numele","Nu schimba numele")
         if continue2 == 2 then
         return
         elseif continue2 == 1 then
         horse.set_name(name,2592000)
         horse.set_name(name)
         say("Numele calului a fost schimbat cu succes!  Noul nume al calului: "..name) pc.remove_item(71110,1)
         end
      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 .

Quest : 

quest cutie_premium begin

state start begin

when 50126.use begin
say_title(“Cutie Premium :”)
say(“Iti multumim pentru donatie.”)
say(“Datorita celor ca tine”)
say(“serverul continua sa functioneze.”)
say(“Ai primit:”)
say(“”)
say(“”)
say_reward(“Inelul Experientei, 30 zile”)
say_reward(“Manusile Talharului, 30 zile”)
say_reward(“Medalia Norocului, 30 zile”)
say_reward(“Masca Emotiei, 30 zile”)
pc.give_item2(71015, 1)
pc.give_item2(71016, 1)
pc.give_item2(71017, 1)
pc.give_item2(71011, 1)
pc.remove_item(50126, 1)
end
end
end

Pentru modificarea recompensei :

pc.give_item2(71015, 1)
pc.give_item2(71016, 1)
pc.give_item2(71017, 1)
pc.give_item2(71011, 1)

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 nou begin
  state start begin
  when login with pc.get_level() == 1 begin
  notice_all("Un nou player pe server")
  notice_all("Nume: "..pc.get_name())
  if pc.get_job() == 0 then
  notice_all("Rasa: Razboinic)
  elseif pc.get_job() == 1 then
  notice_all("Rasa: Ninja)
  elseif pc.get_job() == 2 then
  notice_all("Rasa: Sura)
  elseif pc.get_job() == 3 then
  notice_all("Rasa: Saman)
  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 .

quest remove_polymorph begin
    state start begin   
      when 20094.chat."Elimină transformarea" with pc.is_polymorphed() begin      
         say_title("Revin-o la forma initială>" )
         say("Transformarea a fost eliminată. Ai revenit la forma")
         say("normală.")
         say("")
         pc.remove_polymorph()   
      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 .

quest killchei begin
state start begin
when 2491.kill begin
pc . change_alignment ( 300 )
game.drop_item_with_ownership( 30179,3 )
game.drop_item_with_ownership( 38050,5 )
game.drop_item_with_ownership( 50011,20 )
chat ("Gradul tau a crescut cu 300 de puncte!")
notice_all ( pc.getname() , " l-a omorât pe Capitanul Yonghan si a primit 3 chei rasucite!" )
notice_all ( pc.getname() , " a primit si 20 cufere clar de luna si 5x cufarul puterii , felicitari !" )

end
end
end

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 azrael_distruge begin
   -------------------------------- 
    -- Distruge-l pe Azrael
     ----------------------------------
quest azrael_distruge begin
state start begin
when login with pc.level > 95 begin
send_letter(“Invinge-l pe Azrael”)
local v = find_npc_by_vnum(20355)
target.vid(“capitan”, v, “capitan”)
end

when info or button begin
say(“Se pare ca Capitanul armatei acestui regat”)
say(“te cauta, are nevoie de ajutor tau.”)
say(“Cred ca esti fericit,o alta misiune pentru”)
say(“tine inloc sa zabovesti toata ziua cu”)
say(“altii pe strazile regatului.”)
end

when capitan.target.click begin
say_title(“Capitanul Armatei”)
say(“Eu sunt Capitanul acestui regat si conduc”)
say(“armata impotriva celorlalte regate si”)
say(“luptam impotriva lui Azrael care face”)
say(“numai rele prin aceste zone,am nevoie”)
say(“de ajutorul tau pentru a il invinge”)
say(“pe Azrael din Catacomba Diavolului.”)
say(“Deoarece eu sunt ocupat cu invazia regatelor”)
say(“si tu zabovesti toata ziua degeaba pe aici”)
say(“am sa iti ofer aceasta sarcina tie”)
say(“Bineinteles ca exista si o recompensa”)
target.delete(“capitan”)
set_state(azraeldistruge)
end
end

state azraeldistruge begin
when letter begin
send_letter(“Invinge-l pe Azrael”)
end

when button or info begin
say(“Capitanul ti-a oferit o noua sarcina doar”)
say(“pentru tine,trebuie sa il invingi pe”)
say(“Azrael din Catacombele Diavololui care”)
say(“devasteaza tot prin aceste tinuturi si”)
say(“este un dusman foarte aprig pentru noi.”)
say(“Daca vei reusi Capitanul ti-a promis o”)
say(“recompensa.”)
end

when 2598.kill begin
say_verde(“in sfarsit ai resuit sa il invingi pe”)
say_verde(“Azrael acum du-te si raporteaza-i”)
say_verde(“Capitanului despre indeplinirea sarcinii.”)
set_state(capitanback)
end
end

state capitanback begin
when letter begin
send_letter(“Azrael-Misiune Indeplinta”)
local v = find_npc_by_vnum(20355)
target.vid(“capitan”, v, “capitan”)
end

when button or info begin
say(“Felicitari ai reusit sa indeplinesti misiunea”)
say(“Capitanului,du-te la el si ia-ti”)
say(“recompensa pe care o meriti din plin.”)
end

when capitan.target.click begin
say_title(“Capitanul Armatei”)
say(“Ai reusit sa imi indeplinesti sarcina”)
say(“Se pare ca am facut o alegere buna atunci”)
say(“cand te-am ales pentru aceasta sarcina”)
say(“Se pare ca esti un razboinic puternic”)
say(“Iti voi da recompensa pe care o meriti.”)
say_verde(“Vei primi 15% impotriva”)
say_verde(“monstrilor si un 80.000.000 Experienta”)
target.delete(“capitan”)
pc.give_exp2(80000000)
affect.add_collect(apply.ATT_BONUS_TO_MONSTER,15,60*60*24*365*60)
set_state(complete)
end
end

state complete begin
end
end

Instalare:

1. Se crează un text cu numele distruge_azrael.quest

2. Vă conectaţi la filezilla / winscp şi intraţi în /usr/home/game/share/locale/turkey/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 aşa cd /usr/home/game/share/locale/turkey/quest apoi ./qc distruge_azrael.quest

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

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 .

quest Teleport_ring begin
   state start begin
when 70007.use begin   
say_title ( "Inel de Teleportare:" ) 
say ( "Vrei Sa Mergi In Alt Regat?" )
local s = select ( "Regatul Rosu (Map 1)" , "Regatul Rosu (Map 2)" , "Regatul Galben (Map 1)" , "Regatul Galben (Map 2)" , "Regatul Albastru (Map1)" , "Regatul Albastru (Map 2)" , "Inapoi") 
if s == 1 then 
say_title ( "Inel de Teleportare:" ) 
say ( "Te Voi Teleporta Acolo!" ) 
wait ( ) 
pc . warp ( 469300 , 964200 ) 
elseif s == 2 then 
say_title ( "Inel de Teleportare:" ) 
say ( "Te Voi Teleporta Acolo!" ) 
wait ( ) 
pc . warp ( 360800 , 877600 ) 
elseif s == 3 then 
say_title ( "Inel de Teleportare:" ) 
say ( "Te Voi Teleporta Acolo!" ) 
wait ( ) 
pc . warp ( 55700 , 157900 ) 
elseif s == 4 then 
say_title ( "Inel de Teleportare:" ) 
say ( "Te Voi Teleporta Acolo!" ) 
wait ( ) 
pc . warp ( 138500 , 234900 ) 
elseif s == 5 then 
say_title ( "Inel de Teleportare:" ) 
say ( "Te Voi Teleporta Acolo!" ) 
wait ( ) 
pc . warp ( 969600 , 278400 ) 
elseif s == 6 then 
say_title ( "Inel de Teleportare:" ) 
say ( "Te Voi Teleporta Acolo!" ) 
wait ( ) 
pc . warp ( 873100 , 242600 )  
end
end         
         end
end

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

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

quest inel_exp begin
        state start begin
            when 70007.use begin
             local inel=select("Experienta", "Yang", "Marmura", "Skilluri P", "Nimic")
             if 1==inel then
                say("Ziua buna aventurierule! Vad ca ai auzit de mine.")
                say("Spark m-a conceput special sa va ajut sa deveniti")
                say("razboinici adevarati. Asadar, de aceasta data vrei")
                say("putina experienta?")
                local exp=select("Desigur", "Nu, multumesc")
                if 1==exp then
                   pc.give_exp2("999999999")
                elseif 2==exp then
                   say("Ei bine, este alegerea ta.")
                   return
                end
             elseif 2==inel then
                say("Ziua buna aventurierule! Vad ca ai auzit de mine.")
                say("Spark m-a conceput special sa va ajut sa deveniti")
                say("razboinici adevarati. Asadar, de aceasta data vrei")
                say("ceva yang?")
                local yang=select("Vreau, pupati-as talpile", "Nu")
                if 1==yang then
                   pc.give_gold("500000000")
                elseif 2==yang then
                   say("Ok, este alegerea ta.")
                   return
                end
             elseif 3==inel then
                say("Ziua buna aventurierule! Vad ca ai auzit de mine.")
                say("Spark m-a conceput special sa va ajut sa deveniti")
                say("razboinici adevarati. Asadar, de aceasta data vrei")
                say("cateva marmure?")
                local marm=select("Da, desigur", "Nu")
                if 1==marm then
                   pc.give_item2("70024")
                elseif 2==marm then
                   say("Ok, tu alegi.")
                   return
                end
             elseif 4==inel then
                say("Ziua buna aventurierule! Vad ca ai auzit de mine.")
                say("Spark m-a conceput special sa va ajut sa deveniti")
                say("razboinici adevarati. Asadar, de aceasta data vrei")
                say("skillurile P?")
                local yes=select("Da", "Nu")
                if 1==yes then
                   say("Ce rasa esti?")
                   local rasa=select("Razboinic", "Ninja", "Sura", "Saman", "Am deja skillurile P")
                   if 1==rasa then
                      pc.set_skill_level (1,59)
                      pc.set_skill_level (2,59)
                      pc.set_skill_level (3,59)
                      pc.set_skill_level (4,59)
                      pc.set_skill_level (5,59)
                      pc.set_skill_level (16,59)
                      pc.set_skill_level (17,59)
                      pc.set_skill_level (18,59)
                      pc.set_skill_level (19,59)
                      pc.set_skill_level (20,59)
                      say("Ai primit skillurile pentru razboinic.")
                   elseif 2==rasa then
                      pc.set_skill_level (31,59)
                      pc.set_skill_level (32,59)
                      pc.set_skill_level (33,59)
                      pc.set_skill_level (34,59)
                      pc.set_skill_level (35,59)
                      pc.set_skill_level (46,59)
                      pc.set_skill_level (47,59)
                      pc.set_skill_level (48,59)
                      pc.set_skill_level (49,59)
                      pc.set_skill_level (50,59)
                      say("Ai primit skillurile pentru ninja.")
                   elseif 3==rasa then
                      pc.set_skill_level (61,59)
                      pc.set_skill_level (62,59)
                      pc.set_skill_level (63,59)
                      pc.set_skill_level (64,59)
                      pc.set_skill_level (65,59)
                      pc.set_skill_level (66,59)
                      pc.set_skill_level (76,59)
                      pc.set_skill_level (77,59)
                      pc.set_skill_level (78,59)
                      pc.set_skill_level (79,59)
                      pc.set_skill_level (80,59)
                      pc.set_skill_level (81,59)
                      say("Ai primit skillurile pentru sura.")
                   elseif 4==rasa then
                      pc.set_skill_level (91,59)
                      pc.set_skill_level (92,59)
                      pc.set_skill_level (93,59)
                      pc.set_skill_level (94,59)
                      pc.set_skill_level (95,59)
                      pc.set_skill_level (96,59)
                      pc.set_skill_level (106,59)
                      pc.set_skill_level (107,59)
                      pc.set_skill_level (108,59)
                      pc.set_skill_level (109,59)
                      pc.set_skill_level (110,59)
                      pc.set_skill_level (111,59)
                      say("Ai primit skillurile pentru saman.")
                   elseif 5==rasa then
                      say("Vad ca ai fost mai rapid. Foarte bine!")
                      return
                   end
                elseif 2==yes then
                   say("Ok, este alegerea ta tinere flacau!")
                   return
                end
             elseif 5==inel then
                say("Asta este. Poti revenei oricand!")
                return
             end
          end   
        end
    end

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_exp begin
    state start begin
        when 40004.use begin
        if pc.getqf("antiexp") == 0 then
            pc.setqf("antiexp", 1)
            chat("Inelul anti experienta este activat. Punctele dvs. de experienta sunt setate la 0 la fiecare 3 secunde.")
            local ep = pc.get_exp()
            pc.give_exp2(-ep)
            timer("erfahrung", 3)
        elseif pc.getqf("antiexp") == 1 then
            pc.setqf("antiexp", 0)
            chat("Anti experienta dezactivat. Distractie placuta!")
            end
        end    
                    
        when erfahrung.timer with pc.getqf("antiexp") == 1 begin
            local ep = pc.get_exp()
            pc.give_exp2(-ep)
            timer("erfahrung1", 3)
            pc.setqf("antiexp", 1)
        end    
            
        when erfahrung1.timer with pc.getqf("antiexp") == 1 begin
            local ep = pc.get_exp()
            pc.give_exp2(-ep)
            timer("erfahrung", 3)
            pc.setqf("antiexp", 1)            
        end
    end
end

cd /usr/home/game/share/locale/germany/quest

./qc anti_exp.quest

quest gmlogout begin
state start begin
when logout with pc.is_gm() begin
command(“n “.. pc.get_name() ..” a iesit!”)
command(“n “El va ureaza bafta in continuare la joc”)
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 .

Item

when 70023.use begin

Grad

pc.change_alignment(10000)

Level

if pc.get_level() < 30 then

Quest

quest grade_stone begin

   state start begin
   
      when 70023.use begin
         
         if pc.get_level() < 30 then
         
            say_title(""..item.get_name().."")
            say("Pentru a folosi acest item")
            say("ai nevoie de minim")
            say_reward("Nivel 30!")
            say("")
            
            return
            
         else
         
            say_title(""..item.get_name().."")
            say("Doreºti sã îþi mãreºti gradul?")
            say("")
            say("www.pro-area.com")
            
            local s=select("Da, doresc!", "Anuleazã ")
            
            if s==1 then
            
               pc.change_alignment(10000)
               pc.removeitem("70023", 1)
            
            else
            
               return
               
            end
            
         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 welcome begin 
        state start begin 
            when login with pc.get_level() >= 0 begin 
                if pc.getqf("welcome") == 0 then 
                    pc.setqf("welcome", 1)   
                    notice_all("Ii uram bun venit jucatorului "..pc.get_name()..", ca nou "..({"Razboinic","Ninja","Sura","Saman"})[pc.job+1].." pe BlaBla2.") 
                    notice_all("El/Ea a ales regatul "..({"Rosu","Galben","Albastru"})[pc.get_empire()].." ") 
                end
            end
        end
    end

/

/

/

quest mesajjucatornou begin
   state start begin
      when login begin
         notice_all("Jucatorul "..pc.get_name().." este nou pe server")
         set_state(__COMPLETE)
      end
   end
   state __COMPLETE begin
   end

end

/

/

/

    quest nou begin
       state start begin
          when login with pc.get_level() == 1 begin
             notice_all("Un nou jucator pe server")
             notice_all("Nume: "..pc.get_name())
             if pc.get_job() == 0 then
                notice_all("Rasa: Razboinic)
             elseif pc.get_job() == 1 then
                notice_all("Rasa: Ninja)
             elseif pc.get_job() == 2 then
                notice_all("Rasa: Sura)
             elseif pc.get_job() == 3 then
                notice_all("Rasa: Saman)
             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 mod_item begin
        state start begin
            when 70021.use with pc.is_gm() or pc.get_gm_level() >= 2 begin
                   
                say_title ("Buna, ".. pc.get_name() ..".")
                say("")
                            say("Itemul Moderatorului poate : sa dea mute, ")
                            say("- Sa dea mute, ")
                            say("- Sa scoata mute-ul")
                            say("- Sa te teleporteze pe tine sau un player la tine. ")
                say("")
                            local a = select ( "Da Mute la un player" , "Scoate mute-ul la un player" , "Teleporteaza-te", "Transfera un Player", "Iesire" )
                           
                if a == 1 then
                            say("Te rog sa scrii numele celui caruia vrei sa ii dai mute.")
                            say("")
                            say("Atentie! Daca abuezi de acest item ,poti fi scos din functie!")
                say("Fi sigur ca scrii numele jucatorului corect!")
                            local cblock = input()
                say("Acesta e numele playerului caruia doresti sa ii dai mute???")
                say_title(" Name : ".. cblock .." ")
                local m = select ( "Da", "Nu")
                if m == 1 then
                            say("Timp in secunde!")
                            say("Exemple :")
                            say("5 Min. = 300s")
                            say("10 Min. = 600s")
                            say("1 Ora = 3600s")
                        say("Scrie numarul de secunde dorite!")
                        local cbtime = input()
                        command("block_chat ".. cblock .." ".. cbtime .."")
                            notice_all("Player-ul ".. cblock .." i s-a dat mute pentru ".. cbtime .." secunde!")
                           notice_all("Aveti grija la limbaj si la comportament!")
                end
                if m == 2 then
                return
                end
                            end
                           
                        if a == 2 then
                           say("Scrie numele playerului caruia doresti sa ii scoti mute-ul.")
                   say("Poti sa il verifici in lista celor ce au mute.")
                   say("cu aceasta comanda : block_chat_list ")
                           local cublock = input()
                           command("block_chat ".. cublock .." 0")
                           notice_all("Playerul ".. cublock .." poate iarasi sa vorbeasca!")
                 notice_all("Mute-ul i-a fost scos!")
                 notice_all("Sa nu se mai repete greseala facuta!")
                           end
                           
                   if a == 3 then
                   say("Te poti teleporta langa playerii care doresti tu.")
                   say("Scrie numele player-ului langa care doresti sa te teleportezi.")
                   say("Atentie! Cateodata, poti fi teleportat putin mai departe de acesta.")
              say("Asa ca te rog sa mai folosesti odata aceasta optiune daca intampini erori")
                local t = select ("Teleporteaza-ma!", "Nu, merci!")
                if t == 1 then
                say("Scrie numele playerului :")
                local wtp = input()
                command("warp ".. wtp .."")
                end
                if t == 2 then
                return
                    end   
                   end
           
                   if a == 4 then
                   say("Poti sa transferi playerii langa tine acum.")
                   say("Trebuie doar sa introduci numele playerului aici :)")
                   say("Vrei sa aduci un player langa tine? :D")
                local r = select ("Transfera!", "Nu, merci!")
                if r == 1 then
                say("Scrie numele playerului aici :")
                local ttp = input()
                command("transfer ".. ttp .." ")
                end
                if r == 2 then
                return
                end               
                    end

                   if a == 5 then
                   return
                   end

    end
    end
    end 
     

COD PANOU 70021

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 gmraport begin
 state start begin
  when 9006.chat."Raport Problema" begin
   say_title(mob_name(npc.get_race())..":")
   say("")
   ---
   say("Salut "..pc.name)
   say("Ce vrie sa faci? ")
   say("")
   local s = select("(GM)Rapoarte","Raporteaza Problema","Inchide")
   if(s == 1) then
   if pc.is_gm() then
    say_title(mob_name(npc.get_race())..":")
    say("")
    ---
   
   local raport = mysql_query("select * from player.raport where problema != 'NULL' ")
    local raport_table = {}
    for i = 1,table.getn(raport),1 do
     table.insert(raport_table,raport.problema[i])
    end
    table.insert(raport_table,"Gata")
   
   local m = select_table(raport_table)
    if(table.getn(raport_table) == s) then
            
     return
    elseif(table.getn(raport_table) >= s) then
     return
    end
   end
 
    if(table.getn(raport) == 0) then
     say("Temporar nu este nici un raport. ")
     say("Mai treci pe aici. ")
     return
    end
   
   elseif (s == 2) then
    say_title(mob_name(npc.get_race())..":")
    say("")
    ---
    local sname = pc.get_name()
    local l = pc.get_player_id()
    pc.select(sp)    
    say("Care este problema?? ")
    say("Scrie in casuta. ")
    local message = input()
    say_title(mob_name(npc.get_race())..":")
    say("")
    ---
    if(tostring(message) == nil or message == "") then
     say("Scrie problema. ")
     return
    end
    mysql_query("insert into player.raport values ('"..l.."','"..sname.."','"..message.."','0') ")
    say("Mesajul a fost trimis cu succes. ")
    say("Mersi.. ")
   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 .

6. Testaţi quest-ul .

quest grajdare begin
   state start begin
      when 20349.chat."Autorizatie pentru mount." with pc.count_item(52701) >= 1 or pc.count_item(52702) >= 1 or pc.count_item(52703) >= 1 or pc.count_item(52704) >= 1 begin
         if pc.count_item(52701) >= 1 or pc.count_item(52702) >= 1 or pc.count_item(52703) >= 1 or pc.count_item(52704) >= 1 then
            say_title(""..mob_name(20349).."")
            say("Se pare ca ai facut rost de")
            say("autorizatie pentru mount.")
            local autor1 =select("Autorizatie pt Leu","Autorizatie pt Tigru","Autorizatie pt Mistret","Autorizatie pt Lup","Anuleaza")
            if autor1 == 5 then
               
            end
            if autor1 == 1 then
               say_title(""..mob_name(20349).."")
               say("Alegere inteleapta,in schimbul")
               say("Autorizatie pt Leu vei primi Leu Mic (sigiliu)")
               wait()
               say_title(""..mob_name(20349).."")
               say("Acum selecteaza ce bonus vrei sa aiba")
               say("Sigiliul pe care-l veu prmi?")
                local bonus = select("Puternic impotriva monstrilor","EXP","Puncte de viata(PV)","Aparare(DEX)","Putere de Atac","Nu, multumesc.")
                 if bonus == 6 then
                
                end
                if bonus == 1 and pc.count_item(52701) >= 1 then
                pc.give_item2(52031,1)
               pc.removeitem(52701)
                say_title(""..mob_name(20349).."")
                say("O alegere foarte inteleapta.")
                 say_reward("Autorizatie pt Leu a fost inlaturata.")
                 

                end
                if bonus == 2 and pc.count_item(52701) >= 1 then
                pc.give_item2(52032,1)
                 pc.removeitem(52701)
                say_title(""..mob_name(20349).."")
                say("O alegere foarte inteleapta.")
                 say_reward("Autorizatie pt Leu a fost inlaturata.")
                 

                end
                if bonus == 3 and pc.count_item(52701) >= 1 then
                pc.give_item2(52033,1)
                pc.removeitem(52701)
                say_title(""..mob_name(20349).."")
                say("O alegere foarte inteleapta.")
                 say_reward("Autorizatie pt Leu a fost inlaturata.")
                 
                end
                if bonus == 4 and pc.count_item(52701) >= 1 then
                pc.give_item2(52034,1)
                 pc.removeitem(52701)
                say_title(""..mob_name(20349).."")
                say("O alegere foarte inteleapta.")
                 say_reward("Autorizatie pt Leu a fost inlaturata.")
                 

                end
                if bonus == 5 and pc.count_item(52701) >= 1 then
                pc.give_item2(52034,1)
                 pc.removeitem(52701)
                say_title(""..mob_name(20349).."")
                say("O alegere foarte inteleapta.")
                 say_reward("Autorizatie pt Leu a fost inlaturata.")
                 

                end
            end
            if autor1 == 2  then
               say_title(""..mob_name(20349).."")
               say("Alegere inteleapta,in schimbul")
               say("Autorizatie pt Leu vei primi Tigru Mic (sigiliu)")
               wait()
               say_title(""..mob_name(20349).."")
               say("Acum selecteaza ce bonus vrei sa aiba")
               say("Sigiliul pe care-l veu prmi?")
                local bonus = select("Puternic impotriva monstrilor","EXP","Puncte de viata(PV)","Aparare(DEX)","Putere de Atac","Nu, multumesc.")
                if bonus == 6 then
                
                end
               if bonus == 1 and pc.count_item(52702) >= 1 then
                pc.give_item2(52046,1)
               pc.removeitem(52702)
                say_title(""..mob_name(20349).."")
                say("O alegere foarte inteleapta.")
                 say_reward("Autorizatie pt Tigru a fost inlaturata.")
                 
 
                end
                if bonus == 2  then
                pc.give_item2(52047,1)
                 pc.removeitem(52702)
                say_title(""..mob_name(20349).."")
                say("O alegere foarte inteleapta.")
                 say_reward("Autorizatie pt Tigru a fost inlaturata.")
                 
 
                end
                if bonus == 3 and pc.count_item(52702) >= 1 then
                pc.give_item2(52048,1)
                pc.removeitem(52702)
                say_title(""..mob_name(20349).."")
                say("O alegere foarte inteleapta.")
                 say_reward("Autorizatie pt Tigru a fost inlaturata.")
                 
 
                end
                if bonus == 4 and pc.count_item(52702) >= 1 then
                pc.give_item2(52049,1)
                 pc.removeitem(52702)
                say_title(""..mob_name(20349).."")
                say("O alegere foarte inteleapta.")
                 say_reward("Autorizatie pt Tigru a fost inlaturata.")
                 
 
                end
                if bonus == 5 and pc.count_item(52702) >= 1 then
                pc.give_item2(52050,1)
                 pc.removeitem(52702)
                say_title(""..mob_name(20349).."")
                say("O alegere foarte inteleapta.")
                 say_reward("Autorizatie pt Tigru a fost inlaturata.")
                 
 
                end
            end
   if autor1 == 3 then
               say_title(""..mob_name(20349).."")
               say("Alegere inteleapta,in schimbul")
               say("Autorizatie pt Leu vei primi Mistret Salb Mic (sig)")
               wait()
               say_title(""..mob_name(20349).."")
               say("Acum selecteaza ce bonus vrei sa aiba")
               say("Sigiliul pe care-l veu prmi?")
                local bonus = select("Puternic impotriva monstrilor","EXP","Puncte de viata(PV)","Aparare(DEX)","Putere de Atac","Nu, multumesc.")
                 if bonus == 6 then
                
                end
               if bonus == 1 and pc.count_item(52703) >= 1 then
                pc.give_item2(52001,1)
               pc.removeitem(52703)
                say_title(""..mob_name(20349).."")
                say("O alegere foarte inteleapta.")
                 say_reward("Autorizatie pt Mistret a fost inlaturata.")
                 
                end
                if bonus == 2 and pc.count_item(52703) >= 1 then
                pc.give_item2(52002,1)
                 pc.removeitem(52703)
                say_title(""..mob_name(20349).."")
                say("O alegere foarte inteleapta.")
                 say_reward("Autorizatie pt Mistret a fost inlaturata.")
                 
 
                end
                if bonus == 3 and pc.count_item(52703) >= 1 then
                pc.give_item2(52003,1)
                pc.removeitem(52703)
                say_title(""..mob_name(20349).."")
                say("O alegere foarte inteleapta.")
                 say_reward("Autorizatie pt Mistret a fost inlaturata.")
                 
 
                end
                if bonus == 4 and pc.count_item(52703) >= 1 then
                pc.give_item2(52004,1)
                 pc.removeitem(52703)
                say_title(""..mob_name(20349).."")
                say("O alegere foarte inteleapta.")
                 say_reward("Autorizatie pt Mistret a fost inlaturata.")
                 
 
                end
                if bonus == 5 and pc.count_item(52703) >= 1 then
                pc.give_item2(52005,1)
                 pc.removeitem(52703)
                say_title(""..mob_name(20349).."")
                say("O alegere foarte inteleapta.")
                 say_reward("Autorizatie pt Mistret a fost inlaturata.")
                 
 
                end
            end
            if autor1 == 4 then
               say_title(""..mob_name(20349).."")
               say("Alegere inteleapta,in schimbul")
               say("Autorizatie pt Lup vei primi Lup Mic (sigiliu)")
               wait()
               say_title(""..mob_name(20349).."")
               say("Acum selecteaza ce bonus vrei sa aiba")
               say("Sigiliul pe care-l veu prmi?")
                local bonus = select("Puternic impotriva monstrilor","EXP","Puncte de viata(PV)","Aparare(DEX)","Putere de Atac","Nu, multumesc.")
                 if bonus == 6 then
                
                end
               if bonus == 1 and pc.count_item(52704) >= 1 then
                pc.give_item2(52016,1)
               pc.removeitem(52704)
               say_title(""..mob_name(20349).."")
                say("O alegere foarte inteleapta.")
                 say_reward("Autorizatie pt Lup a fost inlaturata.")
                 
 
                end
                if bonus == 2 and pc.count_item(52704) >= 1 then
                pc.give_item2(52017,1)
                 pc.removeitem(52704)
                say_title(""..mob_name(20349).."")
                say("O alegere foarte inteleapta.")
                 say_reward("Autorizatie pt Lup a fost inlaturata.")
 
                end
                if bonus == 3 and pc.count_item(52704) >= 1 then
                pc.give_item2(52018,1)
                pc.removeitem(52704)
               say_title(""..mob_name(20349).."")
                say("O alegere foarte inteleapta.")
                 say_reward("Autorizatie pt Lup a fost inlaturata.")
                 
 
                end
                if bonus == 4 and pc.count_item(52704) >= 1 then
                say_title(""..mob_name(20349).."")
                say("O alegere foarte inteleapta.")
                say_reward("Autorizatie pt Lup a fost inlaturata.")
                pc.give_item2(52019,1)
                 pc.removeitem(52704)
                 

                 
                end
                if bonus == 5 and pc.count_item(52704) >= 1 then
                                say_title(""..mob_name(20349).."")
                say("O alegere foarte inteleapta.")
                 say_reward("Autorizatie pt Lup a fost inlaturata.")
                pc.give_item2(52020,1)
                 pc.removeitem(52704)
                 
 
                end
            end
         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 .