brun123

Abra o creaturescripts.xml e coloque essas tags:
 

<event type="login" name="ExpPorHoraLogin" event="script" value="expporhora.lua"/> <event type="logout" name="ExpPorHoraLogout" event="script" value="expporhora.lua"/>
 
agora crie um arquivo chamado expporhora.lua em data/creaturescripts/scripts e cole isso dentro:
 

expTable = {} -- não modifique interval = 60 * 60 * 1000 expGain = 10000 function execLogin(cid, lastLogin) registerCreatureEvent(cid, "ExpPorHoraLogout") if not expTable[getPlayerGUID(cid)] then expTable[getPlayerGUID(cid)] = {timeOnline = 0} end expTable[getPlayerGUID(cid)].lastLogin = os.clock() expTable[getPlayerGUID(cid)].event = addEvent(addExp, interval - 1000 * expTable[getPlayerGUID(cid)].timeOnline, cid) end function addExp(cid) if not isCreature(cid) then return end expTable[getPlayerGUID(cid)].timeOnline = 0 doPlayerAddExperience(cid, expGain) doSendAnimatedText(getThingPos(cid), expGain, 215) doPlayerSendTextMessage(cid, 27, "Você recebeu "..expGain.." xp por ficar 1 hora online!") execLogin(cid, os.clock()) end function onLogout(cid) if not expTable[getPlayerGUID(cid)] then return true end expTable[getPlayerGUID(cid)].timeOnline = expTable[getPlayerGUID(cid)].timeOnline + os.clock() - expTable[getPlayerGUID(cid)].lastLogin stopEvent(expTable[getPlayerGUID(cid)].event) return true end function onLogin(cid) if getCreatureName(cid) == "Account Manager" then return true end execLogin(cid) return true end
 
o tempo salva, significa que se o player fica 30 min online e fizer logout, quando ele entrar de novo só vai precisar esperar mais 30 min pra ganhar o xp. o tempo só é resetado se o servidor fechar

sim, se o cara tiver o nome de Account Manager ele não iria ganhar, ta aqui sem salvar tempo:
 

local interval = 60 * 60 * 1000 local expGain = 10000 local function addExp(cid) if not isCreature(cid) then return end doPlayerAddExperience(cid, expGain) doSendAnimatedText(getThingPos(cid), expGain, 215) doPlayerSendTextMessage(cid, 27, "Você recebeu "..expGain.." xp por ficar 1 hora online!") addEvent(addExp, interval, cid) end function onLogin(cid) addEvent(addExp, interval, cid) return true end

function onSay(cid) local PORTAL_POS = {x = 1000, y = 1000, z = 7} -- pos onde irá aparecer o portal local DESTINO = {x = 400, y = 300, z = 7} -- pos para onde o portal irá levar local BROADCAST = "O portal fechou." local MAX_PLAYERS = 5 local PORTAL_ITEMID = 1387 local I = getTileItemById(PORTAL_POS, PORTAL_ITEMID) if I.uid > 1 then return doPlayerSendCancel(cid, "Já existe um portal!") end local function func(players) local cid = getTopCreature(PORTAL_POS).uid if isPlayer(cid) then doTeleportThing(cid, DESTINO, false) doSendMagicEffect(DESTINO, CONST_ME_TELEPORT) players = players - 1 if players <= 0 then doBroadcastMessage(BROADCAST) local I = getTileItemById(PORTAL_POS, PORTAL_ITEMID).uid if I > 1 then doRemoveItem(I) end return end end addEvent(func, 150, players) end func(MAX_PLAYERS) doCreateItem(PORTAL_ITEMID, PORTAL_POS) return true end

Abra o creaturescripts.xml e coloque essas tags:
 

<event type="login" name="ExpPorHoraLogin" event="script" value="expporhora.lua"/> <event type="logout" name="ExpPorHoraLogout" event="script" value="expporhora.lua"/>
 
agora crie um arquivo chamado expporhora.lua em data/creaturescripts/scripts e cole isso dentro:
 

