Crypter

Abre o arquivo com o notepad++ e converte pra ANSI

testa ai 
local config = { posicao = { x = 1168, y = 731, z = 13}, -- Posição em que o player deve estar no altar need = { {item=2140,p={ x = 1295, y = 719, z = 13}},{item=2140,p={ x = 1296, y = 719, z = 13}},{item=2140,p={ x = 1297, y = 719, z = 13}},{item=2140,p={ x = 1295, y = 719, z = 13}} }, teleporte = {1387, { x = 1209, y = 818, z = 13}, { x = 1850, y = 481, z = 12} }, -- { id do Teleporte / onde será criado o teleporte / onde irá teleportar } tempo = 5000 -- Tempo para que o teleporte desapareça } function removeTP() doRemoveItem(getTileItemById(config.teleporte[2], config.teleporte[1]).uid) end function onUse(cid, item, fromPosition, itemEx, toPosition) local pId = getTopCreature(config.posicao).uid if ( pId == 0 or not isPlayer(pId) ) then return true and doPlayerSendCancel(cid, "You need to stay on the correct floor.") end local items_check = {} for p, v in pairs(config.need) do local posiItem = getTileItemById(v.item, v.p) if posiItem ~= 0 then table.insert(items_check,posiItem.uid) end end if not #items_check == #config.need then return true and doPlayerSendCancel(cid, "You need to put all items on the floors.") end for p, v in pairs(items_check) do if v then doRemoveItem(v) end end doCreateTeleport(config.teleporte[1], config.teleporte[3], config.teleporte[2]) doTransformItem(item.uid, item.itemid == 1945 and 1946 or 1945) addEvent(removeTP, config.tempo) return true end  

<?xml version="1.0"?> <outfits> <outfit id="1" quest="7545"> <list gender="0" lookType="31" name="Test"/> <list gender="1" lookType="31" name="Test"/> </outfit> </outfits> Faz uma script  que seta a storage 7545 e testa

local config = { storage = 98200, trap_time = 10, exhaustion_time = 30, effect = 1 } function onCastSpell(cid, var) if exhaustion.check(cid, config.storage) then doPlayerSendCancel(cid, "Aguarde "..exhaustion.get(cid, config.storage).." segundos.") return false end local position = {x = getCreaturePosition(var.number).x + 0, y = getCreaturePosition(var.number).y + 0, z = getCreaturePosition(var.number).z} doCreatureSetNoMove(var.number, true) addEvent(doCreatureSetNoMove,config.trap_time*1000,var.number, false) doSendMagicEffect(position, config.effect) exhaustion.set(cid, config.storage, config.exhaustion_time) return true end  

Coloca ai o link do download cara não é pra deixar mediafire.com e tem que por nesse formato -> https://www.mediafire.com/

O melhor 0.4 que eu conheço e esse aqui, o Fireelement corrigiu todos os bug's e eu uso ele, roda com 100% de uptime
http://www.tibiaking.com/forum/forums/topic/67233-860-the-forgotten-server-04-sqlite-e-mysql

Esse sistema é algo muito complexo ninguém vai fazer pra ti de graça, se quiser mesmo o sistema vai atrás de um programador

Gosto da minha script ne safado, dei uma melhorada nela pra ti, bom uso

As sources dos servidores antigos são limitadas a um total de 255 efeitos (uint_8), existe aqui no tibiaking publicações explicando como passar um servidor de uint_8 pra uint_16( Alteração no client e na source ) , caso não tenha as sources do seu servidor é melhor procurar uma, como o servidor é de nto qualquer uma irá funcionar.

