Ir para conteúdo
TK News
  • Cadastre-se

tfs 1.0 [Pedido] - Script quer Remova Red Skull e Black Skull TFS 1.0

Povildo

Por ,
em Suporte Tibia OTServer

 Share Seguidores 1

Posts Recomendados

Povildo

Povildo 23

Postado
Postado

Olá gente eu estou aqui para pede mais um script dessa vez quero um script quer remova Black Skull e Red Skull e Frags para o TFS 1.0

 

AVISO:" Uso TFS 1.0 "

 

Muito Obrigado quem ajuda e vou da +rep

Link para o post
Compartilhar em outros sites
dolver

dolver 28

Postado
Postado (editado)

Crie um arquivo chamado removefrag.lua na pasta data/talkactions/scripts e cole isso:

local moneyRed = 50000 -- Preço cobrado para remover o frag e red skull
local moneyBlack = 60000 -- Preço cobrado para remover o frag e black skull
local moneySkullNone = 40000 -- Preço cobrado para remover o frag

function onSay(cid, words, param, channel)
          pid = getPlayerGUID(cid)
          if getCreatureSkullType(cid) == 4 then
                    if doPlayerRemoveMoney(cid, moneyRed) then
                              doCreatureSetSkullType(cid, 0)
                              doPlayerSendTextMessage(cid, 19, 'His frags and red skull were removed for '.. doNumberFormat(moneyRed) ..' golds. You will be logged off in 5 seconds.')
                              doSendMagicEffect(getPlayerPosition(cid), 14)
                              doRemoveConditions(cid, CONDITION_INFIGHT)
                              doRemoveCreature(cid)
                              db.executeQuery("UPDATE players SET skulltime = 0 WHERE id = ".. pid ..";")
                              db.executeQuery("UPDATE killers SET unjustified = 0 WHERE id IN (SELECT kill_id FROM player_killers WHERE player_id = " .. pid .. ");")
                    else
                              doPlayerSendTextMessage(cid, 19, 'You don\'t have enough money, it takes '.. doNumberFormat(moneyRed) ..' golds')
                              doSendMagicEffect(getPlayerPosition(cid), 2)
                    end
                    return TRUE
          end
          if getCreatureSkullType(cid) == 5 then
                    if doPlayerRemoveMoney(cid, moneyBlack) then
                              doCreatureSetSkullType(cid, 0)
                              doPlayerSendTextMessage(cid, 19, 'His frags and black skull were removed for '.. doNumberFormat(moneyBlack) ..' golds. You will be logged off in 5 seconds.')
                              doSendMagicEffect(getPlayerPosition(cid), 14)
                              doRemoveConditions(cid, CONDITION_INFIGHT)
                              doRemoveCreature(cid)
                              db.executeQuery("UPDATE players SET skulltime = 0 WHERE id = ".. pid ..";")
                              db.executeQuery("UPDATE killers SET unjustified = 0 WHERE id IN (SELECT kill_id FROM player_killers WHERE player_id = " .. pid .. ");")
                    else
                              doPlayerSendTextMessage(cid, 19, 'You don\'t have enough money, it takes '.. doNumberFormat(moneyBlack) ..' golds')
                              doSendMagicEffect(getPlayerPosition(cid), 2)
                    end
                    return TRUE
          end
          if getCreatureSkullType(cid) <= 3 then
                    if doPlayerRemoveMoney(cid, moneySkullNone) then
                              doCreatureSetSkullType(cid, 0)
                              doPlayerSendTextMessage(cid, 19, 'His frags were removed for '.. doNumberFormat(moneySkullNone) ..' golds. You will be logged off in 5 seconds.')
                              doSendMagicEffect(getPlayerPosition(cid), 14)
                              doRemoveConditions(cid, CONDITION_INFIGHT)
                              doRemoveCreature(cid)
                              db.executeQuery("UPDATE players SET skulltime = 0 WHERE id = ".. pid ..";")
                              db.executeQuery("UPDATE killers SET unjustified = 0 WHERE id IN (SELECT kill_id FROM player_killers WHERE player_id = " .. pid .. ");")
                    else
                              doPlayerSendTextMessage(cid, 19, 'You don\'t have enough money, it takes '.. doNumberFormat(moneySkullNone) ..' golds')
                              doSendMagicEffect(getPlayerPosition(cid), 2)
                    end
                    return TRUE
          end
end

Adicione essa linha no arquivo talkactions.xml que se encontra na pasta data/talkactions

<talkaction words="!remove;/remove" event="script" value="removefrag.lua"/>

Testado na distro TFS 8.6 DEV 0.4 (REV3884) e está 100% funcional.

 

Créditos:

GiovaniRodrigo

