jhon992

http://www.xtibia.com/forum/topic/54335-tutorial-como-deixar-seu-dev-c-pronto-para-compilar/ http://www.xtibia.com/forum/topic/190672-tutorial-compilando-source-tfs/ http://www.xtibia.com/forum/topic/137298-dev-c-como-compilar-um-otserv/

Abra o servidor em modo de compatibilidade que resolve este erro. Clique com o direito no executavel > Propriedades > Compatibilidade!

--[[ Spell by Shawak - Edited by Jhon992. Wolf transform ]]-- local time = 120 * 1000 -- 120 * 1000 = 2 min local addShielding = 20 -- how much shielding should be added local cooldown = 30 local effect = {32, 43, 23} -- efeitos ao usar spell, caso queira só 1 remova os outros, exemplo: local effect = {32} local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_EFFECT, 42) setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0) local condition = createConditionObject(CONDITION_ATTRIBUTES) setConditionParam(condition, CONDITION_PARAM_TICKS, time) setConditionParam(condition, CONDITION_PARAM_SKILL_SHIELD, addShielding) setConditionParam(condition, CONDITION_PARAM_BUFF, TRUE) setCombatCondition(combat, condition) local speed = createConditionObject(CONDITION_HASTE) setConditionParam(speed, CONDITION_PARAM_TICKS, time) setConditionFormula(speed, 0.7, -56, 0.7, -56) setCombatCondition(combat, speed) function cooldownready(cid) if isPlayer(cid) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_WARNING, "Cooldown of Transform is ready!") end end function sendMagic(cid) if isPlayer(cid) then for i=1, #effect do doSendMagicEffect(getCreaturePosition(cid), effect[i]) end end end function onCastSpell(cid, var) local lvlMin = 20 -- lvl minimo local lvlMax = 50 -- lvl minimo if getPlayerLevel(cid) >= lvlMin and getPlayerLevel(cid) <= lvlMax then if exhaustion.check(cid, 50001) == false then exhaustion.set(cid, 50001, cooldown) addEvent(cooldownready, cooldown*1000, cid) tempo = 0 while (tempo ~= time) do addEvent(sendMagic, tempo, cid) tempo = tempo + 2000 -- se quiser diminuir o intervalo do effect, diminui de 2000 para 1000. end return doCombat(cid, combat, var) else doPlayerSendCancel(cid, "Cooldown: [" ..exhaustion.get(cid, 50001).."] seconds.") end else doPlayerSendCancel(cid, "Você só pode usar essa spell entre o level "..lvlMin.." e level "..lvlMax..".") end end

O nome correto para o tópico seria: Deixando Npc 100% em português. Não acha? Reporte para moderação mudar, ou tente mudar.

--[[ Spell by Shawak - Edited by Jhon992. Wolf transform ]]-- local time = 120 * 1000 -- 120 * 1000 = 2 min local addShielding = 20 -- how much shielding should be added local cooldown = 30 local effect = {32, 43, 23} -- efeitos ao usar spell, caso queira só 1 remova os outros, exemplo: local effect = {32} local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_EFFECT, 42) setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0) local condition = createConditionObject(CONDITION_ATTRIBUTES) setConditionParam(condition, CONDITION_PARAM_TICKS, time) setConditionParam(condition, CONDITION_PARAM_SKILL_SHIELD, addShielding) setConditionParam(condition, CONDITION_PARAM_BUFF, TRUE) setCombatCondition(combat, condition) local speed = createConditionObject(CONDITION_HASTE) setConditionParam(speed, CONDITION_PARAM_TICKS, time) setConditionFormula(speed, 0.7, -56, 0.7, -56) setCombatCondition(combat, speed) function cooldownready(cid) if isPlayer(cid) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_WARNING, "Cooldown of Transform is ready!") end end function sendMagic(cid) if isPlayer(cid) then for i=1, #effect do doSendMagicEffect(getCreaturePosition(cid), effect[i]) end end end function onCastSpell(cid, var) if exhaustion.check(cid, 50001) == false then exhaustion.set(cid, 50001, cooldown) addEvent(cooldownready, cooldown*1000, cid) tempo = 0 while (tempo ~= time) do addEvent(sendMagic, tempo, cid) tempo = tempo + 2000 -- se quiser diminuir o intervalo do effect, diminui de 2000 para 1000. end return doCombat(cid, combat, var) else doPlayerSendCancel(cid, "Cooldown: [" ..exhaustion.get(cid, 50001).."] seconds.") end end

Todas as sources free da OtLand: http://otland.net/subversion.php?svn=public&file=listing.php&repname=forgottenserver&path=%2Ftags%2F#a2752a4ad0822c5acbda0ff9fd26a5c26

Isso é um npc de barco, basta configurar sem custo. @edited Postei na mesma hra que o @Oneshot, tão nem vi o post dele.

Tenta dá uma procurada antes de fazer o pedido. Vai nesse link na minha resposta. http://www.xtibia.com/forum/topic/185867-duvida-com-teleport/

Reportado para moverem!

Muito bom, fiz esse mesmo sistema mais usando apenas "callbackOnBuy" e "callbackOnSell" para um item especifico mais achei muito precário. Assim ficou muito show, parabéns! Rep+

Curti, li tudinho. Essas entrevistas são boas pra conhecer um pouco mais sobre os membros do XTibia.

Gostei bastante do tópico, até por trazer clients que eu não fazia ideia que existia. Olha só, adiciona este no tópico também: http://client.ronit.pl/

Um bom que eu conheço é esse aqui: http://www.xtibia.com/forum/topic/136543-vip-system-by-account-v10/

Creio que sejam itens inválidos no mapa, você deve ir na posição correspondente do bug com seu mapa editor e verificar se tem algo incorreto nesta posição.

Dae o certo é usar arrays e não assim. asdjia

Sinceramente, tem um monte de coisa desnecessária neste script, use esse: function onUse(cid, item, fromPosition, itemEx, toPosition) if getPlayerStorageValue(cid,1992) == 1 then doCreatureSay(cid, "Você ja recebeu a nova vocação", TALKTYPE_ORANGE_1) return true end if getPlayerLevel(cid) >= 20 then -- 20, level minimo para usar. if getPlayerVocation(cid) == 2 then -- 2, vocação que tem que ser. doPlayerSetVocation(cid, 6) -- 6, vocação que irá transformar. doSendMagicEffect(fromPosition, 29) doRemoveItem(item.uid,1) setPlayerStorageValue(cid,1992,1) else doCreatureSay(cid, "Você não pode receber esta vocação.", TALKTYPE_ORANGE_1) end else doCreatureSay(cid, "Você deve ter level 20 ou mais para usar o Item!",TALKTYPE_ORANGE_1) end return true end Reformulei para ficar melhor a execução do mesmo. Créditos pro @Newtonnotwen.

Esse que o @nbb147 postou é o login.lua...

que eu saiba é exatamente isso que o script faz, só certifica que tais colocando o ip correto.