Líderes

Vou Postar minhas 4 Nova magia Pra Voces Espero que Gostem. local combat1 = createCombatObject() setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_ENERGYDAMAGE) setCombatParam(combat1, COMBAT_PARAM_EFFECT, 47) setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -6.0, 0, -5.3, 0) local combat2 = createCombatObject() setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_ENERGYDAMAGE) setCombatParam(combat2, COMBAT_PARAM_EFFECT, 48) setCombatFormula(combat2, COMBAT_FORMULA_LEVELMAGIC, -6.0, 0, -4.3, 0) arr1 = { {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, } arr2 = { {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0}, {0, 1, 1, 1, 1, 2, 1, 1, 1, 1, 0}, {0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, } local area1 = createCombatArea(arr1) local area2 = createCombatArea(arr2) setCombatArea(combat1, area1) setCombatArea(combat2, area2) local function onCastSpell1(parameters) doCombat(parameters.cid, combat1, parameters.var) end local function onCastSpell2(parameters) doCombat(parameters.cid, combat2, parameters.var) end function onCastSpell(cid, var) local parameters = { cid = cid, var = var} addEvent(onCastSpell1, 100, parameters) addEvent(onCastSpell2, 100, parameters) return TRUE end <instant name="Granvis" words="Exevo Gran Vis" lvl="70" soul="0" exhaustion="1000" prem="1" selftarget="0" casterTargetOrDirection="0" needlearn="0" script="granvis.lua"> <vocation name="Druid"/> <vocation name="Elder Druid"/> </instant> IMAGEM DA MAGIA local combat1 = createCombatObject() setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_DEATHDAMAGE) setCombatParam(combat1, COMBAT_PARAM_EFFECT, 8) setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -6.0, 0, -5.3, 0) local combat2 = createCombatObject() setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_ENERGYDAMAGE) setCombatParam(combat2, COMBAT_PARAM_EFFECT, 7) setCombatFormula(combat2, COMBAT_FORMULA_LEVELMAGIC, -6.0, 0, -4.3, 0) local combat3 = createCombatObject() setCombatParam(combat3, COMBAT_PARAM_TYPE, COMBAT_ENERGYDAMAGE) setCombatParam(combat3, COMBAT_PARAM_EFFECT, 3) setCombatFormula(combat3, COMBAT_FORMULA_LEVELMAGIC, -6.0, 0, -4.3, 0) local combat4 = createCombatObject() setCombatParam(combat4, COMBAT_PARAM_TYPE, COMBAT_ENERGYDAMAGE) setCombatParam(combat4, COMBAT_PARAM_EFFECT, 3) setCombatFormula(combat4, COMBAT_FORMULA_LEVELMAGIC, -6.0, 0, -4.3, 0) arr1 = { {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0}, {0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0}, {0, 0, 0, 0, 0, 2, 1, 1, 1, 1, 1}, {0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0}, {0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, } arr2 = { {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0}, {0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0}, {1, 1, 1, 1, 1, 2, 0, 0, 0, 0, 0}, {0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0}, {0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, } arr3 = { {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0}, {0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0}, {0, 0, 0, 0, 0, 2, 1, 1, 1, 1, 1}, {0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0}, {0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, } arr4 = { {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0}, {0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0}, {1, 1, 1, 1, 1, 2, 0, 0, 0, 0, 0}, {0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0}, {0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, } local area1 = createCombatArea(arr1) local area2 = createCombatArea(arr2) local area3 = createCombatArea(arr3) local area4 = createCombatArea(arr4) setCombatArea(combat1, area1) setCombatArea(combat2, area2) setCombatArea(combat3, area3) setCombatArea(combat4, area4) local function onCastSpell1(parameters) doCombat(parameters.cid, combat1, parameters.var) end local function onCastSpell2(parameters) doCombat(parameters.cid, combat2, parameters.var) end local function onCastSpell3(parameters) doCombat(parameters.cid, combat3, parameters.var) end local function onCastSpell4(parameters) doCombat(parameters.cid, combat4, parameters.var) end function onCastSpell(cid, var) local parameters = { cid = cid, var = var} addEvent(onCastSpell1, 100, parameters) addEvent(onCastSpell2, 100, parameters) addEvent(onCastSpell3, 300, parameters) addEvent(onCastSpell4, 300, parameters) return TRUE end <instant name="poxzin" words="Exevo Gran Mas Kill" lvl="70" soul="0" exhaustion="1000" prem="1" selftarget="0" casterTargetOrDirection="0" needlearn="0" script="poxzin.lua"> <vocation name="Sorcerer"/> <vocation name="Master Sorcerer"/> </instant> IMAGEM DA MAGIA local combat1 = createCombatObject() setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_DEATHDAMAGE) setCombatParam(combat1, COMBAT_PARAM_EFFECT, 35) setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -6.0, 0, -5.3, 0) local combat2 = createCombatObject() setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_ENERGYDAMAGE) setCombatParam(combat2, COMBAT_PARAM_EFFECT, 36) setCombatFormula(combat2, COMBAT_FORMULA_LEVELMAGIC, -6.0, 0, -4.3, 0) local combat3 = createCombatObject() setCombatParam(combat3, COMBAT_PARAM_TYPE, COMBAT_ENERGYDAMAGE) setCombatParam(combat3, COMBAT_PARAM_EFFECT, 39) setCombatFormula(combat3, COMBAT_FORMULA_LEVELMAGIC, -6.0, 0, -4.3, 0) local combat4 = createCombatObject() setCombatParam(combat4, COMBAT_PARAM_TYPE, COMBAT_ENERGYDAMAGE) setCombatParam(combat4, COMBAT_PARAM_EFFECT, 36) setCombatFormula(combat4, COMBAT_FORMULA_LEVELMAGIC, -6.0, 0, -4.3, 0) arr1 = { {1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1}, {0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0}, {0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0}, {0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0}, {0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0}, {0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0}, {1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1}, } arr2 = { {1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1}, {0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0}, {0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0}, {0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0}, {0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0}, {0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0}, {1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1}, } arr3 = { {1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1}, {0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0}, {0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0}, {0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0}, {0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0}, {0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0}, {1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1}, } arr4 = { {1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1}, {0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0}, {0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0}, {0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0}, {0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0}, {0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0}, {1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1}, } local area1 = createCombatArea(arr1) local area2 = createCombatArea(arr2) local area3 = createCombatArea(arr3) local area4 = createCombatArea(arr4) setCombatArea(combat1, area1) setCombatArea(combat2, area2) setCombatArea(combat3, area3) setCombatArea(combat4, area4) local function onCastSpell1(parameters) doCombat(parameters.cid, combat1, parameters.var) end local function onCastSpell2(parameters) doCombat(parameters.cid, combat2, parameters.var) end local function onCastSpell3(parameters) doCombat(parameters.cid, combat3, parameters.var) end local function onCastSpell4(parameters) doCombat(parameters.cid, combat4, parameters.var) end function onCastSpell(cid, var) local parameters = { cid = cid, var = var} addEvent(onCastSpell1, 100, parameters) addEvent(onCastSpell2, 100, parameters) addEvent(onCastSpell3, 100, parameters) addEvent(onCastSpell4, 100, parameters) return TRUE end <instant name="kina" words="Exori Gran Flam" lvl="70" soul="0" exhaustion="1000" prem="1" selftarget="0" casterTargetOrDirection="0" needlearn="0" script="kina.lua"> <vocation name="Knight"/> <vocation name="Elite Knight"/> </instant> IMAGEM DA MAGIA local combat1 = createCombatObject() setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_DEATHDAMAGE) setCombatParam(combat1, COMBAT_PARAM_EFFECT, 23) setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -6.0, 0, -5.3, 0) local combat2 = createCombatObject() setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_ENERGYDAMAGE) setCombatParam(combat2, COMBAT_PARAM_EFFECT, 23) setCombatFormula(combat2, COMBAT_FORMULA_LEVELMAGIC, -6.0, 0, -4.3, 0) local combat3 = createCombatObject() setCombatParam(combat3, COMBAT_PARAM_TYPE, COMBAT_ENERGYDAMAGE) setCombatParam(combat3, COMBAT_PARAM_EFFECT, 19) setCombatFormula(combat3, COMBAT_FORMULA_LEVELMAGIC, -6.0, 0, -4.3, 0) local combat4 = createCombatObject() setCombatParam(combat4, COMBAT_PARAM_TYPE, COMBAT_ENERGYDAMAGE) setCombatParam(combat4, COMBAT_PARAM_EFFECT, 19) setCombatFormula(combat4, COMBAT_FORMULA_LEVELMAGIC, -6.0, 0, -4.3, 0) arr1 = { {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0}, {0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0}, {0, 0, 0, 0, 0, 3, 1, 1, 1, 1, 1}, {0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0}, {0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, } arr2 = { {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0}, {0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0}, {1, 1, 1, 1, 1, 3, 0, 0, 0, 0, 0}, {0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0}, {0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, } arr3 = { {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0}, {0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0}, {0, 0, 0, 0, 0, 3, 1, 1, 1, 1, 1}, {0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0}, {0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, } arr4 = { {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0}, {0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0}, {1, 1, 1, 1, 1, 3, 0, 0, 0, 0, 0}, {0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0}, {0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, } local area1 = createCombatArea(arr1) local area2 = createCombatArea(arr2) local area3 = createCombatArea(arr3) local area4 = createCombatArea(arr4) setCombatArea(combat1, area1) setCombatArea(combat2, area2) setCombatArea(combat3, area3) setCombatArea(combat4, area4) local function onCastSpell1(parameters) doCombat(parameters.cid, combat1, parameters.var) end local function onCastSpell2(parameters) doCombat(parameters.cid, combat2, parameters.var) end local function onCastSpell3(parameters) doCombat(parameters.cid, combat3, parameters.var) end local function onCastSpell4(parameters) doCombat(parameters.cid, combat4, parameters.var) end local function onCastSpell5(parameters) doCombat(parameters.cid, combat5, parameters.var) end function onCastSpell(cid, var) local parameters = { cid = cid, var = var} addEvent(onCastSpell1, 100, parameters) addEvent(onCastSpell2, 100, parameters) addEvent(onCastSpell1, 100, parameters) addEvent(onCastSpell3, 200, parameters) addEvent(onCastSpell4, 200, parameters) addEvent(onCastSpell3, 200, parameters) addEvent(onCastSpell4, 200, parameters) return TRUE end <instant name="Hit" words="Exevo Gran Mas Song" lvl="70" soul="0" exhaustion="1000" prem="1" selftarget="0" casterTargetOrDirection="0" needlearn="0" script="hit.lua"> <vocation name="Paladin"/> <vocation name="Royal Paladin"/> </instant> IMAGEM DA MAGIA Galera Se Gostem por favor Comente ae se tiver bug avisa pq eu to comessando agora nessa area de scripter ok vlws ...

PokeBall System! Ola Xtibianos, Vim hoje postar um Famoso Script de Pokeball System feito pelo Genioso Nahruto, claro pedi a autorização dele para postar. A Todos que forem pegar Scripts de outras Pessoas, lembre-se de sempre pedir autorização e claro colocar os creditos. Para Tfs: 0.34 , 0.35 e 0.36 Essas Forao Testadas E Funfo. Versoes: 8.42 - 8.50 - 8.52 - 8.54 - 8.6. Ots Testados: Snowz Yurots - Alissow Server - Styller Yurots Primeiramente Vamos Fuçar em Function.lua, se voce nao Sabe onde fica vá em: Data>Lib>Function.lua Abra e Coloque Isto: _warpzone = 2147483648 -- start storing strings here (THIS IS THE ABSOLUTE MAXIMUM VALUE FOR THIS) _maxlength = 1024 -- multiply by 3 to get the true length. setPlayerStorageInteger = setPlayerStorageValue getPlayerStorageInteger = getPlayerStorageValue function setPlayerStorageString(cid, key, value) if #value > (_maxlength-1) * 3 - 1 then -- Last word is reserved for 0 termination of the string. error("Storage string is too long") end if key > _warpzone / _maxlength then error("Storage string key is too large (" .. key .. ")") end key = _warpzone + key * _maxlength local word = 0 local wordwrap = 0 local wordcount = 0 local i = 1 while i <= #value do local byte = string.byte(string.sub(value, i, i)) word = bit.bor(word, bit.lshift(byte, wordwrap)) wordwrap = wordwrap + 8 if wordwrap == 24 then --[[ In the ideal world we would be able to store 4 characters per word, however, as the default return value for getPlayerStorageValue is -1, we cant use the last bit. ]]-- setPlayerStorageInteger(cid, key + wordcount, word) word = 0 wordwrap = 0 wordcount = wordcount + 1 end i = i + 1 end -- store the last word setPlayerStorageInteger(cid, key + wordcount, word) end function getPlayerStorageString(cid, key) if key > _warpzone / _maxlength then error("Storage string key is too large (" .. key .. ")") end key = _warpzone + key * _maxlength local wordcount = 0 local str = "" while true do if wordcount >= _maxlength then break end local word = getPlayerStorageInteger(cid, key + wordcount) if word == -1 then -- end of string break else -- Extract the 3 characters from the value byte = bit.band(word, 255) if byte == 0 then break else str = str .. string.char(byte) end byte = bit.rshift(bit.band(word, 65280), 8) if byte == 0 then break else str = str .. string.char(byte) end byte = bit.rshift(bit.band(word, 16711680), 16) if byte == 0 then break else str = str .. string.char(byte) end end wordcount = wordcount + 1 end return str end E Isso! function doConvinceSummon(cid, creature, amount, pos) summonplayerpos = {x=pos.x, y=pos.y, z=pos.z, stackpos=253} summonplayer = getThingfromPos(summonplayerpos) if(summonplayer ~= nil and summonplayer.itemid > 0) then doPlayerSendCancel(cid,"There is not enough room to summon here.") ret = 0 else convince = doSummonCreature(creature, pos) doConvinceCreature(cid, convince) ret = 1 end return ret end Agora Vamos Fazer o Script Vá em Pasta do Seu Ot > Data > Actions > Scripts Crie uma Pasta chamada pokeball.lua e bote isso dentro local notAllowed = {"Ferumbras", "Demon"} local storage = { status = 25650, pokeName = 25651 } local actionid_used = 7510 function onUse(cid, item, fromPos, item2, toPos) local pokeballStatus = getPlayerStorageValue(cid, storage.status) local pokeName = getPlayerStorageString(cid, storage.pokeName) pos = getPlayerPosition(cid) pos.stackpos = 0 if pokeballStatus == -1 then toPos.stackpos = 253 local pokeThing = getThingfromPos(toPos) if isCreature(pokeThing.uid) == TRUE then if isPlayer(pokeThing.uid) == FALSE then local pokename_ = getCreatureName(pokeThing.uid) if item.actionid ~= actionid_used then -- local maxHealth = 400 -- local creatureHealth = getCreatureHealth(pokeThing.uid) -- local divNum = (string.len(maxHealth)-1)^2 -- local result = math.floor((creatureHealth/divNum)/10) -- local chance = math.random(1, math.random(4, math.random(7, math.max(result, 7)))) -- if chance == result then if isInTable(notAllowed, pokename_) == TRUE then doPlayerSendCancel(cid, "You cannot catch this creature") else setPlayerStorageString(cid, storage.pokeName, pokename_) doRemoveCreature(pokeThing.uid) doSendDistanceShoot(fromPos, toPos, 37) setPlayerStorageValue(cid, storage.status, 1) doSetItemSpecialDescription(item.uid, "it contains a " .. pokename_ .. ".") doSetItemActionId(item.uid, actionid_used) end -- else -- doSendMagicEffect(fromPos, 2) -- doPlayerSendCancel(cid, "The Pokemom Escaped") -- end elseif item.actionid == actionid_used and pokename_ == pokeName then doPlayerSay(cid, pokeName .. " Back!!", TALKTYPE_SAY) doRemoveCreature(pokeThing.uid) doSetItemSpecialDescription(item.uid, "it contains a " .. pokename_ .. ".") setPlayerStorageValue(cid, storage.status, 1) doSendDistanceShoot(fromPos, toPos, 37) else doSendMagicEffect(fromPos, 2) doPlayerSendCancel(cid, "This pokeball is already used") end else doPlayerSendCancel(cid, "You cannot catch this creature") end else doPlayerSendCancel(cid, "Creature not found") end elseif pokeballStatus == 1 then summons = getCreatureSummons(cid) -- if #summons >= 2 then -- doPlayerSendCancel(cid, "You cannot call more pokemons") -- else doConvinceSummon(cid, pokeName, 0, toPos) doSendDistanceShoot(fromPos, toPos, 37) doPlayerSay(cid, pokeName .. " Go!!", TALKTYPE_SAY) setPlayerStorageValue(cid, storage.status, -1) doSetItemSpecialDescription(item.uid, "it is empty.") -- end end else return 1 end function isInTable(t, val) for _, v in pairs(t) do if v == val then return TRUE end end return LUA_ERROR end para TFS local notAllowed = {"Ferumbras", "Demon"} local storage = { status = 15244, pokeName = 15212 } local actionid_used = 7510 function onUse(cid, item, fromPos, item2, toPos) local pokeballStatus = getPlayerStorageValue(cid, storage.status) local pokeName = getPlayerStorageString(cid, storage.pokeName) pos = getPlayerPosition(cid) pos.stackpos = 0 if pokeballStatus <= 0 then toPos.stackpos = 253 local pokeThing = getThingfromPos(toPos) if isCreature(pokeThing.uid) == TRUE then if isPlayer(pokeThing.uid) == FALSE then local pokename_ = getCreatureName(pokeThing.uid) if item.actionid ~= actionid_used then -- local maxHealth = 400 -- local creatureHealth = getCreatureHealth(pokeThing.uid) -- local divNum = (string.len(maxHealth)-1)^2 -- local result = math.floor((creatureHealth/divNum)/10) -- local chance = math.random(1, math.random(4, math.random(7, math.max(result, 7)))) -- if chance == result then if isInTable(notAllowed, pokename_) == TRUE then doPlayerSendCancel(cid, "You cannot catch this creature") else setPlayerStorageString(cid, storage.pokeName, pokename_) doRemoveCreature(pokeThing.uid) doSendDistanceShoot(fromPos, toPos, 37) setPlayerStorageValue(cid, storage.status, 1) doSetItemSpecialDescription(item.uid, "it contains a " .. pokename_ .. ".") doSetItemActionId(item.uid, actionid_used) end -- else -- doSendMagicEffect(fromPos, 2) -- doPlayerSendCancel(cid, "The Pokemom Escaped") -- end elseif item.actionid == actionid_used and pokename_ == pokeName then doCreatureSay(cid, pokeName .. " Back!!", TALKTYPE_SAY) doRemoveCreature(pokeThing.uid) doSetItemSpecialDescription(item.uid, "it contains a " .. pokename_ .. ".") setPlayerStorageValue(cid, storage.status, 1) doSendDistanceShoot(fromPos, toPos, 37) else doSendMagicEffect(fromPos, 2) doPlayerSendCancel(cid, "This pokeball is already used") end else doPlayerSendCancel(cid, "You cannot catch this creature") end else doPlayerSendCancel(cid, "Creature not found") end elseif pokeballStatus == 1 then -- summons = doCreatureSummons(cid) -- if #summons >= 2 then -- doPlayerSendCancel(cid, "You cannot call more pokemons") -- else doConvinceSummon(cid, pokeName, 0, toPos) doSendDistanceShoot(fromPos, toPos, 37) doCreatureSay(cid, pokeName .. " Go!!", TALKTYPE_SAY) setPlayerStorageValue(cid, storage.status, 0) doSetItemSpecialDescription(item.uid, "it is empty.") -- end end return 1 end function isInTable(t, val) for _, v in pairs(t) do if v == val then return TRUE end end return LUA_ERROR end Agora Vamos Adicionar as Tags, vá em Data>Actions.xml e Adicione as Tags Corretas´ <action itemid="xxxx" script="pokeball.lua" allowfaruse="1" blockwalls="1" /> [font-"Georgia"]em <action itemid="xxxx" nos 4 X voce coloca o Number Id Do seu Item que Será como uma "Pokeball"[/font] Oque o Script Faz Realmente: - Guarda monstros dentro de objetos e salva seu status, você pode colocar pra salvar em qlqr objeto.. seria ótimo para projetos pokemons.. Creditos: Nahruto Print Screen's: Snorlax Saindo da Pokeball: Snorlax Voltando para a Pokeball Look da Pokeball ( o Player so Ve assim You See a Pokeball , Have Snorlax )] Lembrando que eu nao Adicionei o Efeito da Pokeball Abrindo e Jogando o Monstro. Para fazer este Tipo de efeito voce vai ter que saber direitinho o LookType da Pokeball Fechando e Saindo, e transformar para um efeito e depois modificar no Script, aqui no xtibia Existe varios Tutoriais explicando isto, é so procurar! Gostou? Clica no Ali em Baicho para me Ajudar! Abraços..

Update do The Diamond Server para a nova versão do tibia 8.62 Se encontrar algum bug, reporte neste tópico. A nova versão não foi testada, então se houver algum erro reporte aqui. Essa versão é a 1.0.6 BETA, então não tem as novas features 8.62 Peço desculpas pela demora =D, mais é que eu estava sem PC, então não podia compilar A versão 1.0.5 foi o maior FAIL kk, porque não tem ip-changer pra ela The Diamond Server 1.0.6 BETA Build: 3429 Changelog 1.0.6 BETA: - Suporte 8.62. Changelogs Antigos [Download Server] diamond106_beta.zip [Download Sources] Index of /the diamond server/1.0.6 [Repositorio] Browse Source ---------------------- Se gostou? Comente Visite o site official do The Diamond Server TibiaNetworks LLC

Quem nunca se deparou com o bendito do problema da Internet Compartilhada, onde se incluem também probleminhas como Routers, Rubs e Switchs. Essas belezinhas impedem agente de hospedar servidores tanto de Tibia como de outros jogos online também. Uma das explicações mais simples para isso é o bendito do IP gerado pelo Router/Rub/Switch, eles criam o seu próprio IP impidindo assim nós, pobres mortais, de hospedar nossos tão aclamados Open Tibia Servers! Agora trago ao XTibia em primeiríssima mão como faze-lo sem problemas. É simples e bem eficaz. Serve para todos os tipos aparelhos de compartilhamento! (de A-Z). Conceito de IP Os endereços IP são quatro conjuntos de números separados por pontos que permitem os computadores identificarem uns aos outros. Cada computador tem pelo menos um endereço IP, e dois computadores nunca devem ter o mesmo endereço IP. Se eles fizerem isso, nenhum deles será capaz de se conectar à Internet. Conceito de IP Estático e Dinâmico A maioria dos roteadores atribuem endereços IP dinâmicos por omissão. Eles fazem isto porque o endereço IP dinâmico de redes não exigem nenhuma configuração. O utilizador pode simplesmente ligar seu computador e sua rede irá funcionar. Quando os endereços IP são atribuídos de forma dinâmica, o router é que atribui um deles. Cada vez que um computador reinicializa ele pede para o router um endereço IP. O roteador então gera um endereço IP que já não tenha sido entregue a outro computador. Isto é importante para a nota. Quando você configurar seu computador para um endereço IP estático, o router não sabe que um computador está usando esse endereço IP. Portanto, o mesmo endereço IP pode ser entregue a outro computador mais tarde, e que irá impedir os computadores de se conectarem à Internet. Assim, quando você atribuir um endereço IP estático, é importante atribuir um endereço IP que não será entregue a outros computadores através do endereço IP dinâmico servidor. O endereço IP dinâmico servidor é geralmente referido como o servidor DHCP. dica: atribua à ultima casa numérica numeros de 10 à 254(máximo). PRIMEIRO PASSO (Descobrir/Criar o seu IP Estático) - Configurar um IP estático para o Windows Vista. 1.0 Abra o menu Iniciar e clique em Executar. Você deve ver agora a janela seguinte. 2.0 Digite cmd na caixa de texto, e clique em OK. 3.0 Os comandos podem aparecer de forma diferente na tela, mas isso realmente não interessa. Digite ipconfig /all na tela, em seguida, pressione a tecla Enter. Isto irá mostrar uma grande quantidade de informação. 4.0 Eu quero que você anote algumas das informações contidas nesta janela. Estabelecendo o endereço IP, Máscara, Gateway Padrão, e nomes de servidores. Certifique-se de constatar qual é qual. Vamos utilizar esta informação um pouco mais tarde. Estamos apenas preocupados com entradas IPv4, você pode ignorar as IPv6. 4.1 Digite quit nesta janela e, em seguida, pressione a tecla Enter para fechá-la. 5.0 Mais uma vez, abra o menu Iniciar. Desta vez clique em Painel de controle. 6.0 Dê Duplo clique em Centro de Rede e Compartilhamento. 7.0 Dê Único clique em Gerenciar Conexões de Rede, no lado esquerdo da tela. 8.0 Você pode ter várias ligações de rede nesta janela. Quero que dê um clique direito sobre o que você utiliza para se conectar à internet. Em seguida, clique em Propriedades. 8.1 Se você não tiver certeza de qual seja, dê um clique direito nele e clique em Desativar. Em seguida abra uma página na web. Será que ela vai abrir? Se não for possível, então você encontrou a sua ligação à Internet. Feche a janela do navegador. Vá em frente e dê um clique direito na conexão de rede novamente e clique em Ativar. Mais uma vez, abra um novo navegador. Você deverá ver uma página web. Feche a janela do navegador. (Caso não visualize a página web volte ao passo 8.1). Clique direito sobre a conexão de rede e clique em Propriedades na parte inferior. 9.0 Agora você deve ter exposto essa janela na sua tela. Clique no botão Propriedades para abrir a janela de propriedades desta ligação à Internet. 10.0 Selecione Protocolo TCP/IP Versão 4 (TCP/IPv4) e, em seguida, no botão Propriedades. Você verá a seguinte tela. 11.0 Antes de fazer quaisquer alterações, anote as configurações que você vê nesta página. Se algo der errado você pode alterar as configurações de volta para a que antes estavam! Você deverá ver um ponto no Obter um Endereço IP Automaticamente na caixa. Se não estiver marcado, sua conexão já está configurada para um IP estático. Basta fechar todas as janelas e está feito. 11.1 Escolha um endereço IP e inseria-o na caixa Endereço IP. O endereço IP que você escolher deverá ser muito semelhante ao do endereço IP do roteador. Apenas os últimos números do endereço IP devem ser diferentes. Se o endereço IP do roteador é 192.168.0.1, eu posso escolher 192.168.0.10. O endereço IP que você escolhe deve terminar com um número entre 1 e 254, e não deve ser o mesmo que o endereço IP do roteador. Cada dispositivo que conecta a sua rede precisa de ter seu próprio endereço IP. 11.2 Coloque a máscara na caixa Máscara de Sub-Rede, que já havia sido identificada no passo 4.0. O gateway padrão deve ir para a caixa Gateway Padrão, também identificado no passo 4.0. Digite os servidores de DNS encontrado na caixa Servidor DNS Preferencial/Alternativo. 11.3 Clique em OK, automaticamente saindo deste menu. Se você não conseguir abrir páginas web ou se conectar a internet, é mais provável que o problema esteja nas DNS digitadas. Você pode repara-las com seu ISP, entrando em contato com sua operadora Banda Larga. Eles serão capazes de dizer o que você deve usar imediatamente. É isso que deve ser feito! Se você não pode se conectar à internet, mude a configuração de volta ao que era originalmente. SEGUNDO PASSO (Configurando as Portas) No meu caso, tenho um D-LINK (DIR-100). Todos os modelos e fabricantes seguem o mesmo sistema, mais os passos podem variar um pouco, mais nada fora do comum. Caso tenha dificuldades em se localizar nos procedimentos a seguir, utilize o manual do fabricante juntamente com esse tutorial. 1.0 Abra um navegador da web como o Internet Explorer ou Google Chrome. Digite o endereço IP do seu router na barra de endereços do seu navegador. Por padrão o endereço IP deve ser definido como 192.168.0.1. 2.0 Você deverá ver uma caixa perguntar-lhe por seu nome de usuário e senha. Digite seu nome de usuário e senha agora. Por padrão o usuário é admin, e a senha é em branco. Clique no botão OK para efetuar login no seu router. 3.0 Clique no link Advanced perto do topo da página. 4.0 Vamos listar aqui uma série de linhas que irá mostrar-lhe exactamente como encaminhar as portas que você precisa para avançar. Open Tibia Server requer que você transmita a 7171 e 8000. Vá em frente e introduza as definições acima como demonstrado na Port Forwarding Rules menu(imagem). Em IP Adress introduza o seu IP Estático, adiquirido no PRIMEIRO PASSO. 5.0 Quando terminar, clique em Save Sttings na parte superior da tela para salvar suas alterações. Pronto, as portas estão desbloqueadas e devidamente configuradas. TERCEIRO PASSO (Liberando no Firewall a Porta 7171 e configurando o arquivo config.lua) 1.0 Desbloqueie a Porta 7171 no Firewall do Windows. 2.0 Acesse o arquivo config.lua na pasta de seu servidor e modifique o IP, substituindo pelo IP Dinâmico, que você pode identifica-lo Aqui . Pronto, agora é só esbanjar de seu servidor 100% hospedado em Internet Compartilhada. - Caso alguem queira conferir um server em Net Compartilhada segue o meu: theopera.servegame.com (8.50). ======= CREDITOS @Januska ======= Quatro horas foi o tempo que levei para reunir informações, organiza-las, transcreve-las e confeccionar as Screens, então peço sinceramente para não retirarem o Tutorial do seu lugar de Origem e muito menos retirar os créditos. Caso haja nescessidade de divulga-lo em outros forums, favor colocar os devidos créditos. Obrigado! Duvidas: Em relação as dúvidas, favor tirar no tópico! não estou mais atendendo via e-mail. Obrigado! Cya (Y). Edit Cause: Correção do nome do Tópico; Erros Ortográficos; Cores e Fontes.

A mensagem fica aparecendo a cada vez que o char loga, mesmo sem MC. Arrumei algumas coisas também. local config = { max = 1, group_id = 1 } local accepted_ip_list = {} local function antiMC(p) if #getPlayersByIp(getPlayerIp(p.pid)) >= p.max then doRemoveCreature(p.pid) end return true end function onLogin(cid) if getPlayerGroupId(cid) <= config.group_id then if isInArray(accepted_ip_list,doConvertIntegerToIp(getPlayerIp(cid))) == false then addEvent(antiMC, 1000, {pid = cid, max = config.max+1}) end end return true end Bom tem o velho método anti-bot, é bem chato fazer ele mais é bem útil. È so por +1 nos items, tipo: MPA: id = 1500 Se troca para = 1501 Da muiiitoo trabalho, mais funciona =D

Olá, Venho aqui postar um Npc maker que eu encontrei... Ele é muito bom e para criação de npcs... Características: Nice, clean procurando GUI. A configuração básica de NPC, como o intervalo de caminhada, mensagens e tal. Outfit: Possibilidade de escolher o equipamento (por nome) e addons, também a capacidade de usar cores aleatórias de cabeça, corpo, pernas, pés ou randomize todos uma vez! "Comprar": Capacidade para rápida criação de uma lista de itens Buyable usando um par caixas de edição e botões. "Vender": Capacidade para rápida criação de uma lista de itens utilizando um vendável editar algumas caixas e botões. "Travel" : Capacidade para rápida criação de lista de destinos de viagem usando um par caixas de edição e botões. Fotos: Download: EasyNPC v0.1 - Binários EasyNPC v0.1 - Source Scans: EasyNPC v0.1 Binaries - VirusScan Jotti EasyNPC v0.1 Source Files - VirusScan Jotti Creditos: Eu - Tópico Chojrak [nerutalaT (Como consta no pedido de change name) ] & Cia - O NPC Maker entre outras coisas

se tem problema eu não sei porque eu só testei com aneis mesmo não com doll... qualquer coisa da um toque abraços

Opa. Montanha Bunitinha.. é como ele disse , faltou pequenos detalhes , que seria as pedrinhas , pedras .. etc Ahh .. eu quero aprender a fazer essas arvores. ;D Ta Valendo ! Vlw Manolo

Posso fazer uma spell, que necessite de um creaturescript? ;d

Espero que esse não seja um fiasco como da ultima vez. mas porque logo creaturescripts?