• Créditos: Mock
  
• Tested on: TFS 0.3.6
  

Explicação: Bom, o Berseker system, é uma talkaction, que ao usa-la voce rebe em torno de 31% à 41% de cada skill (incluindo mana e vida). Ao usar você gasta 26 soul points, e o soul continua descendo de segundo em segundo, até zerar. Quando zerar, volta ao seu status normal.

Script:

Bom, mãos a obra:

Em data/talkactions/scripts, crie um arquivo chamado 'berserk' e adicione isso dentro:

 

--[[

Script By mock the bear

Config

]]

function choose(...)

local arg = {...}

return arg[math.random(1,#arg)]

end

local conf = {

effectlist = {12,13,14,3,28,29,30,39,68},

soulPerSec=1,

soulToStart=25,

allPercent=50,

}

---Load combat

local combat = createCombatObject()

setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE)

setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, false)

local condition = createConditionObject(CONDITION_ATTRIBUTES)

setConditionParam(condition, CONDITION_PARAM_TICKS, -1)

setConditionParam(condition, CONDITION_PARAM_SUBID, 49)

local cond = {

CONDITION_PARAM_STAT_MAXHEALTHPERCENT = 31,

CONDITION_PARAM_STAT_MAXMANAPERCENT = 32,

CONDITION_PARAM_STAT_MAGICLEVELPERCENT = 34,

CONDITION_PARAM_SKILL_MELEEPERCENT = 35,

CONDITION_PARAM_SKILL_FISTPERCENT = 36,

CONDITION_PARAM_SKILL_CLUBPERCENT = 37,

CONDITION_PARAM_SKILL_SWORDPERCENT = 38,

CONDITION_PARAM_SKILL_AXEPERCENT = 39,

CONDITION_PARAM_SKILL_DISTANCEPERCENT = 40,

CONDITION_PARAM_SKILL_SHIELDPERCENT = 41,

}

for i,b in pairs(cond) do

setConditionParam(condition, b, 100+conf.allPercent)

end

setConditionParam(condition, CONDITION_PARAM_BUFF, true)

setCombatCondition(combat, condition)

local function rot(cid,n) --- Script by mock

local tb_rot = {{0,2},{6,5},{1,3},{7,4},false}

if not isPlayer(cid) or tb_rot[n] == nil or getPlayerSoul(cid) == 0 or getPlayerStorageValue(cid,32481) == -1 then

return false

end

if tb_rot[n] == false then

doSendMagicEffect(getPosByDir(getCreaturePosition(cid), tb_rot[1][1]) , choose(unpack(conf.effectlist)))

doSendMagicEffect(getPosByDir(getCreaturePosition(cid), tb_rot[1][2]) ,choose(unpack(conf.effectlist)))

addEvent(rot, 200,cid,2)

return false

end

doSendMagicEffect(getPosByDir(getCreaturePosition(cid), tb_rot[n][1]) , choose(unpack(conf.effectlist)))

doSendMagicEffect(getPosByDir(getCreaturePosition(cid), tb_rot[n][2]) , choose(unpack(conf.effectlist)))

n = n+1

addEvent(rot, 200,cid,n)

end

function checkBuff(cid)

if not isPlayer(cid) then return end

if getPlayerSoul(cid) > 0 and getPlayerStorageValue(cid,32481) == 1 then

doPlayerAddSoul(cid,-conf.soulPerSec)

doSendMagicEffect(getCreaturePosition(cid) , 49)

addEvent(checkBuff,1000,cid)

else

doRemoveCondition(cid, CONDITION_ATTRIBUTES,49)

setPlayerStorageValue(cid,32481,-1)

return false

end

end

function onSay(cid, words, param, channel) --- Script by mock

if getPlayerStorageValue(cid,32481) == 1 then

setPlayerStorageValue(cid,32481,-1)

doCreatureSay(cid,'[berserk Mode]: Off',19)

return true

end

if getPlayerSoul(cid) >= conf.soulToStart then

doPlayerAddSoul(cid,-conf.soulToStart)

setPlayerStorageValue(cid,32481,1)

checkBuff(cid)

rot(cid,1)

doCreatureSay(cid,'[berserk Mode]: On',19)

doCombat(cid, combat, numberToVariant(cid))

else

doPlayerSendTextMessage(cid,25,'Voce precisa de 26 soul points!')

end

return true

end

Entendendo:

Bom, você não precisa mudar nada, o que está em negrito, são as condiçoes em que o player ficará após o uso do comando. Está bem óbvio, qualquer um consegue entende aquilo, AÇÃO= PORCENTAGEM, caso alguem queira fazer mudanças...

E a tag:

<talkaction words="!berserk" event="script" value="berserk.lua"/>

É isso, vlw!

Perfeito esse sistema, ótimo para RPGs como um item de raridade média ou fabricado por profissão

não foi você que fez não juro ter visto esse script no ot land.

não foi você que fez não juro ter visto esse script no ot land.

Mas em nenhum momento ele disse que é dono do script, na próxima vez antes de postar pelo menos lê um pouco...

Ainda mais ele adicionou o nome do autor em cor vermelha:

Créditos: Mock

não foi você que fez não juro ter visto esse script no ot land.

Newfags =/

Mais atenção aí amigo!