Sitema%25252FMod [Sistema] Cast System para 8.6

[KekezitoLHP 135]

Bom galera com muita gente quer o tal cast tv está ai, LEMBRADO É SISTEMA REPLICA DO PARAGUAI ,  ENTÃO BOM USO

 

Versão testada: TFS 8.6 0.4 e TFS 0.3.6 8.6

 

Comandos utilizados in-game:

!cast on -- Ativa o seu Cast System, e permite os outros jogadores te assistirem;
!cast off -- Desativa o seu Cast System;
!cast exit -- Você sai do Cast no qual está assistindo;
!cast NAME -- Começa a assistir um jogador (NAME).

Instalação

Vá em data/talkactions/scripts crie um arquivo chamado castSys.lua e adicione o seguinte código dentro do mesmo:

--[[ Perfect Cast System 1.0 by Roksas ]]--



function onSay(cid, words, param)
local player = getPlayerByName(param)


if not isInArray({"list", "exit", "off", "on"}, param) and not param or param == "" then
doSendMagicEffect(getThingPos(cid), 2)
doPlayerSendTextMessage(cid, 20, "Enter the name of the player, which you want to cast in parameters.")
return true
end

if param == "on" then
if getPlayerStorageValue(cid, 10359) >= 1 then
doSendMagicEffect(getThingPos(cid), 2)
doPlayerSendTextMessage(cid, 20, "Your Cast System is already running ONLINE!")
return true
end

castOn(cid)
doSendMagicEffect(getThingPos(cid), 39)
doPlayerSendTextMessage(cid, 20, "You have activated your Cast System, now others can cast you, to disable this feature, use the parameter '!cast off'.")
return true
end

if param == "off" then
if getPlayerStorageValue(cid, 10359) < 1 then
doSendMagicEffect(getThingPos(cid), 2)
doPlayerSendTextMessage(cid, 20, "Your Cast System is already OFFLINE!")
return true
end

castOff(cid)
doSendMagicEffect(getThingPos(cid), 39)
doPlayerSendTextMessage(cid, 20, "You have disabled your Cast System, from now on no one can watch you, unless you turn on the Cast, using the parameter '!cast on'.")
return true
end

if param == "exit" then
if getPlayerStorageValue(cid, 12269) < 1 then
doSendMagicEffect(getThingPos(cid), 2)
doPlayerSendTextMessage(cid, 20, "You no are casting players.")
return true
end

cancelCast(cid)
doSendMagicEffect(getThingPos(cid), 39)
doPlayerSendTextMessage(cid, 20, "You stopped casting, use the parameter '!cast list' to see who can be casted.")
return true
end

if param == "list" then

if #whoCasted() < 1 then
doSendMagicEffect(getThingPos(cid), 2)
doPlayerSendTextMessage(cid, 20, "At this time, no player can be casted, try again later.")
return true
end

doPlayerSendTextMessage(cid, 20, "Players can be casteds:\n\n")
for k, v in ipairs(whoCasted()) do
doPlayerSendTextMessage(cid, 20, " - "..getCreatureName(v).."")
end            

return true
end

if not isPlayer(player) then
doSendMagicEffect(getThingPos(cid), 2)
doPlayerSendTextMessage(cid, 20, "This player is offline or does not exist. Use the parameter '!cast list' to see who can be casted.")
return true
end

if getPlayerStorageValue(player, 10359) < 1 then
doSendMagicEffect(getThingPos(cid), 2)
doPlayerSendTextMessage(cid, 20, "You can only cast one person with the Cast System is activated, use the parameter '!cast list' to see who can be assisted.")
return true
end

if getPlayerStorageValue(cid, 10359) >= 1 then
doSendMagicEffect(getThingPos(cid), 2)
doPlayerSendTextMessage(cid, 20, "To cast a player, you must first disable your Cast System using the parameter '!cast off'.")
return true
end

if not getTileInfo(getThingPos(cid)).protection then
return doPlayerSendTextMessage(cid, 20, "You need enter in Protection Zone to use the Cast System.") and true
end

setPlayerStorageValue(cid, 12269, 1)
castPlayer(cid, player)
doSendMagicEffect(getThingPos(cid), 39)
doPlayerSendTextMessage(cid, 20, "You are casting the player "..getCreatureName(player)..", to exit just use the command '!cast exit'.")
doPlayerSendTextMessage(player, 20, "You are casted by "..getCreatureName(cid).." player to disable your Cast, simply use the parameter '!cast off'.")
return true
end

function cancelCast(uid)

mayNotMove(uid, false)
doCreatureSetHideHealth(uid, false)
setPlayerStorageValue(uid, 12269, -1)
doRemoveCondition(uid, CONDITION_OUTFIT)                                                
return doTeleportThing(uid, getTownTemplePosition(getPlayerTown(uid))) or doTeleportThing(uid, getPlayerMasterPos(uid)) and true
end

