Celulose

@Belmont só funciona com cab, se estiver fora o cab a spr/dat/pic não vai abrir o

@Vitorelias 
CREATE TABLE `player_preytimes` ( `player_id` int(11) NOT NULL, `bonus_type1` int(11) NOT NULL, `bonus_value1` int(11) NOT NULL, `bonus_name1` varchar(50) NOT NULL, `bonus_type2` int(11) NOT NULL, `bonus_value2` int(11) NOT NULL, `bonus_name2` varchar(50) NOT NULL, `bonus_type3` int(11) NOT NULL, `bonus_value3` int(11) NOT NULL, `bonus_name3` varchar(50) NOT NULL ) ENGINE=InnoDB DEFAULT CHARSET=latin1;  

@KyureJL 
addEvent(doSendDistanceShoot, 1, getCreaturePosition(cid), {x = poz.x, y = poz.y-2, z = poz.z}, 46) 46 = efeito addEvent(doSendDistanceShoot, 400, {x = poz.x, y = poz.y-2, z = poz.z}, pos, 136) 136 = efeito addEvent(doSendMagicEffect, 300, {x = poz.x+1, y = poz.y-1, z = poz.z}, 186) 186 = efeito addEvent(doSendMagicEffect, 600, {x = pos.x+2, y = pos.y, z = pos.z}, 235) 235 = efeito addEvent(doSendMagicEffect, 1600, {x = pos.x+1, y = pos.y+1, z = pos.z}, 82) 82 = efeito  

Mysql>
 
ALTER TABLE `killers` ADD `war` INT(11) NOT NULL DEFAULT 0;

abre o phpmyadmin e faz o procedimento 
 
caso usa sql mesma coisa
 

function onUse(cid, item, fromPosition, itemEx, toPosition) if item.itemid == 7379 and (getPlayerStorageValue(cid, 8002) == EMPTY_STORAGE) then doPlayerAddOutfitId(cid, 44, 3) setPlayerStorageValue(cid, 8002, 1) doSendMagicEffect(getCreaturePosition(cid), CONST_ME_HOLYDAMAGE) doPlayerSendTextMessage(cid,22,"Congratulations, you have received the Outfit!") doRemoveItem(item.uid, 1) else doPlayerSendCancel(cid,"You have already received this outfit!.") end end outfits.xml <outfit id="44" premium="no" default="0"> <list gender="0-3" lookType="264" name="Brutetamer"/> </outfit>  

function onUse(cid, item, itemEx, toPosition, fromPosition) if getPlayerLevel(cid) >= 8 then doPlayerAddItem(cid, 2160, 100) setPlayerStorageValue(cid, 32504, 1) doPlayerSendTextMessage(cid, 22, 'Você recebeu o seu item.') elseif getPlayerLevel(cid) <= 8 then doPlayerSendTextMessage(cid, 22, 'Você recebeu o seu item.') end return true end  

deixa None..
 

@Naze 
local time = 15 function removeTp(pos, id) local item = getTileItemById(pos, id) if item.uid > 0 then return doRemoveItem(item.uid, 1) end end function onDeath(cid, corpse, killers) if isMonster(cid) then local pos = getThingPos(cid) local id = 7632 local effect = 53 doSendMagicEffect(pos, effect) doCreateItem(id, 1, pos) addEvent(removeTp, time*1000, pos, id) end return true end local pos, time = {x = 739, y = 976, z = 6}, 1 function removeLever() local t = getTileItemById(pos, 5676).uid return t > 0 and doRemoveItem(t) and doSendMagicEffect(pos, CONST_ME_POFF) end function onDeath(cid, corpse, killers) if isMonster(cid) then doCreatureSay(cid, "Vocês ganhou. Tem um minuto para pegar suas recompensas e sumir.", 19) local lever = doCreateItem(5676, 1, pos) doItemSetAttribute(lever, "aid", 23003) addEvent(removeLever, time*1000*60) end return true end  

@douglera21 Estanho ?
testa esse mod e modifique
 
