TalkAction TFS 0.X Sistema de Rep+

[principe sharingan 219]

Esse sistema funciona da seguinte forma:

!rep nome do player <---------- Da um REP+ para o Player !

!myrep <----------- Consulta a propria reputação !

!rankrep <----------- Confere o Rank de Reputação !

Isso é bom até para saber a quem você poderá dar um cargo no seu server. Bom vamos ao que interessa.

Para os player's saberem como funciona este sistema, vá em data/talkaction/script e crie um arquivo !reputacao.lua e cole isso dentro:

Spoiler

function onSay(cid, words)

local msg = [[ Bom o sistema de Reputação fuciona da seguinte forma:

•1- !rep (nome do player) - dá um rep para um player.

•2- !myrep - consulta minha reputação.

•3- !rankrep - confere os reps de quem está online.

•4- Você pode ganhar muitos rep's ajudando as pessoas.

]]

doPlayerPopupFYI(cid, msg)

return true

end

Agora vá em Talkaction.xml e cole esta tag:

Spoiler

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

Agora vamos ao sistema. Vá em data/talkaction/script e crie um rep.lua e adicione isso dentro:

Spoiler

local configs = {

rephours = 24 -- qntas em qntas horas pode dar rep, 24 para 1 dia.

}

function getTime(s)

local n = math.floor(s / 60)

s = s - (60 * n)

return n, s

end

function onSay(cid, words, param)

local cd = math.ceil(configs.rephours/2)

local storage = 6002

if words == "!rep" then

if os.time()-getPlayerStorageValue(cid, storage) <= cd then

minutes,seconds = getTime(cd-(os.time()-getPlayerStorageValue(cid, storage)))

return doPlayerSendTextMessage(cid, 27, "Wait " .. configs.rephours .. " fours for the next rep.")

end

if getPlayerByName(param) then

local p = getPlayerByName(param)

if getPlayerIp(cid) == getPlayerIp(p) or getPlayerAccount(cid) == getPlayerAccount(p) then

return doPlayerSendTextMessage(cid, 27, "IP ACCOUNT PROTECT.")

end

setPlayerStorageValue(p, 6001, getPlayerStorageValue(p, 6001) + 1)

doPlayerSendTextMessage(cid, 27, "You gave reputation + 1 for " .. getCreatureName(p) .. ".")

doPlayerSendTextMessage(p, 21, "You received reputation + 1 of ".. getCreatureName(cid) ..".")

setPlayerStorageValue(cid, storage, os.time()+3600*cd)

else

doPlayerSendTextMessage(cid, 27, "Player Not Found.")

end

elseif words == "!myrep" then

return doPlayerSendTextMessage(cid, 27, "My Reputation : " .. getPlayerStorageValue(cid, 6001))

elseif words == "!rankrep" then

local e = getPlayersOnline()

local text = ""

for _, pid in ipairs(e) do

text = text .. "[" .. getCreatureName(pid) .. "] Reputation: " .. getPlayerStorageValue(pid, 6001) .. "\n\n"

end

text = "[RANK REPUTATION ONLINES]\n\n" .. text

doShowTextDialog(cid, 12945, text)

end

return TRUE

end

Agora vá em Talkaction.xml e cole esta tag:

Spoiler

<talkaction words="!rep;!myrep;!rankrep" event="script" value="rep.lua"/>

[Deathspawn R L 16]

E o que o player vai ganhar com o rep + ?

[principe sharingan 219]

Tipow isso serve para por exemplo antes de você escolher uma pessoa para dar um cargo vê no Rank quem mais ajudou e da por exemplo um Rank de Tutor ou o que você quiser. Esse sistema é mais para saber quem esta ajudando e o tanto que esta ajudando entende !

[Deathspawn R L 16]

E ate que não e ruim não mas e o mais chato vai ser os player na bota pedindo rep +

[principe sharingan 219]

Bom ai c usa a sua criatividade, coloca uma regra no server para se alguem ajudou, tem que dar um REP+ pra pessoa ou coisa do tipo. Bom ai é com você, use sua Criatividade.

