Session Start

Kb paulo, o carinha ta sofrend opra por SQL imagina MYSQL( que no meu ver é bem mais complicadinho) pra quem ta começando... :x Usa esse: E vai na pasta do ot e ve se tem um arquivo chamado db.s3db Se tiver, tudo bem, mas se nao tiver com esse nome e o fim dele ser .S3DB você renomeia para db.s3db

Poderia lhe ajudar, mas como você mesmo digitou.. Vodkart Você pode me ajudar em dois scripts?

EHUaheuEHAueaheuaEHauehAUEHAUEHA

Moça, você postou na área errada, vou reportar para algum moderador mover pra você... Enquanto ao tópico.. http://www.baixaki.com.br/download/sistema-de-controle-de-academia.htm Veja se ajuda você .15 dias ele ajuda RÇRÇ

testa esse script: local config = { MaxPlayer = 20, fight_skills = { ['fist'] = 0, ['club'] = 1, ['sword'] = 2, ['axe'] = 3, ['distance'] = 4, ['shielding'] = 5, ['fishing'] = 6, ['dist'] = 4, ['shield'] = 5, ['fish'] = 6, }, other_skills = { [''] = "level", ['level'] = "level", ['magic'] = "maglevel", ['health'] = "healthmax", ['mana'] = "manamax" }, vocations = { ['sorcerer'] = {1,5}, ['druid'] = {2,6}, ['paladin'] = {3,7}, ['knight'] = {4,8} }, storages = { ['frags'] = 824544 } } function onSay(cid, words, param) local param,str = string.lower(param),"" if not config.fight_skills[param] and not config.other_skills[param] and not config.vocations[param] and not config.storages[param] then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "este rank não existe.") return true end str = "--[ RANK "..(param == "" and "LEVEL" or string.upper(param)).." ]--\n\n" query = config.fight_skills[param] and db.getResult("SELECT `player_id`, `value` FROM `player_skills` WHERE `skillid` = "..config.fight_skills[param].." ORDER BY `value` DESC;") or config.other_skills[param] and db.getResult("SELECT `name`, `"..config.other_skills[param].."` FROM `players` WHERE `id` > 6 AND `group_id` < 2 ORDER BY `"..config.other_skills[param].."` DESC, `name` ASC;") or config.storages[param] and db.getResult("SELECT `player_id`, `value` FROM `player_storage` WHERE `key` = "..config.storages[param].." ORDER BY cast(value as INTEGER) DESC;") or db.getResult("SELECT `name`, `level` FROM `players` WHERE `group_id` <= 2 AND `vocation` = "..config.vocations[param][1].." or `vocation` = "..config.vocations[param][2].." ORDER BY `level` DESC;") if (query:getID() ~= -1) then k = 1 while true do str = str .. "\n " .. k .. ". "..(config.fight_skills[param] and getPlayerNameByGUID(query:getDataString("player_id")) or config.storages[param] and getPlayerNameByGUID(query:getDataString("player_id")) or query:getDataString("name")).." - [" .. query:getDataInt((config.fight_skills[param] and "value" or config.storages[param] and "value" or config.vocations[param] and "level" or config.other_skills[param])) .. "]" k = k + 1 if not(query:next()) or k > config.MaxPlayer then break end end query:free() end doShowTextDialog(cid,6500, str) return true end

Pelo que eu sei em war nunca vai pegar red pq se não nem existiria esse sistema u.u

executa isso na database CREATE TABLE IF NOT EXISTS `death_list` ( `player_id` int(11) NOT NULL, `date` bigint(20) unsigned NOT NULL, `level` int(11) NOT NULL, `killer_name` varchar(30)NOT NULL, KEY `date` (`date`), KEY `player_id` (`player_id`) );

posta seu congif.lua que arrumo pra voce, nao precisa criar site nao...

data/talkaction no talk.XML poe a tag <talkaction words="!rank" script="ranks.lua"/> e dentro da pasta script cria um arquivo chamado ranks.lua e cola isso: local ranks = { ['fist'] = {0}, ['club'] = {1}, ['sword'] = {2}, ['axe'] = {3}, ['distance'] = {4}, ['shield'] = {5}, ['fish'] = {6}, ['magic'] = {7}, ['level'] = {8}, } function onSay(cid, words, param) local msg = string.lower(param) if ranks[msg] ~= nil then str = getHighscoreString((ranks[msg][1])) else str = getHighscoreString((8)) end doShowTextDialog(cid,6500, str) return TRUE end

