[Pedido] Talk Spy

Por soexpedito, 01 de nov. de 2011 em Archived

1.3k

soexpedito SCampones

info

Grupo: Campones

Registrado: 24/10/11

Posts: 9

Reputação: +1

01 de novembro de 2011 às 22:02

Queria uma Talkaction assim.Quando eu usa-se ela ela me mostrava os dados dos outros player tipo (level,club,sword,magic level,distance,fishing,axe tals) e mostrasse tambem a quantidade de Life e Mana que o player tem.

Se puder me ajudar desde ja agradeço. !

Ahh...A talkaction a ser fala é .!whois (Name)

risada21HARD CorporationRCampones

info

Grupo: Campones

Registrado: 26/08/11

Posts: 44

Reputação: +29

02 de novembro de 2011 às 16:01

o.O Tbm quero..

eu tambem vou Querer um.

Fica o aviso ai embaixo

AVISO: ESTE LOCAL NAO é APROPRIADO PARA PEDIR SCRIPTS.

Editado Novembro 2 por AjudantePrivate

Gabriel CoutoAnyurGHerói Herói

info

Grupo: Herói

Registrado: 22/04/11

Posts: 2.5k

Reputação: +293

Gênero: Masculino

Char no Tibia: Thyn Zare

02 de novembro de 2011 às 18:29

Mais atenção ao postar. Você postou na área errada. Leia os Nomes da seção!

Cuidado com a reincidência nisso, você pode ser alertado.

Movido para o local correto.

Até!

VincThe white foxVConde Conde

info

Grupo: Conde

Registrado: 30/10/11

Posts: 625

Reputação: +101

Gênero: Masculino

02 de novembro de 2011 às 22:09

primeiro va em talkactions/script crie um arquivo lua chamado spy.lua(retire o .lua caso os outros script na pasta n tenham no final do nome .lua)

e cole

---edit---

obs:modfiquei ta funfado direitinho agora

function onSay(cid, words, param)

storevalue = 2468 ---ai sera guardado o tempo de alerta
alerttime = 10 ---tempo de espera antes de usar novamente a a talkaction para naum dar alerta nu outro char
w = getPlayerByNameWildcard(param)
name2 = getPlayerName(cid)
level = getPlayerLevel(w)
ml = getPlayerMagLevel(w)
fist = getPlayerSkill(w,0)
club = getPlayerSkill(w,1)
sword = getPlayerSkill(w,2)
axe = getPlayerSkill(w,3)
distance = getPlayerSkill(w,4)
shield = getPlayerSkill(w,5)
healthmax = getCreatureMaxHealth(w)
hp1 = getCreatureHealth(w)
voc = getPlayerVocation(w)
manamax = getCreatureMaxMana(w)
mana = getCreatureMana(w)
hp = 100 ---quantu hp vc perde se naum esperar o tempo de alerta passar antes de usar a rune otra vez
playeraccess = getPlayerAccess(w)

if w == cid then
if playeraccess == 0 then
  if (alert(cid, storevalue, alerttime) == 1) then
    if voc == 1 then
    doPlayerSendTextMessage(cid,4,"o player "..param.." é um sorcerer")
     elseif voc == 2 then
    doPlayerSendTextMessage(cid,4,"o player "..param.." é um Druid")
      elseif voc == 3 then
    doPlayerSendTextMessage(cid,4,"o player "..param.." é um Paladin")
      elseif voc == 4 then
    doPlayerSendTextMessage(cid,4,"o player "..param.." é um Knight")
      elseif voc == 5 then
    doPlayerSendTextMessage(cid,4,"o player "..param.." é um Master Sorcerer")
      elseif voc == 6 then
    doPlayerSendTextMessage(cid,4,"o player "..param.." é um Elder Druid")
      elseif voc == 7 then
    doPlayerSendTextMessage(cid,4,"o player "..param.." é um Royal Paladin")
      elseif voc == 8 then
    doPlayerSendTextMessage(cid,4,"o player "..param.." é um Elite Knight")
        end
    doPlayerSendTextMessage(cid,4,"Level: "..level.."")
    doPlayerSendTextMessage(cid,4,"Magic Level: "..ml.."")
    doPlayerSendTextMessage(cid,4,"Fist: "..fist.."")
    doPlayerSendTextMessage(cid,4,"Club: "..club.."")
    doPlayerSendTextMessage(cid,4,"Sword: "..sword.."")
    doPlayerSendTextMessage(cid,4,"Axe: "..axe.."")
    doPlayerSendTextMessage(cid,4,"Distance: "..distance.."")
    doPlayerSendTextMessage(cid,4,"Shielding: "..shield.."")
    doPlayerSendTextMessage(cid,4,"tem  "..healthmax.." de hp")
    doPlayerSendTextMessage(cid,4,"tem  "..manamax.." de mana")
    doPlayerSendTextMessage(cid,4,"esta com  "..hp1.." de hp")
    doPlayerSendTextMessage(cid,4,"esta com  "..mana.." de mana")
    else
    doPlayerSendTextMessage(w,22,""..name2.." is spying you.")
    doPlayerAddHealth(cid,-hp)
    doPlayerSendTextMessage(cid,22,"espere sair o alerta para usar novamente ou vao descomfiar")
  end