function doHealOverTime(cid, heal, turn, effect) --alterado v1.6 peguem o script todo!! if not isCreature(cid) then return true end local regen = (heal*getCreatureMaxHealth(cid)/100) if turn <= 0 or (getCreatureHealth(cid) == getCreatureMaxHealth(cid)) or getPlayerStorageValue(cid, 173) <= 0 then return setPlayerStorageValue(cid, 173, -1) elseif getCreatureHealth(cid) + regen >= getCreatureMaxHealth(cid) then doSendAnimatedText(getThingPos(cid), "+".. regen .."%", 65) doCreatureAddHealth(cid, regen) doSendMagicEffect(getThingPos(cid), effect) return setPlayerStorageValue(cid, 173, -1) end doSendAnimatedText(getThingPos(cid), "+ "..heal.."%", 65) doCreatureAddHealth(cid, regen ) doSendMagicEffect(getThingPos(cid), effect) addEvent(doHealOverTime, 1000, cid, heal, turn - 1, effect) addEvent(doUpdateStatusPoke, 1005, getCreatureMaster(cid)) end local potions = { [2273] = {health = 5, duration=10,effect= 12, animate = "SMALL POT", collor = 140}, [2272] = {health = 10, duration=10,effect= 12, animate = "GREAT POT", collor = 140}, [2271] = {health = 25, duration=10,effect= 12, animate = "MEGA POT", collor = 140}, [2275] = {health = 40,duration=10, effect= 12, animate = "HYPER POT", collor = 140}, [2274] = {health = 60, duration=10,effect= 12, animate = "SUPER POT", collor = 140}, } function onUse(cid, item, frompos, item2, topos) local pid = getThingFromPosWithProtect(topos) local pokeballInfo = getPokeballInfo(getPlayerSlotItem(cid, 8).uid) if not isCreature(pid) or not isSummon(pid) then return doPlayerSendCancel(cid, "You can only use potions on your own Pokemons!") end if getCreatureMaster(pid) ~= cid then return doPlayerSendCancel(cid, "You can only use potions on your own Pokemons!") end if getCreatureHealth(pid) == getCreatureMaxHealth(pid) then return doPlayerSendCancel(cid, "This pokemon is already at full health.") end if getPlayerStorageValue(pid, 173) >= 1 then return doPlayerSendCancel(cid, "This pokemon is already under effects of potions.") end if getPlayerStorageValue(cid, 52481) >= 1 then return doPlayerSendCancel(cid, "You can't do that while a duel.") end doCreatureSay(cid, "".. pokeballInfo.nick..", take this potion!", TALKTYPE_SAY) doSendAnimatedText(getThingPos(pid), potions[item.itemid].animate, potions[item.itemid].collor) setPlayerStorageValue(pid, 173, 1) doRemoveItem(item.uid, 1) doHealOverTime(pid, potions[item.itemid].health, potions[item.itemid].duration, potions[item.itemid].effect) return true end  

