[System] Weapon Hit Rank!

[Vodkart 2156]

Créditos:

Jhon & Vodkart

Como funciona:

É um sistema simples, mostra o rank de maior hit do server, seja de axe, sword, club, wand, etc...

Mostra o Nome do player - [Hit] - Nome da weapon

imagem de exemplo:

rank axe

rank club

obs: como o sistema de rank normal, level e etc, para aparecer no rank o jogador tem que relogar ou dar serversalve.

---------------------------------------

RankHit.xml

<?xml version="1.0" encoding="UTF-8"?>  

<mod name="RankHit" version="1.0" author="Vodkart e Jhon" contact="tibiaking.com" enabled="yes">  

<config name="rank_func"><![CDATA[

WEAPON_WAND = {2190, 2191, 2188, 8921, 2189, 2187, 8920, 8922, 2184, 7414, 2453}

WEAPON_ROD = {2182, 2186, 2185, 8911, 2181, 2183, 8912, 8910, 7958, 12609}

storage_mostdamage = {

CLUB = {155201,156201},

SWORD = {155202,156202},

AXE = {155203,156203},

WAND = {155204,156204},

ROD = {155205,156205},

DISTANCE = {155206,156206},

MAGIC_SD = {155207,156207,157207}

}

function setSdHit(cid, damage)

if damage > getPlayerStorageValue(cid, storage_mostdamage.MAGIC_SD[1]) then

setPlayerStorageValue(cid, storage_mostdamage.MAGIC_SD[1], damage)

setPlayerStorageValue(cid, storage_mostdamage.MAGIC_SD[2], 2268)

end

return true

end

function setPlayerMostHitMage(cid, damage, weapon)

if isInArray(WEAPON_WAND, getPlayerSlotItem(cid, CONST_SLOT_LEFT).itemid) == TRUE or isInArray(WEAPON_WAND, getPlayerSlotItem(cid, CONST_SLOT_RIGHT).itemid) == TRUE then

if damage > getPlayerStorageValue(cid, storage_mostdamage.WAND[1]) then setPlayerStorageValue(cid, storage_mostdamage.WAND[1], damage) setPlayerStorageValue(cid, storage_mostdamage.WAND[2], weapon) end

elseif isInArray(WEAPON_ROD, getPlayerSlotItem(cid, CONST_SLOT_LEFT).itemid) == TRUE or isInArray(WEAPON_ROD, getPlayerSlotItem(cid, CONST_SLOT_RIGHT).itemid) == TRUE then

if damage > getPlayerStorageValue(cid, storage_mostdamage.ROD[1]) then setPlayerStorageValue(cid, storage_mostdamage.ROD[1], damage) setPlayerStorageValue(cid, storage_mostdamage.ROD[2], weapon) end

end

return true

end

function getRankHit(cid, value, wvalue, max, RankName) -- by vodka

local str,arm ="",""

str = "--[".. (RankName == nil and "RANK STORAGE" or ""..RankName.."") .."]--\n\n"

local query = db.getResult("SELECT `player_id`, `value` FROM `player_storage` WHERE `key` = "..value.." ORDER BY cast(value as INTEGER) DESC;")

if (query:getID() ~= -1) then k = 1 repeat if k > max then break end

local getweapon = db.getResult("SELECT `value` FROM `player_storage` WHERE `player_id` = ".. query:getDataString("player_id") .." AND `key` = "..wvalue)

if (getweapon:getID() ~= -1) then

arm = getItemNameById(getweapon:getDataString("value"))

end

str = str .. "\n " .. k .. ". "..getPlayerNameByGUID(query:getDataString("player_id")).." - [" .. query:getDataInt("value") .. "] - "..arm..""

k = k + 1 until not query:next() end return doPlayerPopupFYI(cid, str)

end

function haveWeapon(cid) -- by vodka

local armas = {1,2,3,5,6}

if getPlayerSlotItem(cid, CONST_SLOT_RIGHT).itemid > 0 and isInArray(armas, getItemWeaponType(getPlayerSlotItem(cid, CONST_SLOT_RIGHT).uid)) or getPlayerSlotItem(cid, CONST_SLOT_LEFT).itemid > 0 and isInArray(armas, getItemWeaponType(getPlayerSlotItem(cid, CONST_SLOT_LEFT).uid)) then

return true

end

return false

end

function getWeaponType(cid) -- by vodka

return getPlayerSlotItem(cid, CONST_SLOT_LEFT).itemid == 0 and getItemWeaponType(getPlayerSlotItem(cid, CONST_SLOT_RIGHT).uid) or getItemWeaponType(getPlayerSlotItem(cid, CONST_SLOT_LEFT).uid)

end

]]></config>

<talkaction words="/rankhit;!rankhit" event="buffer"><![CDATA[

domodlib('rank_func')

local rank_hit = {

["axe"] = {storage_mostdamage.AXE[1],storage_mostdamage.AXE[2]},

["sword"] = {storage_mostdamage.SWORD[1],storage_mostdamage.SWORD[2]},

["club"] = {storage_mostdamage.CLUB[1],storage_mostdamage.CLUB[2]},

["wand"] = {storage_mostdamage.WAND[1],storage_mostdamage.WAND[2]},

["rod"] = {storage_mostdamage.ROD[1],storage_mostdamage.ROD[2]},

["distance"] = {storage_mostdamage.DISTANCE[1],storage_mostdamage.DISTANCE[2]},

["sd"] = {storage_mostdamage.MAGIC_SD[1],storage_mostdamage.MAGIC_SD[2]}

}

local param = string.lower(param)

if (param == "") then

local str = ""

str = str .. ""..getCreatureName(cid).." Hit\'s\:\n\n"

for hit, item in pairs(rank_hit) do

str = str..string.upper(hit)..": ".. (getPlayerStorageValue(cid, item[1]) ~= -1 and "["..getPlayerStorageValue(cid, item[1]).."] - "..getItemNameById(getPlayerStorageValue(cid, item[2])).."" or "None") .."\n"

end

str = str .. ""

doPlayerPopupFYI(cid,str)

return true

end

if not rank_hit[param] then

return doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,"digite o nome correto.")

end

return getRankHit(cid, rank_hit[param][1],rank_hit[param][2], 10, "Rank "..param)

]]></talkaction>

<event type="login" name="Rank Hit" event="script"><![CDATA[  

domodlib('rank_func')

function onLogin(cid)

registerCreatureEvent(cid, "RankhitCombat")

return true  

end  

]]></event>

<event type="combat" name="RankhitCombat" event="script"><![CDATA[

domodlib('rank_func')

				 registerCreatureEvent(target, "RankhitStats")

return true

]]></event>

<event type="statschange" name="RankhitStats" event="script"><![CDATA[

domodlib('rank_func')

if type == STATSCHANGE_HEALTHLOSS and isPlayer(attacker) and haveWeapon(attacker) then

t = {

[1] = {storage_mostdamage.SWORD[1],storage_mostdamage.SWORD[2]},

[2] = {storage_mostdamage.CLUB[1],storage_mostdamage.CLUB[2]},

[3] = {storage_mostdamage.AXE[1],storage_mostdamage.AXE[2]},

[5] = {storage_mostdamage.DISTANCE[1],storage_mostdamage.DISTANCE[2]}

}

MyWeapon = getPlayerSlotItem(attacker, CONST_SLOT_LEFT).itemid == 0 and getPlayerSlotItem(attacker, CONST_SLOT_RIGHT).itemid or getPlayerSlotItem(attacker, CONST_SLOT_LEFT).itemid

if (getPlayerStorageValue(attacker, storage_mostdamage.MAGIC_SD[3]) >= os.time()) then

setSdHit(attacker,value)

elseif t[getWeaponType(attacker)] then

if value > getPlayerStorageValue(attacker, t[getWeaponType(attacker)][1]) then

setPlayerStorageValue(attacker, t[getWeaponType(attacker)][1], value)

setPlayerStorageValue(attacker, t[getWeaponType(attacker)][2], MyWeapon)

end

else

setPlayerMostHitMage(attacker, value, MyWeapon)

end  

end

return true

]]></event>

</mod>