else
  doPlayerSendCancel(cid,"n pode espionar a staff")
end
else
doPlayerSendCancel(cid,"escreve a porra do nome do player que quer espionar certo")
end


return 1
end



function alert(cid, storevalue, alerttime)

  newAlert = os.time()
  oldAlert = getPlayerStorageValue(cid, storevalue)
  if (lastalert == nil or lastalert < 0) then
      lastalert = 0
  end
  if (alerttime == nil or alerttime < 0) then
      alerttime = 1
  end
  diffTime = os.difftime(newAlert, oldAlert)
  if (diffTime >= alerttime) then
      setPlayerStorageValue(cid, storevalue, newAlert)
      return 1
  else
      return 0
  end
end 
return 1
end

na talkactions.xml crie essa tag

<talkaction words="!whois" script="spy.lua"/>

caso funcione

cretitos 60%colex por : uma spy runa usada para criaçao que n tava funfado (tava bugado, falava que n tava takando em player¬¬)

40%meu por : modifica(passa pra talkaction,muda de catar player cid por item para por nome)

n garanto que o cloex tenha conta no xtibia tava no script que ja veio no sever

n esta testa to sem tempo agora(ta tarde meus pai ta echendo saco pra sai do pc kkk)

se n funfa fala

Editado Novembro 3 por lordbug99

RafaelMan RCampones

info

Grupo: Campones

Registrado: 17/06/06

Posts: 5

Reputação: +4

Char no Tibia: Ises Ajah

02 de novembro de 2011 às 22:26

Fiz o código aqui.. Testei e ficou perfect

Cria um arquivo na pasta data/talkactions/scripts com o nome whois e cole o código abaixo:

function onSay(cid, words, param, channel)

-- Verifica se há parâmetro no comando
if(param == '') then 
	doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_RED, "Digite o nome do player. Ex.: !Whois Nome do Player")
	return true
end

-- Busca as informações do player de acordo com o nome (param) digitado
player = db.getResult("SELECT name, level, maglevel, healthmax, manamax FROM players WHERE UPPER(name) = UPPER('".. param .."')")

-- Verifica se aquele nome/player existe
if(player:getID() == -1) then
	doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_RED, "Nome '".. param .."' inválido. Ex.: !Whois Nome do Player")
	return true
end

-- Monta o texto que vai aparecer na tela
local txt = "Nome: " .. player:getDataString("name") .. "\n"
txt = txt .. "Life: " .. player:getDataInt("healthmax") .. "\n"
txt = txt .. "Mana: " .. player:getDataInt("manamax") .. "\n\n"
txt = txt .. "Magic lvl: " .. player:getDataInt("maglevel") .. "\n"

-- Busca skill club
local club = db.getResult("SELECT value FROM player_skills WHERE skillid = 1 AND player_id = ".. getPlayerGUIDByName(param)):getDataInt("value")
txt = txt .. "Club: " .. club .. "\n"
-- Busca skill sword
local sword = db.getResult("SELECT value FROM player_skills WHERE skillid = 2 AND player_id = ".. getPlayerGUIDByName(param)):getDataInt("value")
txt = txt .. "Sword: " .. sword .. "\n"
-- Busca skill axe
local axe = db.getResult("SELECT value FROM player_skills WHERE skillid = 3 AND player_id = ".. getPlayerGUIDByName(param)):getDataInt("value")
txt = txt .. "Axe: " .. axe .. "\n"
-- Busca skill distance
local distance = db.getResult("SELECT value FROM player_skills WHERE skillid = 4 AND player_id = ".. getPlayerGUIDByName(param)):getDataInt("value")
txt = txt .. "Distance: " .. distance .. "\n"
-- Busca skill shielding
local shielding = db.getResult("SELECT value FROM player_skills WHERE skillid = 5 AND player_id = ".. getPlayerGUIDByName(param)):getDataInt("value")
txt = txt .. "Shielding: " .. shielding .. "\n"

-- Abre uma janela com as informações acima
doPlayerPopupFYI(cid, txt)	

end

Agora adicione no arquivo talkactions.xml o código:

<talkaction words="!whois" event="script" value="whois.lua"/>

Espero ter ajudado

_______________________________________________

Nossa.. fiz a função e postei aqui.. Não tinha visto que o lordbug99 tinha acabado de postar =/

Mas fica aí a função. Pode utilizar como base para pegar qualquer outra informação do player (com um pouco de conhecimento em banco de dados)

Editado Novembro 2 por RafaelMan

soexpedito SCampones

info

Grupo: Campones

