Request: If you are premium, you have a 15% discount on this NPC

[kito2]

Hi there, like topic name says I want to make that this NPC sells a 15% discount when having premium:

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

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

local shopModule = ShopModule:new()
npcHandler:addModule(shopModule)

shopModule:addBuyableItem({'spellbook'}, 2175, 150, 'spellbook')
shopModule:addBuyableItem({'magic lightwand'}, 2161, 400, 'magic lightwand')

shopModule:addBuyableItem({'small health'}, 8704, 15, 1, 'small health potion')
shopModule:addBuyableItem({'health potion'}, 7618, 20, 1, 'health potion')
shopModule:addBuyableItem({'mana potion'}, 7620, 20, 1, 'mana potion')
shopModule:addBuyableItem({'strong health'}, 7588, 30, 1, 'strong health potion')
shopModule:addBuyableItem({'strong mana'}, 7589, 40, 1, 'strong mana potion')
shopModule:addBuyableItem({'great health'}, 7591, 80, 1, 'great health potion')
shopModule:addBuyableItem({'great mana'}, 7590, 80, 1, 'great mana potion')
shopModule:addBuyableItem({'great spirit'}, 8472, 90, 1, 'great spirit potion')
shopModule:addBuyableItem({'ultimate health'}, 8473, 200, 1, 'ultimate health potion')
shopModule:addBuyableItem({'antidote potion'}, 8474, 35, 1, 'antidote potion')

shopModule:addSellableItem({'normal potion flask', 'normal flask'}, 7636, 5, 'empty small potion flask')
shopModule:addSellableItem({'strong potion flask', 'strong flask'}, 7634, 1, 'empty strong potion flask')
shopModule:addSellableItem({'great potion flask', 'great flask'}, 7635, 15, 'empty great potion flask')


shopModule:addBuyableItem({'animate dead'}, 2316, 150, 1, 'animate dead rune')
shopModule:addBuyableItem({'wild growth'}, 2269, 80, 1, 'wild growth rune')
shopModule:addBuyableItem({'magic wall'}, 2293, 60, 1, 'magic wall rune')
shopModule:addBuyableItem({'stalagmite'}, 2292, 60, 1, 'stalagmite rune')
shopModule:addBuyableItem({'poison wall'}, 2289, 110, 1, 'poison wall rune')
shopModule:addBuyableItem({'poison field'}, 2285, 35, 1, 'poison field rune')
shopModule:addBuyableItem({'fire wall'}, 2303, 105, 1, 'fire wall rune')
shopModule:addBuyableItem({'fire field'}, 2301, 45, 1, 'fire field rune')
shopModule:addBuyableItem({'fire bomb'}, 2305, 95, 1, 'fire bomb rune')
shopModule:addBuyableItem({'energy wall'}, 2279, 130, 1, 'energy wall rune')
shopModule:addBuyableItem({'energy field rune'}, 2277, 65, 1, 'energy field rune')
shopModule:addBuyableItem({'blank rune'}, 2260, 10, 1, 'blank rune')
shopModule:addBuyableItem({'avalanche'}, 2274, 35, 1, 'avalanche rune')
shopModule:addBuyableItem({'instense healing'}, 2265, 45, 1, 'intense healing rune')
shopModule:addBuyableItem({'ultimate healing'}, 2273, 60, 1, 'ultimate healing rune')
shopModule:addBuyableItem({'destroy field'}, 2261, 25, 1, 'destroy field rune')
shopModule:addBuyableItem({'light magic missile'}, 2287, 20, 1, 'light magic missile rune')
shopModule:addBuyableItem({'heavy magic missile'}, 2311, 40, 1, 'heavy magic missile rune')
shopModule:addBuyableItem({'great fireball'}, 2304, 50, 4, 'great fireball rune')
shopModule:addBuyableItem({'explosion'}, 2313, 50, 1, 'explosion rune')
shopModule:addBuyableItem({'sudden death'}, 2268, 100, 1, 'sudden death rune')
shopModule:addBuyableItem({'paralyze'}, 2278, 180, 1, 'paralyze rune')
shopModule:addBuyableItem({'convince creature'}, 2290, 25, 1, 'convince creature rune')
shopModule:addBuyableItem({'chameleon'}, 2291, 65, 1, 'chameleon rune')
shopModule:addBuyableItem({'desintegrate'}, 2310, 25,  1, 'desintegreate rune')


