SkyLigh

Veja este http://www.4shared.com/rar/n1kPhdiA/Xkings_World_86.html? achei outro link funcionando http://www.4shared.com/get/2YkIJY9q/Baiak_Extreme_021_OTProjects__.html

Então eu criei essa parte { 1, 1, 1, 1, 1, 1. }, { 1, 0, 0, 0, 0, 1. }, { 1, 0, 0, 0, 0, 1, }, { 1, 0, 0, 2, 0, 1, }, { 1, 0, 0, 0, 0, 1, }, { 1, 0, 0, 0, 0, 1, }, { 1, 1, 1, 1, 1, 1, }, aonde ta o 1 e aonde vai aparecer os efeito e o 2 e o player e 0 e nada

tente assim function sendEffect(cid) if isCreature(cid) then local pos = getCreaturePosition(cid) local x = math.random(pos.x-1,pos.x+1) local y = math.random(pos.y-1,pos.y+1) doSendMagicEffect({x=x,y=y,z=pos.z}, 29) doSendMagicEffect({x=x,y=y,z=pos.z}, 30) doSendMagicEffect({x=x,y=y,z=pos.z}, 31) addEvent(sendEffect,2000,cid) end end function onLogin(cid) if getPlayerAccess(cid) == 5 then local arr = { { 1, 1, 1, 1, 1, 1. }, { 1, 0, 0, 0, 0, 1. }, { 1, 0, 0, 0, 0, 1, }, { 1, 0, 0, 2, 0, 1, }, { 1, 0, 0, 0, 0, 1, }, { 1, 0, 0, 0, 0, 1, }, { 1, 1, 1, 1, 1, 1, }, } local area = createCombatArea(arr) setCombatArea(combat, area) sendEffect(cid) end registerCreatureEvent(cid, "AdvEffect") return TRUE end function onAdvance(cid, skill, oldLevel, newLevel) if skill == SKILL__LEVEL and newLevel == 350 then sendEffect(cid) end return TRUE end

Newtonnotwen o seu nunca ira funcionar so de vista da pra perceber Reportado por conteúdo infuncional edite aki leo nao sei se o do jeito que você quer function sendEffect(cid) if isCreature(cid) then local pos = getCreaturePosition(cid) local x = math.random(pos.x-1,pos.x+1) local y = math.random(pos.y-1,pos.y+1) doSendMagicEffect({x=x,y=y,z=pos.z}, 29) doSendMagicEffect({x=x,y=y,z=pos.z}, 30) doSendMagicEffect({x=x,y=y,z=pos.z}, 31) addEvent(sendEffect,2000,cid) end end function onLogin(cid) if getPlayerAccess(cid) == 5 then sendEffect(cid) end registerCreatureEvent(cid, "AdvEffect") return TRUE end function onAdvance(cid, skill, oldLevel, newLevel) if skill == SKILL__LEVEL and newLevel == 350 then sendEffect(cid) end return TRUE end

ne tela toda ou so no player local incorreto reportado pra moverem

duvida sanada reportado

Nao isto nao existe simplesmente era exit trainer o god cria contas e larga no treiner pro seu ot encher

Reportado pra ser fechado

HUEHUEHUEHUEHU

desculpa apple EHUEHUEHUEHUEHUEHUEHUEUHEHUEHEH

Brenew euehehueheuehe

o maios odiado e o Newtonnotwen

e vc é o amor que romeu e julieta tinha um pelo outro ounnwt *---* sz' Pelos seus alertas percebo que é odiado msm.

