[Aporte] Bless TFS 1.2+

Bueno En El server 11.49 de malucooo posteado por [GOD MAYA] no funcionan los scripts que encontre aqui asi realize estos
el primero es un item X que al clickarle les da bless mas no se remueve:

crean un scripts xnombre.lua y colocan eso

Código:

function onUse(cid, item)
local p = Player(cid)

      -- VERIFICAR SI TIENE BLESS
if(p:hasBlessing(1) and p:hasBlessing(2) and p:hasBlessing(3) and p:hasBlessing(4) and p:hasBlessing(5) and p:hasBlessing(6)) then
return doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You have already been blessed by the gods.") and doSendMagicEffect(getCreaturePosition(cid), 3)
end

-- COLOCAR BLESS
for i = 1, 8 do
p:addBlessing(i,1)
doSendMagicEffect(getCreaturePosition(cid), 47)
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You have been blessed by the gods!")
end

return true
end

y la tag en actions seria asi :

Código:

<action itemid="xxxx" script="xnombre.lua"/>

ahora para hacerlo un talkaction
crean un script xnombre.lua y colocan eso

Código:

function getCost(level)
if level <= 30 then
return 2000*5
elseif level >= 120 then
return 10000*5
else
return ((level - 20) * 200 * 5)
end
end

function onSay(cid, words, param)
local p = Player(cid)
local cost = getCost(getPlayerLevel(cid))
if(not(isPlayerPzLocked(cid))) then
if(p:hasBlessing(1) and p:hasBlessing(2) and p:hasBlessing(3) and p:hasBlessing(4) and p:hasBlessing(5) and p:hasBlessing(6)) then
p:sendCancelMessage("You have already been blessed by the gods.")
return false
end
if(p:removeMoneyNpc(cost)) then
for b = 1,8 do
p:addBlessing(b,1)
end
p:getPosition():sendMagicEffect(50)
p:sendTextMessage(19, "You have been blessed by the gods!")
else
p:sendCancelMessage("You need "..cost.." gold coins to buy all blessings.")
end
else
p:sendCancelMessage("You can't buy bless, when you are in a battle.")
end
return false
end

y la tag en talkaction seria asi:

Código:

<talkaction words="!bless" script="xnombre.lua"/>

espero les sirva

OBS: Lo que le cambie fue que en las anteriores versiones solo tienen 6 bless y pues en esta tiene 8 por eso el >(for b = 1,8 )< y pues despues para que las añada se la añadiria una "," y un "1" asi "p:addBlessing(b,1)"

buen aporte +1

hola estoy con eso script pero no consigo cambear el dinero [Tienes que estar registrado y conectado para ver este vínculo]

maper1 escribió:hola estoy con eso script pero no consigo cambear el dinero [Tienes que estar registrado y conectado para ver este vínculo]

Lo cambias en esta funcion

function getCost(level)
if level <= 30 then
return 2000*5
elseif level >= 120 then
return 10000*5 -----> aqui
else
return ((level - 20) * 200 * 5)
end
end

Quiero que cueste 100000

maper1 escribió:Quiero que cueste 100000

A ver intenta con esto

Código:



function onSay(cid, words, param)
local p = Player(cid)
local cost = 100000
if(not(isPlayerPzLocked(cid))) then
if(p:hasBlessing(1) and p:hasBlessing(2) and p:hasBlessing(3) and p:hasBlessing(4) and p:hasBlessing(5) and p:hasBlessing(6)) then
p:sendCancelMessage("You have already been blessed by the gods.")
return false
end
if(p:removeMoneyNpc(100000)) then
for b = 1,8 do
p:addBlessing(b,1)
end
p:getPosition():sendMagicEffect(50)
p:sendTextMessage(19, "You have been blessed by the gods!")
else
p:sendCancelMessage("You need "..cost.." gold coins to buy all blessings.")
end
else
p:sendCancelMessage("You can't buy bless, when you are in a battle.")
end
return false
end



gracias mayaa el mejorrrr xDDD