PAJKSDPOAJKDPOSAKPDOA um momento... clica na pasta do ot server, vai em clica duas vezes em DATA, procure a pasta ACTION, clique duas vezes nela, clicando nela duas vezes voce vai perceber que tem uma pasta chamada SCRIPTS, bem, clique nela duas vezes, dentro da pasta SCRIPTS procure por um arquivo chamado demonoak Agora nele voce edita isso: Nas linhas que contém: doSummonCreature("Demon", monster1) EDITE O NOME DEMON, para o bixo que voce deseja que nasça... Ai voce procura os outros e edita tambem...

npc.XML <?xml version="1.0" encoding="UTF-8"?> <npc name="AndoPelaCidade" script="npccc.lua" walkinterval="1" floorchange="10000000000" access="5" level="1"> <health now="150" max="150"/> <look type="129" head="118" body="199" legs="114" feet="114" addons="3"/> </npc> Script: local intervalmin = 1 local intervalmax = 10 local delay = 1 local velocidade = 500 local test = 0 function onThink() local npc = getCreaturePosition(getNpcCid()) delay = delay - 0.5 if delay <= 0 then selfSay("Utani hur") doSendMagicEffect(npc, 12) if test <= 0 then test = test + 1 doChangeSpeed(getNpcCid(), velocidade) selfSay("Utani hur") end delay = math.random(intervalmin, intervalmax) end return true end

Bem, fiz ele hoje a noite pra um carinha, nao consegui fazer a spell que ele queria :3, acho que pode ajudar algumas pessoas que tem dificuldade com os scripts,ou nao :3 listinha de check que tem: needTempoToUse = "true", Se quer cooldown (tempo pra usar dnv). needTempoToUseStorage = 33337, Storage que vai ocupar ( nunca utilize ela 2 vezes ). needTempoToUseInSecons = 20, Tempo em segundos, para o cooldown.. needOutfitToUse = "true", Se gostaria que o player esteja usando um LookType. needOutfitToUseName = "citizen", Nome que vai aparecer caso ele n tenha ( vc n ta usando citizen). needOutfitToUseLooktype = 128, Numero do LookType no caso 128 do citizen. needPZ = "true", Se ele precisa estar em Protection zone. needLevel = "true", Se ele precisa ter level . needLevelis = 100, O level que precisa ser, caso o needLevel esteja como "true". needVocation = "true", Para X vocation usar ... needVocationID = {1, 2, 3, 4, 5, 6, 7, 8}, Numero das vocations. needPremium = "true", Já diz tudo, precisa ser premium. needVIP = "false", -- Se precisa ser vip ( a vip por storage ) storageDaVip = 333333333, Storage da VIP ( veja nos scripts do seu server qual é ). needQuest = "false", Basicamente a da VIP, só que é quest. needQuestSTORAGE = 1333333334, storage da quest... needItemSlot = "true", Só usa se tiver um X item no X slot needItemSlotID = 8, -- PÉS Lista e slots pra por (peguei e um post do Vodkart ) :3 CONST_SLOT_FIRST = 1 Cabeça CONST_SLOT_HEAD = CONST_SLOT_FIRST Cabeça CONST_SLOT_NECKLACE = 2 Colar CONST_SLOT_BACKPACK = 3 Backpack CONST_SLOT_ARMOR = 4 Armor CONST_SLOT_RIGHT = 5 Mão direita CONST_SLOT_LEFT = 6 Mão esquerda CONST_SLOT_LEGS = 7 Legs CONST_SLOT_FEET = 8 Bota CONST_SLOT_RING = 9 Ring CONST_SLOT_AMMO = 10 Munição CONST_SLOT_LAST = CONST_SLOT_AMMO Munição needItemSlotID_ID_DO_ITEM = 2195, ID do item que precisa estar no SLOT needHP = "true", Se caso o player precise estar com X HP pra poder usar needHPtouse = 800, HP.. darTempoDexp = "true", Se quer que dê 50% a mais de XP por X tempo darTempoDexpTempoQueVaiDURAR= 20, -- em segundos Duração do XP extra needMANA = "true",Se caso o player precise estar com X MANA pra poder usar needMANAtouse = 1500, MANA showLugares = " ESCREVA AQUI OS LUGARES \n ESCREVA AQUI OS LUGARES \n ESCREVA AQUI OS LUGARES \n", Aparece upa janela caso ele use o comando sem param