<?xml version="1.0" encoding="UTF-8"?> <mod name="First Items" version="1.0" author="slawkens - edited by: mattyx14" contact="[email protected]" enabled="yes"> <description><![CDATA[ Custom First Items ]]></description> <config name="firstitems_config"><![CDATA[ config = { storage = 40046, items = {} } ]]></config> <event type="login" name="FirstItems" event="buffer"><![CDATA[ domodlib('firstitems_config') if(getPlayerStorageValue(cid, config.storage) > 0) then return end for _, id in ipairs(config.items) do doPlayerAddItem(cid, id, 1) end -- All Vocation -- BackPack -- Rope -- in Backpack doAddContainerItem(doPlayerAddItem(cid, 1988, 1), 2120, 1) -- Brass Armor -- Body doPlayerAddItem(cid, 2465, 1) -- Steel Helmet -- Head doPlayerAddItem(cid, 2457, 1) -- Bonelord Shield -- Right Hand doPlayerAddItem(cid, 2518, 1) -- Sorcerer (Weapon) -- Hand if isSorcerer(cid) then doPlayerAddItem(cid, 2190, 1) -- Wand of Vortex -- Left Hand doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT," "..getPlayerName(cid).." now have the first items of "..getPlayerVocationName(cid)..".") -- Druid (Weapon) -- Hand elseif isDruid(cid) then doPlayerAddItem(cid, 2182, 1) -- Snake Bite Rod -- Left Hand doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT," "..getPlayerName(cid).." now have the first items of "..getPlayerVocationName(cid)..".") -- Paladin - Warrior (Weapon) -- Hand elseif isPaladin(cid) then doPlayerAddItem(cid, 2389, 20) -- Spear -- Left Hand doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT," "..getPlayerName(cid).." now have the first items of "..getPlayerVocationName(cid)..".") -- Knight (Weapon) -- Hand elseif isKnight(cid) then doPlayerAddItem(cid, 8602, 1) -- Jagged Sword -- Left Hand doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT," "..getPlayerName(cid).." now have the first items of "..getPlayerVocationName(cid)..".") end -- All Vocation -- Brass Legs -- in Feet doPlayerAddItem(cid, 2478, 1) -- Leather Boots -- in Boots doPlayerAddItem(cid, 2643, 1) -- Scarf -- in Necklacke doPlayerAddItem(cid, 2661, 1) -- Platinum Coin -- in Arrows doPlayerAddItem(cid, 2152, 1) -- Health Potion -- in Backpack doPlayerAddItem(cid, 7618, 10) -- Shovel -- in Backpack doPlayerAddItem(cid, 2554, 1) -- Crystal Ring -- in Ring doPlayerAddItem(cid, 2124, 1) -- Mana Potion -- in Backpack doPlayerAddItem(cid, 7620, 15) -- Knight (Weapon) -- in Backpack if isKnight(cid) then doPlayerAddItem(cid, 8601, 1) -- Steel Axe doPlayerAddItem(cid, 2439, 1) -- Daramanian mace end setPlayerStorageValue(cid, config.storage, 1) ]]></event> </mod>  

local combat1 = createCombatObject() setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatParam(combat1, COMBAT_PARAM_EFFECT, 403) setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -000.0, 0, -035.0, 0) local condition = createConditionObject(CONDITION_PARALYZE) setConditionParam(condition, CONDITION_PARAM_TICKS, 20000) setConditionFormula(condition, -0.90, 0, -0.96, 0) setCombatCondition(combat1, condition) local combat2 = createCombatObject() setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatParam(combat2, COMBAT_PARAM_EFFECT, 403) setCombatFormula(combat2, COMBAT_FORMULA_LEVELMAGIC, -000.0, 0, -000.0, 0) arr1 = { {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, 0, 0, 0, 1, 0, 0}, {0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 2, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 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}, } 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, 1, 0, 0, 0, 1, 0, 0}, {0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 2, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 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}, } local area1 = createCombatArea(arr1) local area2 = createCombatArea(arr2) setCombatArea(combat1, area1) setCombatArea(combat2, area2) local function onCastSpell1(parameters) return isCreature(parameters.cid) and doCombat(parameters.cid, parameters.combat1, parameters.var) end local function onCastSpell2(parameters) return isCreature(parameters.cid) and doCombat(parameters.cid, parameters.combat2, parameters.var) end function onCastSpell(cid, var) if exhaustion.check(cid, 13117) == TRUE then doPlayerSendCancel(cid, "Podera usar novamente dentro de 10 segundos.") return false end local parameters = { cid = cid, var = var, combat1 = combat1, combat2 = combat2 } addEvent(onCastSpell1, 0, parameters) addEvent(onCastSpell2, 150, parameters) exhaustion.set(cid, 13117, 10.0) return true end  

