ZoR

@iury alves potter 
 
 
Download do arquivo : Look.lua
 
Se Ajudei Rep+ :)  

function onStepIn(creature, item, position, fromPosition) if getCreatureSummons(cid)[1] then doMoveCreature(getCreatureMaster(cid), position.fromPosition + 1) doPlayerBroadcastMessage(cid,"Seu Pokemon se Moveu!") end return true end <movevent event="StepIn" script="arquivo.lua" />  

nao fala bobagem pfv!!
voce hokka no cliente nao no Spr.
o Spr é uma ponte ou seja o Tibia.metadata é uma ponte para o dat2 ai acaba bugando os ID.

Nao existe entrar na sourcer!!!
a sourcer nada mais é que o executavel do seu server ou seja é aquilo que voce aperta pra ligar o server!!.
para conseguir uma sourcer é só pesquisar "Sourcer Limpa e a versao"
Exemplo tenho 0.3.6 pesquisa Sourcer limpa 8.54
outro
0.4 "Sourcer Limpa 8.60"

local tempo = 60 -- tempo em segundos. local effect = {241} -- effect no player local ml = 15 -- quantos ira aumentar o skill de ML local skillfist = 15 -- quantos ira aumentar o skill de Fist local skillsword = 15 -- quantos ira aumentar o skill de Sword local skillaxe = 15 -- quantos ira aumentar o skill de Axe local skillclub = 15 -- quantos ira aumentar o skill de Club local skilldistance = 15 -- quantos ira aumentar o skill de Distance local skillshield = 15 -- quantos ira aumentar o skill de Shield local health = 150 -- A cada 1 segundo quantos aumentar de vida local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0) local condition = createConditionObject(CONDITION_ATTRIBUTES) setConditionParam(condition, CONDITION_PARAM_TICKS, tempo*1000) setConditionParam(condition, CONDITION_PARAM_STAT_MAGICLEVEL, ml) setConditionParam(condition, CONDITION_PARAM_SKILL_FIST, skillfist) setConditionParam(condition, CONDITION_PARAM_SKILL_SWORD, skillsword) setConditionParam(condition, CONDITION_PARAM_SKILL_AXE, skillaxe) setConditionParam(condition, CONDITION_PARAM_SKILL_CLUB, skillclub) setConditionParam(condition, CONDITION_PARAM_SKILL_DISTANCE, skilldistance) setConditionParam(condition, CONDITION_PARAM_SKILL_SHIELD, skillshield) setConditionParam(condition, CONDITION_PARAM_OUTFIT, outfit) setCombatCondition(combat, condition) local condition = createConditionObject(CONDITION_HASTE) setConditionParam(condition, CONDITION_PARAM_SPEED, 250) setConditionParam(condition, CONDITION_PARAM_TICKS, tempo*1000) setConditionParam(condition, CONDITION_PARAM_BUFF, TRUE) setCombatCondition(combat, condition) local condition = createConditionObject(CONDITION_REGENERATION) setConditionParam(condition, CONDITION_PARAM_SUBID, 1) setConditionParam(condition, CONDITION_PARAM_BUFF, TRUE) setConditionParam(condition, CONDITION_PARAM_TICKS, tempo*1000) setConditionParam(condition, CONDITION_PARAM_HEALTHGAIN, health) setConditionParam(condition, CONDITION_PARAM_HEALTHTICKS, 1000) setCombatCondition(combat, condition) function magicEffect(tempo2,tempo3,cid) if (isCreature(cid)) then if getPlayerStorageValue(cid, 102059) > 0 and getCreatureCondition(cid, CONDITION_REGENERATION, 1) then for i=1, #effect do local position = {x=getPlayerPosition(cid).x, y=getPlayerPosition(cid).y, z=getPlayerPosition(cid).z} doSendMagicEffect(position, effect) end end end end function onCastSpell(cid, var) if getPlayerStorageValue(cid, 102059) ~= 1 or getCreatureCondition(cid, CONDITION_REGENERATION, 1) == false then doCombat(cid, combat, var) tempo2 = 0 while (tempo2 ~= (tempo*1000)) do addEvent(magicEffect, tempo2, tempo2, tempo*1000, cid) tempo2 = tempo2 + 300 end setPlayerStorageValue(cid, 102059,1) -- storage verifica transformado, quando = 1 player esta transformado. else doPlayerSendCancel(cid, "Voce ja esta com Buff.") end end  

