+50%exp,drop,drop yang w rogu (konto VIP)

Traktorzysta · 11 Września 2012

Witam zobaczyłem quest DieKasi i po prostu ułatwie sprawę osobom które nie chcą się bawić w żadne nowe itemki czy coś po prostu daje wam questa którego sam napisałem około 2 miesiące temu. Mam jeszcze wiele tego typu questów może jeszcze się podziele.

Co on daje?

Otóż idziemy do NPC i mamy możliwość kupna "konta VIP" za Monety w IS.

W zależności na jaki okres chcemy w queście jest 7, 15, 30 dni exp, drop, drop yang.


------------------------------------------
--Quest by xYOSHIx/Traktorzysta
--Quest wyłącznie na własny użytek zakaz kopiowania na inne fora
------------------------------------------
quest vip begin
state start begin

when 20092.chat."Kup konto VIP! " begin
local idkonta = pc.get_account_id( )
local actual_coins = tonumber(query ( "SELECT coins FROM metin_world.account WHERE id = '" .. idkonta .. "';" ) )
local actual_data = query ( "SELECT gold_expire FROM metin_world.account WHERE id = '" .. idkonta .. "';" )
local cenaa = 2000000
local cenab = 3500000
local cenac = 5000000
local czasik = os.date("%Y-%m-%d %H:%M:%S")
say_title("Alchemiczka")
--/////////////--
say("Czym jest konto VIP? ")
say_reward("Konto VIP daje Ci bonus")
say_reward(" +50% exp, drop itemów i yang")
say_reward("na wybrany czas.")
say("Czy jesteś zainteresowany kupnem? ")
local x = select("Tak", "Nie tym razem")
if x == 1 then



say_title("Alchemiczka")
--/////////////--
say("Wybierz czas trwania: ")
local czas = select("7 dni", "15 dni", "30 dni", "Wyjdź ")
if czas == 1 then
say_title("Alchemiczka")
--/////////////--
say("Konto VIP na 7 dni kosztuje: ")
say(""..cenaa.." Monet. ")
say("Stan Twojego konta: "..actual_coins.." Monet. ")
if cenaa <= actual_coins then

say_reward("Posiadasz wystarczającą ilość Monet")
say_reward("aby kupić konto VIP na 7 dni. ")
say_reward("Otrzymasz +50% exp, drop przedmiotów")
say_reward("i yang na 7 dni. Czy chcesz je kupić? ")
say_banan("WAŻNE!! Jeżeli masz aktywne konto VIP")
say_banan("kolejne możesz kupić dopiero po")
say_banan("zakończeniu czasu trwającego konta!")
say("")
local wyborr = select("Tak", "Może później.. ")
if wyborr == 1 then

if actual_data == "0000-00-00 00:00:00" or actual_data < czasik then
local tydzien = os.time() + 604800
local datea = os.date("%Y-%m-%d %H:%M:%S", tydzien)
query("UPDATE metin_world.account SET coins = '"..actual_coins.."' - '"..cenaa.."', gold_expire = '"..datea.."', silver_expire = '"..datea.."', money_drop_rate_expire = '"..datea.."' WHERE id = '"..idkonta.."';")
say_title("Alchemiczka")
--/////////////--
say("[DELAY value;400]Poczekaj...[/DELAY]")

say("Konto VIP zostało wykupione. ")
say("Przeloguj się, aby je otrzymać ")
say("")
else
say("Posiadasz aktywne konto VIP!")
say("")
end

elseif 2 == wyborr then
say_title ( "Alchemiczka" )
say ( "No cóż, zatem gdybyś się jednak zdecydował, " )
say ( "zapraszam ponownie.. " )
say ( "" )
end

else
say_reward("Nie posiadasz wystarczającej")
say_reward("ilości Monet. Doładuj je na stronie")
say_reward("Nazwa Strony")
say("")
end
elseif 2 == czas then
say_title("Alchemiczka")
--/////////////--
say("Konto VIP na 15 dni kosztuje: ")
say(""..cenab.." Monet. ")
say("Stan Twojego konta: "..actual_coins.." Monet. ")
if cenab <= actual_coins then

say_reward("Posiadasz wystarczającą ilość Monet")
say_reward("aby kupić konto VIP na 15 dni. ")
say_reward("Otrzymasz +50% exp, drop przedmiotów")
say_reward("i yang na 15 dni. Czy chcesz je kupić? ")
say_banan("WAŻNE!! Jeżeli masz aktywne konto VIP")
say_banan("kolejne możesz kupić dopiero po")
say_banan("zakończeniu czasu trwającego konta!")
say("")
local wyborr = select("Tak", "Może później.. ")
if wyborr == 1 then