Registrado: 24/10/11

Posts: 9

Reputação: +1

03 de novembro de 2011 às 14:07

Testei os 2 e nao deu certo.. (se acaso forem tentar dinovo , ve se da pra colocar a vocaçao do player tambem)

VincThe white foxVConde Conde

info

Grupo: Conde

Registrado: 30/10/11

Posts: 625

Reputação: +101

Gênero: Masculino

03 de novembro de 2011 às 14:57

n puis a vocation por que é so da look no plaeyr...

achei que n presisace

vo edita o la decima pra te voc tbm.

(ta no primeiro post)

edit

vi agora que nem tinha copiado o script

agora ta testado funfando, com voc, hp e mana maximo do player e hp e mana atual do player

observaçao: n coloquei pra so da pra usa em player(n funfa em staff)

function onSay(cid, words, param)

storevalue = 2468 ---ai sera guardado o tempo de alerta
alerttime = 10 ---tempo de espera antes de usar novamente a a talkaction para naum dar alerta nu outro char
w = getPlayerByNameWildcard(param)
name2 = getPlayerName(cid)
level = getPlayerLevel(w)
ml = getPlayerMagLevel(w)
fist = getPlayerSkill(w,0)
club = getPlayerSkill(w,1)
sword = getPlayerSkill(w,2)
axe = getPlayerSkill(w,3)
distance = getPlayerSkill(w,4)
shield = getPlayerSkill(w,5)
healthmax = getCreatureMaxHealth(w)
hp1 = getCreatureHealth(w)
voc = getPlayerVocation(w)
manamax = getCreatureMaxMana(w)
mana = getCreatureMana(w)
hp = 100 ---quantu hp vc perde se naum esperar o tempo de alerta passar antes de usar a rune otra vez
playeraccess = getPlayerAccess(w)

if w == cid then
if playeraccess == 0 then
  if (alert(cid, storevalue, alerttime) == 1) then
    if voc == 1 then
    doPlayerSendTextMessage(cid,4,"o player "..param.." é um sorcerer")
     elseif voc == 2 then
    doPlayerSendTextMessage(cid,4,"o player "..param.." é um Druid")
      elseif voc == 3 then
    doPlayerSendTextMessage(cid,4,"o player "..param.." é um Paladin")
      elseif voc == 4 then
    doPlayerSendTextMessage(cid,4,"o player "..param.." é um Knight")
      elseif voc == 5 then
    doPlayerSendTextMessage(cid,4,"o player "..param.." é um Master Sorcerer")
      elseif voc == 6 then
    doPlayerSendTextMessage(cid,4,"o player "..param.." é um Elder Druid")
      elseif voc == 7 then
    doPlayerSendTextMessage(cid,4,"o player "..param.." é um Royal Paladin")
      elseif voc == 8 then
    doPlayerSendTextMessage(cid,4,"o player "..param.." é um Elite Knight")
        end
    doPlayerSendTextMessage(cid,4,"Level: "..level.."")
    doPlayerSendTextMessage(cid,4,"Magic Level: "..ml.."")
    doPlayerSendTextMessage(cid,4,"Fist: "..fist.."")
    doPlayerSendTextMessage(cid,4,"Club: "..club.."")
    doPlayerSendTextMessage(cid,4,"Sword: "..sword.."")
    doPlayerSendTextMessage(cid,4,"Axe: "..axe.."")
    doPlayerSendTextMessage(cid,4,"Distance: "..distance.."")
    doPlayerSendTextMessage(cid,4,"Shielding: "..shield.."")
    doPlayerSendTextMessage(cid,4,"tem  "..healthmax.." de hp")
    doPlayerSendTextMessage(cid,4,"tem  "..manamax.." de mana")
    doPlayerSendTextMessage(cid,4,"esta com  "..hp1.." de hp")
    doPlayerSendTextMessage(cid,4,"esta com  "..mana.." de mana")
    else
    doPlayerSendTextMessage(w,22,""..name2.." is spying you.")
    doPlayerAddHealth(cid,-hp)
    doPlayerSendTextMessage(cid,22,"espere sair o alerta para usar novamente ou vao descomfiar")
  end
else
  doPlayerSendCancel(cid,"n pode espionar a staff")
end
else
doPlayerSendCancel(cid,"escreve a porra do nome do player que quer espionar certo")
end


return 1
end



function alert(cid, storevalue, alerttime)

  newAlert = os.time()
  oldAlert = getPlayerStorageValue(cid, storevalue)
  if (lastalert == nil or lastalert < 0) then
      lastalert = 0
  end
  if (alerttime == nil or alerttime < 0) then
      alerttime = 1
  end
  diffTime = os.difftime(newAlert, oldAlert)
  if (diffTime >= alerttime) then
      setPlayerStorageValue(cid, storevalue, newAlert)
      return 1
  else
      return 0
  end
end 
return 1
end

Editado Novembro 4 por lordbug99