function castOn(uid)
return setPlayerStorageValue(uid, 10359, 1) and true
end

function castOff(uid)
return setPlayerStorageValue(uid, 10359, -1) and true
end

function castPlayer(uid, player)
if not isPlayer(player) then
cancelCast(uid)
return true
end

if getPlayerStorageValue(player, 10359) < 1 then
cancelCast(uid)
return true
end

if getPlayerStorageValue(uid, 12269) < 1 then
cancelCast(uid)
return true
end

mayNotMove(uid, true)
doSetItemOutfit(uid, 1934, -1)
doCreatureSetHideHealth(uid, true)
doTeleportThing(uid, getThingPos(player))
return addEvent(castPlayer, 1 * 1000, uid, player) and true
end

function whoCasted()
local casteds = {}

for _, pid in ipairs(getPlayersOnline()) do
if getPlayerStorageValue(pid, 10359) >= 1 then
table.insert(casteds, pid)
end
end

return #casteds > 0 and casteds or {}
end

Volte uma pasta (data/talkaction) abra com algum editor de texto o arquivo talkactions.xml e adicione essa tag em qualquer lugar:

<talkaction words="!cast;/cast" event="script" value="castSys.lua"/>

Muito bem, após isso siga para a pasta data/creaturescripts/scripts, faça o mesmo, crie um arquivo chamado castSys.lua e adicione isso

function onLogout(cid)

if getPlayerStorageValue(cid, 12269) > 0 then
doPlayerSendCancel(cid, "To logout, you need to exit the Cast System first. Use the parameter '!cast exit'.")
return false
end

setPlayerStorageValue(cid, 10359, -1)
return true
end

function onStatsChange(cid, attacker, type, combat, value)

if not isCreature(cid) then
return true
end

if getPlayerStorageValue(cid, 12269) >= 1 and isMonster(attacker) or isPlayer(attacker) then
return false
end

return true
end

function onAttack(cid, target)

if not isPlayer(cid) or not isPlayer(target) then
return true
end

if getPlayerStorageValue(cid, 12269) > 0 then
doRemoveCondition(cid, CONDITION_INFIGHT)
return false
end

return true
end

Já no arquivo creaturescripts.xml, você vai adicionar essa tag:

<event type="attack" name="castAttack" event="script" value="castSys.lua"/>
<event type="statschange" name="castHits" event="script" value="castSys.lua"/>
<event type="logout" name="castLogout" event="script" value="castSys.lua"/>

E no arquivo login.lua você vai adicionar essas 3 linhas:

registerCreatureEvent(cid, "castAttack")
registerCreatureEvent(cid, "castHits")
registerCreatureEvent(cid, "castLogout")

Para que o player que está assitindo ao outro não use magias enquanto está assistindo, coloque essas linhas abaixo dentro de cada script das magias, debaixo da linha:

function onCastSpell(cid, var)

Coloque:

if getPlayerStorageValue(cid, 12269) >= 1 then
return false
end

Prontinho galera, basta reiniciar o servidor e usar, é isto por hoje, espero que tenham gostado, ideias/sugestões para futuras versões, bugs ou críticas sobre o sistema, basta deixar um simples comentário aí no tópico, estarei aqui para atendê-los.

 

 

Editado Julho 3, 2013 por KekezitoLHP (veja o histórico de edições)

[Guiiway 29]

server pra 8.6?

[KekezitoLHP 135]

sim esqueci de coloca versao teste =s TFS 8.6 0.4 E TFS 0.3.6 8.6

[Guiiway 29]

Ok , vou testar ! 

[arthurluna 62]

Esse Script não está totalmente completo falta raios scripts....

da crash essa coisa?

[KekezitoLHP 135]

Esse Script não está totalmente completo falta raios scripts....

da crash essa coisa?

 

 

Não está faltado nada... ele não é aquele cast tv que tem em muitos ots como do globalwar, ele é apenas uma replica meia boca mais que funciona, ele não da crash pelo menos comigo não e nem com outras pessoas que testou ou usa esse sistema... 

[Visitante]

Cara super bacana, ótimo conteúdo, curti muito!

Eu mesmo já sofri muito há um tempo atrás tentando adaptar o tão famoso Cast System para Tibia 8.60.

Esse script não é uma "replica" e sim algo similar, ele foi muito bem bolado, dou parabéns ao Roksas!

 

Reputado pelo conteúdo!

 

Mas só algumas dúvidas...

Você utiliza o sistema? Se sim, utiliza a quanto tempo mais o menos?

Ele é realmente estável? Certeza que não dá nenhum tipo de erro/crash?

[arthurluna 62]

Legal, eu tenho as fontes de um cast system bem legal do SUMM da OT*** se quiser posso passar os scripts....

[KekezitoLHP 135]

Cara super bacana, ótimo conteúdo, curti muito!