Editado por dolver (veja o histórico de edições)

mj8ViXu.gif

 

Ajudei? REP+

Link para o post
Compartilhar em outros sites
Povildo

Povildo 23

Postado
  • Autor
Postado

Dolver, eu uso o TFS 1.0 esse dai não pega no meu não da erro.

Link para o post
Compartilhar em outros sites
ViitinG

ViitinG 835

Postado
Postado

@Trypox você tem que esperar 24 horas para dar UP amigo !

Leia as regras do fórum : http://www.tibiaking.com/forum/forum/23-regras-do-forum/

Ajudei = REP+ :D


Não dou suporte por PM qualquer dúvida procure no fórum,caso não encontre oque procura crie um tópico.


[email protected]" />


|  github.png TFS 0.4 DEV   |

 


%5Bcreaturescript%5D Icones no minimap com descrição


%5Btalkaction%5D Adicionar ou remover VIP do player.


%5Bcreaturescripts%5D Senha para porta


%5Btalkaction%5D Mandar mensagem para pasta do servidor


Mapa Evento War Castle


%5Baction%5D Canoa em Movimento


Teleport Scroll System


%5Bcreaturescripts%5D Recompensa por level para X vocations


%5Btalkaction%5D Adicionar X item para o player


%5Btalkactions%5D Adicionar item para todos players online


%5Baction%5D Item que teleporta o player para house


[action+movement] Passaporte para entrar no barco
Link para o post
Compartilhar em outros sites
  • 2 weeks later...
MarcosFraga

MarcosFraga 64

Postado
Postado

Para TFS 1.0 tenho somente remove red e black skull

Talkactions/scripts crie frags.lua

function onSay(cid, words, param)
    local player = Player(cid)
    if isInArray({4, 5}, player:getSkull()) then
        Item(item.uid):remove(1)
        player:setSkull(0)
        player:setSkullTime(0)
        player:getPosition():sendMagicEffect(CONST_ME_MAGIC_GREEN)
        player:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Your skull has been removed!")
    else
        player:sendTextMessage(MESSAGE_EVENT_ADVANCE, "You can only remove red or black skulls!")
        player:getPosition():sendMagicEffect(CONST_ME_POFF)
    end
    return true
end

Talkactions.xml

	<talkaction words="!removefrags" script="frags.lua"/>

Não sei qual o comando em TFS 1.0 para resetar frags...

Donate

 

Link para o post
Compartilhar em outros sites
luanluciano93

luanluciano93 1994

Postado
Postado

Apenas modifiquei o script que o dolver postou, não testei ... 

 

local config =
{
	red_skull = {3, 50000}, -- {frags, money}
	black_skull = {5, 60000}, -- {frags, money}
	skull = 40000 -- money
}

function onSay(cid, words, param, channel)
	
	local pid, player = getPlayerGUID(cid), isPlayer(cid)

	-- REMOVE RED SKULL
	if getPlayerSkullType(cid) == config.red_skull[1] then
		if player:removeMoney(config.red_skull[2]) then
			player:setSkull(0)
			player:setSkullTime(0)
			player:sendTextMessage(MESSAGE_EVENT_ADVANCE, 'You will be logged off in 5 seconds.')
			player:getPosition():sendMagicEffect(CONST_ME_MAGIC_GREEN)
			doRemoveCondition(cid, CONDITION_INFIGHT)
			db.query("UPDATE players SET skulltime = 0 WHERE id = ".. pid .."")
			db.query("UPDATE killers SET unjustified = 0 WHERE id IN (SELECT kill_id FROM player_killers WHERE player_id = " .. pid .. ")")
		else
			player:sendTextMessage(MESSAGE_EVENT_ADVANCE, 'You don\'t have '.. config.red_skull[2] ..' golds.')
			player:getPosition():sendMagicEffect(CONST_ME_POFF)
		end

	-- REMOVE BLACK SKULL
	elseif getPlayerSkullType(cid) >= config.frags_redskull[1] then
		if player:removeMoney(config.frags_redskull[2]) then
			player:setSkull(0)
			player:setSkullTime(0)
			player:sendTextMessage(MESSAGE_EVENT_ADVANCE, 'You will be logged off in 5 seconds.')
			player:getPosition():sendMagicEffect(CONST_ME_MAGIC_GREEN)
			doRemoveCondition(cid, CONDITION_INFIGHT)
			doRemoveCreature(cid) -- creature:remove()
			db.query("UPDATE players SET skulltime = 0 WHERE id = ".. pid .."")
			db.query("UPDATE killers SET unjustified = 0 WHERE id IN (SELECT kill_id FROM player_killers WHERE player_id = " .. pid .. ")")
		else
			player:sendTextMessage(MESSAGE_EVENT_ADVANCE, 'You don\'t have '.. config.frags_redskull[2] ..' golds.')
			player:getPosition():sendMagicEffect(CONST_ME_POFF)
		end

	-- REMOVE SKULL
	elseif getPlayerSkullType(cid) <= 3 then
		if player:removeMoney(config.skull) then
			player:setSkull(0)
			player:setSkullTime(0)
			player:sendTextMessage(MESSAGE_EVENT_ADVANCE, 'You will be logged off in 5 seconds.')
			player:getPosition():sendMagicEffect(CONST_ME_MAGIC_GREEN)
			doRemoveCondition(cid, CONDITION_INFIGHT)
			doRemoveCreature(cid) -- creature:remove()
			db.query("UPDATE players SET skulltime = 0 WHERE id = ".. pid .."")
			db.query("UPDATE killers SET unjustified = 0 WHERE id IN (SELECT kill_id FROM player_killers WHERE player_id = " .. pid .. ")")
		else
			player:sendTextMessage(MESSAGE_EVENT_ADVANCE, 'You don\'t have '.. config.skull ..' golds.')
			player:getPosition():sendMagicEffect(CONST_ME_POFF)
		end
	end
	
	return true
