Ir para conteúdo

cs007

Conde
  • Total de itens

    574
  • Registro em

  • Última visita

  • Dias Ganhos

    1

Tudo que cs007 postou

  1. Ninguém pode colocar o link?
  2. Vou tentar achar Ai achei um que da loot mas para premium e um mod <?xml version="1.0" encoding="UTF-8"?> <mod name="Premium Loot Rate" version="1.0" author="Cykotitan" contact="otland.net" enabled="yes"> <event type="kill" name="plr" event="script"> <![CDATA[ local premRate = 7 -- loot rate for premium players local rate = getConfigInfo('rateLoot') -- the normal rate, don't change function getContentDescription(uid, comma) local ret, i, containers = '', 0, {} while i < getContainerSize(uid) do local v, s = getContainerItem(uid, i), '' local k = getItemInfo(v.itemid) if k.name ~= '' then if v.type > 1 and k.stackable and k.showCount then s = v.type .. ' ' .. getItemInfo(v.itemid).plural else local article = k.article s = (article == '' and '' or article .. ' ') .. k.name end ret = ret .. (i == 0 and not comma and '' or ', ') .. s if isContainer(v.uid) and getContainerSize(v.uid) > 0 then table.insert(containers, v.uid) end else ret = ret .. (i == 0 and not comma and '' or ', ') .. 'an item of type ' .. v.itemid .. ', please report it to gamemaster' end i = i + 1 end for i = 1, #containers do ret = ret .. getContentDescription(containers[i], true) end return ret end local function send(cid, pos, corpseid, monster, party) local corpse = getTileItemById(pos, corpseid).uid local ret = isContainer(corpse) and getContentDescription(corpse) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, 'Loot of ' .. monster .. ': ' .. (ret ~= '' and ret or 'nothing')) if party then for _, pid in ipairs(getPartyMembers(party)) do doPlayerSendChannelMessage(pid, '', 'Loot of ' .. monster .. ': ' .. (ret ~= '' and ret or 'nothing'), TALKTYPE_CHANNEL_W, CHANNEL_PARTY) end end end local function createLoot(i, ext) local item = type(i.id) == 'table' and i.id[math.random(#i.id)] or i.id local random = math.ceil(math.random(100000) / (ext and premRate or rate)) local tmpItem if random < i.chance then tmpItem = doCreateItemEx(item, getItemInfo(item).stackable and random % i.count + 1 or 1) end if not tmpItem then return end if i.subType ~= -1 then doItemSetAttribute(tmpItem, 'subType', i.subType) end if i.actionId ~= -1 then doItemSetAttribute(tmpItem, 'aid', i.actionId) end if i.uniqueId ~= -1 then doItemSetAttribute(tmpItem, 'uid', i.uniqueId) end if i.text ~= '' then doItemSetAttribute(tmpItem, 'text', i.text) end return tmpItem end local function createChildLoot(parent, i, ext) if #i == 0 then return true end local size, cap = 0, getContainerCap(parent) for k = 1, #i do if size == cap then break end local tmp = createLoot(i[k], ext) if tmp then if isContainer(tmp) then if createChildLoot(tmp, i[k].child, ext) then doAddContainerItemEx(parent, tmp) size = size + 1 else doRemoveItem(tmp) end else doAddContainerItemEx(parent, tmp) size = size + 1 end end end return size > 0 end local function dropLoot(pos, v, ext) local corpse = getTileItemById(pos, v.lookCorpse).uid if isContainer(corpse) then for i = 1, getContainerSize(corpse) do doRemoveItem(getContainerItem(corpse, 0).uid) end local size, cap = 0, getContainerCap(corpse) for i = 1, #v.loot do if size == cap then break end local tmp = createLoot(v.loot[i], ext) if tmp then if isContainer(tmp) then if createChildLoot(tmp, v.loot[i].child, ext) then doAddContainerItemEx(corpse, tmp) size = size + 1 else doRemoveItem(tmp) end else doAddContainerItemEx(corpse, tmp) size = size + 1 end end end end end function onKill(cid, target, damage, flags) if isInArray({1,3}, flags) and isMonster(target) then local v = getMonsterInfo(getCreatureName(target)) if v.lookCorpse > 0 then local master = getCreatureMaster(target) if not master or master == target then addEvent(dropLoot, 0, getThingPos(target), v, isPremium(cid)) end addEvent(send, 100, cid, getThingPos(target), v.lookCorpse, v.description, getPlayerParty(cid)) end end return true end ]]></event> <event type="login" name="Premium Loot Rate" event="buffer"><![CDATA[ registerCreatureEvent(cid, 'plr') ]]></event> </mod>
  3. Iria faltar só o de loot. =/
  4. Não tem de o de loot?
  5. Lek valeu pela ajuda mas descobri o que era... kkkkk' local leave = {x=32312, y=31134, z=6}
  6. Isso e tudo em um unico item. Eu nunca vi esse item mas estava vendo isso em outro server e achei interessante.
  7. Não da erro não veio. arenaroom.lua function onStepIn(cid, item, position, fromPosition) local leave = {x=32312, y=31134, z=6} if InitArenaScript == 0 then InitArenaScript = 1 -- make arena rooms free for i = 0,9 do setGlobalStorageValue(42300+i, 0) setGlobalStorageValue(42400+i, 0) end checkArenaRooms({}) end local arena_room = item.actionid local player_arena = getPlayerStorageValue(cid, 42355) if getPlayerStorageValue(cid, arena_room+getPlayerStorageValue(cid, 42355)*10-1) == 1 or arena_room+getPlayerStorageValue(cid, 42355)*10-1 == 42299 then if getGlobalStorageValue(cid, arena_room) == 0 then local monster_uid = getGlobalStorageValue(arena_room+100) if monster_uid > 0 then if isCreature(monster_uid) == TRUE then doRemoveCreature(monster_uid) end end local spawn_pos = getThingPos(arena_room) local monster = doCreateMonster(arena_monsters[arena_room+getPlayerStorageValue(cid, 42355)*10], {x=spawn_pos.x-1,y=spawn_pos.y-1,z=spawn_pos.z}) setGlobalStorageValue(arena_room+100, monster) doTeleportThing(cid, spawn_pos, TRUE) setGlobalStorageValue(arena_room, cid) setGlobalStorageValue(arena_room-1, 0) setPlayerStorageValue(cid, 42350, os.time()+arena_room_max_time) else doTeleportThing(cid, fromPosition, TRUE) doPlayerSendTextMessage(cid,MESSAGE_STATUS_CONSOLE_ORANGE,getCreatureName(getGlobalStorageValue(cid, arena_room))..' is now in next room. Wait a moment and try again.') end else doTeleportThing(cid, fromPosition, TRUE) doPlayerSendTextMessage(cid,MESSAGE_STATUS_CONSOLE_ORANGE,'First kill monster!') end if arena_room == 42300 then setPlayerStorageValue(cid, 42351, 0) setPlayerStorageValue(cid, 42352, 1) end return TRUE end function checkArenaRooms(param) addEvent(checkArenaRooms, 1000, {}) for i = 42300, 42309 do local player = getGlobalStorageValue(i) if isPlayer(player) == TRUE then local player_storage = getPlayerStorageValue(player, 42350) if player_storage <= os.time() then doTeleportThing(player, leave, TRUE) setPlayerStorageValue(player, 42350, 0) setGlobalStorageValue(i, 0) doPlayerSendTextMessage(player,MESSAGE_STATUS_CONSOLE_ORANGE,'You have been kicked from arena! You have only ' .. arena_room_max_time .. ' seconds for one room.') elseif player_storage - 10 <= os.time() then doPlayerSendTextMessage(player,MESSAGE_EVENT_DEFAULT,'Masz ' .. player_storage - os.time() .. ' sekund, zeby przejsc do kolejnego pokoju!') end else setGlobalStorageValue(i, 0) end end end
  8. Se alguém souber como fazer eu também estou precisando.
  9. Arena de Svargrond veio global. tem que falar com o NPC dai vai lá matar os bixos na arena.
  10. Pessoal meu server já faz tempo que está assim quando eu inicio o server ele a arena funciona normal mas acho que quando o player morre lá ninguém mais consegue fazer. tem como alguém ajudar? Meu Script do creaturescripts Arenakill.lua function onKill(cid, target) local room = getArenaMonsterIdByName(getCreatureName(target)) if room > 0 then setPlayerStorageValue(cid, room, 1) doPlayerSendTextMessage(cid,22,"You can enter next room!") end return TRUE end
  11. Não deve ser trabalhoso eu não sei em qual arquivo eu posso encontrar esse componente para ser modificado.
  12. Firmeza lek, vou testar aqui já já REP+ Mas se alguém souber editar a distro e quiser postar aqui vai ser de grande ajuda.
  13. Fmz!
  14. Se você puder me ajudar.. Faz que eu testo aqui!
  15. Belo script vou testar aqui vê se vai pegar certinho...Valeu Vodkart =) Uma pequena duvida..Eu tenho um script que limpa players, account, itens e tals,,,so que ele só pega quando liga, se eu quiser por ele para rodar com um horario igual esse da house eu posso? Valeu
  16. Alguém sabe algum script ou codigo para modificar na distro que deixa o server sempre de dia? acho maior saco entrar no server e estar tudo escuro tem como ajudar? REP+ Pow ninguém sabe como funciona?
  17. bom seria se o nosso amigo postasse por exemplo no 4shared pois nem todo muito tem conta premium nesse site ai.
  18. cs007

    Aol Para Red Skull

    8.60 lek. tem como ajudar? up? ajuda?
  19. Isso não apagar a tabela por inteiro? eu quero apagar só o que está dentro da tabela 183327 row(s) deleted. ( O Query demorou 3.1173 sec ) REP +
  20. Teria como alguém fazer uma query para eu apagar o conteudo que está no Player_Killers? tem muita coisa lá mais de 2mil paginas estou desde ontem apagando. valeu
  21. cs007

    Aol Para Red Skull

    Por qual motivo nosso amigo ai de cima ainda não foi deletado? --'
  22. Se ajudei custa nada dar um REP+
  23. cs007

    Aol Para Red Skull

    8.60 up
  24. Bom pessoal meu server estava em windows e semana passada passei ele para linux até ai tudo bem. só que está dando erro falando que tem que compilar em 64bits só que meu mapa só tem 87mb e no windows não dava esse erro. não vou formatar a maquina para fazer tudo dinovo. Alguém sabe o que eu posso fazer? flws UP. Area sobe otserv ta parada d+ POHA NINGUÉM SABE? --'
  25. cs007

    Aol Para Red Skull

    Está dropando tudo veio. igual ao seu script. que coisa de doido --'
  • Quem Está Navegando   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.
×
×
  • Criar Novo...