Cod: Selectaţi tot

quest system_banca begin
state start begin
when 20091.chat."Citeste informatiile inainte" begin
say_title("Informatii")
say("Salutare, noi ne ocupam cu schimbarea")
say("de yang in lingouri. Oricine doreste sa")
say("schimbe yang-ul in lingouri este asteptat la noi")
say("Schimbam sume de 500kk, 1kkk")
say("")
say("ATENTIE: daca vrei sa schimbi un lingou")
say("de 1kkk si tu ai 1,1kkk in inventar")
say("nu primesti nimic, asa ca aveti grija!")
say("Daca adunat cu un lingou ai peste 2kkk")
say("nu schimba in lingou")
say("fiindca nu o sa mai primesti nimic")
say("")
say("O zi buna!")
end


when 20091.chat."Administrare" begin
say_title("Administrare")
say("Bun venit in zona de administrare.")
say("")
say("Daca ai intrat aici inseamna ca ai citit ")
say("informatiile foarte importante dupa prima pagina")
say("")
say("Ce doresti sa faci ?")
local s = select("Schimba in lingou","Schimba in yang","Nimic")
if s == 3 then
return

elseif s == 1 then
say_title("Schimba in lingouri")
say("Ce suma doresti sa schimbi in lingou ?")
local v = select("50kk Yang","100kk Yang","500kk Yang","1kkk Yang","Nici una")
if s == 5 then
return

elseif v == 1 then
say_title("Confirmare")
say("Chiar doresti sa schimbi")
say("50kk Yang intr-un lingou ?")
local q = select("Da", "Nu")
if q == 2 then
return
                     
elseif pc.get_gold()<50000000 then
say_title("Schimba 50kk")
say("Nu ai 50kk Yang.")
return
end
say_title("Felicitari")
say("Felicitari, tranzactia a reusit.")
say("Verifica in inventar.")
say("Daca apar probleme, nu ezitati")
say("sa ne contactati pe forum")
pc.give_item2(80003, 1)
pc.change_gold(-50000000)
                
elseif v == 2 then
say_title("Confirmare")
say("Chiar doresti sa schimbi")
say("100kk Yang intr-un lingou ?")
local q = select("Da", "Nu")
if q == 2 then
return

elseif pc.get_gold()<100000000 then
say_title("Schimba 100kk")
say("Nu ai 100kk Yang.")
return
end
say_title("Felicitari")
say("Felicitari, tranzactia a reusit.")
say("Verifica in inventar.")
say("Daca apar probleme, nu ezitati")
say("sa ne contactati pe forum")
pc.give_item2(80004, 1)
pc.change_gold(-100000000)

elseif v == 3 then
say_title("Confirmare")
say("Chiar doresti sa schimbi")
say("500kk Yang intr-un lingou ?")
local q = select("Da", "Nu")
if q == 2 then
return
                     
elseif pc.get_gold()<500000000 then
say_title("Schimba 500kk")
say("Nu ai 500kk Yang.")
return
end
say_title("Felicitari")
say("Felicitari, tranzactia a reusit.")
say("Verifica in inventar.")
say("Daca apar probleme, nu ezitati")
say("sa ne contactati pe forum")
pc.give_item2(80005, 1)
pc.change_gold(-500000000)

elseif v == 4 then
say_title("Confirmare")
say("Chiar doresti sa schimbi")
say("1kkk Yang intr-un lingou ?")
local q = select("Da", "Nu")
if q == 2 then
return

elseif pc.get_gold()<1000000000 then
say_title("Schimba 1kkk")
say("Nu ai 1kkk Yang.")
return
end
say_title("Felicitari")
say("Felicitari, tranzactia a reusit.")
say("Verifica in inventar.")
say("Daca apar probleme, nu ezitati")
say("sa ne contactati pe forum")
pc.give_item2(80006, 1)
pc.change_gold(-1000000000)
end
elseif s == 2 then
say_title("Schimba in Yang")
say("Cat doresti sa schimbi in yang ?")
local l = select("50kk Yang","100kk Yang","500kk Yang","1kkk Yang","Nimic")
if s == 5 then
return

elseif l == 1 then
say_title("Confirmare")
say("Chiar doresti sa schimbi un lingou")
say("in valoare de 50kk de Yang in")
say("50kk Yang ?")
local q = select("Da", "Nu")
if q == 2 then
return

elseif pc.count_item(80003) < 1 then
say_title("Schimba un lingou")
say("Nu ai un lingou in valoare de 50kk yang.")
return
end
say_title("Felicitari")
say("Felicitari, tranzactia a reusit.")
say("Verifica in inventar.")
say("Daca apar probleme, nu ezitati")
say("sa ne contactati pe forum")
pc.remove_item(80003,1)
pc.give_gold(50000000)
             
elseif l == 2 then
say_title("Confirmare")
say("Chiar doresti sa schimbi un lingou")
say("in valoare de 100kk de Yang in")
say("100kk Yang ?")
local q = select("Da", "Nu")
if q == 2 then
return

elseif pc.count_item(80004) < 1 then
say_title("Schimba un lingou")
say("Nu ai un lingou in valoare de 100kk yang.")
return
end
say_title("Felicitari")
say("Felicitari, tranzactia a reusit.")
say("Verifica in inventar.")
say("Daca apar probleme, nu ezitati")
say("sa ne contactati pe forum")
pc.remove_item(80004,1)
pc.give_gold(100000000)
             
elseif l == 3 then
say_title("Confirmare")
say("Chiar doresti sa schimbi un lingou")
say("in valoare de 500kk de Yang in")
say("500kk Yang ?")
local q = select("Da", "Nu")
if q == 2 then
return

elseif pc.count_item(80005) < 1 then
say_title("Schimba un lingou")
say("Nu ai un lingou in valoare de 500kk yang.")
return
end
say_title("Felicitari")
say("Felicitari, tranzactia a reusit.")
say("Verifica in inventar.")
say("Daca apar probleme, nu ezitati")
say("sa ne contactati pe forum")
pc.remove_item(80005,1)
pc.give_gold(500000000)

elseif l == 4 then
say_title("Confirmare")
say("Chiar doresti sa schimbi un lingou")
say("in valoare de 1kkk de Yang in")
say("1kkk Yang ?")
local q = select("Da", "Nu")
if q == 2 then
return

elseif pc.count_item(80006) < 1 then
say_title("Schimba un lingou")
say("Nu ai un lingou in valoare de 1kkk yang.")
return
end
say_title("Felicitari")
say("Felicitari, tranzactia a reusit.")
say("Verifica in inventar.")
say("Daca apar probleme, nu ezitati")
say("sa ne contactati pe forum")
pc.remove_item(80006,1)
pc.give_gold(1000000000)
end
end
end
end
end