end

Abraços.

 

1647515_5.png

Jester_Doll.gif STYLLER OT 2022 Jester_Doll.gif

Link para o post
Compartilhar em outros sites
Povildo

Povildo 23

Postado
  • Autor
Postado (editado)

Erro!

 

WGnDpbud.png

 

Apenas modifiquei o script que o dolver postou, não testei ... 

 

local config =
{
	red_skull = {3, 50000}, -- {frags, money}
	black_skull = {5, 60000}, -- {frags, money}
	skull = 40000 -- money
}

function onSay(cid, words, param, channel)
	
	local pid, player = getPlayerGUID(cid), isPlayer(cid)

	-- REMOVE RED SKULL
	if getPlayerSkullType(cid) == config.red_skull[1] then
		if player:removeMoney(config.red_skull[2]) then
			player:setSkull(0)
			player:setSkullTime(0)
			player:sendTextMessage(MESSAGE_EVENT_ADVANCE, 'You will be logged off in 5 seconds.')
			player:getPosition():sendMagicEffect(CONST_ME_MAGIC_GREEN)
			doRemoveCondition(cid, CONDITION_INFIGHT)
			db.query("UPDATE players SET skulltime = 0 WHERE id = ".. pid .."")
			db.query("UPDATE killers SET unjustified = 0 WHERE id IN (SELECT kill_id FROM player_killers WHERE player_id = " .. pid .. ")")
		else
			player:sendTextMessage(MESSAGE_EVENT_ADVANCE, 'You don\'t have '.. config.red_skull[2] ..' golds.')
			player:getPosition():sendMagicEffect(CONST_ME_POFF)
		end

	-- REMOVE BLACK SKULL
	elseif getPlayerSkullType(cid) >= config.frags_redskull[1] then
		if player:removeMoney(config.frags_redskull[2]) then
			player:setSkull(0)
			player:setSkullTime(0)
			player:sendTextMessage(MESSAGE_EVENT_ADVANCE, 'You will be logged off in 5 seconds.')
			player:getPosition():sendMagicEffect(CONST_ME_MAGIC_GREEN)
			doRemoveCondition(cid, CONDITION_INFIGHT)
			doRemoveCreature(cid) -- creature:remove()
			db.query("UPDATE players SET skulltime = 0 WHERE id = ".. pid .."")
			db.query("UPDATE killers SET unjustified = 0 WHERE id IN (SELECT kill_id FROM player_killers WHERE player_id = " .. pid .. ")")
		else
			player:sendTextMessage(MESSAGE_EVENT_ADVANCE, 'You don\'t have '.. config.frags_redskull[2] ..' golds.')
			player:getPosition():sendMagicEffect(CONST_ME_POFF)
		end

	-- REMOVE SKULL
	elseif getPlayerSkullType(cid) <= 3 then
		if player:removeMoney(config.skull) then
			player:setSkull(0)
			player:setSkullTime(0)
			player:sendTextMessage(MESSAGE_EVENT_ADVANCE, 'You will be logged off in 5 seconds.')
			player:getPosition():sendMagicEffect(CONST_ME_MAGIC_GREEN)
			doRemoveCondition(cid, CONDITION_INFIGHT)
			doRemoveCreature(cid) -- creature:remove()
			db.query("UPDATE players SET skulltime = 0 WHERE id = ".. pid .."")
			db.query("UPDATE killers SET unjustified = 0 WHERE id IN (SELECT kill_id FROM player_killers WHERE player_id = " .. pid .. ")")
		else
			player:sendTextMessage(MESSAGE_EVENT_ADVANCE, 'You don\'t have '.. config.skull ..' golds.')
			player:getPosition():sendMagicEffect(CONST_ME_POFF)
		end
	end
	
	return true