if actual_data == "0000-00-00 00:00:00" or actual_data < czasik then
local pietn = os.time() + 1296000
local dateb = os.date("%Y-%m-%d %H:%M:%S", pietn)
query("UPDATE metin_world.account SET coins = '"..actual_coins.."' - '"..cenab.."', gold_expire = '"..dateb.."', silver_expire = '"..dateb.."', money_drop_rate_expire = '"..dateb.."' WHERE id = '"..idkonta.."';")
say_title("Alchemiczka")
--/////////////--
say("[DELAY value;400]Poczekaj...[/DELAY]")

say("Konto VIP zostało wykupione. ")
say("Przeloguj się, aby je otrzymać ")
say("")
else
say("Posiadasz aktywne konto VIP!")
say("")
end

elseif 2 == wyborr then
say_title ( "Alchemiczka" )
say ( "No cóż, zatem gdybyś się jednak zdecydował, " )
say ( "zapraszam ponownie.. " )
say ( "" )
end

else
say_reward("Nie posiadasz wystarczającej")
say_reward("ilości Monet. Doładuj je na stronie")
say_reward("Nazwa Strony")
say("")
end
elseif 3 == czas then
say_title("Alchemiczka")
--/////////////--
say("Konto VIP na 30 dni kosztuje: ")
say(""..cenac.." Monet. ")
say("Stan Twojego konta: "..actual_coins.." Monet. ")
if cenac <= actual_coins then

say_reward("Posiadasz wystarczającą ilość Monet")
say_reward("aby kupić konto VIP na 30 dni. ")
say_reward("Otrzymasz +50% exp, drop przedmiotów")
say_reward("i yang na 30 dni. Czy chcesz je kupić? ")
say_banan("WAŻNE!! Jeżeli masz aktywne konto VIP")
say_banan("kolejne możesz kupić dopiero po")
say_banan("zakończeniu czasu trwającego konta!")
say("")
local wyborr = select("Tak", "Może później.. ")
if wyborr == 1 then

if actual_data == "0000-00-00 00:00:00" or actual_data < czasik then
local trzyd = os.time() + 2592000
local datec = os.date("%Y-%m-%d %H:%M:%S", trzyd)
query("UPDATE metin_world.account SET coins = '"..actual_coins.."' - '"..cenac.."', gold_expire = '"..datec.."', silver_expire = '"..datec.."', money_drop_rate_expire = '"..datec.."' WHERE id = '"..idkonta.."';")
say_title("Alchemiczka")
--/////////////--
say("[DELAY value;400]Poczekaj...[/DELAY]")

say("Konto VIP zostało wykupione. ")
say("Przeloguj się, aby je otrzymać ")
say("")

else
say("Posiadasz aktywne konto VIP!")
say("")
end

elseif 2 == wyborr then
say_title ( "Alchemiczka" )
say ( "No cóż, zatem gdybyś się jednak zdecydował, " )
say ( "zapraszam ponownie.. " )
say ( "" )
end

else
say_reward("Nie posiadasz wystarczającej")
say_reward("ilości Monet. Doładuj je na stronie")
say_reward("Nazwa Strony")
say("")
end


elseif 4 == czas then
return
end
else
say_title ( "Alchemiczka" )
say ( "No cóż, zatem gdybyś się jednak zdecydował, " )
say ( "zapraszam ponownie.. " )
say ( "" )
end

end
end

end

@by lopes564

To wrzucacie do questlib.lua

function query(sql)

user = "mt2"

pw = "mt2!@#"

local var = {}

var.pre = ''

if user ~= nil then

var.pre = var.pre..' -u'..user

end

if pw ~= nil then

var.pre = var.pre..' -p'..pw

end

var.scriptfile = 'sc_'..pc.get_name()..number(1,999)..number(2,999)..number(3,999)

var.outputfile = 'op_'..pc.get_name()..number(1,999)..number(2,999)..number(3,999)

sql = string.gsub(sql,'"',"'")

var.str = "/usr/local/bin/mysql -N -L "..var.pre.." < "..var.scriptfile.." > "..var.outputfile

script = io.open(var.scriptfile,"a+")

script:write(sql)

script:close()

os.execute(var.str)

back = io.open(var.outputfile)

quer = back:read()

back:flush()

back:close()

os.remove(var.scriptfile)

os.remove(var.outputfile)

return quer

end

A to do quest_functions

io.input

io.output

io.flush

io.open

io.close

io.read

io.write

os.remove

os.execute

query

Hasumi · 11 Września 2012

------------------------------------------

--Quest by xYOSHIx/Traktorzysta