Exausted 5 segundos function onCastSpell(cid, var) if getPlayerStorageValue(cid, 333311) < os.time () then setPlayerStorageValue(cid, 333311, os.time () + 5) -- 5 = 5 segundos local playerpos = getCreaturePosition(cid) local target = getCreatureTarget(cid) local trapos = getCreaturePosition(target) local level = getPlayerLevel(cid) local numero1 = (level*1.5) -- Dano Mínimo local numero2 = (level*2.5) -- Dano Máximo for i = numero1, numero2 do levelz = (math.random(numero2)) end doCreatureAddHealth(target, -levelz) doSendAnimatedText(trapos, levelz, 180) doCreatureAddHealth(cid, levelz) doCreatureAddMana(cid, -300) -- Quanto Vai Gastar de Mana doSendMagicEffect(trapos, 9) doSendMagicEffect(playerpos, 12) doSendDistanceShoot(trapos, playerpos, 40) else doPlayerSendCancel(cid, "aguarde "..getPlayerStorageValue(cid, 333311) - os.time ().." segundos para usar ") return false end return true end

agora vai dar local newPos1 = {x = 0, y = 0, z = 0} --pos pra onde sera levado o caster da spell local newPos2 = {x = 242, y = 1056, z = 4} --pos pra onde sera levado o target local time = 60 --tempo pra teleporta devolta, em segs local function teleport(cid, pid, pos, pos2) if isCreature(pid) then doTeleportThing(pid, getClosestFreeTile(pid, pos2 or pos)) doSendMagicEffect(getPlayerPosition(pid), 75) end end function onCastSpell(cid, var) local target = getCreatureTarget(cid) if not isCreature(target) or not isPlayer(target) then return doPlayerSendTextMessage(cid, 27, "Voce So Pode Usar Essa Spell Em Players e Fora de Exames,Arenas,Quests") end if getPlayerStorageValue(cid, 33333) < os.time () then local target = getCreatureTarget(cid) local posCid = getPlayerPosition(cid) local posTarget = getPlayerPosition(target) setPlayerStorageValue(cid, 33333, os.time () + 200) doSendMagicEffect(posCid, 75) doSendMagicEffect(posTarget, 75) teleport(cid, target, newPos1, newPos2) addEvent(teleport, time*1000, cid, target, posCid, posTarget) else doPlayerSendCancel(cid, " VOCE SÓ PODE USAR DAKI A "..getPlayerStorageValue(cid, 33333) - os.time ().." SEGUNDOS ") end return true end

local newPos1 = {x = 0, y = 0, z = 0} --pos pra onde sera levado o caster da spell local newPos2 = {x = 242, y = 1056, z = 4} --pos pra onde sera levado o target local time = 60 --tempo pra teleporta devolta, em segs local function teleport(cid, pid, pos, pos2) if isCreature(pid) then doTeleportThing(pid, getClosestFreeTile(pid, pos2 or pos)) doSendMagicEffect(getPlayerPosition(pid), 75) end end function onCastSpell(cid, var) local target = getCreatureTarget(cid) if not isCreature(target) or not isPlayer(target) then return doPlayerSendTextMessage(cid, 27, "Voce So Pode Usar Essa Spell Em Players e Fora de Exames,Arenas,Quests") end if getPlayerStorageValue(cid, 33333) < os.time () then local target = getCreatureTarget(cid) local posCid = getPlayerPosition(cid) local posTarget = getPlayerPosition(target) setPlayerStorageValue(cid, 33333, os.time () + 200) doSendMagicEffect(posCid, 75) teleport(cid, target, newPos1, newPos2) addEvent(teleport, time*1000, cid, target, posCid, posTarget) else doPlayerSendCancel(cid, " VOCE SÓ PODE USAR DAKI A "..getPlayerStorageValue(cid, 33333) - os.time ().." SEGUNDOS ") end return true end

Você está atacando player? se tentar usar com o god nao vai pegar... e outra local teleportar_nulo = {x = 0, y = 0, z = 0} NAO MECHE AQUI local teleportar_para = {x = 1244, y = 731, z = 6} --- precisa conter uma pos VALIDA Aqui pego ;x

