This quest change your ingot Yang and vice versa.
Code:
---------------------------------
------Quest by C. Alexandru Sorin
------http://tgc-team.com--------
------TGC-Team.Com---------------
------Translator: RatedR203------
quest system_banca begin
state start begin
when login begin
send_letter("Ingots - Yang")
end
when info or button begin
say_title("Informations")
say("Hello, we deal with change")
say("of yang in ingot . Anyone who want to ")
say("change yang in ingot is waited at us.")
say("Change amount of 100 millions, 500 millions,")
say("1 billion and 1.5 billions.")
say("")
say("So, what you want ?")
local a = select("Change yang in ingot","Change ingot in yang", "Cancel")
if a == 3 then
send_letter("Ingots - Yang")
return
end
if a == 1 then
say_title("Change in ingots")
say("What amount you want to change in ingot ?")
local v = select("100.000.000 Yang","500.000.000 Yang","1 Billion","1.5 Billions","No one")
if v == 5 then
send_letter("Ingots - Yang")
return
elseif v == 1 then
say_title("Confirm")
say("Do you really want to change")
say("100.000.000 Yang in a ingot ?")
local q = select("Yes", "No")
if q == 2 then
send_letter("Ingots - Yang")
return
elseif pc.get_gold()<100000000 then
say_title("Change 100.000.000")
say("Nu ai 100.000.000 Yang.")
send_letter("Ingots - Yang")
return
end
say_title("Congratulations")
say("Congratulations, transaction had successful.")
say("Verify in inventar.")
say("If appear problems, don't hesitate")
say("to contact us on forum")
pc.give_item2(80003, 1)
pc.change_gold(-100000000)
send_letter("Ingots - Yang")
elseif v == 2 then
say_title("Confirm")
say("Do you really want to change")
say("500.000.000 Yang in a ingot ?")
local q = select("Yes", "No")
if q == 2 then
send_letter("Ingots - Yang")
return
elseif pc.get_gold()<500000000 then
say_title("Change 500.000.000")
say("You don't have 500.000.000 Yang.")
send_letter("Ingots - Yang")
return
end
say_title("Congratulations")
say("Congratulations, transaction had successful.")
say("Verify in inventar.")
say("If appear problems, don't hesitate")
say("to contact us on forum")
pc.give_item2(80004, 1)
pc.change_gold(-500000000)
send_letter("Ingots - Yang")
elseif v == 3 then
say_title("Confirm")
say("Do you really want to change")
say("1.000.000.000 Yang in a ingot ?")
local q = select("Yes", "No")
if q == 2 then
send_letter("Ingots - Yang")
return
elseif pc.get_gold()<1000000000 then
say_title("Change 1.000.000.000")
say("You don't have 1.000.000.000 Yang.")
send_letter("Ingots - Yang")
return
end
say_title("Congratulations")
say("Congratulations, transaction had successful.")
say("Verify in inventar.")
say("If appear problems, don't hesitate")
say("to contact us on forum")
pc.give_item2(80005, 1)
pc.change_gold(-1000000000)
send_letter("Ingots - Yang")
elseif v == 4 then
say_title("Confirm")
say("Do you really want to change")
say("1.500.000.000 Yang in a ingot ?")
local q = select("Yes", "No")
if q == 2 then
send_letter("Ingots - Yang")
return
elseif pc.get_gold()<1500000000 then
say_title("Change 1.500.000.000")
say("You don't have 1.500.000.000 Yang.")
send_letter("Ingots - Yang")
return
end
say_title("Congratulations")
say("Congratulations, transaction had successful.")
say("Verify in inventar.")
say("If appear problems, don't hesitate")
say("to contact us on forum")
pc.give_item2(80006, 1)
pc.change_gold(-1500000000)
send_letter("Ingots - Yang")
end
elseif a == 2 then
say_title("Change in yang")
say("How much you want to change in yang ?")
local l = select("100.000.000 Yang","500.000.000 Yang","1 Billion","1.5 Billions","Nothing")
if l == 5 then
send_letter("Ingots - Yang")
return
elseif l == 1 then
say_title("Confirm")
say("Do you really want to change a ingot")
say("in value of 100.000.000 of Yang in")
say("100.000.000 Yang ?")
local q = select("Yes", "No")
if q == 2 then
send_letter("Ingots - Yang")
return
elseif pc.count_item(80003) < 1 then
say_title("Change a ingot")
say("You don't have a ingot in value of 100.000.000 yang.")
send_letter("Ingot - Yang")
return
elseif pc.get_gold()>1900000000 then
say_title("Change in ingot")
say("I'm sorry, but you don't have enough space")
say("in pocket. Amount must to don't exceed ")
say("2.000.000.000 Yang!")
send_letter("Ingots - Yang")
return
end
say_title("Congratulations")
say("Congratulations, transcation had successful.")
say("Verify in invetar.")
say("If problems appear, don't hesitate")
say("to contact us on forum")
pc.remove_item(80003,1)
pc.give_gold(100000000)
send_letter("Ingots - Yang")
elseif l == 2 then
say_title("Confirmare")
say("Do you really want to change a ingot")
say("in value of 500.000.000 of Yang in")
say("500.000.000 Yang ?")
local q = select("Yes", "No")
if q == 2 then
send_letter("Ingots - Yang")
return
elseif pc.count_item(80004) < 1 then
say_title("Change a ingot")
say("You don't have a ingot in value of 500.000.000 yang.")
return
elseif pc.get_gold()>1500000000 then
say_title("Change in ingot")
say("I'm sorry, but you don't have enough space")
say("in pocket. Amount must to don't exceed")
say("2.000.000.000 Yang!")
send_letter("Ingots - Yang")
return
end
say_title("Congratulations")
say("Congratulations, transcation had successful.")
say("Verify in invetar.")
say("If problems appear, don't hesitate")
say("to contact us on forum")
pc.remove_item(80004,1)
pc.give_gold(500000000)
send_letter("Lingouri - Yang")
elseif l == 3 then
say_title("Confirm")
say("Do you really want to change a ingot")
say("in value of 1.000.000.000 of Yang in")
say("1.000.000.000 Yang ?")
local q = select("Yes", "No")
if q == 2 then
send_letter("Ingots - Yang")
return
elseif pc.count_item(80005) < 1 then
say_title("Change a ingot")
say("You don't have a ingot in value of 1.000.000.000 yang.")
send_letter("Ingots - Yang")
return
elseif pc.get_gold()>1000000000 then
say_title("Change in ingot")
say("I'm sorry, but you don't have enough space")
say("in pocket. Amount must to don't exceed")
say("2.000.000.000 Yang!")
send_letter("Ingots - Yang")
return
end
say_title("Congratulations")
say("Congratulations, transcation had successful.")
say("Verify in invetar.")
say("If problems appear, don't hesitate")
say("to contact us on forum")
pc.remove_item(80005,1)
pc.give_gold(1000000000)
send_letter("Ingots - Yang")
elseif l == 3 then
say_title("Confirm")
say("Do you really want to change a ingot")
say("in valoare de 1.500.000.000 of Yang in")
say("1.500.000.000 Yang ?")
local q = select("Yes", "No")
if q == 2 then
send_letter("Ingots - Yang")
return
elseif pc.count_item(80006) < 1 then
say_title("Change a ingot")
say("You don't have a ingot in value of 1.500.000.000 yang.")
send_letter("Ingots - Yang")
return
elseif pc.get_gold()>500000000 then
say_title("Change in ingot")
say("I'm sorry, but you don't have enough space")
say("in pocket. Amount must to don't exceed")
say("2.000.000.000 Yang!")
send_letter("Ingots - Yang")
return
end
say_title("Congratulations")
say("Congratulations, transcation had successful.")
say("Verify in invetar.")
say("If problems appear, don't hesitate")
say("to contact us on forum")
pc.remove_item(80006,1)
pc.give_gold(1500000000)
send_letter("Ingots - Yang")
end
end
end
end
end
hah
