NPC Broadcaster | For TFS.

[Fresh]

* Informations:

This NPC is talking on red, player words.
You can buy Broadcast message by this NPC.

* Script:

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
 
local t, K = {
	level = 75,
	minl = 10,
	maxl = 150,
	base = 25000,
	char = 1000
}, {}
 
function onCreatureAppear(cid)			npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid)			npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg)		npcHandler:onCreatureSay(cid, type, msg) end
function onThink()					npcHandler:onThink() end
 
function greetCallback(cid)
	K[cid] = nil
	return true
end
 
function creatureSayCallback(cid, type, msg)
	if not npcHandler:isFocused(cid) then
		return false
	elseif not K[cid] then
		if t.level and getPlayerLevel(cid) < t.level then
			selfSay('You need to be level ' .. t.level .. ' or higher to broadcast.', cid)
		elseif t.minl and msg:len() < t.minl then
			selfSay('Your message must contain at least ' .. t.minl .. ' characters.', cid)
		elseif t.maxl and msg:len() >= t.maxl then
			selfSay('Your message may contain no more than ' .. t.maxl .. ' characters.', cid)
		else
			selfSay('Do you want to broadcast this message for ' .. (t.base or 0) + (t.char or 0) * msg:len() .. ' gold?', cid)
			K[cid] = msg
		end
	elseif K[cid] and msgcontains(msg, 'yes') then
		if doPlayerRemoveMoney(cid, (t.base or 0) + (t.char or 0) * K[cid]:len()) then
			for _, pid in ipairs(getPlayersOnline()) do
				doCreatureSay(cid, K[cid], TALKTYPE_BROADCAST, false, pid)
			end
			selfSay('Your message has been broadcasted.', cid)
		else
			selfSay('Come back when you\'ve got enough money!', cid)
		end
		K[cid] = nil
	end
	return true
end
 
npcHandler:setCallback(CALLBACK_GREET, greetCallback)
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

* Credits:

Cykotitan for remake and make the script shorter.

 

[Darkhaos]

Are you sure that it is working?

 

[Ragheed]

The broadcast message is wrong, shud be:

doBroadcastMessage("[BroadCaster]: ".. getCreatureName(cid) .." : ".. messages[cid].."")

 

[Fresh]

Are you sure that it is working?

Yeah tested on my TFS 0.3.5pl1

The broadcast message is wrong, shud be:

doBroadcastMessage("[BroadCaster]: ".. getCreatureName(cid) .." : ".. messages[cid].."")

Thx Updated first post.

 

[Darkhaos]

The broadcast message is wrong, shud be:

doBroadcastMessage("[BroadCaster]: ".. getCreatureName(cid) .." : ".. messages[cid].."")

For that i ask if it was working

 

[soul4soul]

ooo nice job i dont remember seeing any broadcast NPC's for TFS yet. nice job

 

[Exmortis]

Anyone could solve this mystery? I'm useing TFS 0.2.7

 

[Fresh]

@BUMP

ChangeLog:
* Added new advanced version for engine TFS 0.3.6pl1 - Tibia 8.54.

 

[Cykotitan]

godlike

JDB

 

[Ped0bear]

+1
troll

 

[Cykotitan]

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)

local t, K = {
	level = 75,
	minl = 10,
	maxl = 150,
	base = 25000,
	char = 1000
}, {}

function onCreatureAppear(cid)			npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid)			npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg)		npcHandler:onCreatureSay(cid, type, msg) end
function onThink()					npcHandler:onThink() end

function greetCallback(cid)
	K[cid] = nil
	return true
end

function creatureSayCallback(cid, type, msg)
	if not npcHandler:isFocused(cid) then
		return false
	elseif not K[cid] then
		if t.level and getPlayerLevel(cid) < t.level then
			selfSay('You need to be level ' .. t.level .. ' or higher to broadcast.', cid)
		elseif t.minl and msg:len() < t.minl then
			selfSay('Your message must contain at least ' .. t.minl .. ' characters.', cid)
		elseif t.maxl and msg:len() >= t.maxl then
			selfSay('Your message may contain no more than ' .. t.maxl .. ' characters.', cid)
		else
			selfSay('Do you want to broadcast this message for ' .. (t.base or 0) + (t.char or 0) * msg:len() .. ' gold?', cid)
			K[cid] = msg
		end
	elseif K[cid] and msgcontains(msg, 'yes') then
		if doPlayerRemoveMoney(cid, (t.base or 0) + (t.char or 0) * K[cid]:len()) then
			for _, pid in ipairs(getPlayersOnline()) do
				doCreatureSay(cid, K[cid], TALKTYPE_BROADCAST, false, pid)
			end
			selfSay('Your message has been broadcasted.', cid)
		else
			selfSay('Come back when you\'ve got enough money!', cid)
		end
		K[cid] = nil
	end
	return true
end

npcHandler:setCallback(CALLBACK_GREET, greetCallback)
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

 

[Fresh]

Thanks mudkip-man. Updated first post.

 

[Fresh]

*BUMP

How to add prefix [BroadCast] ... msg ... ?

Now its look that:

12:26 VojTAZ: kakakakakakaka

I wanna look that:

12:26 [BroadCaster] VojTAZ: kakakakakakaka

 

[Cykotitan]

Then they won't be able to msg the player directly!

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
 
local t, K = {
	level = 75,
	minl = 10,
	maxl = 150,
	base = 25000,
	char = 1000
}, {}
 
function onCreatureAppear(cid)			npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid)			npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg)		npcHandler:onCreatureSay(cid, type, msg) end
function onThink()					npcHandler:onThink() end
 
function greetCallback(cid)
	K[cid] = nil
	return true
end
 
function creatureSayCallback(cid, type, msg)
	if not npcHandler:isFocused(cid) then
		return false
	elseif not K[cid] then
		if t.level and getPlayerLevel(cid) < t.level then
			selfSay('You need to be level ' .. t.level .. ' or higher to broadcast.', cid)
		elseif t.minl and msg:len() < t.minl then
			selfSay('Your message must contain at least ' .. t.minl .. ' characters.', cid)
		elseif t.maxl and msg:len() >= t.maxl then
			selfSay('Your message may contain no more than ' .. t.maxl .. ' characters.', cid)
		else
			selfSay('Do you want to broadcast this message for ' .. (t.base or 0) + (t.char or 0) * msg:len() .. ' gold?', cid)
			K[cid] = msg
		end
	elseif K[cid] and msgcontains(msg, 'yes') then
		if doPlayerRemoveMoney(cid, (t.base or 0) + (t.char or 0) * K[cid]:len()) then
			local v = getCreatureName(cid)
			for _, pid in ipairs(getPlayersOnline()) do
				doBroadcastMessage('[BroadCaster] ' .. v .. ': ' .. K[cid])

			end
			selfSay('Your message has been broadcasted.', cid)
		else
			selfSay('Come back when you\'ve got enough money!', cid)
		end
		K[cid] = nil
	end
	return true
end
 
npcHandler:setCallback(CALLBACK_GREET, greetCallback)
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())