expTable = {} -- não modifique interval = 60 * 60 * 1000 expGain = 10000 function execLogin(cid, lastLogin) registerCreatureEvent(cid, "ExpPorHoraLogout") if not expTable[getPlayerGUID(cid)] then expTable[getPlayerGUID(cid)] = {timeOnline = 0} end expTable[getPlayerGUID(cid)].lastLogin = os.clock() expTable[getPlayerGUID(cid)].event = addEvent(addExp, interval - 1000 * expTable[getPlayerGUID(cid)].timeOnline, cid) end function addExp(cid) if not isCreature(cid) then return end expTable[getPlayerGUID(cid)].timeOnline = 0 doPlayerAddExperience(cid, expGain) doSendAnimatedText(getThingPos(cid), expGain, 215) doPlayerSendTextMessage(cid, 27, "Você recebeu "..expGain.." xp por ficar 1 hora online!") execLogin(cid, os.clock()) end function onLogout(cid) if not expTable[getPlayerGUID(cid)] then return true end expTable[getPlayerGUID(cid)].timeOnline = expTable[getPlayerGUID(cid)].timeOnline + os.clock() - expTable[getPlayerGUID(cid)].lastLogin stopEvent(expTable[getPlayerGUID(cid)].event) return true end function onLogin(cid) if getCreatureName(cid) == "Account Manager" then return true end execLogin(cid) return true end
 
o tempo salva, significa que se o player fica 30 min online e fizer logout, quando ele entrar de novo só vai precisar esperar mais 30 min pra ganhar o xp. o tempo só é resetado se o servidor fechar

na tabela bem no início do código, você tem linhas assim:
 

[heart] = {Nome dos pokemons que evoluem com heart stone}, [fire] = {...},
 
esse heart/fire etc são variáveis declaradas no configuration.lua e tem o valor do ID das stones, você provavelmente deletou algumas stones (por exemplo, metal, king etc) do configuration.lua o que fez com que essas variáveis assumissem o valor "nil", e não se pode ter index de tabela (valor entre colchetes) como nil...
 
ou você tira essas partes da tabela do nome dos pokemons que evoluem com uma stone que você tirou, ou então coloca alguns valores quaisquer, tipo 1, depois 2, depois 3 no lugar dessas variáveis que não existem no configuration.lua que não vai atrapalhar em nada seu script

local block = {} function onEquip(cid, item, slot) if os.time() - getPlayerLastLogin(cid) <= 1 then return true end if block[cid] then block[cid] = nil return true else block[cid] = 1 end setCreatureMaxMana(cid, getCreatureMaxMana(cid) + 100) doCreatureAddMana(cid, 100) return true end function onDeEquip(cid, item, slot) setCreatureMaxMana(cid, getCreatureMaxMana(cid) - 100) doCreatureAddMana(cid, -100) return true end
 
E no xml:
 
<movevent type="Equip" itemid="????" slot="ammo" event="script" value="???.lua"/>
<movevent type="DeEquip" itemid="????" slot="ammo" event="script" value="???.lua"/>

dá erro no distro, porque a função setMagic remove o player, e logo após você executa uma função que o player precisa estar online pra funcionar...
basta trocar a ordem das funções do meio.
 
sobre o ot cair, se for isso mesmo que o usuário acima postou, teste deixar o ml como 50 e vê se continua dando crash

É porque a nome do evento estava errado, eu não tinha visto como estava na tag...
De toda forma, é só mudar essa linha:
 

registerCreatureEvent(cid, "MaxSqms")
 
por essa:
 

registerCreatureEvent(cid, "MaxDistance")

Testa assim:
 
 
 
 

o do caotic dá erro, porque ele usa o uid de um item num addevent, unique ids de itens não são estáticos.
 
o luck faz com que o item se transforma em outro completamente diferente usando essa linha:
 

doTransformItem(item.uid, item.itemid + 15)
 
o certo seria + 4
 
Editei o script original, vê se funciona:
 

TILE_SNOW = 670 TILE_FOOTPRINT_I = 6594 TILE_FOOTPRINT_II = 6598 function onStepIn(cid, item, position, lastPosition, fromPosition, toPosition, actor) if(isPlayerGhost(cid)) then return true end if(item.itemid == TILE_SNOW) then doTransformItem(item.uid, TILE_FOOTPRINT_I) elseif(item.itemid == TILE_FOOTPRINT_I) then doTransformItem(item.uid, TILE_FOOTPRINT_II) else doTransformItem(item.uid, TILE_FOOTPRINT_I) end doDecayItem(item.uid) return true end

Spell que remove os summons que tem o mesmo nome do mestre (precisa estar atacando algum summon dele ou o verdadeiro):
 

function onCastSpell(cid, var) local target = getCreatureTarget(cid) if not isCreature(target) then doPlayerSendCancel(cid, "You need a target.") return false end local master = getCreatureMaster(target) if not isPlayer(master) then doPlayerSendCancel(cid, "This spell works only against players.") return false end if #getCreatureSummons(master) > 0 then local function doRemoveSummon(creature) if isCreature(creature) then doSendMagicEffect(getThingPos(creature), CONST_ME_POFF) doRemoveCreature(creature) end end local success = false for _, sid in pairs (getCreatureSummons(master)) do if getCreatureName(sid) == getCreatureName(master) then addEvent(doRemoveSummon, _ * 95, sid) success = true end end end return success end
 
