TalkAction Buy items with frags

slaw · Mar 9, 2009

Buying items, paying frags.

Requested from here:
http://otland.net/f132/buy-items-frags-request-rep-helper-24604/index3.html

Warning:
Works only on TFS 0.3!

1. First you need to add this new function to data/lib/function.lua:

Code:

function doPlayerAddFrags(cid, amount)
	return doPlayerSetRedSkullTicks(cid, getPlayerRedSkullTicks(cid) + getConfigInfo('timeToDecreaseFrags') * amount)
end

2. data/scripts/fragreward.lua

Code:

local fragRewards =
{
	--frag rewards configuration
	--from highest to lowest (by frags)
	{frags = 50, itemid = 2160},
	{frags = 30, itemid = 2152, count = 50},
	{frags = 10, itemid = 2148, count = 100},
	{frags = 5, itemid = 2273, count = 50}
}

local function getRewardByName(name)
	local tmp = name:lower()
	local tmp2 = ""
	for _, reward in pairs(fragRewards) do
		tmp2 = getItemNameById(reward.itemid)
		if(tmp == tmp2) then
			reward.name = tmp2
			return reward
		end
	end

	return FALSE
end

function onSay(cid, words, param)
	if(param == "" or param:lower() == "list") then
		local str = "#Frag rewards:"
		for _, reward in pairs(fragRewards) do
			str = str .. "\n" .. getItemNameById(reward.itemid) .. " " .. (reward.count ~= nil and "(x" .. reward.count .. ")" or "") .. "- " .. reward.frags .. " frags"
			end

		doPlayerPopupFYI(cid, str .. "\n\nExample: " .. words .. " magic plate armor")
		return TRUE
	end

	local reward = getRewardByName(param)
	if(reward == FALSE) then
		doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Invalid item specified. Please use '" .. words .. " list' command to get valid rewards list.")
		return TRUE
	end

	local playerFrags = getPlayerFrags(cid)
	if(playerFrags < reward.frags) then
		doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You need " .. reward.frags .. " frags for this item.")
		return TRUE
	end

	itemWeight = getItemWeightById(reward.itemid, reward.count)
	if(isItemRune(reward.itemid) == TRUE) then
		itemWeight = getItemWeightById(reward.itemid, 1)
	end

	local rewardItem = doCreateItemEx(reward.itemid, reward.count)
	local freeCap = getPlayerFreeCap(cid)
	if(itemWeight > freeCap or doPlayerAddItemEx(cid, rewardItem) ~= RETURNVALUE_NOERROR) then
		doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You don't have enought space/capacity for this item.")
		return TRUE
	end

	doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You have bought " .. reward.name .. " for " .. reward.frags .. " frags.")
	doPlayerAddFrags(cid, -reward.frags)
	return TRUE
end

3. talkactions.xml

Code:

<talkaction words="!fragreward" script="fragreward.lua"/>

Usage:
*!fragreward and !fragreward list - show window with names + frag needed
*!fragreward itemname - buy itemname

Master-m · Mar 9, 2009

Thanks Rep++

Zonet · Mar 11, 2009

Very nice also good idea for PVP servers.

Mefiu · Mar 12, 2009

But maybe u can do that the player gain a point only if he kills higher lvl than him or same lvl. Because players will kill all lower lvls only for gaining points ;/

Anyway nice idea and gj.

Donio · Mar 12, 2009

Reputation is going up for you!

Zonet · Mar 12, 2009

Mefiu said:
But maybe u can do that the player gain a point only if he kills higher lvl than him or same lvl. Because players will kill all lower lvls only for gaining points ;/

Anyway nice idea and gj.

That's very easy

Ilyin · Mar 12, 2009

Woha, I like it

pemlk · Mar 12, 2009

nice job man!

thanks =p

REP++

Exiled Pain · Jul 28, 2009

Does this work for pvp enforced servers? cause im using TFS 3.4pl2 and it always says: You need 5 frags for this item, even do I have 10 frags registered... don't any error on console nor anything just that msg and the item is not added

Nux · Jul 28, 2009

The old world war by danger had this to..

Sync · Jul 28, 2009

Always so neat with your scripts ^.^

Tekero · Jul 30, 2009

Very, Very God idea for PVP servers.
I'm using

Fragdonut · Jul 30, 2009

haha, nice script!

AGS · Jul 30, 2009

Lol, kind of weird, but I guess it's good for pvp servers.

Saj · Jul 30, 2009

Wow, thanks for this release, good job!

BeniS · Aug 22, 2009

Code:

local fragRewards =
{
	--frag rewards configuration
	--from highest to lowest (by frags)
	{frags = 50, itemid = 2160},
	{frags = 30, itemid = 2152, count = 50},
	{frags = 10, itemid = 2148, count = 100},
	{frags = 5, itemid = 2273, count = 50}
}

