Ampolla Exp

--**Quest by Luzzo
--**Data: 15/01/2015


quest ampolla begin
    state start begin

        function get_range()
            if item.get_socket(0) >= 2000000000 then
                return 10
            elseif item.get_socket(0) >= 1500000000 then
                return 9
            elseif item.get_socket(0) >= 500000000 then
                return 8
            elseif item.get_socket(0) >= 250000000 then
                return 7
            elseif item.get_socket(0) >= 50000000 then
                return 6
            elseif item.get_socket(0) >= 7500000 then
                return 5
            elseif item.get_socket(0) >= 500000 then
                return 4
            elseif item.get_socket(0) >= 250000 then
                return 3
            elseif item.get_socket(0) >= 30000 then
                return 2
            end
            return 1
        end

        function get_level()
            local level_a = { 5,10,20,30,40,50,60,70,80,90}
            return level_a[ampolla.get_range()]

        end
        function GetScriptData(data)
            local bank_data = {['exp_limit'] = math.floor(pc.get_next_exp()*0.80),                  -- limite di exp depositabile e ritirabile. 80% del livello
                              ['min_lev'] = ampolla.get_level() }                   -- livello minimo per usare la banca,

            return rawget(bank_data, data)
        end
        function exp___operation(operation)
            if operation == 1 then
                say("Quanta exp vuoi depositare?")
                say_reward("Limite depositabile:"..ampolla.GetScriptData('exp_limit'))
                say_reward("Exp pg:"..pc.get_next_exp())
                local exp__ = tonumber(input())
                if exp__ == nil then
                    syschat("Hai inserito un valore non valido")
                    return
                end
                if exp__ > 0 and exp__ < 2000000000 and pc.get_exp() >= exp__ and item.get_socket(0)+exp__ <=  2000000000  then
                    pc.give_exp2(-exp__)
                    item.set_socket(0, item.get_socket(0)+exp__)
                    item.set_socket(1, ampolla.get_level())
                    syschat("Hai depositato "..exp__.." exp.")
                else
                    syschat("Hai inserito un valore non valido")
                end
            elseif operation == 2 then
                say("Quanta exp vuoi ricevere?")
                say_reward("Limite exp ritirabile:"..ampolla.GetScriptData('exp_limit'))
                say_reward("Exp nell'ampolla:"..item.get_socket(1))
                local exp__ = tonumber(input())
                if exp__ == nil then
                    syschat("Hai inserito un valore non valido")
                    return
                end
                if pc.get_level() < ampolla.get_level() then
                    syschat("Questa ampolla non e' per il tuo livello")
                    return
                end
                if exp__ > 0 and item.get_socket(0) >= exp__ and exp__ <= ampolla.GetScriptData('exp_limit') then
                    pc.give_exp2(exp__)
                    item.set_socket(0, item.get_socket(0)-exp__)
                    item.set_socket(1, ampolla.get_level())
                    syschat("Hai preso "..exp__.." exp.")
                else
                    syschat("Hai inserito un valore non valido")
                end
            elseif operation == 3 then
                say("Perderai tutta l'exp sull'ampolla.")
                say_reward("Sei sicuro?")
                local conf_deleting = select("Si,Elimina","No,ci penso")
                if conf_deleting == 1 then
                    item.remove()
                end
            end
        end

       when 50512.use with pc.get_level() >= ampolla.get_level() begin
            say_title("Ampolla Exp")
            say("Ciao "..pc.get_name().." come posso aiutarti?")
            local selection = {"Deposita Exp","Ritira Exp","Elimina Ampolla","Esci"}
            local choice = select_table(selection)
            if choice != table.getn(selection) then
                say_title("Anpolla Exp")
                say("Mode:"..selection[choice])
                ampolla.exp___operation(choice)
            else
                return
            end
        end
    end
end