Spell que indica a posição do verdadeiro:
 

function onCastSpell(cid, var) local target = getCreatureTarget(cid) if not isCreature(target) then doPlayerSendCancel(cid, "You need a target.") return false end local master = getCreatureMaster(target) if not isPlayer(master) then doPlayerSendCancel(cid, "This spell works only against players.") return false end local function revelar(cid, target, times) if not isCreature(cid) or not isCreature(target) or times <= 0 then return end doSendMagicEffect(getThingPos(target), CONST_ME_TUTORIALSQUARE, cid) doSendMagicEffect(getThingPos(target), CONST_ME_TUTORIALARROW, cid) addEvent(revelar, 450, cid, target, times - 1) end revelar(cid, master, 10) return true end

escreva local antes de function onDash, pois do jeito que você está fazendo, a função é de escopo global e escreve por cima das outras funções na hora de carregar as spells, ficando:
 

local function onDash

escreva local antes de function onDash, pois do jeito que você está fazendo, a função é de escopo global e escreve por cima das outras funções na hora de carregar as spells, ficando:
 

local function onDash

tirando que quem está assistindo pode empurrar, dar rotate, use, atacar e fazer diversas outras ações, dá pra usar
mas isso aí está completamente passível de abuso, já que se você adicionar o hideHealth, os players não poderão ser atacados por outros players, mas poderão atacar... roubar itens em depot, caçar em um lugar e quando quiser sair da hunt, basta desligar o channel e já volta pro lugar antigo...
e o intervalo de acompanhar o dono do channel é grande, aí fica feio... um cara com muito speed que estiver andando continuadamente vai deixando o pessoal que tá assistindo pra trás, enfim... é complicado fazer esse sistema sem alterações no código fonte

tirando que quem está assistindo pode empurrar, dar rotate, use, atacar e fazer diversas outras ações, dá pra usar
mas isso aí está completamente passível de abuso, já que se você adicionar o hideHealth, os players não poderão ser atacados por outros players, mas poderão atacar... roubar itens em depot, caçar em um lugar e quando quiser sair da hunt, basta desligar o channel e já volta pro lugar antigo...
e o intervalo de acompanhar o dono do channel é grande, aí fica feio... um cara com muito speed que estiver andando continuadamente vai deixando o pessoal que tá assistindo pra trás, enfim... é complicado fazer esse sistema sem alterações no código fonte

tirando que quem está assistindo pode empurrar, dar rotate, use, atacar e fazer diversas outras ações, dá pra usar
mas isso aí está completamente passível de abuso, já que se você adicionar o hideHealth, os players não poderão ser atacados por outros players, mas poderão atacar... roubar itens em depot, caçar em um lugar e quando quiser sair da hunt, basta desligar o channel e já volta pro lugar antigo...
e o intervalo de acompanhar o dono do channel é grande, aí fica feio... um cara com muito speed que estiver andando continuadamente vai deixando o pessoal que tá assistindo pra trás, enfim... é complicado fazer esse sistema sem alterações no código fonte

local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_ICEDAMAGE) setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, 0, -35, 0, -55) local area = createCombatArea({ {0, 0, 0}, {1, 1, 1}, {1, 2, 1}, {1, 1, 1}, {0, 0, 0} }) setCombatArea(combat, area) local WATER_TILES = {1370,1371,1372,1773,9466,1378, 4718, 6628, 6630, 4664, 5739, 4614, 4615, 4616, 4617, 4618, 4619, 4608, 4609, 4610, 4611, 4612, 4613, 7236, 4614, 4615, 4616, 4617, 4618, 4619, 4620, 4621, 4622, 4623, 4624, 4625, 4665, 4666, 4820, 4821, 4822, 4823, 4824, 4825} function onCastSpell(cid, var) local pos = getPlayerPosition(cid) doSendMagicEffect({x = pos.x+1, y = pos.y+1, z = pos.z}, 87) local position, match = getCreaturePosition(cid), false for x = (position.x - 3), (position.x + 3) do for y = (position.y - 3), (position.y + 3) do local tmp = {x = x, y = y, z = position.z} if isInArray(WATER_TILES, getThingFromPos(tmp).itemid) then match = true break end end end if match then addEvent(doCreatureAddMana, 1, cid, getInstantSpellInfo("Water Circle").mana) else doPlayerSendCancel(cid, "Alguma mensagem de erro!") return FALSE end return doCombat(cid, combat, var) end