Eu mesmo já sofri muito há um tempo atrás tentando adaptar o tão famoso Cast System para Tibia 8.60.

Esse script não é uma "replica" e sim algo similar, ele foi muito bem bolado, dou parabéns ao Roksas!

 

Reputado pelo conteúdo!

 

Mas só algumas dúvidas...

Você utiliza o sistema? Se sim, utiliza a quanto tempo mais o menos?

Ele é realmente estável? Certeza que não dá nenhum tipo de erro/crash?

 

Eu usei por 1 mes normal, nunca deu nenhum tipo de bug com ele e sim outras coisas do ot "script mal feito,bug no map etc" , tenho um amigo que usa ele a pelo menos uns 3 meses, unica coisa q ele fala que raramente da debug em algum char, se abre tv algumas vez não vai mais so esses tbm, parei de usa ele depois que consegui o original

 

 

Legal, eu tenho as fontes de um cast system bem legal do SUMM da OT*** se quiser posso passar os scripts....

 

 

Posta ai pra galera que precisa

Editado Julho 3, 2013 por KekezitoLHP (veja o histórico de edições)

[ricardo3 60]

não buga mesmo ?

[kaio Santos 32]

 if getPlayerStorageValue(cid, 12269) >= 1 then

return false
end

 

Aonde coloco isso ?

[KekezitoLHP 135]

Aonde coloco isso ?

 

en todas as magias embaixo  de 

 

function onCastSpell(cid, var)

 

se coloca isso.

 

se não quem esta vendo vai usa magias 

[Sammy 143]

A única diferença que deu pra eu perceber desse Cast com o outro, é que o outro pra assistir é pelo enter na tela de login, e esse tem que da o comando /cast NICK, e o outro também tem as SQL que pode colocar no site pra ver quem tá com cast ativo, e assistindo (Isso pode por incluso nesse também).

Oque mudo mesmo é o enter na tela de login, e as sql que pode bota no site pra ver quem tá asistindo, isso se você ter tempo você pode colocar nesses script sem problema. coool.

Belo script no aguardo de atualizações nas minhas sugestões, Abraços.

[ferlations 153]

Que bala vei, não tinha visto isso aqui HSADSAUH. Belo Horizonte script mano, o/

gz

[Sammy 143]

Este sistema está imterrompendo usar magias de cura, ex: EXURA VITA, funciona mais não heala.

Tanto com cast on tanto com cast off. 

Aí eu removo o registerEvent no login.lua do "castHit", as magia volta a funcionar, lol.

Tem como fixar?

[CleberAugustz 3]

Olá.. Agradeço desde já o produto fornecido.. Muito bom por sinal. Porem estou com mesmo problema do amigo a cima.. Minhas magias de healing pararam de funfar!! Aguardo resposta!

[Sammy 143]

Eu retirei esse sistema, totalmente inútil, com esse bug das magias, ainda vai achar mais amigo Creber, como o dono do tópico diz, é uma réplica, tá certo, ficou ótimo o sistema, mais precisa arrumar ainda várias coisas.

 

Vou falar só uma falha, só uma, contém várias.

O player que estiver no final de uma quest (aonde fica o báu), ele pode ativar o /cast on, e outro jogador ir até ele /cast NickDeQuemEstaNaFinalQuest , e o jogador "telespectador" também pode dar use no baú e pegar o prémio, não importa o level, etc, ele também pega o prémio.

Fora essas 2 grandes falhas que achei neste sistema, contém outras, nem vou comentar.

Minha opnião é, não vale apena usar esse sistema em um servidor grande, até quando arrumarem tudo.

 

Grande abraços.

[Visitante]

 

Eu retirei esse sistema, totalmente inútil, com esse bug das magias, ainda vai achar mais amigo Creber, como o dono do tópico diz, é uma réplica, tá certo, ficou ótimo o sistema, mais precisa arrumar ainda várias coisas.

 

Vou falar só uma falha, só uma, contém várias.

O player que estiver no final de uma quest (aonde fica o báu), ele pode ativar o /cast on, e outro jogador ir até ele /cast NickDeQuemEstaNaFinalQuest , e o jogador "telespectador" também pode dar use no baú e pegar o prémio, não importa o level, etc, ele também pega o prémio.

Fora essas 2 grandes falhas que achei neste sistema, contém outras, nem vou comentar.

Minha opnião é, não vale apena usar esse sistema em um servidor grande, até quando arrumarem tudo.

 

Grande abraços.

Spike, seria bom que você comentasse todos os bugs que você encontrou para que na próxima versão do sistema eles sejam corrigidos.

[iuryxxt 0]

Bom d+ to utilizando ja + so acho que falto uma coisa pra fica bem legal um comando tipo !castlist < para saber quais menbros estao ativos no cast, + mesmo asim otimo brigad'ao.

[iuryxxt 0]

Mesmo problema das magias não realao ao usar!