tot este tradus in romana de mine
Asa acum questuri ;dd am 100000 de questuri dar va voi posta decat 5
event drop . quest
Cod: Selectaţi tot
[spoiler]quest item_drop begin
state start begin
when 20020.chat."Item_Drop" with pc.is_gm() begin
if game.get_event_flag("item_open") == 0 then
say("Hello "..pc.get_name().." ")
say("Metin2Freakz iti prezinta:")
say("NPC GM pentru event drop item")
say("Aici poti activa dropul unui item")
say("vrei sa faci asta?")
if select("da","nu") == 2 then return end
say("Introdu codul itemului care doresti sa fie dropat!")
kill_item = tonumber(input()) or 0
if kill_item == 0 then
say("Datele au fost introduse gresit. Incercati din nou!")
return
end
say("Care vrei sa fie sansa dropului?")
kill_prozent = tonumber(input()) or 0
if kill_prozent == 0 then
say("Datele au fost introduse gresit. Incercati din nou!")
return
end
say("Cat timp vrei sa se dropeze? Minute!")
zeit = tonumber(input()) or 0
if zeit == 0 then
say("Datele au fost introduse gresit. Incercati din nou!")
return
end
game.set_event_flag("item_time", get_time()+zeit*60)
game.set_event_flag("item_open", 1)
notice_all("Item drop activat")
notice_all("Itemul "..item_name(kill_item).." este dropabil la toti monstri din joc.")
notice_all("Pentru "..zeit.." Minute")
else
say("Eventul item drop este deja activ")
say("Opriti eventul?")
if select("Da", "NU")==2 then return end
game.set_event_flag("item_open", 0)
kill_prozent, kill_item = nil, nil
end
end
when kill with game.get_event_flag("item_open") == 1 and not npc.is_pc() begin
if kill_prozent == nil then game.set_event_flag("item_open", 0) return end
if game.get_event_flag("item_time") < get_time() then
notice_all("Eventul dropului de iteme a luat sfarsit")
notice_all("Multumim farmerilor ce sunt alatori de Metin2Freakz la evenimente!")
game.set_event_flag("item_open", 0)
kill_prozent, kill_item = nil, nil
return
end
local s=number(1, 101-kill_prozent)
if s==1 then
game.drop_item_with_ownership(kill_item, 1)
end
end
when login with game.get_event_flag("item_open") == 1 begin
notice("Event item drop este activat")
notice("Itemul "..item_name(kill_item).." este dropabil la toti monstri din joc.")
end
end
end[/spoiler]banca.quest
Cod: Selectaţi tot
[spoiler]quest banker begin
state start begin
when 20041.chat."Banca" pc.is_gm() begin banker.bankdialog()
end
function bankdialog()
say_title("Banca:")
say("Va ofer posibilitatea de a va ")
say("depozita yang-ul fara dobânda..")
say("Dar puteţi adauga în cont maxim")
say("4.611.686.016.279.904.256 yang!")
say("")
local action = select("Adauga în cont", "Extrage din cont", "Închide")
if action == 1
then say_title("Banca:")
if pc.gold < 1 then
say("Nu aveţi niciun yang.")
say("")
return
end
say("Deţii "..pc.gold.." Yang.")
say("Cât de mult vrei sa adaugi în cont?")
local yang = tonumber(input())
if yang < 0 then
return
end
if yang > pc.gold then yang = pc.gold end pc.changegold(-yang)
local saved_rest = tonumber(pc.getqf("saved_rest"))
local saved_signed_longs = tonumber(pc.getqf("saved_signed_longs"))
if
saved_rest + yang > 2147483647 then pc.setqf("saved_signed_longs", saved_signed_longs + 1)
pc.setqf("saved_rest", saved_rest + yang - 2147483647)
else
pc.setqf("saved_rest", saved_rest + yang)
end
say_title("Banca:")
say("Ai adaugat în cont "..yang.." yang.")
say("")
return
elseif action == 2 then
local saved_rest = tonumber(pc.getqf("saved_rest"))
local saved_signed_longs = tonumber(pc.getqf("saved_signed_longs"))
local saved_yang = saved_signed_longs*2147483647+saved_rest
say_title("Banca:")
if saved_yang < 1 then say("Nu poþi adauga aceasta suma în cont!")
say("")
return
end
say("Va puteţi extrage yangul din cont")
say("oricând vreţi şi aveţi posibilitatea.")
say("")
say_reward("Soldul contului: "..saved_yang.." Yang")
say("")
say("Cât yang doriţi sa extrageţi?")
local yang = tonumber(input())
if yang < 0 then
return
end
if yang > saved_yang then yang = saved_yang end if pc.gold + yang > 1899999999 then
yang = 1899999999 - pc.gold
end
if yang > saved_yang then yang = saved_yang
end
if saved_rest - yang < 0 then pc.setqf("saved_signed_longs", saved_signed_longs - 1)
pc.setqf("saved_rest", 2147483647 - yang + saved_rest)
else
pc.setqf("saved_rest", saved_rest - yang)
end
pc.changegold(yang)
say_title("Banca:")
say("Aţi extras din cont "..yang.." yang.")
say("Multumim!")
say("")
end
end
end
end[/spoiler]Cod: Selectaţi tot
[spoiler]quest loin begin
state start begin
when 71126.use begin
say_title("Sigililul Lupului de Lupta")
say("")
say("Puteti folosi acest element pentru 30 minute")
say("")
say_reward("Dupa folosire acesta dispare!")
say("")
say_reward("Vrei sa calaresti")
local main_set = select("Da","Nu")
if main_set == 2 then
return
end
chat("Puteti folosi acest element pentru 30 minute!")
horse.ride()
pc.mount(20116, 1800)
pc.removeitem(71126, 1)
end
end
end[/spoiler]v3 quest
Cod: Selectaţi tot
[spoiler]--------------------------------------------------
-- Grotte der Verbannung -- Entry Quest ----30190---
-- @ Koe-Pung eintritt -- ID 20093 -- Blutstein --
----------------------------------------------------
quest gdv_entry begin
state start begin
when 20092.chat."Intrare!" begin
say_title("Hwa-Hee")
say("")
say("Hey opreste-te ma grabitule")
say("Ca sa poti trece acest portal trebuie sa")
say("Imi arati o Piatra Insangerata,")
say("Ai asa ceva?")
if pc.count_item(30190) >= 1 and pc.level >= 75 then
local s=select("Am Piatra", "Nu am Piatra")
if s==1 then
pc.remove_item(30190,1)
pc.warp(900 , 1207800)
else
return
end
else
say_reward("Poti intra aici doar cand vei avea minim Level 75!")
end
end
end
end[/spoiler]
report.quest
Cod: Selectaţi tot
[spoiler]quest reporthack begin
state start begin
when login begin
set_state(report)
end
end
state report begin
when letter begin
send_letter("Raportează player-ul")
end
when button or info begin
say_title("Raportează player-ul")
say_reward("ANUNŢ: Dacă abuzaţi de acest sistem puteţi primi ban!")
say("Cu acest sistem puteţi semnala un hacker Staffului.")
say("Puteţi raporta playeri pentru:")
say("Damage hack")
say("Trade bug")
say("Injurături")
say("GM impertinenţi")
say("Player impertinenţi")
say("")
say_reward("Eşti sigur că vrei să raportezi pe cineva?")
local a = select("Da","Nu")
if a == 2 then
return
end
say_title("Raportează player-ul")
say_reward("ANUNŢ: Dacă abuzaţi de acest sistem puteţi primi ban!")
say("Care e numele playerului?")
say("")
say_reward("Încearcă să scrii numele corect.")
local name = input()
if name == "" then
return
end
local u_vid = find_pc_by_name(name)
if u_vid == 0 then
say_title("Raportează player-ul")
say_reward("ANUNŢ: Dacă abuzaţi de acest sistem puteţi primi ban!")
say("Acest player nu e online.")
return
end
say("Ce hack/ bug a folosit?")
local reporter = pc.get_name()
local b = select("Damage hack", "Trade bug", "Injurături", "GM impertinenţi", "Player impertinenţi","Exit")
if b == 1 then
char_log(1, reporter, name)
elseif b == 2 then
char_log(2, reporter, name)
elseif b == 3 then
char_log(3, reporter, name)
elseif b == 4 then
char_log(4, reporter, name)
elseif b == 5 then
char_log(5, reporter, name)
else
return
end
say_title("Report player")
say_reward("ANUNŢ: Dacă abuzaţi de acest sistem puteţi primi ban!")
say("IMPORTANT: Numele tău a fost inregistrat.")
say("Îţi mulţumim")
say("Echipa va cerceta această persoana în curând.")
say("")
say("Vrei să raportezi alt player? Apasă 'N'")
end
end
end[/spoiler]Doar m-am documentat de la altii .. dar nu am facut Copy/Paste...
Nu imi place ... Am vazut pe multi ca zice asa ...
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 .
de 
de 
de