quest scp_economi begin -- Written By Scorpion1453 10(16).10.2018 >> Special quest || Not Encrypted
state start begin

when warehouse_keeper.chat."Döviz Bürosu V2" begin
	local tax = 3 -- Vergi
	local wond = 100 -- Won değeri, m cinsinden
	local maxCheque = 998 -- Oyununuzdaki max won
	local maxYang = 1999999988 -- Oyununuzdaki max yang
	local mywon=pc.get_cheque()
	local myyang=pc.get_gold()
	say_title("Merhabalar "..pc.get_name())
	say("")
	say("")
	say("Sahip olduğun Yang: "..numberToDots(myyang))
	say("Sahip olduğun Won: "..mywon)
	say("")
	say_reward("Ticarette %3 gelir vergisi bulunmaktadır :)")
	say("")
	local my_sec=select("Won Bozdur","Won Satın Al","Pencereyi Kapat")
	if my_sec==1 then
		if mywon==0 then
			syschat(" Üzgünüm, sana ait won göremiyorum.")
			return
		end
		local algorithm=math.min(mywon,math.floor((maxYang-myyang)/(wond*1000000)))
		say_title("Won Bozdur")
		say("")
		say("")
		say("Sahip olduğun Yang: "..numberToDots(myyang))
		say("Sahip olduğun Won: "..mywon)
		say("")
		say_reward("Bozdurabileceğin max. değer: "..algorithm)
		if algorithm==0 then
			wait()
		else
			local inpt=tonumber(input())
			if inpt<=0 or inpt==nil or inpt>algorithm then return end
			local kazanc=inpt*wond*1000000
			-- say_title("Won Bozdur - Onaylama Paneli")
			-- say("")
			-- say("Sahip olduğun Yang: "..numberToDots(myyang))
			-- say("Sahip olduğun Won: "..mywon)
			-- say("")
			-- say_reward("Bozdurulacak Won: "..inpt)
			-- say_reward("Kazanılacak Yang: "..numberToDots(kazanc))
			-- say("")
			-- say_color("mor","Son durumdaki yang: "..numberToDots(myyang+kazanc))
			-- say_color("mor","Son durumdaki won: "..numberToDots(mywon-inpt))
			-- say("")
			-- say("Onaylıyor musunuz?")
			-- if select("Evet","Hayır")==2 then return end
			pc.change_gold(kazanc)
			pc.change_cheque(-inpt)
			syschat("Won başarıyla bozduruldu.")
		end
	elseif my_sec==2 then
		if myyang==0 then
			syschat(" Üzgünüm, sana ait yang göremiyorum.")
			return
		end
		local algorithm=math.min(math.floor(myyang/((wond+tax)*1000000)),maxCheque-mywon)
		say_title("Won Satın Al")
		say("")
		say("")
		say("Sahip olduğun Yang: "..numberToDots(myyang))
		say("Sahip olduğun Won: "..mywon)
		say("")
		say_reward("Satın alabileceğin max. değer: "..algorithm)
		if algorithm==0 then
			wait()
		else
			local inpt=tonumber(input())
			if inpt<=0 or inpt==nil or inpt>algorithm then return end
			local kayip=inpt*(wond+tax)*1000000
			-- say_title("Won Satın Al - Onaylama Paneli")
			-- say("")
			-- say("Sahip olduğun Yang: "..numberToDots(myyang))
			-- say("Sahip olduğun Won: "..mywon)
			-- say("")
			-- say_reward("Kaybedilecek Yang: "..numberToDots(kayip))
			-- say_reward("Kazanılacak Won: "..inpt)
			-- say("")
			-- say_color("mor","Son durumdaki yang: "..numberToDots(myyang-kayip))
			-- say_color("mor","Son durumdaki won: "..numberToDots(mywon+inpt))
			-- say("")
			-- say("Onaylıyor musunuz?")
			-- if select("Evet","Hayır")==2 then return end
			pc.change_gold(-kayip)
			pc.change_cheque(inpt)
			syschat("Won başarıyla satın alındı.")
		end
	end
end

end
end