CreatureScript
function onDeath(cid, corpse, deathList) local config = { onlypremium = false, -- se precisa ser premium para não perder nada levelandskills = true, -- se ao morrer o jogador irá perder level e skill loot = false, -- se ao morrer o jogador irá perder o loot level = -- até que level irá proteger o player } if isPlayer(cid) and getPlayerLevel(cid) <= config.level then if config.onlypremium == true and not isPremium(cid) then return TRUE end if config.loot == false then doCreatureSetDropLoot(cid, false) end if config.levelandskills == false then doPlayerSetLossSkill(cid, 0) end return TRUE end return TRUE end CreatureScript.Xml
<event type="death" name="ProtectLevel" event="script" value="levelprotection.lua"/> Login.lua
registerCreatureEvent(cid, "ProtectLevel")  

http://prntscr.com/gkab7x
4
 
 
https://github.com/otservme/global860

function onCastSpell(cid, var) local config = { [1] = {x=getCreaturePosition(cid).x ,y=getCreaturePosition(cid).y ,z=getCreaturePosition(cid).z}, [2] = {x=getCreaturePosition(cid).x ,y=getCreaturePosition(cid).y+1 ,z=getCreaturePosition(cid).z}, [3] = {x=getCreaturePosition(cid).x+1 ,y=getCreaturePosition(cid).y+1 ,z=getCreaturePosition(cid).z}, [4] = {x=getCreaturePosition(cid).x+2 ,y=getCreaturePosition(cid).y+1 ,z=getCreaturePosition(cid).z}, [5] = {x=getCreaturePosition(cid).x+2 ,y=getCreaturePosition(cid).y ,z=getCreaturePosition(cid).z}, [6] = {x=getCreaturePosition(cid).x+2 ,y=getCreaturePosition(cid).y-1 ,z=getCreaturePosition(cid).z}, [7] = {x=getCreaturePosition(cid).x+1 ,y=getCreaturePosition(cid).y-1 ,z=getCreaturePosition(cid).z}, [8] = {x=getCreaturePosition(cid).x ,y=getCreaturePosition(cid).y-1 ,z=getCreaturePosition(cid).z}, [9] = {x=getCreaturePosition(cid).x+1 ,y=getCreaturePosition(cid).y ,z=getCreaturePosition(cid).z}, } local from1,to1 = {x=962, y=885, z=7},{x=973, y=892, z=7} local from2,to2 = {x=979, y=901, z=7},{x=991, y=905, z=7} local pos = getCreaturePosition(cid) local MaximoSummon = 1 local summons = getCreatureSummons(cid) if isInRange(pos, from1, to1) or isInRange(pos, from2, to2) then doPlayerSendCancel(cid, "Você não pode usar Summons Aqui!") return FALSE end if(table.maxn(summons) < MaximoSummon) then local monsters = { [1] = "MONSTER", [2] = "MONSTER", [3] = "MONSTER", [4] = "MONSTER", [5] = "MONSTER" } for i=1, #monsters do doSummonMonster(cid, monsters[i]) end for i=1, #config do doSendMagicEffect(config[i], 54) end return true end return false end  

function onStepIn(cid, item, position, fromPosition) if not isPlayer(cid) then return false end local p, mc = getPlayersOnline(), 0 for _, pid in pairs(p) do if getPlayerIp(cid) == getPlayerIp(pid) and pid ~= cid then doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid))) break end end return true end movevent type="StepIn" actionid="action id desejada" event="script" value="nomedoarquivo.lua"/>  

toma amigo.
http://www.mediafire.com/file/j23ciuxnhi5i52o/ItemEditor.rar
scan:https://www.virustotal.com/#/file/634137765cc40c872f50b581120fd58d2ed56cb597a1ee15df7fc0a2ff130480/detection
se ajudei marca como melhor resposta e rep! pfv