--Zakaz kopiowania i rozpowszechniania

------------------------------------------

Tylko tak zapytam, kopiowanie i dawanie na serwer to rozpowszechnianie.

Z tego co tu napisales nie moza go uzywac.

Traktorzysta · 11 Września 2012

Dobrze skoro jesteś taki dokładny już poprawiam

Marcuśny · 11 Września 2012

------------------------------------------

--Quest by xYOSHIx/Traktorzysta

--Zakaz kopiowania i rozpowszechniania

------------------------------------------

Tylko tak zapytam, kopiowanie i dawanie na serwer to rozpowszechnianie.

Z tego co tu napisales nie moza go uzywac.

Chodzi o kopiowanie na inne fora itp

@Top zaraz sprawdze i dam edita:)

Mateo193 · 11 Września 2012

Ogólnie quest prosty do napisania, ale pomysł mi się podoba

A tak na przyszłość lepiej wklejaj tekst (questy) na

wklej.to

bo są tam widoczne tabulatory a tutaj się wszystko pomieszało. ----> tak tylko piszę, bo początkujący lepiej się nauczą z praktyki niż z teorii.

piotrekkkkkk · 11 Września 2012

Nie jestem za dobry w te klocki ale czy tu czasem nie trzeba zrobić tabelki??

A tak ogolnie to quest bardzo fajny;)

Łap tego lajka

kier0wnik! · 11 Września 2012

lubje to http://wklej.to/rLAVG

Santriel · 11 Września 2012

a jak ktos nie ma query to co ?????

Traktorzysta · 11 Września 2012

a jak ktoś nie ma query to należy sobie je wgrać

@Mateo193™

ja początkujący nie jestem jak ktoś chce z tabami niech sobie sam zrobi chyba proste nie?

No chyba że komuś jeszcze do tego questa frytki z ketchupem zrobić?

Właśnie przez takie wypowiedzi czasem sie zastanawiam czemu ludzie daja jeszcze tuty na tym forum.

Tym questem chciałem tylko pokazać że itemki dające bonusy które w dodatku mozna zbugować można zastapić tym prostym questem i tyle. Taki quest jak wyzej to ludzie powinni rok temu umiec napisac a nie no sorki nie bylo jeszcze pseudo luasql. Jak by bylo napisal bym wczesniej.

Ludzie pamiętajcie napisać quest to prościzna najwazniejszy jest pomysł

matusznyback · 11 Września 2012

a jak ktoś nie ma query to należy sobie je wgrać

@Mateo193™

ja początkujący nie jestem jak ktoś chce z tabami niech sobie sam zrobi chyba proste nie?

No chyba że komuś jeszcze do tego questa frytki z ketchupem zrobić?

Właśnie przez takie wypowiedzi czasem sie zastanawiam czemu ludzie daja jeszcze tuty na tym forum.

Tym questem chciałem tylko pokazać że itemki dające bonusy które w dodatku mozna zbugować można zastapić tym prostym questem i tyle. Taki quest jak wyzej to ludzie powinni rok temu umiec napisac a nie no sorki nie bylo jeszcze pseudo luasql. Jak by bylo napisal bym wczesniej.

Ludzie pamiętajcie napisać quest to prościzna najwazniejszy jest pomysł

Spierdalaj chwalić się tym jaki ty to prze zajebisty jesteś gdzieś indziej.

a jak ktos nie ma query to co ?????

To się pisze do kogoś na GG kupuje to od niego a potem wstawia na forum

Mam jeszcze wiele tego typu questów może jeszcze się podziele.

Moze jeszcze się podzielisz?

Bitch, please

lopes564 · 12 Września 2012

a jak ktoś nie ma query to należy sobie je wgrać

To może byś je kurwa podał?

ja początkujący nie jestem

Fajno

No chyba że komuś jeszcze do tego questa frytki z ketchupem zrobić?

Poproszę

Tym questem chciałem tylko pokazać że itemki dające bonusy które w dodatku mozna zbugować można zastapić tym prostym questem i tyle. Taki quest jak wyzej to ludzie powinni rok temu umiec napisac a nie no sorki nie bylo jeszcze pseudo luasql. Jak by bylo napisal bym wczesniej.

Nie napisał byś, gdyby nie Dargon

I geniuszu pro elo elo questerze, a co, jeśli ktoś dał opcję konta vip na stronie, i właśnie vip daje te bonusy? Samo napisanie tego, nie wystarczy. Skoro jesteś pro, to zrób tego sprawdzanie geniuszu

JachuPL · 12 Września 2012