shopModule:addBuyableItem({'wand of vortex', 'vortex'}, 2190, 500, 1, 'wand of vortex')
shopModule:addBuyableItem({'wand of dragonbreath', 'dragonbreath'}, 2191, 1000, 1, 'wand of dragonbreath')
shopModule:addBuyableItem({'wand of decay', 'decay'}, 2188, 5000, 1, 'wand of decay')
shopModule:addBuyableItem({'wand of draconia', 'draconia'}, 8921, 7500, 1, 'wand of draconia')
shopModule:addBuyableItem({'wand of cosmic energy', 'cosmic energy'}, 2189, 10000, 1, 'wand of cosmic energy')
shopModule:addBuyableItem({'wand of inferno', 'inferno'}, 2187, 15000, 1, 'wand of inferno')
shopModule:addBuyableItem({'wand of starstorm', 'starstorm'}, 8920, 18000, 1, 'wand of starstorm')
shopModule:addBuyableItem({'wand of voodoo', 'voodoo'}, 8922, 22000, 1, 'wand of voodoo')

shopModule:addBuyableItem({'snakebite rod', 'snakebite'}, 2182, 500, 1, 'snakebite rod')
shopModule:addBuyableItem({'moonlight rod', 'moonlight'}, 2186, 1000, 1, 'moonlight rod')
shopModule:addBuyableItem({'necrotic rod', 'necrotic'}, 2185, 5000, 1, 'necrotic rod')
shopModule:addBuyableItem({'northwind rod', 'northwind'}, 8911, 7500, 1, 'northwind rod')
shopModule:addBuyableItem({'terra rod', 'terra'}, 2181, 10000, 1, 'terra rod')
shopModule:addBuyableItem({'hailstorm rod', 'hailstorm'}, 2183, 15000, 1, 'hailstorm rod')
shopModule:addBuyableItem({'springsprout rod', 'springsprout'}, 8912, 18000, 1, 'springsprout rod')
shopModule:addBuyableItem({'underworld rod', 'underworld'}, 8910, 22000, 1, 'underworld rod')

local items = {[1] = 2190, [2] = 2182, [5] = 2190, [6] = 2182}
function creatureSayCallback(cid, type, msg)
	if(not npcHandler:isFocused(cid)) then
		return false
	end

	local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid
	if(msgcontains(msg, 'first rod') or msgcontains(msg, 'first wand')) then
		if(isSorcerer(cid) or isDruid(cid)) then
			if(getPlayerStorageValue(cid, 30002) <= 0) then
				selfSay('So you ask me for a {' .. getItemNameById(items[getPlayerVocation(cid)]) .. '} to begin your advanture?', cid)
				talkState[talkUser] = 1
			else
				selfSay('What? I have already gave you one {' .. getItemNameById(items[getPlayerVocation(cid)]) .. '}!', cid)
			end
		else
			selfSay('Sorry, you aren\'t a druid either a sorcerer.', cid)
		end
	elseif(msgcontains(msg, 'yes')) then
		if(talkState[talkUser] == 1) then
			doPlayerAddItem(cid, items[getPlayerVocation(cid)], 1)
			selfSay('Here you are young adept, take care yourself.', cid)
			setPlayerStorageValue(cid, 30002, 1)
		end
		talkState[talkUser] = 0
	elseif(msgcontains(msg, 'no') and isInArray({1}, talkState[talkUser])) then
		selfSay('Ok then.', cid)
		talkState[talkUser] = 0
	end

	return true
end

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

Thanks, I rep++!

 

[kito2]

lib rar

 

[PhoOwned]

BETA VERSION
Do not re-post on other forums as a 'ready script'!

To install it on your TFS 0.3.x (or newer) you need WinMerge or other program that can check difference between files or use TFS 0.3.6pl1

I tested it with few values and looks good (no bug).

Features:
* In NPC .lua file you can set:
.. function that check 'is player extra' (for X vocation/s, players with promotion, pacc... what you want)
.. change of sellable items prices (1000 = 100%, so 15% = 150), you can use values lower then 0
.. change of buyable items prices (1000 = 100%), you can use values lower then 0
Don't make items cheaper for more then 100% (I did not test, but maybe it can crash server) <_<
* Should work sell/buy with TALK and TRADE WINDOW


I don't know what values you must put where to change price + / -, you must test it. Higher value is always better for 'extra' player :thumbup:


Ideas:
-You can use 100% discount to make NPC with some free items for low levels or shop with cheaper runes for 1-40 lvl (check level)
-Shop with cheaper swords, axes, clubs for knights
-Shop with items 'for pacc only' (set NPC prices ~9999999 gp and discount 999 = 99.9%)

NPC FILE:
Under:

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

Paste:

npcHandler:setItemsExtraSell(0)
npcHandler:setItemsExtraBuy(150)
function isPlayerExtra(cid)
	return getPlayerPremiumDays(cid) > 0
end

Report bugs in this thread. If no reports in 2-3 days I'll post it in new thread.

 

[kito2]

It seems to be cool, I will test this on saturday, and it would be nice if you post this at NPCs section, there will be more testers.