----------********** Beceri attir ***********----------

[Catrina]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

elseif a == 1 then
say_title("Beceri arttir'")
if skill_points == 0 then
say("Beceri arttirmak icin puan gereklidir.[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.." puan")
end
end
table.insert(menu_abi, "iptal")
if table.getn(menu_abi) == 1 then
say("Bu beceriyi arttirmak mumkun degildir..[ENTER]")
return
end
say("Arttirmak icin bir beceri secin")
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("Mevcut puan: "..skill_value.." [ENTER]")
if skill_value == PetSystem[PetIndex].Skill.max_points then
say("Yetenek maximum seviyeye ulasti.[ENTER]")
return
end
say("Her puan "..PetSystem[PetIndex].Skill.desc.." vermektedir.")
say("Bu yetenege max. "..PetSystem[PetIndex].Skill.max_points.." puan verebilirsiniz[ENTER]")
local a = select("arttir", "iptal")
if a == 2 then
return
end
say(PetSystem[PetIndex].Skill.name)
say("Yetenege verebileceginiz maximum puani goz onunde bulundurarak rakamla yaziniz[ENTER]")
say("Bu beceriyi kac puan yukseltmek istersiniz ?(Rakam girin)[ENTER]")
local points = tonumber(input())
say_title(PetSystem[PetIndex].Skill.name)
if points == nil or points < 1 then
say("Gecersiz bir deger girdiniz.[ENTER]")
return
elseif points > skill_points then
say("Yeterli yetenek puani yok[ENTER]")
return
elseif (skill_value+points) > PetSystem[PetIndex].Skill.max_points then
say("Secilen beceri icin girdiginiz"..points.." puan gecersiz,")
say("beceriye verilebilecek maximum puana bir goz atin.")
say("Daha kucuk degerler kullanin.[ENTER]")
return
end
PetSystem.RemoveBonus(PetIndex)
say("Yetenek arttirma basarili[ENTER]")
skill_value = skill_value+points
PetSystem.ChangeSkillPoints(PetIndex, -points)
PetSystem.SaveSkill(PetIndex, skill_value)
PetSystem.AddBonus(PetIndex)
PetSystem.pokaz_gui(2)

 

[thenemne0032]

Sistem hatalı olduğu için konuyu kilitliyorum. Sistemi çalışır hale getirir ve konuyu tekrar düzenlemek isterseniz özel mesaj yoluyla ulaşabilirsiniz.