Gostou? Não custa nada um REP+

[Kimoszin 1160]

Foi você que fez?

[tiagoduuarte 123]

É até legal, mas os players iriam abusar muito de mc iam se der reps, seria bom se só a staff dessem os reps, quem quiser que só adm dê o rep é só modificar uma coisa

<talkaction words="!rep;!myrep;!rankrep" access="5" event="script" value="rep.lua"/>

5= god

4= cm

3= gm

2= senior tutor

1= tutor

[madaras 50]

Caso não tenha sido da sua autoria coloca os devidos creditos.

[arthurluna 62]

Bem Construtivo, ajuda muito em servidores RPG, REPUTADO !

[principe sharingan 219]

--' Se não foi eu eu ponho os creditos logico, e não tem como Se dar REP+.

[tiagoduuarte 123]

--' Se não foi eu eu ponho os creditos logico, e não tem como Se dar REP+.

Nem de tibia MC ou pedindo pra amigos? um cara da 10 reps pro amigo já era ;s

[principe sharingan 219]

Nem de tibia MC ou pedindo pra amigos? um cara da 10 reps pro amigo já era ;s

Não, não sou de pedir Rep's, se vocês acham que eu mereço Rep+ vcs da se não, não da. Num tem pra que pedir Rep+ só to disponibilizando as scripts, e não quero nada em troca se não, não tinha colocado aki.

[Kimoszin 1160]

--' Se não foi eu eu ponho os creditos logico, e não tem como Se dar REP+.

Então, você afirma que você foi quem fez esse sistema?

[Only 0]

Foi Testado Na Versão 8.54?

[SMIX 4]

Gostei. Saindo do fórum pra o mundo otserver.

[JujuLady 21]

Achei ótimo o Script!

Porém eu fiz algumas alterações, mas há uma que eu fiz para remover as horas em que se pode dar Rep.

Explicando melhor, coloquei apenas para quem tem cargo possa dar Rep para o Player e com isso eu coloquei as horas para dar a próxima Rep a ser de 0 em 0 horas .. com isso pensei que poderia dar Rep sempre que puder.

Mas quando tento aparece a seguinte mensagem: Wait 0 fours for the next rep.

Como remover essa parte de horas? Para eu poder dar sempre quando quiser.

[Vodkart 2155]

@JujuLady

 

function onSay(cid, words, param)
if words == "!rep" then
local p = getPlayerByName(param)
if not p then
doPlayerSendTextMessage(cid, 27, "Player Not Found.") return true
elseif getPlayerIp(cid) == getPlayerIp(p) or getPlayerAccount(cid) == getPlayerAccount(p) then
doPlayerSendTextMessage(cid, 27, "IP ACCOUNT PROTECT.")return true
end
setPlayerStorageValue(p, 6001, getPlayerStorageValue(p, 6001) <= 0 and 1 or getPlayerStorageValue(p, 6001) + 1)
doPlayerSendTextMessage(cid, 27, "You gave reputation + 1 for " .. getCreatureName(p) .. ".")
doPlayerSendTextMessage(p, 21, "You received reputation + 1 of ".. getCreatureName(cid) ..".") return true
elseif words == "!myrep" then
return doPlayerSendTextMessage(cid, 27, "My Reputation : " .. (getPlayerStorageValue(cid, 6001) <= 0 and 0 or getPlayerStorageValue(cid, 6001)))
elseif words == "!rankrep" then
local e = getPlayersOnline()
local text = ""
for _, pid in ipairs(e) do
text = text .. "[" .. getCreatureName(pid) .. "] Reputation: " .. getPlayerStorageValue(pid, 6001) .. "\n\n"
end
text = "[RANK REPUTATION ONLINES]\n\n" .. text
return doShowTextDialog(cid, 12945, text)
end
return true
end

 

---------

Esse sistema de rank é ruim, não mostra em "cascata" os top rank, mostra os que estão online e a quantidade de rep, aparece até se tiver -1 ou 0 de rep...

Editado Julho 26, 2016 por Vodkart (veja o histórico de edições)