Pet System Dodawanie Bonów bez buga

[azah]

Witam chce wam udostępnić część funkcji odpowiadający za dodawanie bonów petowi 

 

funkcje sam edytowałem w większości funkcji wpisujemy punkty a w mojej dodajemy punkty bez wpisywania więc na pewno wpis "NAN" nie zadziała

 

 

a o to Kod:

 

 

--**
--** Menu Pet
--**
function PetSystem.ShowMenu(PetIndex)
    if horse.is_mine() then
        local pet_menu
        if pc.getqf("exp_blocked") == 0 then
            pet_menu = {"Informacje","Umiejetnosci","Blokada Doswiadczenia","Status","Odwołaj","Zamknij"}
        else
            pet_menu = {"Informacje","Umiejetnosci","Odblokowanie doswiadczenia","Status'","Odwołaj","Zamknij"}
        end
        say_title("Towarzysz: "..PetSystem[PetIndex].Name)
        local skill_points, liv, ex = PetSystem.ReadStatus(PetIndex)
        say_light_yellow("Poziom: "..liv.." / "..PetSystem[PetIndex].MaxLevel.." - Punkty doswiadczenia: "..skill_points.."")
        local dos = math.floor(ex/PetSystem[PetIndex].ExpTable[liv]*100)
        if not PetSystem.IsExpBlocked() then
            say_light_yellow("Doświadczenie: "..ex.." / "..PetSystem[PetIndex].ExpTable[liv].." (Odblokowane)")
        else
            say_light_yellow("Doświadczenie: "..ex.." / "..PetSystem[PetIndex].ExpTable[liv].." (Zablokowane)")
        end
        say("Wybierz operacje:")
        say_size(350, 330)
        local s = select_table(pet_menu)
----------********** Informations ***********----------        
        if s == 1 then
            say_title("Informacje")
            say("Funkacja Pet system dodanie bonów Edytowana przez AZAH ")
----------********** Gestion Habilité ***********----------            
        elseif s == 2 then
            say_title("Tutaj mozesz dodac pkt umiejętności swojemu petowi: "..PetSystem[PetIndex].Name.."")
            say_orange("Twoje pkt. umiejętności: "..skill_points.."")
            say("[ENTER]Co chcesz zrobić:[ENTER]")
            local a = select("Dodaj umiejętność","Odejmij umiejętność","Anuluj")
            if a == 3 then
                return
            ----------********** Augmenter Habilité' ***********----------
            elseif a == 1 then    
                say_title("Dodawanie umiejętności")
                if skill_points == 0 then
                    say("Aktualnie nie masz żadnych pkt do dodania.[ENTER]")
                    return
                end
                local skill_value = {}
                local menu_abi = {}
                skill_value = PetSystem.LoadSkill(PetIndex)
                for i = 1, table.getn(PetSystem[PetIndex].Skill) do
                    if liv >= PetSystem[PetIndex].Skill.min_level then
                        table.insert(menu_abi, PetSystem[PetIndex].Skill.name..": "..skill_value.." pkt.")
                    end
                end                
                table.insert(menu_abi, "Anuluj")
                if table.getn(menu_abi) == 1 then
                    say("Il n'est pas possible d'augmenter.[ENTER]")
                    return
                end
                say("Wybierz w co chcesz dodac pkt. umiejętności:")
                say_size(350, PetSystem[PetIndex].WindowSize)            
                local s = select_table(menu_abi)
                if s == table.getn(menu_abi) then
                    return            
                end
                say_title(PetSystem[PetIndex].Skill.name)
                say_orange("Aktualnie dodanych pkt.: "..skill_value.." [ENTER]")
                if skill_value == PetSystem[PetIndex].Skill.max_points then
                    say("Dodałeś/aś Maximum PKT.[ENTER]")
                    return
                end
                say_light_blue("Jednek pkt. dodaje: "..PetSystem[PetIndex].Skill.desc.."")
                say_light_blue("Maksymalna liczba pkt: "..PetSystem[PetIndex].Skill.max_points.."[ENTER]")
                local a = select("Dalej", "Anuluj")
                if a == 2 then
                    return
                end
                say_title(PetSystem[PetIndex].Skill.name)
                say("wybierz ile chcesz PKT dodać! [ENTER]")
                local points = select("+1 PKT.", "+2 PKT.", "+3 PKT.", "+4 PKT.", "+5 PKT.", "+6 PKT.")
                say_title(PetSystem[PetIndex].Skill.name)
                if points == nil or points < 1 then
                    say("Wprowadziłeś nieprawidłową wartość.[ENTER]")
                    return
                elseif points > skill_points then
                    say("Nie posiadasz tak dużej ilości pkt..[ENTER]")
                    return
                elseif (skill_value+points) > PetSystem[PetIndex].Skill.max_points then
                    say("Wybrałeś/aś  "..points.." point(s),")
                    say("jest to za duża liczba PKT")
                    say("spróbuj jeszcze raz .[ENTER]")
                    return
                end
                skill_value = skill_value+points
                PetSystem.ChangeSkillPoints(PetIndex, -points)
                PetSystem.SaveSkill(PetIndex, skill_value)
                PetSystem.AddBonus(PetIndex)
                say("Pkt. umiejętności zostały pomyślnie dodane.[ENTER]")
 

Mam nadzieje że wam się przyda moja funkcja do Petów  pozdrawiam AZAH

[Erados]

myślałem, że bonusy się w socketach ustawia

@Tesoria

[azah]

myślałem, że bonusy się w socketach ustawia

@Tesoria

to jet Menu Peta odpowiadający za dodawanie ilości punktów do danej umiejętności peta

[Erados]

to jet Menu Peta odpowiadający za dodawanie ilości punktów do danej umiejętności peta

 

Jak chcesz bez bugów to musisz w socketach.

[azah]

Jak chcesz bez bugów to musisz w socketach.

spróbuj zbugować PKT

[ZoneWar.pl]

spróbuj zbugować PKT

Spróbuj chwycić sarkazm.

[Erados]

spróbuj zbugować PKT

 

[D0MIK]

wracamy do 2k10

[PanTroian]

Można też tak:

 

local input = input()
if string.find(string.lower(input), "nan") or string.find(string.lower(input), "nil") then
    say("nie lam")
else
    [...]
end

albo

local input = tonumber(input())

if input > 0 then
    [...]
else
    say("Nie lam")
end

[****Pavcio****]

myślałem, że bonusy się w socketach ustawia

@Tesoria

To od początku nie było śmieszne, teraz tym bardziej.

 

 

wracamy do 2k10

Ty pajacu to w 2k10 jeszcze z jajka na jajko przeskakiwałeś.

 

Quest c*****y, nawet całego nie spolszczyłeś bo pewnie nie umiałeś.

I o jakim bugu mówisz?

[#Filip]

To od początku nie było śmieszne, teraz tym bardziej.

 

 

Ty pajacu to w 2k10 jeszcze z jajka na jajko przeskakiwałeś.

 

Quest c*****y, nawet całego nie spolszczyłeś bo pewnie nie umiałeś.

I o jakim bugu mówisz?

Nan , a quest w 2012 był najlepszym możliwym.

[****Pavcio****]

Nan , a quest w 2012 był najlepszym możliwym.

Przecież blokada nan to jeden if

[#Filip]

Przecież blokada nan to jeden if

Wiem, ale jak tak myślę to lepiej kliknąć sobie raz niż pisać i klikać

[azah]

Wiem, ale jak tak myślę to lepiej kliknąć sobie raz niż pisać i klikać

masz rację lepiej kliknąć niż pisać i klikać