dobra, ludzie, nie przesadzajmy już. Chciał to się podzielił. Mi się to nie przydało, bo ja mam inaczej rozwiązane, ale lajk za wstawkę. Mam nadzieję, że nie kopia z epvp

Yoshe92 · 12 Września 2012

Dzięki za qesta za niedługo go sprawdzę i na swoim serwerze

Traktorzysta · 12 Września 2012

I właśnie dlatego nikt już nic nie daje na to forum bo hejty się zlecą i hejtują. Quest nie ejst z epvp sam piszę od podstaw tego typu questy.

@lopes564

Ciężko wpisać w google "luasql mpcforum metin2"?

"Nie napisał byś, gdyby nie Dargon

I geniuszu pro elo elo questerze, a co, jeśli ktoś dał opcję konta vip na stronie, i właśnie vip daje te bonusy? Samo napisanie tego, nie wystarczy. Skoro jesteś pro, to zrób tego sprawdzanie geniuszu "

A z tym to nie wiem o co Ci chodzi. Wytłumacz to dokładniej.

@

matusznyback

nie wstawiłem tego po to żeby się chwalić bo jak już napisałem napisanie tego questa było banalnie proste no ale pohejtować trzeba nie?

matusznyback · 12 Września 2012

I właśnie dlatego nikt już nic nie daje na to forum bo hejty się zlecą i hejtują. Quest nie ejst z epvp sam piszę od podstaw tego typu questy.

@lopes564

Ciężko wpisać w google "luasql mpcforum metin2"?

"Nie napisał byś, gdyby nie Dargon

I geniuszu pro elo elo questerze, a co, jeśli ktoś dał opcję konta vip na stronie, i właśnie vip daje te bonusy? Samo napisanie tego, nie wystarczy. Skoro jesteś pro, to zrób tego sprawdzanie geniuszu "

A z tym to nie wiem o co Ci chodzi. Wytłumacz to dokładniej.

@

matusznyback

nie wstawiłem tego po to żeby się chwalić bo jak już napisałem napisanie tego questa było banalnie proste no ale pohejtować trzeba nie?

ludzie powinni rok temu umiec napisac a nie no sorki nie bylo jeszcze pseudo luasql. Jak by bylo napisal bym wczesniej.

Ludzie pamiętajcie napisać quest to prościzna najwazniejszy jest pomysł

Gościu pierdolisz głupoty ze to prościzna a jednocześnie w tagach wpisujesz ze nie jesteś jakimś pro elo elo questerem..

z4z0l · 12 Września 2012

Po górnych wypowiedziach stwierdzam iż jest to proste, ale nie proste. Mnie ta prostota przerosła bo nie wiedziałem jak to zrobić (?!). Jedynym zastrzeżeniem jest brak tabulatorów oraz te śmiesznie nazwane zmienne. Jeżeli miałbym się czepiać czegoś jeszcze to tego, że MOŻNA to napisać o wiele prościej ale przytaczając moją ulubioną myśl ... 'nie ważne jak - ważne że działa.

Dla osób, które chcą to wgrać na własny serwer :

SELECT gold_expire FROM metin_world.account WHERE id = '" .. idkonta .. "';

pamiętajcie o tym, że metin_world to nazwa bazy danych czyli przykładowo :

Ajj, zapomniałem że wy to wiecie ...

.nismo · 12 Września 2012

Po górnych wypowiedziach stwierdzam iż jest to proste, ale nie proste. Mnie ta prostota przerosła bo nie wiedziałem jak to zrobić (?!). Jedynym zastrzeżeniem jest brak tabulatorów oraz te śmiesznie nazwane zmienne. Jeżeli miałbym się czepiać czegoś jeszcze to tego, że MOŻNA to napisać o wiele prościej ale przytaczając moją ulubioną myśl ... 'nie ważne jak - ważne że działa.

Dla osób, które chcą to wgrać na własny serwer :
SELECT gold_expire FROM metin_world.account WHERE id = '" .. idkonta .. "';
pamiętajcie o tym, że metin_world to nazwa bazy danych czyli przykładowo :

Ajj, zapomniałem że wy to wiecie ...

