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 .