-- config, in percent of normal training with 2 trainers and player vocation mana regeneration [by food] OfflineTraining_rates = { [SKILL_CLUB] = 25, [SKILL_SWORD] = 25, [SKILL_AXE] = 25, [SKILL_DISTANCE] = 25, [SKILL_SHIELD] = 25, [SKILL__MAGLEVEL] = 25 } -- function that you should edit to make it add other skill etc. function OfflineTraining_canStartTraining(cid) -- return bool return getCreatureStorage(cid, 62669) > 0 end function OfflineTraining_onStartTraining(cid) -- maybe someone will need -- to save your time, this: doPlayerPopupFYI(cid, "You started offline training.") -- NOT WORK :( end function OfflineTraining_onEndTraining(cid) doCreatureSetStorage(cid, 62669, 0) end function OfflineTraining_addTrainedSkills(cid, trainTime) -- time in minutes! local timeInSeconds = trainTime * 60 local vocInfo = getVocationInfo(getPlayerVocation(cid)) if(getCreatureStorage(cid, 62669) == SKILL_SWORD) then doPlayerAddSkillTry(cid, SKILL_SWORD, ((timeInSeconds * 1000) / vocInfo["attackSpeed"]) * OfflineTraining_rates[SKILL_SWORD] / 100, true) elseif(getCreatureStorage(cid, 62669) == SKILL_AXE) then doPlayerAddSkillTry(cid, SKILL_AXE, ((timeInSeconds * 1000) / vocInfo["attackSpeed"]) * OfflineTraining_rates[SKILL_AXE] / 100, true) elseif(getCreatureStorage(cid, 62669) == SKILL__MAGLEVEL) then doPlayerAddSpentMana(cid, ((timeInSeconds / vocInfo["manaGainTicks"]) * vocInfo["manaGain"]) * OfflineTraining_rates[SKILL__MAGLEVEL] / 100, true) elseif(getCreatureStorage(cid, 62669) == SKILL_CLUB) then doPlayerAddSkillTry(cid, SKILL_CLUB, ((timeInSeconds * 1000) / vocInfo["attackSpeed"]) * OfflineTraining_rates[SKILL_CLUB] / 100, true) elseif(getCreatureStorage(cid, 62669) == SKILL_DISTANCE) then doPlayerAddSkillTry(cid, SKILL_DISTANCE, ((timeInSeconds * 1000) / vocInfo["attackSpeed"]) * OfflineTraining_rates[SKILL_DISTANCE] / 100, true) end doPlayerAddSkillTry(cid, SKILL_SHIELD, timeInSeconds * OfflineTraining_rates[SKILL_SHIELD] / 100, true) end -- 4 functions to show right values on 'bar' in Tibia 9.6 function OfflineTraining_getTime(cid) return getCreatureStorage(cid, 62666) end function OfflineTraining_setTime(cid, newTime) -- set values only between 0 - 720 [12 hours] doCreatureSetStorage(cid, 62666, math.max(0, math.min(newTime, 720))) -- now code to force server to send 'PlayerStats' (including Offline Time) -- we must change any stat: hp,mana,stamina,cap,soul,exp,level doPlayerAddSoul(cid, 1) doPlayerAddSoul(cid, -1) end function OfflineTraining_addTime(cid, addTime) OfflineTraining_setTime(cid, OfflineTraining_getTime(cid) + addTime) end function OfflineTraining_removeTime(cid, removeTime) OfflineTraining_setTime(cid, OfflineTraining_getTime(cid) - removeTime) end -- functions for library to add skills/mlvl function OfflineTraining_initialize(cid) if(OfflineTraining_getTime(cid) == -1) then OfflineTraining_setLogoutTime(cid) -- block problem with first login 'add time' end end function OfflineTraining_isTraining(cid) return (getCreatureStorage(cid, 62667) > 0) end function OfflineTraining_turnOnTraining(cid) doCreatureSetStorage(cid, 62667, 1) end function OfflineTraining_turnOffTraining(cid) doCreatureSetStorage(cid, 62667, 0) end function OfflineTraining_getOfflineTime(cid) return math.floor((os.time() - getCreatureStorage(cid, 62668)) / 60) end function OfflineTraining_setLogoutTime(cid) return doCreatureSetStorage(cid, 62668, os.time()) end usa essa Lib.

Usa essa
 
function onAdvance(cid, skill, oldlevel, newlevel) if skill == 8 then doCreatureAddHealth(cid, getCreatureMaxHealth(cid)) doCreatureAddMana(cid, getCreatureMaxMana(cid)) doSendMagicEffect(getCreaturePosition(cid), 134) doSendAnimatedText(getCreaturePosition(cid), "Level UP", 210) doPlayerSave(cid) end return TRUE end tag do creature
<event type="advance" name="UP" event="script" value="up.lua"/> no login.lua
registerCreatureEvent(cid, "UP")