Skip to content

Instantly share code, notes, and snippets.

@Dargon
Created July 21, 2012 01:37
Show Gist options
  • Save Dargon/3154196 to your computer and use it in GitHub Desktop.
Save Dargon/3154196 to your computer and use it in GitHub Desktop.
quest metin2
---------------------------------------
-- Quest created by Dargon
-- version: beta
-- release: 12.05.2012 10:30
---------------------------------------
quest player_bank begin
state start begin
when 9005.chat."Moje Konto Bankowe" begin
local owner_name = pc.get_name()
local acc_identify_nr = pc.getqf("acc_code")
local gold_state = pc.getqf("gold_state")
local date = os.date('%Y-%m-%d %H:%M:%S')
local actual_gold = tonumber(query("SELECT money_state FROM player.player_bank WHERE owner_name = '"..owner_name.."';"))
local my_gold = pc.get_money()
local gold_bar = 100000000
if acc_identify_nr == 0 then
say_title("Bankier")
--/////////////--
say("Witaj. Jestem Królewskim Bankierem. Mam do")
say("do zaoferowania dla Ciebie nowo otwarty system")
say("kont bankowych. Oferuje on depozyt na pieniądze")
say("klienta, tak, by nie musiał mieć ich zawsze przy")
say("sobie, aczkolwiek by miał możliwość ich wypłaty")
say("w wielu punktach w całym Imperium.")
wait()
say_title("Bankier")
--/////////////--
say("Gdy zdeponujesz swoje pieniądze na koncie, po ")
say("upływie określonego czasu ich ilość zostanie")
say("zwiększona o procent ustalony przez nasz system.")
say("Gdy w twoim ekwipunku będzie znajdowało się ")
say("więcej niż 2 miliony yang, nadwyżka zostanie ")
say("automatycznie zdeponowana na twoim koncie osobistym.")
say("Czy jesteś zainteresowany?")
local x = select("Tak", "Nie tym razem")
if x == 1 then
say_title("Bankier")
--/////////////--
say("Gratuluje dobrego wyboru. A więc od założenia")
say("twojego konta osobistego dzieli Cię już tylko")
say("jeden krok. Aby zwiększyć bezpieczeństwo twoich")
say("składowanych pieniędzy, zostaniesz teraz")
say("poproszony o ustalenie 5 cyfrowego kodu")
say("bezpieczeństwa. Dzięki temu, tylko Ty będziesz")
say("mógł wyciągnąć pieniądze z konta")
say("")
local security_code = tonumber(input("12345"))
if security_code > 9999 and security_code < 100000 then
say_title("Bankier")
--/////////////--
say("Twój kod bezpieczeństwa jest poprawny.")
say("")
say("Wpisany przez Ciebie kod to: "..security_code.." ")
say("Czy jesteś pewien tego kodu?")
say("")
local c = select("Tak", "Nie")
if c == 1 then
pc.setqf("acc_code", security_code)
say_title("Bankier")
--/////////////--
say("Twoje Konto Bankowe zostało utworzone")
say("Życzymy pomyślnego korzystania z naszej oferty")
say("Możesz już teraz zdeponować swoje pieniądze")
query("INSERT INTO player.player_bank SET `owner_name` = '"..owner_name.."', `security_code` = '"..security_code.."', create_time = '"..date.."';")
else
return
end
else
say_title("Bankier")
--/////////////--
say("No cóż, zatem gdybyś się jednak zdecydował, zapraszamy")
say("ponownie")
say("")
end
end
else
say_title("Bankier")
--/////////////--
say("Witaj w panelu twojego Konta Bankowego.")
say("")
say("Wybierz, co byś chciał zrobić ")
say("")
say("")
local s = select("Wpłać Pieniądze", "Wypłacić Pieniądze", "Dane Konta", "Transakcje", "Wyjdź ")
if s == 1 then
say_title("Bankier")
--/////////////--
say("Proszę, podaj swój Kod Bezpieczeństwa")
say("")
local input_code = tonumber(input(""))
if input_code == pc.getqf("acc_code") then
say_title("Bankier")
--/////////////--
say("Posiadasz: "..pc.get_money().." Yang")
say("")
say("Wpisz ilość, jaką chcesz zdeponować na koncie")
local add_money = tonumber(input(""))
if pc.get_money() < add_money then
say_title("Bankier")
--/////////////--
say("Nie posiadasz tyle pieniędzy")
say("")
else
if add_money < 2000000000 then
say_title("Bankier")
--/////////////--
say("Zdeponowałeś "..add_money.." Yang")
pc.change_money(-add_money)
local p_select = query("SELECT owner_name FROM player.player_bank WHERE owner_name = '"..owner_name.."';")
query("UPDATE player.player_bank SET money_state = money_state + '"..add_money.."' WHERE owner_name = '"..p_select.."';")
query("INSERT INTO log.player_bank_log SET what = 'ADD_MONEY', gold_count = '"..add_money.."', who = '"..owner_name.."', date = '"..date.."';")
else
say_title("Bankier")
--/////////////--
say("Nie możesz tyle wpłacić ")
say("")
end
end
else
say_title("Bankier")
--/////////////--
say("Podałeś zły Kod Bezpieczeństwa")
say("")
end
elseif s == 2 then
say_title("Bankier")
--/////////////--
say("W jaki sposób chcesz wypłacić środki z Konta?")
local money = select("Monety", "Bryłki Zlota", "Rezygnuję ")
if money == 1 then
say_title("Bankier")
--/////////////--
say("Wpisz ilość, jaką chcesz wypłacić ")
local g_select = tonumber(query("SELECT money_state FROM player.player_bank WHERE owner_name = '"..owner_name.."';"))
say("Możesz pobrać: "..g_select.." yang")
local remove_money = tonumber(input())
if remove_money + my_gold >= 1999999999 then
say_title("Bankier")
--/////////////--
say("Kwota, która próbujesz wypłacić przewyższa")
say("maksymalną pojemność twojego ekwipunku")
else
if actual_gold < remove_money then
say_title("Bankier")
--/////////////--
say("Nie masz tyle pieniędzy na koncie!")
else
say_title("Bankier")
--/////////////--
say("Pobrałeś "..remove_money.." Yang")
pc.change_money(remove_money)
local pp_select = query("SELECT owner_name FROM player.player_bank WHERE owner_name = '"..owner_name.."';")
query("UPDATE player.player_bank SET money_state = money_state - '"..remove_money.."' WHERE owner_name = '"..pp_select.."';")
query("INSERT INTO log.player_bank_log SET what = 'MONEY_OUT', gold_count = '"..remove_money.."', who = '"..owner_name.."', date = '"..date.."';")
end
end
elseif money == 2 then
say_title("Bankier")
--/////////////--
say("Wpisz ilość, jaką chcesz wypłacić ")
local g_select = tonumber(query("SELECT money_state FROM player.player_bank WHERE owner_name = '"..owner_name.."';"))
say("Możesz pobrać: "..g_select.." yang")
local remove_money = tonumber(input())
if remove_money < gold_bar then
say_title("Bankier")
--/////////////--
say("Minimalna kwota, którą musisz wpisać to:")
say(""..gold_bar.." Yang")
else
if actual_gold < remove_money then
say_title("Bankier")
--/////////////--
say("Nie masz tyle pieniędzy na koncie!")
else
say_title("Bankier")
--/////////////--
local result = remove_money / gold_bar
say("W zamian za powyższą kwotę przysługuje Ci:")
say(""..result.." Bryłek Złota.")
local choose = select("Dokonaj tranzakcji", "Rezygnuj")
if choose == 1 then
say_title("Bankier")
--/////////////--
local result_2 = result * gold_bar
say("Otrzymałeś "..result.." Bryłek o wartości "..result_2.." Yang.")
pc.give_item2(80008, result)
pc.change_money(-result_2)
local pp_select = query("SELECT owner_name FROM player.player_bank WHERE owner_name = '"..owner_name.."';")
query("UPDATE player.player_bank SET money_state = money_state - '"..result_2.."' WHERE owner_name = '"..pp_select.."';")
query("INSERT INTO log.player_bank_log SET what = 'GOLDBAR_OUT', gold_count = '"..result_2.."', who = '"..owner_name.."', date = '"..date.."';")
end
end
end
end
elseif s == 3 then
local g_select = query("SELECT money_state FROM player.player_bank WHERE owner_name = '"..owner_name.."';")
local id_select = query("SELECT acc_identify_nr FROM player.player_bank WHERE owner_name = '"..owner_name.."';")
say_title("Bankier")
--/////////////--
say("Właściciel: "..owner_name.."")
say("Numer Konta: "..id_select.."")
say("Stan Konta: "..g_select.."")
say("")
elseif s == 4 then
say_title("Bankier")
--/////////////--
say("Dzięki tej opcji możesz komuś przelać wybraną kwotę ")
say("pieniędzy na jego konto, bez potrzeby, by akurat")
say("musiał znajdowac się w pobliżu. Wystarczy, że uzyskasz")
say("jego Numer Indentyfikacyjny Konta, który dana osoba")
say("najpierw musi podać.")
local p_find = select("Dokonaj przelewu", "Zrezygnuj")
if p_find == 1 then
say_title("Bankier")
--/////////////--
say("Podaj numer identyfikacyjny konta, na które chesz")
say("dokonać przelewu:")
local r_code = input()
local pp_find = query("SELECT money_state FROM player.player_bank WHERE acc_identify_nr = '"..r_code.."';")
local p_nick = query("SELECT owner_name FROM player.player_bank WHERE acc_identify_nr = '"..r_code.."';")
say_title("Bankier")
--/////////////--
say("Próbujesz przelać pieniądze graczowi o nicku: "..p_nick.."")
say("Kontynuować ?")
local d = select("Tak", "Nie")
if d == 1 then
say("Podaj ilość kwoty do przelania:")
local send_money = tonumber(input(""))
if send_money < 2000000000 then
say_title("Bankier")
--/////////////--
say("Przelew został wysłany")
query("UPDATE player.player_bank SET money_state = money_state + '"..send_money.."' WHERE acc_identify_nr = '"..r_code.."';")
query("INSERT INTO log.player_bank_log SET what = 'MONEY_TRANSFER', gold_count = '"..send_money.."', who = '"..owner_name.."', w_acc_identify_nr = '"..acc_identify_nr.."', r_acc_identify_nr = '"..r_code.."', date = '"..date.."';")
else
say_title("Bankier")
--/////////////--
say("Nie możesz tyle przelać ")
end
end
if player_id_find == "" then
say_title("Bankier")
--/////////////--
say("Nie podałeś Numeru Konta ")
end
else
return
end
elseif s == 5 then
return
end
end
end
when 9005.chat."GM: System Oprocentowania" with pc.is_gm() begin
setskin(NOWINDOW)
notice_all("[SYSTEM] Stan pieniędzy na Wszystkich Kontach Bankowych został zwiększony o 3%")
query("UPDATE player.player_bank SET money_state = money_state + (money_state*0.03);")
end
end
end
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment