Frag and VIP/FREE look

TaaG
Por TaaG
em Globalevents e Spells

TaaG

string.char(76, 117, 97, 32, 60, 51)
avatar
Artesão
Artesão

INFOS

Grupo: ArtesãoRegistrado: 19/11/12Posts: 113

O script consiste em quando você der look no player irá aparecer se ele é VIP ou FREE e quantas pessoas ele já matou (frags).

 

SS:

 

4mB50LP.png

 

 

 

lookplayer.lua (data/creaturescripts/scripts)

function getPlayerFrags(cid)
local time = os.time()
local times = {today = (time - 86400), week = (time - (7 * 86400))}

local contents, result = {day = {}, week = {}, month = {}}, db.getResult("SELECT `pd`.`date`, `pd`.`level`, `p`.`name` FROM `player_killers` pk LEFT JOIN `killers` k ON `pk`.`kill_id` = `k`.`id` LEFT JOIN `player_deaths` pd ON `k`.`death_id` = `pd`.`id` LEFT JOIN `players` p ON `pd`.`player_id` = `p`.`id` WHERE `pk`.`player_id` = " .. getPlayerGUID(cid) .. " AND `k`.`unjustified` = 1 AND `pd`.`date` >= " .. (time - (30 * 86400)) .. " ORDER BY `pd`.`date` DESC")
if(result:getID() ~= -1) then
repeat
local content = {date = result:getDataInt("date")}
if(content.date > times.today) then
table.insert(contents.day, content)
elseif(content.date > times.week) then
table.insert(contents.week, content)
else
table.insert(contents.month, content)
end
until not result:next()
result:free()
end

local size = {
day = table.maxn(contents.day),
week = table.maxn(contents.week),
month = table.maxn(contents.month)
}
return size.day + size.week + size.month
end 
function onLook(cid, thing, position, lookDistance)
local string = 'You see yourself.'
if isPlayer(thing.uid) and thing.uid ~= cid then
if getPlayerPremiumDays(thing.uid) > 0 then
doPlayerSetSpecialDescription(thing.uid,'[Frags: '..getPlayerFrags(thing.uid)..'][VIP]')
else
doPlayerSetSpecialDescription(thing.uid,'[Frags: '..getPlayerFrags(thing.uid)..'][FREE]')
end
elseif thing.uid == cid then
if getPlayerPremiumDays(cid) > 0 then
doPlayerSetSpecialDescription(cid,'[Frags: '..getPlayerFrags(cid)..'][VIP]')
else
doPlayerSetSpecialDescription(cid,'[Frags: '..getPlayerFrags(cid)..'][FREE]')
end
if getPlayerFlagValue(cid, PLAYERFLAG_SHOWGROUPINSTEADOFVOCATION) then
string = string..' You are '.. getPlayerGroupName(cid) ..'.'
elseif getPlayerVocation(cid) ~= 0 then
string = string..' You are '.. getPlayerVocationName(cid) ..'.'
else
string = string..' You have no vocation.'
end
string = string..getPlayerSpecialDescription(cid)..''
if getPlayerNameByGUID(getPlayerPartner(cid), false, false) ~= nil then
string = string..' You are '.. (getPlayerSex(cid) == 0 and 'wife' or 'husband') ..' of '.. getPlayerNameByGUID(getPlayerPartner(cid)) ..'.'
end
if getPlayerGuildId(cid) > 0 then
string = string..' You are ' .. (getPlayerGuildRank(cid) == '' and 'a member' or getPlayerGuildRank(cid)) ..' of the '.. getPlayerGuildName(cid)
string = getPlayerGuildNick(cid) ~= '' and string..' ('.. getPlayerGuildNick(cid) ..').' or string..'.'
end
if getPlayerFlagValue(cid, PLAYERCUSTOMFLAG_CANSEECREATUREDETAILS) then
string = string..'\nHealth: ['.. getCreatureHealth(cid) ..' / '.. getCreatureMaxHealth(cid) ..'], Mana: ['.. getCreatureMana(cid) ..' / '.. getCreatureMaxMana(cid) ..'].'
string = string..'\nIP: '.. doConvertIntegerToIp(getPlayerIp(cid)) ..'.'
end
if getPlayerFlagValue(cid, PLAYERCUSTOMFLAG_CANSEEPOSITION) then
string = string..'\nPosition: [X:'.. position.x..'] [Y:'.. position.y..'] [Z:'.. position.z..'].'
end
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, string)
return false
end
return true
end

creaturescripts.xml

<event type="look" name="LookPlayer" event="script" value="lookplayer.lua"/>

login.lua (data/creaturescripts)

registerCreatureEvent(cid, "LookPlayer")

Créditos: Taag - Suicide

Atenciosamente, Taag

Vodk

Sumus Validus
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 16/11/15Posts: 29

script útil, bom conteúdo.

bossisg.png

leozinpbb

avatar
Artesão
Artesão

INFOS

Grupo: ArtesãoRegistrado: 14/05/15Posts: 129Gênero: Masculino

Mais ela nao buga no caso de derivado ? como NTO,DBO pois vai aparacer a classe do pessoa ex:chunin,jounin,anbu !

 

 

chateadoagr

Banido Injustamente
avatar
Barão
Barão

INFOS

Grupo: BarãoRegistrado: 30/01/14Posts: 201Char no Tibia: Xtibia Infer

Parabens gostei

tumblr_lie5z0nmHI1qbje8no1_500.gif

Vodk

Sumus Validus
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 16/11/15Posts: 29

Mais ela nao buga no caso de derivado ? como NTO,DBO pois vai aparacer a classe do pessoa ex:chunin,jounin,anbu !

 

 

 

é impossível bugar, não tem como

bossisg.png

Administrador

xTibia 2017
avatar
Administrador
Administrador

INFOS

Grupo: AdministradorRegistrado: 09/07/05Posts: 5780Gênero: Outro

Achei muito bom o script.

Acho que ficaria melhor: [frags][vip] -> [frags] [vip] shy.png

DICA

Utilize botão @UP, no início de seu tópico, para atualizar o destaque de seu tópico em "Tópicos Recentes" na index, fará com que mais pessoas o vejam.

 

 

DavyziinC

Sou Pica néguim
avatar
Barão
Barão

INFOS

Grupo: BarãoRegistrado: 07/02/12Posts: 207Char no Tibia: Não lembro :(

Esse scripts só funciona com DBO e NTO? com otserver normal não funciona não?

 

e se tiver como por para otserver normal tem como por com Donate?

Deadpool

!!!
avatar
Herói
Herói

INFOS

Grupo: HeróiRegistrado: 25/10/11Posts: 2175Gênero: MasculinoChar no Tibia: Sociopata

Bem. Se for usar para nto, ou qualquer outro que na tenha o look editado galera. Basta postar na sessão de suporte de derivados que a gente adpta pra vocês..

Bem, é um bom script, só que. Minha opinião é que, polui.. Seria melhor uma especial de ranking, para fragers..

Não respondo PMs solicitando suporte. Já existem seções no fórum para isto.

 

 

 

 

DICA

Utilize botão @UP, no início de seu tópico, para atualizar o destaque de seu tópico em "Tópicos Recentes" na index, fará com que mais pessoas o vejam.

Flinkton

Trabalhando e Relaxando
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 09/12/13Posts: 45

uma questao, esse frag look, ele consta sempre que vc mata 1 player, ou ele consta somente se for Unjustified Kill? pq eu to usando um servidor aqui, que o frag no look, apenas consta se for Unjustified Kill, e nao sempre q o jogador matar 1.

Caronte

Ex-Moderador de Scripting
avatar
Marquês
Marquês

INFOS

Grupo: MarquêsRegistrado: 25/09/10Posts: 1341Gênero: Masculino

uma questao, esse frag look, ele consta sempre que vc mata 1 player, ou ele consta somente se for Unjustified Kill? pq eu to usando um servidor aqui, que o frag no look, apenas consta se for Unjustified Kill, e nao sempre q o jogador matar 1.

 

Mas é essa a ideia...

se você mata uns 100 pks, você não pega red...

pois é justified

Flinkton

Trabalhando e Relaxando
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 09/12/13Posts: 45

eu tava querendo ajustar esse frag system, pra sempre que matar 1 jogador, n importa se é black, red, etc, ele ganhar 1 frag. eu n gostei de ser por unjustified.

XxVinePeccixX

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 23/08/11Posts: 46

esse script funciona em tfs 1.2?

Thorms EK

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 01/01/19Posts: 1

olá amigos desculpa reviver o topico mais teria como voces adaptar para tfs 1.2?

 

jose030396

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 14/10/17Posts: 3Gênero: Masculino

vdd nos ajude.. para tfs1.3