va em data / scripts / ranks.lua deleta tudo la dentro dps adiciona function getPlayerNameByGUID2(n) local c = db.getResult("SELECT `name` FROM `players` WHERE `id` = "..n..";") if c:getID() == -1 then return "SQL_ERROR["..n.."]" end return c:getDataString("name") end function onSay(cid, words, param) local max = 10 local letters_to_next = 20 local skills = { ['fist'] = 0, ['club'] = 1, ['sword'] = 2, ['axe'] = 3, ['distance'] = 4, ['shielding'] = 5, ['fishing'] = 6, ['dist'] = 4, ['shield'] = 5, ['fish'] = 6, } local name_now local name = "Highscore for level\n" local rkn = 0 local no_break = 0 param = string.lower(param) dofile('config.lua') if param == "" or param == "level" and ( param ~= "magic" and param == "ml") and skills[param] == nil then name = name.."\n" name = name.."Rank Level - Nome do Jogador\n" local v = db.getResult("SELECT `name`, `level`, `experience` FROM `players` WHERE `group_id` <= 2 ORDER BY `experience` DESC LIMIT 0,"..(max)..";") repeat no_break = no_break +1 if v:getID() == -1 then break end rkn = rkn+1 name_now, l = v:getDataString("name"), string.len(v:getDataString("name")) space = "" for i=1, letters_to_next-l do space = space.." " end name = name..rkn..". "..v:getDataInt("level") .." - "..name_now..space.." ".."\n" if no_break >= 20 then break end until v:next() == false elseif param == "magic" or param == "ml" then name = name.."\n" name = name.."Rank Magic - Nome do Jogador\n" local v = db.getResult("SELECT `name`, `level`, `maglevel` FROM `players` WHERE `group_id` <= 2 ORDER BY `maglevel` DESC LIMIT 0,"..(max)..";") repeat if v:getID() == -1 then break end rkn = rkn+1 name_now, l = v:getDataString("name"), string.len(v:getDataString("name")) space = "" for i=1, letters_to_next-l do space = space.." " end name = name..rkn..". "..v:getDataInt("maglevel").." - "..name_now..space.." ".." ".."".."\n" until v:next() == false elseif param == "reset" or param == "resets" then name = name.."\n" name = name.."Rank Reset - Nome do Jogador\n" local v = db.getResult("SELECT `player_id`, `value` FROM `player_storage` WHERE `key` = 1020 ORDER BY cast(value as INTEGER) DESC;") local kk = 0 repeat if kk == max or v:getID() == -1 then break end kk = kk+1 name_now, l = getPlayerNameByGUID2(v:getDataInt("player_id")), string.len(getPlayerNameByGUID2(v:getDataInt("play er_id"))) space = "" for i=1, letters_to_next-l do space = space.." " end if name_now == nil then name_now = 'sql error['..v:getDataInt("player_id")..']' end name = name..kk..". "..v:getDataInt("value").." - "..name_now..space.." \n" until v:next() == false elseif skills[param] ~= nil then name = name.."\n" name = name.."Rank "..param.." fighting - Nome do Jogador\n" local v = db.getResult("SELECT `player_id`, `value` FROM `player_skills` WHERE `skillid` = "..skills[param].." ORDER BY `value` DESC;") local kk = 0 repeat if kk == max or v:getID() == -1 then break end kk = kk+1 name_now, l = getPlayerNameByGUID2(v:getDataInt("player_id")), string.len(getPlayerNameByGUID2(v:getDataInt("play er_id"))) space = "" for i=1, letters_to_next-l do space = space.." " end if name_now == nil then name_now = 'sql error['..v:getDataInt("player_id")..']' end name = name..kk..". "..v:getDataInt("value").." - "..name_now..space.." \n" until v:next() == false end if name ~= "Highscore\n" then doPlayerPopupFYI(cid, name) end return TRUE end ai vai ter o !rank reset e os outros ranks vao continuar a funcionar

Resumindo: eu sou um docinhuu' hihi' aff' foi o que amor? vai dizer q eu nao sou um docinhu? Você e mais que isso você e o capeta em forma de pessoa brinks.

Resumindo: eu sou um docinhuu' hihi' aff'

Ficou ótimo skymagnum parabéns

goiaba , jujuba

duvida sanada reportado

http://www.xtibia.com/forum/topic/160711-weapons-adicionar-skills-ou-ml/ ver isto

Parabéns Ótimo Servidor Aprovado

duvida sanada reportado

local interval = 0 local heals = { ['hp'] = 800, ['mana'] = 800, } ---- local interval = 1000 local function rot(cid,n,old) local tb_rot = {{0,2},{6,5},{1,3},{7,4},false} if isPlayer(cid) == FALSE or tb_rot[n] == nil or old.x ~= getCreaturePosition(cid).x or old.y ~= getCreaturePosition(cid).y then return false end if tb_rot[n] == false then doCreatureAddHealth(cid, heals['hp']) doCreatureAddMana(cid, heals['mana']) doSendMagicEffect(getCreaturePosition(cid), 3) addEvent(rot, interval,cid,2,old) return false end n = n+1 addEvent(rot, interval,cid,n,old) end function onSay(cid, words, param) if isInArray(cid) == TRUE then return FALSE end if getPlayerMaxMana(cid) and getCreatureMaxHealth(cid) then doPlayerSendCancel(cid,"Your life and mana full") end addEvent(rot, interval,cid,1,getCreaturePosition(cid)) return FALSE end if getCreatureMaxHealth(cid) then if getPlayerMaxMana(cid) then doPlayerSendTextMessage(cid, 22 ,"Desculpe Voce ja tem a mana full") end return true end

Luck o script continua sem funcionar so de vista da pra perceber

voce configuro ja na storage?