local function getRewardByName(name)
	local tmp = name:lower()
	local tmp2 = ""
	for _, reward in pairs(fragRewards) do
		tmp2 = getItemNameById(reward.itemid)
		if(tmp == tmp2) then
			reward.name = tmp2
			return reward
		end
	end

	return FALSE
end

function onSay(cid, words, param)
	if(param == "" or param:lower() == "list") then
		local str = "#Frag rewards:"
		for _, reward in pairs(fragRewards) do
			str = str .. "\n" .. getItemNameById(reward.itemid) .. " " .. (reward.count ~= nil and "(x" .. reward.count .. ")" or "") .. "- " .. reward.frags .. " frags"
			end

		doPlayerPopupFYI(cid, str .. "\n\nExample: " .. words .. " magic plate armor")
		return TRUE
	end

	local reward = getRewardByName(param)
	if(reward == FALSE) then
		doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Invalid item specified. Please use '" .. words .. " list' command to get valid rewards list.")
		return TRUE
	end

	local playerFrags = getPlayerFrags(cid)
	if(playerFrags < reward.frags) then
		doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You need " .. reward.frags .. " frags for this item.")
		return TRUE
	end

	itemWeight = getItemWeightById(reward.itemid, reward.count)
	if(isItemRune(reward.itemid) == TRUE) then
		itemWeight = getItemWeightById(reward.itemid, 1)
	end

	local rewardItem = doCreateItemEx(reward.itemid, reward.count)
	local freeCap = getPlayerFreeCap(cid)
	if(itemWeight > freeCap or doPlayerAddItemEx(cid, rewardItem) ~= RETURNVALUE_NOERROR) then
		doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You don't have enought space/capacity for this item.")
		return TRUE
	end

	doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You have bought " .. reward.name .. " for " .. reward.frags .. " frags.")
	doPlayerAddFrags(cid, -reward.frags)
	return TRUE
end

Where is the code that actually gives the player the item??

BeniS · Aug 23, 2009

Can anyone tell me where in this code it gives the player the item? so far all I can see is the error checks and then right at the end it has the message saying you got the item and a random function that doesnt give the item to the player haha help

Code:

local fragRewards =
{
	--frag rewards configuration
	--from highest to lowest (by frags)
	{frags = 50, itemid = 2160},
	{frags = 30, itemid = 2152, count = 50},
	{frags = 10, itemid = 2148, count = 100},
	{frags = 5, itemid = 2273, count = 50}
}

local function getRewardByName(name)
	local tmp = name:lower()
	local tmp2 = ""
	for _, reward in pairs(fragRewards) do
		tmp2 = getItemNameById(reward.itemid)
		if(tmp == tmp2) then
			reward.name = tmp2
			return reward
		end
	end

	return FALSE
end

function onSay(cid, words, param)
	if(param == "" or param:lower() == "list") then
		local str = "#Frag rewards:"
		for _, reward in pairs(fragRewards) do
			str = str .. "\n" .. getItemNameById(reward.itemid) .. " " .. (reward.count ~= nil and "(x" .. reward.count .. ")" or "") .. "- " .. reward.frags .. " frags"
			end

		doPlayerPopupFYI(cid, str .. "\n\nExample: " .. words .. " magic plate armor")
		return TRUE
	end

	local reward = getRewardByName(param)
	if(reward == FALSE) then
		doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Invalid item specified. Please use '" .. words .. " list' command to get valid rewards list.")
		return TRUE
	end

	local playerFrags = getPlayerFrags(cid)
	if(playerFrags < reward.frags) then
		doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You need " .. reward.frags .. " frags for this item.")
		return TRUE
	end

	itemWeight = getItemWeightById(reward.itemid, reward.count)
	if(isItemRune(reward.itemid) == TRUE) then
		itemWeight = getItemWeightById(reward.itemid, 1)
	end

	local rewardItem = doCreateItemEx(reward.itemid, reward.count)
	local freeCap = getPlayerFreeCap(cid)
	if(itemWeight > freeCap or doPlayerAddItemEx(cid, rewardItem) ~= RETURNVALUE_NOERROR) then
		doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You don't have enought space/capacity for this item.")
		return TRUE
	end

	doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You have bought " .. reward.name .. " for " .. reward.frags .. " frags.")
	doPlayerAddFrags(cid, -reward.frags)
	return TRUE
end

TalkAction Buy items with frags

slaw

Software Developer

Master-m

Need help? Just ask!

Zonet

Web Developer

Mefiu

New Member

Donio

Banned User

Zonet

Web Developer

Ilyin

New Member

pemlk

New Member

Exiled Pain

Fervid Learner

Nux

Yzeria Custom War

Sync

Ø,ø

Tekero

New Member

Fragdonut

Banned User

AGS

DeathSouls Owner

Saj

Remember my name

BeniS

Advanced OT User

BeniS

Advanced OT User

Similar threads