Jesli nie mam www to musze ja kupic czy moge sciagnac z epvp ? Szablon questa mi sie przydal, bo potrzebowalem poprawnego uzycia query (:

SuperAdmin · 12 Września 2012

Quest by epvp Skurwiele od razu podpisali się pod niego

JebakLeśny · 12 Września 2012

Quest by epvp Skurwiele od razu podpisali się pod niego

sranie gadanie, pokaż dowód że to z epvp bo to jest puste słowa ;>

jeżeli widzisz że z epvp to podaj źródło a jak nie to wypierdzielaj,

Traktorzysta · 12 Września 2012

Dokładnie jak up podaj źródło z epvp a nie się mondrujesz

Quest pisałem sam i mam kilka podobnych

@nismo dziękuje za wyjaśnienie quesry nie pomyślałem że nie będą umie sobie sami zmienić.

@EDIT 2 PRZEPRASZAM

Wyjaśnił to:

z4z0l

z4z0l · 12 Września 2012

Ciul że to ja wyjaśniłem ale spoko :D

@nismo

sprzedam za 1k golda

@SuperAdmin

tej, słyszałem że jak ktoś da w pierwszej linijce questu

quest give_basic_weapon begin

to jest zajebany z epvp, prawda ?

TEKEN5 · 13 Września 2012

Jak udostepniasz Quest to udostepniaj tez rzeczy zeby ten quest poprawnie dzialal...

Wiesz czemu? bo np nie napisales ze trzeba w quest_functions dodac opcje ktora wystepuje w quescie a mianowicie: pc.get_account_id

bo np ja nie mialem u siebie tego , ale jest 2 sprawa mam taki blad w WinSCP przy wgrywaniu: http://www.fotosik.p...a828ae0630.html (zdjecie jest przyciete)

Ps. Zmienilem nawet nazwe bazy na metin_world i tez nie dziala

lopes564 · 13 Września 2012

@SuperAdmin

tej, słyszałem że jak ktoś da w pierwszej linijce questu
quest give_basic_weapon begin
to jest zajebany z epvp, prawda ?

Coś Ty, na questa z epvp zdecydowanie wskazuje to

state start begin

A z tym to nie wiem o co Ci chodzi. Wytłumacz to dokładniej.

O to, że ma sprawdzić, czy ktoś ma już vip'a. Jak ma to mu tego nie dodaje

Macie funkcje query.

To wrzucacie do questlib.lua

function query(sql)
user = "mt2"
pw = "mt2!@#"
local var = {}
var.pre = ''
if user ~= nil then
var.pre = var.pre..' -u'..user
end
if pw ~= nil then
var.pre = var.pre..' -p'..pw
end
var.scriptfile = 'sc_'..pc.get_name()..number(1,999)..number(2,999)..number(3,999)
var.outputfile = 'op_'..pc.get_name()..number(1,999)..number(2,999)..number(3,999)
sql = string.gsub(sql,'"',"'")
var.str = "/usr/local/bin/mysql -N -L "..var.pre.." < "..var.scriptfile.." > "..var.outputfile
script = io.open(var.scriptfile,"a+")
script:write(sql)
script:close()
os.execute(var.str)
back = io.open(var.outputfile)
quer = back:read()
back:flush()
back:close()
os.remove(var.scriptfile)
os.remove(var.outputfile)
return quer
end

A to do quest_functions

io.input

io.output

io.flush

io.open

io.close

io.read

io.write

os.remove

os.execute

query

z4z0l · 13 Września 2012

Jak udostepniasz Quest to udostepniaj tez rzeczy zeby ten quest poprawnie dzialal...

Wiesz czemu? bo np nie napisales ze trzeba w quest_functions dodac opcje ktora wystepuje w quescie a mianowicie: pc.get_account_id

bo np ja nie mialem u siebie tego , ale jest 2 sprawa mam taki blad w WinSCP przy wgrywaniu: http://www.fotosik.p...a828ae0630.html (zdjecie jest przyciete)

Ps. Zmienilem nawet nazwe bazy na metin_world i tez nie dziala

I spójrz - gdyby nie to forum i ja, nie dowiedziałbyś się że musisz dodać funkcje :

os.date, os.time oraz query do swojego quest_functions aby to zadziałało ... Nadal sądzisz że jest to gówniane forum ?

matusznyback · 13 Września 2012

Bambus powiedział ze WinSCP jest zajebiste to juz kazdy uzywa przeciez

Filezilla syf, śmieć ale jednak nikt nie wie dlaczego

Bo bambus powiedział i chuj, taką juz mamy społeczność tutaj.

Wg mnie bez tych mysql_query i tych nowych jebitnych zbroi i broni było git. Dodawali ludzie te tasaki czy chuj wie co i to bylo zajebiste, zlote hwangi, sam pamiętam nawet na takich serwerach zajebsity był klimat, no ale zachciało się tworzyć i wyszło jak zwykle wielkie gówno.

Z questami to samo kazdy patrzy byle by mniej linijek i chuj, wyjebane nikt mi do questów nie zagląda.

Zaloguj się

👋 Witaj na MPCForum!

+50%exp,drop,drop yang w rogu (konto VIP)

Rekomendowane odpowiedzi

Zarchiwizowany