Em data > spells > scripts > attack > sudden death.lua adicione depois de function onCastSpell(cid, var)

setPlayerStorageValue(cid, 157207, os.time()+3)

ficando assim:

function onCastSpell(cid, var)

setPlayerStorageValue(cid, 157207, os.time()+3)

return doCombat(cid, combat, var)

end

Editado Maio 8, 2012 por Vodkart (veja o histórico de edições)

[Skyforever 327]

Nossa, VodKart você já tinha me falado no msn que ia fazer um sistema desses parabéns REP+

[Vodkart 2156]

  Em 29/04/2012 em 18:43, Skyforever disse:

Nossa, VodKart você já tinha me falado no msn que ia fazer um sistema desses parabéns REP+

Mostrar mais  

rsrsrsrs, é mesmo, eu tinha falado

mas como eu estava com preguiça eu nem terminei, só tinha feito a lib '-'

ai como estou com um tempinho livre,hoje eu terminei...

[EddyHavoc 696]

Parabéns muito útil.

Sou fã dos scripter's

+REP

[Augusto 660]

Muito bacana Vodkart, interessante o Script!

Rep+

[Kimoszin 1160]

Nossa, muito foda cara.

Parabens, gostei do script, só faltou a indentação UHASHUSAHUASA

[Vodkart 2156]

  Em 29/04/2012 em 21:46, Kimoszin disse:

Nossa, muito foda cara.

Parabens, gostei do script, só faltou a indentação UHASHUSAHUASA

Mostrar mais  

kkkkkkkkkkkk

só um pouco

[Vodkart 2156]

vocês acham que seria bom adc um rank de sd, onde iria pegar o maior hit de SD! ?

Editado Abril 30, 2012 por Vodkart (veja o histórico de edições)

[Augusto 660]

Concerteza véi, inclusive isso gera até uma certa "competição" entre os players pra ver que da o maior hit de SD...vai fica bacana!

[Vodkart 2156]

pronto, editado xd

adicionado rank de sd

dá para fazer um rank de spells tbm, mas irei deixar pro próximo update xd

Editado Abril 30, 2012 por Vodkart (veja o histórico de edições)

[EddyHavoc 696]

se pode fazer para o rank ir atualizando de 30 em 30 minutos (alterável). ?

[Vodkart 2156]

  Em 01/05/2012 em 20:23, EddyHavoc disse:

se pode fazer para o rank ir atualizando de 30 em 30 minutos (alterável). ?

Mostrar mais  

claro mano, ta na mão:

nome do seu script.lua

function onThink(interval, lastExecution)

for _, cid in pairs(getPlayersOnline()) do

doPlayerSave(cid)

end

return TRUE

end

<globalevent name="RankHitSave" interval="1800" event="script" value="nome do seu script.lua"/>

1800 é 30 minutos

Editado Maio 1, 2012 por Vodkart (veja o histórico de edições)

[EddyHavoc 696]

Thx

Reputado.

Editado Maio 2, 2012 por EddyHavoc (veja o histórico de edições)

[Beeki 37]

Vodkart, devia ser dahora também quem ganhar receber algum tipo de premio.

[Vodkart 2156]

  Em 02/05/2012 em 16:49, Beeki disse:

Vodkart, devia ser dahora também quem ganhar receber algum tipo de premio.

Expand   Mostrar mais  

Pode ser, só colocar para o dia "X" de todo mês ou semana pegar o primeiro do rank e dar algo para ele.

[Beeki 37]

HEHE, seria como um estimulo para os player tentar se tornar o melhor.

[Vodkart 2156]

É mesmo, bacana a idéia, mais pra frente eu desenvolvo ela xD

É fácil de fazer porque no próprio script já retorna o rank, ai não precisaria usar o repeat e pronto '-'

[Vodkart 2156]

atualizado,

usei a função "getItemWeaponType" ai não precisa ficar colocando na tabela os ids das sword, clubs, etc... somente das wands e rods

[Lvm700 0]

Mano aonde eu ponho o Bagui ali em Weapons ?

[devotti 7]

vodkart aki nao funcionou , o servidor simplesmente trava qnd liga.

'-'