local teleportar_nulo = {x = 0, y = 0, z = 0} local teleportar_para = {x = 1244, y = 731, z = 6} local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_EFFECT, 10) setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, false) local function teleport(cid, pid, pos, pos2) if isPlayer(cid) then doTeleportThing(cid, getClosestFreeTile(cid, pos)) doSendMagicEffect(getPlayerPosition(cid), 30) end if isPlayer(pid) then doTeleportThing(pid, getClosestFreeTile(pid, pos2 or pos)) doSendMagicEffect(getPlayerPosition(pid), 75) end end function onCastSpell(cid, var) if getPlayerStorageValue(cid, 5677) == 1 then doPlayerSendCancel(cid, "Você não pode usar tal magia aqui") return false end local target = getCreatureTarget(cid) teleport(cid, target, teleportar_nulo, teleportar_para) return doCombat(cid, combat, var) end

Cara, aqui ta pegando de boa E OS script sao os mesmos, até exclui todos e repus... e pra criar o NPC pelo que eu sei ÉPELO NOME DO ARQUIVO XML -.- /n NomedoarquivoXML

DATA/ACTION/SCRIPS demonoak.LUA

http://www.xtibia.com/forum/topic/219930-monster-conter/?p=1553751

poe isso em MODS... arquivo.XML Em data/lib ReflectLib.lua

