LikePc scrie:Intra in /usr/home/game/share/locale/germany sau cum ai tu
blend.txt
si vezi daca ai bonusurile

#Ãæ±âȯ
section
item_vnum 51002
apply_type ENERGY
apply_value 1 3 5 7 10
apply_duration 7200 7200 7200 7200 7200
end

LikePc scrie:questlib ?

function setenergy(typ,value,timez)
pc.setqf("energy_value", value)
pc.setqf("energy_date", get_time() + timez)
pc.setqf("energy_typ", typ)
end
function setenergytime(timez)
pc.setqf("energy_date", timez)
end
function getenergytyp()
return pc.getqf("energy_typ")
end
function getenergyvalue()
return pc.getqf("energy_value")
end
function getenergytime()
return pc.getqf("energy_date")
end

function split(str, delim, maxNb)
if str == nil then return str end
if string.find(str, delim) == nil then return { str } end
if maxNb == nil or maxNb < 1 then maxNb = 0 end
local result = {}
local pat = "(.-)" .. delim .. "()"
local nb = 0
local lastPos
for part, pos in string.gfind(str, pat) do
nb = nb + 1
result[nb] = part
lastPos = pos
if nb == maxNb then break end
end
if nb ~= maxNb then result[nb + 1] = string.sub(str, lastPos) end
return result
end



mysql_query = function(query)
local rt = io.open('CONFIG','r'):read('*all')
local pre= string.gsub(rt,'.+PLAYER_SQL:%s(%S+)%s(%S+)%s(%S+)%s(%S+).+','-h%1 -u%2 -p%3 -D%4')
math.randomseed(os.time())
local fi,t,out = 'mysql_data_'..math.random(10^9)+math.random(2^4,2^10),{},{}
os.execute('mysql '..pre..' --e='..string.format('%q',query)..' > '..fi)
for av in io.open(fi,'r'):lines() do table.insert(t,split(av,'\t')) end; os.remove(fi);
for i = 2, table.getn(t) do table.foreach(t,function(a,b)
out[i-1] = out[i-1] or {}
out[i-1][a] = b
out[t[1][a]] = out[t[1][a]] or {}
out[t[1][a]][i-1] = b
end) end
return out
end

-- Entferne Leerzeichen vor und nach dem String
function string.trim(str)
return (string.gsub(str, "^%s*(.-)%s*$", "%1"))
end
-- String zu Array über Seperator
function string.explode(str, sep)
if sep == "" or str == "" then
error("Parametru lipsa")
end
local pos, t = 1, {}
for s, e in function() return string.find(str, sep, pos) end do
table.insert(t, string.trim(string.sub(str, pos, s-1)))
pos = e+1
end
table.insert(t, string.trim(string.sub(str, pos)))
return t
end

quest

quest energy_system begin
state start begin
when 20001.chat."Inima albastra" begin
say_title("Alchimist")
say("De curand a aparut o noua putere.")
say("Fiecare monstru are un fragment de energie in el.")
say("Eu iti pot spune cum poti sa il scoti")
say("dar aceasta este o technica grea care")
say("poate fi invatata de abia de la levelul 75.")
wait()
say_title("Alchimist")
say("Daca ai strans destule fragmente de energie,")
say("eu ti le pot topi, pentru a obtine un cristal.")
say("Acel cristal iti da un bonus PvP sau PvM.")
say("Astepta o secunda.Trebuie sa gasesc cartea ...")
wait()
say_reward("Ai invatat cum sa obtii fragmente si cum sa le topesti!")
say_reward("Made by DaRealPain")
set_state("make")
end
end
state make begin
when 20001.chat."Otinerea mult temutului cristals" begin
say_title("Alchimist")
say("Ah vrei sa obtii un cristal plin de energie?")
say("Pentru a putea topi fragmentele trebuie sa ai")
say("30 din ele si levelul 75.")
wait()
if pc.get_level() < 750 then
say_title("Alchimist")
say("Inca nu esti destul de puternic.")
say("Dute, antreneazate si revino cand ai levelul 75!")
else
if pc.count_item(51001) >= 30 then
say_title("Alchimist")
say_reward("Made by DaRealPain")
say("Foarte bine! Ai strans toate cele 30 de fragmente.")
say("Acum ti le pot topi pentru a obtine un cristal!")
say("Asteapta un moment. O sa incerc sa le topesc.")
say("Dar nu pot garanta ca o sa functioneze.")
wait()
say_title("Alchimist")
say("Totul este pregatit pentru topire.")
say("Dar eu trebuie sa si traiesc din ceva.")
say("Uneltele mele nu cad din cer!")
say("Am nevoie de o miiiica suma de bani.")
say("Suma este de vreo 35kk Yang")
say("Vrei sa platesti?")
if select("Da, normal!","Nu, nu acum") == 2 then
return
end

pc.change_money(-350000000)
pc.remove_item(51001,30)

if number(0,1) == 1 then
say_title("Alchimist")
say("A functionatt!")
say("Poftim, aici ai cristalul.")
say("Ii simti deja puterea?")
pc.give_item2(51002,1)
else -- NICHT DE
say_title("Alchimist")
say("Din pacate nu a functionat!")
say("Imi pare rau!")
return
end

else -- NICHT DE
say_title("Alchimist")
say("Din pacate nu ai cele 30 de fragmente, ")
say("de care am nevoie. Pleaca!")
return
end

end
end

when login begin
if getenergytime() < 50000 then
test_chat("[Energy]Restzeit: "..getenergytime())
setenergytime(getenergytime() + get_time())
cmdchat("energysystem "..getenergytyp().."|"..getenergyvalue().."#"..getenergytime())
end
end
when logout begin
if getenergytime() > get_time() then
local energy = getenergytime() - get_time()
if energy > 0 then
setenergytime(energy)
end
end
end

when 51002.use begin
if getenergytime() > get_time() then
chat("Deja te folosesti de puterea unui cristal!")
return
end

local anz = number(1,10)
boni_list = {}
boni_list [1] = {apply.ATTBONUS_HUMAN, 20}
boni_list [2] = {apply.ATTBONUS_MONSTER, 15}
boni_list [5] = {apply.MAX_HP, 3500}
boni_list [6] = {apply.MAX_SP, 3000}
boni_list [9] = {apply.ATT_GRADE_BONUS, 75}
boni_list [10] = {apply.ATT_GRADE_BONUS, 50}

-- test_chat(anz)
-- test_chat(boni_list[anz][1])
-- test_chat(boni_list[anz][2])

affect.add_collect(boni_list[anz][1],boni_list[anz][2],7200)
setenergy(anz,boni_list[anz][2],get_time() + 7200)

cmdchat("energysystem "..anz.."|"..boni_list[anz][2].."#"..(get_time() + 7200))

-- setenergytime(get_time() + 7200)

item.remove()
chat("Simti puterea nemaipomenita a cristalului ..")

end
end
end