local fishing = { ["Magikarp"] = {skill = 0, level = 1}, ["Gyarados"] = {skill = 75, level = 75}, ["Staryu"] = {skill = 22, level = 6}, ["Starmie"] = {skill = 49, level = 20}, ["Tentacool"] = {skill = 20, level = 7}, ["Tentacruel"] = {skill = 60, level = 75}, ["Goldeen"] = {skill = 17, level = 5}, ["Seaking"] = {skill = 28, level = 11}, ["Krabby"] = {skill = 14, level = 2}, ["Kingler"] = {skill = 35, level = 14}, ["Horsea"] = {skill = 16, level = 3}, ["Seadra"] = {skill = 41, level = 15}, ["Poliwag"] = {skill = 15, level = 2}, ["Poliwhirl"] = {skill = 27, level = 9}, ["Squirtle"] = {skill = 25, level = 25}, ["Wartortle"] = {skill = 45, level = 44}, ["Blastoise"] = {skill = 75, level = 75}, ["Lapras"] = {skill = 85, level = 85}, } local storage = 15458 local bonus = 1 local limite = 100 local function doFish(cid, pos, ppos, chance, interval, number) if not isCreature(cid) then return false end if getThingPos(cid).x ~= ppos.x or getThingPos(cid).y ~= ppos.y then return false end if getPlayerStorageValue(cid, storage) ~= number then return false end doSendMagicEffect(pos, CONST_ME_LOSEENERGY) local peixe = 0 local playerpos = getClosestFreeTile(cid, getThingPos(cid)) local fishes = {} local randomfish = "" if getPlayerSkillLevel(cid, 6) < limite then doPlayerAddSkillTry(cid, 6, bonus) end for a, b in pairs (fishing) do if getPlayerSkillLevel(cid, 6) >= b.skill then table.insert(fishes, a) end end if math.random(1, 100) <= chance then if getPlayerSkillLevel(cid, 6) < limite then doPlayerAddSkillTry(cid, 6, bonus) end randomfish = fishes[math.random(#fishes)] peixe = doSummonCreature(randomfish, playerpos) if not isCreature(peixe) then addEvent(doFish, interval, cid, pos, ppos, chance, interval, number) return true end doCreatureSetLookDir(cid, getDirectionTo(getThingPos(cid), getThingPos(peixe))) --alterado ver depois if #getCreatureSummons(cid) >= 1 then doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 173) doChallengeCreature(getCreatureSummons(cid)[1], peixe) else doSendMagicEffect(getThingPos(cid), 173) doChallengeCreature(cid, peixe) end return true end addEvent(doFish, interval, cid, pos, ppos, chance, interval, number) return true end local waters = {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 onUse(cid, item, fromPos, itemEx, toPos) if getPlayerGroupId(cid) == 11 then return true end if item.uid ~= getPlayerSlotItem(cid, CONST_SLOT_LEFT).uid then doPlayerSendCancel(cid, "Put the fishing rod in the correct place!") return true end local checkPos = toPos checkPos.stackpos = 0 if getTileThingByPos(checkPos).itemid <= 0 then return true end if not isInArray(waters, getTileInfo(toPos).itemid) then return true end if getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 63215) >= 1 then doPlayerSendCancel(cid, "You can't fish while surfing/flying.") return true end if isInArray(waters, getTileInfo(getThingPos(cid)).itemid) then doPlayerSendCancel(cid, "You can\'t fish while surfing neither flying above water.") return true end if getTileInfo(getThingPos(getCreatureSummons(cid)[1] or cid)).protection then doPlayerSendCancel(cid, "You can't fish pokémons if you or your pokémon is in protection zone.") return true end setPlayerStorageValue(cid, storage, getPlayerStorageValue(cid, storage) + 1) if getPlayerStorageValue(cid, storage) >= 800 then setPlayerStorageValue(cid, storage, 1) end local delay = 3500 - getPlayerSkillLevel(cid, 6) * 25 local chance = 40 doFish(cid, toPos, getThingPos(cid), chance, delay, getPlayerStorageValue(cid, storage)) return true end  
O item de pesca tem que ter a um item muti uso ou seja com a função use with..

function onUse(cid, item, frompos, itemEx, topos) local bike = {lookType = 738, lookHead = getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet} --- Esse vai ser Homen local bike1 = {lookType = 737, lookHead = getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet} --- Esse vai ser mulher local speed = 474 --- Velocidade que a bike terá. if isPlayer(cid) and not isPremium(cid) and premium == true then doTeleportThing(cid, fromPosition, false) doPlayerSendCancel(cid, "Only premium accounts can mount.") return true end if item.uid ~= getPlayerSlotItem(cid, CONST_SLOT_RING).uid then doPlayerSendCancel(cid, "Put in the correct slot.") return true end if getPlayerStorageValue(cid, 17001) == 1 or getPlayerStorageValue(cid, 63215) == 1 or getPlayerStorageValue(cid, 17000) == 1 then doPlayerSendCancel(cid, "Dismount your pokemon to ride.") return true end if getPlayerStorageValue(cid, 32001) == 1 then doRemoveCondition(cid, CONDITION_OUTFIT) doChangeSpeed(cid, -speed) doSendMagicEffect(getPlayerPosition(cid), 18) setPlayerStorageValue(cid, 32001, -1) else if getPlayerSex(cid) == 1 then -- homem doChangeSpeed(cid, speed) doSetCreatureOutfit(cid, bike, -1) doSendMagicEffect(getPlayerPosition(cid), 18) setPlayerStorageValue(cid, 32001, 1) elseif getPlayerSex(cid) == 0 then -- homem doChangeSpeed(cid, speed) doSetCreatureOutfit(cid, bike1, -1) doSendMagicEffect(getPlayerPosition(cid), 18) setPlayerStorageValue(cid, 32001, 1) end end return true end  

local combat1 = createCombatObject() setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatParam(combat1, COMBAT_PARAM_EFFECT, 32) setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -90.2, 1, -90.2, 1) arr1 = { {0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 3, 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) setCombatArea(combat1, area1) function onCastSpell(cid, var) local waittime = 1 -- Tempo de exhaustion local storage = 5819 if exhaustion.check(cid, storage) then doCreatureSay(cid, "Aguarde " .. exhaustion.get(cid, storage) .. " segundos para usar a spell novamente.", TALKTYPE_MONSTER) return false end local hits = 4 local time = 400 local p = getCreaturePosition(cid) local x = { [0] = {x=p.x, y=p.y-1, z=p.z}, [1] = {x=p.x+4, y=p.y, z=p.z}, [2] = {x=p.x, y=p.y+4, z=p.z}, [3] = {x=p.x-1, y=p.y, z=p.z} } local y = { [0] = 307, [1] = 304, [2] = 306, [3] = 305 } pos = x[getCreatureLookDirection(cid)] eff = y[getCreatureLookDirection(cid)] for i = 1, hits do addEvent(doSendMagicEffect, time * i ,pos, eff) addEvent(doCombat, time * i, cid, combat1, var) end doCreatureSay(cid, "Choju giga nezumi", TALKTYPE_MONSTER) return true,exhaustion.set(cid, storage, waittime) end  

Substitui o final por este.

Como achei usar um item não fazia muito sentido , tomei a liberdade de fazer uma talkaction.
 
 

~~By Cripter
 

function onLogin(cid) local rate = 1.2 -- 10% a mais de exp. local config = { Vip = "You have "..((rate - 1)*100).."% rom exp! Enjoy the benefits vip donate!", -- mensagem apenas para vip NotVip = "Hello player enjoy the benefits vip, you will win "..((rate - 1)*100).."% more than xp!", -- mensagem para quem não é vip } if not (string.find(tostring(getCreatureName(cid)),"Account Manager")) or getPlayerGroupId(cid) >= 3 then if isPremium(cid) == true then doPlayerSetExperienceRate(cid, rate) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, config.Vip) else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, config.NotVip) end end return true end function onStepIn(cid, item, position, fromPosition) local tileConfig = { kickPos = fromPosition, kickEffect = CONST_ME_POFF, kickMsg = "You need to be a vip player to access this area.", enterMsg = "Welcome to vip area!", enterEffect = CONST_ME_MAGIC_RED, } if isPlayer(cid) == true then if isPremium(cid) == false then doTeleportThing(cid, tileConfig.kickPos) doSendMagicEffect(tileConfig.kickPos, tileConfig.kickEffect) doPlayerSendCancel(cid, tileConfig.kickMsg) return end doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, tileConfig.enterMsg) doSendMagicEffect(position, tileConfig.enterEffect) return true end end

local t = {access = 7, -- Numero unico text = "Player Beta", textcolor = COLOR_BLUE, effect = 1, interval = 10} function onLogin(cid) if getPlayerAccess(cid) == t.access then SendEffect(cid, t.effect, t.text, t.interval, t.textcolor) end return true end function SendEffect(cid, effect, text, time, color) if isPlayer(cid) then doSendMagicEffect(getPlayerPosition(cid), effect) doSendAnimatedText(getPlayerPosition(cid), text, color) addEvent(SendEffect, time*1000, cid, effect, text, time, color) end return true end