cria um atalho , vai em geral (no atalho) .... depois em destino no final onde está nomedoclient.exe" você deixa nomedoclient.exe" engine 0
 
salva e gg

function onLogin(cid) local pos = {x = 70, y = 190, z = 13} if getCreatureName(cid) ~= "Account Manager" then if getPlayerStorageValue(cid, 60633) == -1 then doTeleportThing(cid, pos) setPlayerStorageValue(cid, 60633, 1) end end return true end  

otx já tem ant clone bem funcional , tfs é bem complicado você pode usa sistema pra auxiliar 
 
ele funciona é bem simples porem creio que é o máximo que você vai conseguir.

function onStepIn(cid, item, pos, frompos) if getPlayerGroupId(cid) < 6 then doTeleportThing(cid, frompos) doPlayerSendCancel(cid, 'Somente Staff Tem Acesso') doSendMagicEffect(frompos, CONST_ME_POFF) end return true end  
 
<movevent event="StepIn" actionid="60210" script="staffacess.lua"/>

@baiakuda 
function onSay(cid, words, param, channel) local tmp = getWorldUpTime() local hours = math.ceil(tmp / 3600) - 1 local minutes = math.ceil((tmp - (3600 * hours)) / 60) if(minutes == 60) then minutes = 0 hours = hours + 1 end local showGamemasters,on,count = false,getPlayersOnline(),0 for _, cid in pairs(on) do if getPlayerAccess(cid) < 4 then count = count + 1 end end doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[Modo: PVP] - [UpTime: " .. hours .. " hours and " .. minutes .. " minutes.] - [Players Online: " .. (showGamemasters == true and #on or count) .. "]") return TRUE end  

ele é pra salva storage  do game no caso se ficar true ele vai salva , se tiver false não vai salva !
 
por exemplo um castle se ele tem storage para a guild vencedora se tiver false não vai salva a storage !
 
então ele tem que fica sempre true .

deleta o install.php e install.txt .

se a configuração do site é sha1 e do config.lua do seu servidor for plain eles não vai conseguir .
ou você altera a config.lua onde esta plain para sha1 ou altera no website.

testa este
function onUse(cid, item, frompos, item2, topos) local expReward = 90 if item.uid == 1001 then queststatus = getPlayerStorageValue(cid,1001) if queststatus == -1 then if getPlayerLevel(cid) >= 2 then doPlayerSendTextMessage(cid,22,"Parabens, voce encontrou alguns itens!") doPlayerAddItem(cid,2465,1) doPlayerAddItem(cid,2512,1) doPlayerAddItem(cid,2478,1) doPlayerAddItem(cid,2460,1) doPlayerAddItem(cid,2554,1) doPlayerAddItem(cid,2120,1) doPlayerAddExp(cid, expReward) doPlayerSendTextMessage(cid, 22, 'Voce ganhou '.. expReward ..' de experiencia.') setPlayerStorageValue(cid,1001,1) else doPlayerSendTextMessage(cid,22,"Voce ainda nao pode abrir esse bau.") end else doPlayerSendTextMessage(cid,22,"Esta vazio.") end else return 1 end   return 1 end  

está dizendo pra você seleciona o mundo que seu char vai ser criado ..
vai em config verifica se tem o mundo se não tiver posta o arquivo php de criar conta