end

Abraços.

Editado por Trypox (veja o histórico de edições)
Link para o post
Compartilhar em outros sites

Participe da conversa

Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

Visitante
Responder

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emojis são permitidos.

×   Seu link foi automaticamente incorporado.   Mostrar como link

×   Seu conteúdo anterior foi restaurado.   Limpar o editor

×   Não é possível colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Seguidores 1
Ir para a lista de tópicos

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

  • Conteúdo Similar

    • .Smile
      /adm para virar GOD /player para virar PLAYER
      Por .Smile
      Olá a todos, atualmente estou aprendendo programação e desenvolvendo um Servidor, uma das coisas chatas a se fazer era ficar alternando entre um Personagem PLAYER e outro GOD para testar algumas coisas, com esses 2 scripts eu resolvi esse problema.

      É um script simples que eu pretendo futuramente melhorá-lo.

      What does the command do?
      /adm - Transforma seu personagem em GOD e kika ele
      /player - Transforma seu personagem em PLAYER e kika ele
       
      LEMBRANDO QUE: Não é qualquer que consegue usar esse comando, você precisa ter dado a sua conta o acesso de god, assim podendo ter esse comando num Servidor Online com outros jogadores sem que os mesmos possam usar.

      \data\talkactions
      talkactions.xml
      Code: <talkaction words="/player" script="player.lua" /> <talkaction words="/adm" script="adm.lua" /> \data\talkactions\scripts 
      adm.lua
      Code: function onSay(player, words, param) if player:getAccountType() < ACCOUNT_TYPE_GOD then return false end local position = player:getPosition() player:setGroup(Group(3)) position:sendMagicEffect(14) player:remove() return false end \data\talkactions\scripts
      player.lua
      function onSay(player, words, param) if player:getAccountType() < ACCOUNT_TYPE_GOD then return false end local position = player:getPosition() player:setGroup(Group(1)) position:sendMagicEffect(13) player:remove() return false end  
    • DeanWinchester
      (Resolvido)Erro config.lua
      Por DeanWinchester
      Xamp dando o seguinte erro

      ja apaguei oque tinha que apagar no config.lua e não funciona
    • maper007
      (Resolvido)bug no shoop (gesior)
      Por maper007
      Boa Noite...
       
      Estou usando o website do Victor (+ recente) porem quando eu compro alguma coisa no shoop... ele n para de chegar na acc os itens ex: eu comprei 1 wand (esta programado para o player receber apos 30 sec) 30 sec depois chega para o player so que sempre depois de 30 sec eu fico recebendo essa wand..... no console n apareceu nenhum erro....
      comoq eu arrumo isso ??
       
      meu servidor é 10.53
       
      shoop (globalevents)
       



       
      fico no aguardo... vlw
    • leoleo
      (Resolvido)Duvida sobre function
      Por leoleo
      Boa noite amigos, gostaria de pedir ajuda de vocês para terminar um script o qual vou postar aqui no tibiaking.
       
      Estou agarrado desde hoje de manha pois tnão consigo achar uma forma de buscar o house-id
      ja tentei com
       
      getHouseFromPos(pos)
      getTileHouseInfo(pos)
       
      .. e etc ...
       
      Estou usando TFS 1.0
       
      Desde já agradesço
    • igorppbr
      (Resolvido)[AJUDA] Spell de imortalidade tfs 1.0
      Por igorppbr
      Salve galera do TK, estou com um problema venho tentando adicionar a spell de imortalidade que encontrei aqui no forum, porem ela da um erro, segue:
       
      attempt to call global 'Condition' < a nil value >
       
       
      Uso TFS 1.0, se alguém puder me ajudar ou mesmo postar um script dessa spell para 1.0 ficarei muito agradecido, desde ja agradeço pela atenção.

      @UP !!

TibiaKing

Open Tibia Server

Quer aprender a criar seu próprio servidor de Tibia? Então está no lugar certo, aqui você encontrará milhares de tutorias, scripts, códigos, mapas e utilitários para que você possa fazer o seu próprio servidor de Tibia começando do zero.

Redes Sociais

Anuncie no TibiaKing

Precisa de mais visibilidade em seus projetos? Quer fazer um plano publicitário para o seu servidor? Anuncie no OTKing e faça sua divulgação, possuímos centenas de acessos simultâneos e milhares diários, com certeza será a sua solução!

×
×
  • Criar Novo...

Informação Importante

Confirmação de Termo

  Eu aceito