[ local NPCBattle = { ["Brock] = {artig = "He is", cidbat = "Pewter"}, ["Misty"] = {artig = "She is", cidbat = "Cerulean"}, ["Blaine"] = {artig = "He is", cidbat = "Cinnabar"}, ["Sabrina"] = {artig = "She is", cidbat = "Saffron"}, --alterado v1.9 \/ peguem tudo! ["Kira"] = {artig = "She is", cidbat = "Viridian"}, ["Koga"] = {artig = "He is", cidbat = "Fushcia"}, ["Erika"] = {artig = "She is", cidbat = "Celadon"}, ["Surge"] = {artig = "He is", cidbat = "Vermilion"}, } function onLook(cid, thing, position, lookDistance) local str = {} if not isCreature(thing.uid) then local iname = getItemInfo(thing.itemid) if isPokeball(thing.itemid) and getItemAttribute(thing.uid, "poke") then unLock(thing.uid) local lock = getItemAttribute(thing.uid, "lock") local pokename = getItemAttribute(thing.uid, "poke") table.insert(str, "You see "..iname.article.." "..iname.name..".") if getItemAttribute(thing.uid, "unique") then table.insert(str, " It's an unique item.") end if pokesPrice[pokename] then local boost = getItemAttribute(thing.uid, "boost") or 0 if boost > 0 then table.insert(str, "\nIt contains "..getArticle(pokename).." "..pokename.."+ "..boost..". Price: $"..pokesPrice[pokename].price..".\n") else table.insert(str, "\nIt contains "..getArticle(pokename).." "..pokename..". Price: $"..pokesPrice[pokename].price..".\n") end else local boost = getItemAttribute(thing.uid, "boost") or 0 if boost > 0 then table.insert(str, "\nIt contains "..getArticle(pokename).." "..pokename.."+ "..boost..". Price: unsellable.\n") else table.insert(str, "\nIt contains "..getArticle(pokename).." "..pokename..". Price: unsellable.\n") end end if lock and lock > 0 then table.insert(str, "It will unlock in ".. os.date("%d/%m/%y %X", lock)..".\n") end if getItemAttribute(thing.uid, "nick") then table.insert(str, "It's nickname is: "..getItemAttribute(thing.uid, "nick")..".\n") end if getItemAttribute(thing.uid, "gender") == SEX_MALE then table.insert(str, "It is male.") elseif getItemAttribute(thing.uid, "gender") == SEX_FEMALE then table.insert(str, "It is female.") else table.insert(str, "It is genderless.") end doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, table.concat(str)) return false elseif string.find(iname.name, "fainted") or string.find(iname.name, "defeated") then table.insert(str, "You see a "..string.lower(iname.name)..". ") if isContainer(thing.uid) then table.insert(str, "(Vol: "..getContainerCap(thing.uid)..")") end table.insert(str, "\n") if getItemAttribute(thing.uid, "gender") == SEX_MALE then table.insert(str, "It is male.") elseif getItemAttribute(thing.uid, "gender") == SEX_FEMALE then table.insert(str, "It is female.") else table.insert(str, "It is genderless.") end doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, table.concat(str)) return false elseif isContainer(thing.uid) then --containers if iname.name == "dead human" and getItemAttribute(thing.uid, "pName") then table.insert(str, "You see a dead human (Vol:"..getContainerCap(thing.uid).."). ") table.insert(str, "You recognize ".. getItemAttribute(thing.uid, "pName")..". ".. getItemAttribute(thing.uid, "article").." was killed by a ") table.insert(str, getItemAttribute(thing.uid, "attacker")..".") else table.insert(str, "You see "..iname.article.." "..iname.name..". (Vol:"..getContainerCap(thing.uid)..").") end if getPlayerGroupId(cid) >= 4 and getPlayerGroupId(cid) <= 6 then table.insert(str, "\nItemID: ["..thing.itemid.."]") local pos = getThingPos(thing.uid) table.insert(str, "\nPosition: [X: "..pos.x.."][Y: "..pos.y.."][Z: "..pos.z.."]") end doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, table.concat(str)) return false elseif getItemAttribute(thing.uid, "unique") then local p = getThingPos(thing.uid) table.insert(str, "You see ") if thing.type > 1 then table.insert(str, thing.type.." "..iname.plural..".") else table.insert(str, iname.article.." "..iname.name..".") end table.insert(str, " It's an unique item.\n"..iname.description) if getPlayerGroupId(cid) >= 4 and getPlayerGroupId(cid) <= 6 then table.insert(str, "\nItemID: ["..thing.itemid.."]") table.insert(str, "\nPosition: ["..p.x.."]["..p.y.."]["..p.z.."]") end sendMsgToPlayer(cid, MESSAGE_INFO_DESCR, table.concat(str)) return false else return true end end local npcname = getCreatureName(thing.uid) if ehNPC(thing.uid) and NPCBattle[npcname] then --npcs duel table.insert(str, "You see "..npcname..". "..NPCBattle[npcname].artig.." leader of the gym from "..NPCBattle[npcname].cidbat..".") doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, table.concat(str)) return false end if getPlayerStorageValue(thing.uid, 697548) ~= -1 then table.insert(str, getPlayerStorageValue(thing.uid, 697548)) local pos = getThingPos(thing.uid) if youAre[getPlayerGroupId(cid)] then table.insert(str, "\nPosition: [X: "..pos.x.."][Y: "..pos.y.."][Z: "..pos.z.."]") end doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, table.concat(str)) return false end if not isPlayer(thing.uid) and not isMonster(thing.uid) then --outros npcs table.insert(str, "You see "..getCreatureName(thing.uid)..".") doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, table.concat(str)) return false end if isPlayer(thing.uid) then --player doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, getPlayerDesc(cid, thing.uid, false)) return false end if getCreatureName(thing.uid) == "Evolution" then return false end if not isSummon(thing.uid) then --monstros table.insert(str, "You see a wild "..string.lower(getCreatureName(thing.uid))..".\n") table.insert(str, "Hit Points: "..getCreatureHealth(thing.uid).." / "..getCreatureMaxHealth(thing.uid)..".\n") if getPokemonGender(thing.uid) == SEX_MALE then table.insert(str, "It is male.") elseif getPokemonGender(thing.uid) == SEX_FEMALE then table.insert(str, "It is female.") else table.insert(str, "It is genderless.") end doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, table.concat(str)) return false elseif isSummon(thing.uid) and not isPlayer(thing.uid) then --summons local boostlevel = getItemAttribute(getPlayerSlotItem(getCreatureMaster(thing.uid), 8).uid, "boost") or 0 if getCreatureMaster(thing.uid) == cid then local myball = getPlayerSlotItem(cid, 8).uid table.insert(str, "You see your "..string.lower(getCreatureName(thing.uid))..".") if boostlevel > 0 then table.insert(str, "\nBoost level: +"..boostlevel..".") end table.insert(str, "\nHit points: "..getCreatureHealth(thing.uid).."/"..getCreatureMaxHealth(thing.uid)..".") table.insert(str, "\n"..getPokemonHappinessDescription(thing.uid)) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, table.concat(str)) else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You see a "..string.lower(getCreatureName(thing.uid))..".\nIt belongs to "..getCreatureName(getCreatureMaster(thing.uid))..".") end return false end return true end Testa ae spoiler]

Digita como ta o erro... aqui pego Cria o arquivo da LIB com nome de taskSys.lua