Yardım quest ekleme

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 " 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
               if inpt > 0 then
                    pc.change_gold(-kayip)
                    pc.change_cheque(inpt)
                    syschat("Won başarıyla satın alındı.")
                    else
                    say("Bir hata oluştu. Lütfen tekrar deneyin")
                end
        end
    end
end
end
end