creaturescripts 
creaturescripts.xml
adicione
<event type="advance" name="FullHpMana" event="script" value="fullhpmana.lua"/>    
-
creaturescripts/scripts
em login.lua
registerCreatureEvent(cid, "FullHpMana")
---
ainda em creaturescripts/scripts , crie um arquivo com nome fullhpmana.lua 
adicione
function onAdvance(cid, skill, oldlevel, newlevel) if skill == SKILL__LEVEL then local maxh = getCreatureMaxHealth(cid) local maxm = getCreatureMaxMana(cid) doCreatureAddHealth(cid, maxh) doCreatureAddMana(cid, maxm) end return true end  

olá .'
abra a pasta movements/
abra movements.xml
adiciona essa tag .
edita onde está itemid="13630" pelo id da sua wand .
sendo assim deixa o slot shield mesmo , ela vai reconhecer e dar os magic level .'
    <movevent type="Equip" itemid="13630" slot="shield" event="function" value="onEquipItem"/>
    <movevent type="DeEquip" itemid="13630" slot="shield" event="function" value="onDeEquipItem"/>

Abra o arquivo creaturescripts.xml
E adicione:
<event type=”think” name=”TiraBattle” event=”script” value=”tirabattle.lua”/>
Abra a pasta “scripts” e abra o arquivo login.lua
E adicione:
registerCreatureEvent(cid, “TiraBattle”)
 
----------------------
Ainda na pasta scripts, crie o arquivo tirabattle.lua e adicione o seguinte:
function onThink(cid, interval) if(getTilePzInfo(getCreaturePosition(cid))) then doRemoveCondition(cid, CONDITION_INFIGHT) end end Créditos: KekezitoLHP

foi erro meu no script esqueci do return false end.
lembra onde está 2.0 voce coloca em segundos onde esta o 2 . exemplo 30 segundos 30.0.
local tempo = 20 -- tempo em segundos. local effect = {29} -- effect no player, caso queira apenas 1, basta remover os outros numeros. local text = 'Skill Up!' local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0) local condition = createConditionObject(CONDITION_ATTRIBUTES) setConditionParam(condition, CONDITION_PARAM_TICKS, tempo*1500) setConditionParam(condition, CONDITION_PARAM_SKILL_MELEEPERCENT, 165) setConditionParam(condition, CONDITION_PARAM_SKILL_SHIELDPERCENT, 160) 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*1500) setCombatCondition(combat, condition) function magicEffect3(tempo2,tempo3,cid) if (isCreature(cid)) then if getPlayerStorageValue(cid, 102053) ~= 0 and getCreatureCondition(cid, CONDITION_REGENERATION, 1) then for i=1, #effect do local position = {x=getPlayerPosition(cid).x+0, y=getPlayerPosition(cid).y, z=getPlayerPosition(cid).z} doSendMagicEffect(position, effect) doSendAnimatedText(getCreaturePos(cid), text, TEXTCOLOR_RED) end end end end function onCastSpell(cid, var) if exhaustion.check(cid, 15000) == TRUE then doPlayerSendCancel(cid, "Podera usar novamente dentro de 20 segundos.") return false end if getPlayerStorageValue(cid, 10569) == 1 then doSendAnimatedText((getCreaturePosition(cid)), "Socorro!", 255) doSendMagicEffect(getCreaturePosition(cid), 19) doPlayerSendDefaultCancel(cid, RETURNVALUE_YOUAREEXHAUSTED) return false elseif getCreatureCondition(cid, CONDITION_REGENERATION, 1) == false then doCombat(cid, combat, var) tempo2 = 0 while (tempo2 ~= (tempo*1500)) do addEvent(magicEffect3, tempo2, tempo2, tempo*1500, cid) tempo2 = tempo2 + 1500 exhaustion.set(cid, 15000, 20.0) end doCreatureSay(cid, "Exevo Grav", TALKTYPE_MONSTER) else doPlayerSendCancel(cid, "Desculpe, mais você ainda está no efeito da magia.") doSendMagicEffect(getCreaturePosition(cid), 2) end end testado.'