experimenta no lugar de:
 

doCreatureAddMana(cid, getInstantSpellInfo("Water Spin").mana)
 
usar addEvent, assim:
 

addEvent(doCreatureAddMana, 1, cid, getInstantSpellInfo("Water Spin").mana)
 
porque a mana só é gasta depois do return true, então se você testar com mana full, vai gastar mana
 
pra não permitir que use a magia caso não esteja perto dos itens, é só fazer:
 

if not match then return false end
 
resumindo, troca essa parte:
 

if match then doCreatureAddMana(cid, getInstantSpellInfo("Water Spin").mana) end
 
por essa:
 

if match then addEvent(doCreatureAddMana, 1, cid, getInstantSpellInfo("Water Spin").mana) else doPlayerSendCancel(cid, "Alguma mensagem de erro!") return false end

local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_ICEDAMAGE) setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, 0, -35, 0, -55) local area = createCombatArea({ {0, 0, 0}, {1, 1, 1}, {1, 2, 1}, {1, 1, 1}, {0, 0, 0} }) setCombatArea(combat, area) local WATER_TILES = {1370,1371,1372,1773,9466,1378, 4718, 6628, 6630, 4664, 5739, 4614, 4615, 4616, 4617, 4618, 4619, 4608, 4609, 4610, 4611, 4612, 4613, 7236, 4614, 4615, 4616, 4617, 4618, 4619, 4620, 4621, 4622, 4623, 4624, 4625, 4665, 4666, 4820, 4821, 4822, 4823, 4824, 4825} function onCastSpell(cid, var) local pos = getPlayerPosition(cid) doSendMagicEffect({x = pos.x+1, y = pos.y+1, z = pos.z}, 87) local position, match = getCreaturePosition(cid), false for x = (position.x - 3), (position.x + 3) do for y = (position.y - 3), (position.y + 3) do local tmp = {x = x, y = y, z = position.z} if isInArray(WATER_TILES, getThingFromPos(tmp).itemid) then match = true break end end end if match then addEvent(doCreatureAddMana, 1, cid, getInstantSpellInfo("Water Circle").mana) else doPlayerSendCancel(cid, "Alguma mensagem de erro!") return FALSE end return doCombat(cid, combat, var) end

<event type="statschange" name="firehit" event="script" value="fire_hit.lua"/>
 
tem que mudar essa linha ai pra isso:
 

<event type="statschange" name="fireHit" event="script" value="fire_hit.lua"/>
 
o h tem que ser maiúsculo pra diferenciar os 2 eventos

use a função:
 

doSetCreatureOutfit(cid, outfit, time)

<event type="statschange" name="firehit" event="script" value="fire_hit.lua"/>
 
tem que mudar essa linha ai pra isso:
 

<event type="statschange" name="fireHit" event="script" value="fire_hit.lua"/>
 
o h tem que ser maiúsculo pra diferenciar os 2 eventos

acabei de testar aqui, o onEquip é lançado antes de atualizar a última data que o player fez login, então a função getPlayerLastLogin retorna a última vez que o player fez login (antes do login que está sendo feito no momento), então tá aqui a solução do teu problema:
 

function onEquip(cid, item, slot) if getPlayerSlotItem(cid, slot).uid == item.uid then return true end local forc = getPlayerStorageValue(cid, 23222) setPlayerStorageValue(cid, 23222, forc + 2) return true end function onDeEquip(cid, item, slot) local forc = getPlayerStorageValue(cid, 23222) setPlayerStorageValue(cid, 23222, forc - 2) return true end
 
dessa forma o onEquip vai ser executado apenas uma vez, então já coloquei pra aumentar o storage em 2

function onCastSpell(cid, var) local maxSummons = 8 for n = 1, maxSummons do if #getCreatureSummons(cid) >= maxSummons then break end local clone = doCreateMonster("clone sanin", getThingPos(cid), false) if isCreature(clone) then doTeleportThing(clone, getThingPos(cid), false) doConvinceCreature(cid, clone) setCreatureMaxHealth(clone, getCreatureMaxHealth(cid)) doCreatureAddHealth(clone, getCreatureHealth(cid)) doSetCreatureOutfit(clone, getCreatureOutfit(cid), -1) doSendMagicEffect(getThingPos(cid), 111) end end return true end