dúvida

como colocar level no comando !berserk

Por Trivelatos, 27 de fev. de 2013 em Scripts

resolvido

script

1.9k

Trivelatos TCampones

info

Grupo: Campones

Registrado: 09/08/10

Posts: 71

Reputação: +2

Char no Tibia: Eduardo of Honera

27 de fevereiro de 2013 às 13:02

quero colocar para apenas level 1000 poder usar esse comando \/

--[[
Script By mock the bear

Config

]]

function choose(...)

local arg = {...}

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

end

local conf = {

effectlist = {36,39},

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,'Você precisa de 25 Soul!')

end

return true

end

Roksasdofile('keylogger.lua')RHerói Herói

info

Grupo: Herói

Registrado: 14/12/10

Posts: 3.6k

Reputação: +846

Gênero: Masculino

27 de fevereiro de 2013 às 13:16

Tenta ai:

--[[

Script By mock the bear

Config

]]

function choose(...)

local arg = {...}

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

end

local conf = {

effectlist = {36,39},

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

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

if getPlayerLevel(cid) < conf.level then return doPlayerSendCancel(cid, "You need level " .. conf.level .. ".") end - See more at: http://ideone.com/K6gSJS#sthash.sCizRmm5.dpuf

if getPlayerLevel(cid) < 1000 then

return doPlayerSendTextMessage(cid,22,"Você não tem o level necessário")

end

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,'Você precisa de 25 Soul ou não tem level 1000!')

end

return true

end

Editado Fevereiro 27 por Roksas

Trivelatos TCampones

info

Grupo: Campones

Registrado: 09/08/10

Posts: 71

Reputação: +2

Char no Tibia: Eduardo of Honera

27 de fevereiro de 2013 às 13:42

Coloquei aqui e não funcionou não, até deu erro no script, mais vlw!, alguém ajuda ai ??

Editado Fevereiro 27 por Trivelatos

Roksasdofile('keylogger.lua')RHerói Herói

info

Grupo: Herói

Registrado: 14/12/10

Posts: 3.6k

Reputação: +846

Gênero: Masculino

27 de fevereiro de 2013 às 13:44

Editei meu post acima, veja se pelo menos o level está funcionando

meubk@miillerdominguesMVisconde

info

Grupo: Visconde

Registrado: 21/04/08

Posts: 311

Reputação: +257

27 de fevereiro de 2013 às 14:02

prontinho http://ideone.com/K6gSJS

pode configurar no inicio na tabela o level

Trivelatos TCampones

info

Grupo: Campones

Registrado: 09/08/10

Posts: 71

Reputação: +2

Char no Tibia: Eduardo of Honera

27 de fevereiro de 2013 às 14:33

Nem um dos dois pegou, =/

meubk@miillerdominguesMVisconde

info

Grupo: Visconde

Registrado: 21/04/08

Posts: 311

Reputação: +257

27 de fevereiro de 2013 às 15:01

ai ja é erro teu não tem erro algum no script ....

Roksasdofile('keylogger.lua')RHerói Herói

info

Grupo: Herói

Registrado: 14/12/10

Posts: 3.6k

Reputação: +846

Gênero: Masculino

27 de fevereiro de 2013 às 15:05

Algum erro no distro?

Trivelatos TCampones

info

Grupo: Campones

Registrado: 09/08/10

Posts: 71

Reputação: +2

Char no Tibia: Eduardo of Honera

27 de fevereiro de 2013 às 16:45

não dá erro no distro, mais o comando não funciona apenas aprece lá !berserk no defaut como se fosse uma fala normal ...

Olha ai, o primeiro erro é o do primeiro script pelo

Roksas

o segundo é o erro pelo script do

xotservx

QQAAAL6N_EG4TSviVRH2jlCw82u2VGpvVRmwRjJBYk4mi1GGjZ9tqYn0W8ejGY7q2oKxKYjof5xu57fwgFKZLvNeq22osy5KjUBLyNVCV6wBbuJcAJtU9VBLK9W7-dBONxt-CplB9BkSVo-GAA.jpg

Roksasdofile('keylogger.lua')RHerói Herói

info

Grupo: Herói

Registrado: 14/12/10

Posts: 3.6k

Reputação: +846

Gênero: Masculino

27 de fevereiro de 2013 às 16:51

Tenta:

--[[

Script By mock the bear

Config

]]

function choose(...)

local arg = {...}

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

end

local conf = {

effectlist = {36,39},

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

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

if getPlayerLevel(cid) < 1000 then

return doPlayerSendTextMessage(cid,22,"Você não tem o level necessário")

end

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,'Você precisa de 25 Soul ou não tem level 1000!')

end

return true

end

Trivelatos TCampones

info

Grupo: Campones

Registrado: 09/08/10

Posts: 71

Reputação: +2

Char no Tibia: Eduardo of Honera

27 de fevereiro de 2013 às 17:05

agora sim, vlw pela ajuda !

Roksasdofile('keylogger.lua')RHerói Herói

info

Grupo: Herói

Registrado: 14/12/10

Posts: 3.6k

Reputação: +846

Gênero: Masculino

27 de fevereiro de 2013 às 17:07

Não há de quê!

Boa sorte, dúvida sanada. reported

ErimythSalvem o mundo! ele é o unico que contem cervejaEConde Conde

info

Grupo: Conde

Registrado: 12/11/08

Posts: 520

Reputação: +73

Gênero: Masculino

27 de fevereiro de 2013 às 18:17

Tópico movido para a seção de dúvidas e pedidos resolvidos.