ВИП СВИТОК

[Dimasik 5]

Парни нужна помощь не имею понятия как сделать свиток что бы он при нажатии давал на месяц увеличение комбайна форжа, так же использование команд как /форж /банк и т.д. плюс еще какие нибудь плюшки

[Graf 210]

Можно взять за пример скрипт "Плаща", заменив визуальный эффект, но нужно учесть, что эффект пропадет после смерти, а тут нужно на сутки/неделю и месяц, как я понял.

С этим не сталкивался.

[WVWMK 121]

Изучайте форум, тут есть пара примеров этой системы

[V3ct0r 2,117]

Привет, @Dimasik!

 

В англоязычном разделе есть реализация VIP-системы:

 

Также тебе понадобится небольшая библиотека для работы с хуками, чтобы эта система работала:

do
	if (Hook ~= nil) then
		Hook:ClearAllHooks()
	end
	
	Hook = { hookList = {}, enabled = true }
	
	function Hook:AddReplacementHook(originalFctName, newFct)
		local hookDef = self.hookList[originalFctName]
		if (hookDef == nil) then
			hookDef = Hook:InitHook(originalFctName)
		end
		hookDef.replacement = newFct
	end
	
	
	function Hook:RemoveReplacementHook(originalFct)
		local hookDef = self.hookList[originalFctName]
		if (hookDef ~= nil) then
			hookDef.replacement = nil
		end
	end
	
	-- PRIVATE
	function Hook:GenericHook(originalFctName, ...)
		local hookDef = self.hookList[originalFctName]
		if (hookDef ~= nil) then
			if (self.enabled == true and hookDef.enabled == true) then
				-- Execute pre filters
				local pre_filter_count = table.getn(hookDef.pre)
				for i=1, pre_filter_count do
					local returnedValue = hookDef.pre[i].fct(unpack(arg))
					if (returnedValue == false) then
						return;
					end
				end
				
				-- Execute key function (either original or replacement)
				local returnedValues = nil
				if (hookDef.replacement ~= nil) then
					returnedValues = { hookDef.replacement(unpack(arg)) }
				else
					returnedValues = { hookDef.original(unpack(arg)) }
				end
				
				-- Execute post filters
				local post_filter_count = table.getn(hookDef.post)
				for i=1, post_filter_count do
					newReturnedValues = { hookDef.post[i].fct(returnedValues, unpack(arg)) }
					if (newReturnedValues ~= nil and table.getn(newReturnedValues) > 0 ) then
						returnedValues = newReturnedValues
					end
				end
				
				local a, b, c =  unpack(returnedValues)
				return unpack(returnedValues)
			else
				return hookDef.original(unpack(arg))
			end
		end
	end
	
	-- PRIVATE
	function Hook:InitHook(originalFctName)
		local hookDef = { pre={} , post={} , original=nil, replacement=nil, enabled=true }
		self.hookList[originalFctName] = hookDef
		hookDef.original = _G[originalFctName]
		_G[originalFctName] =  	function (...) 
			return Hook:GenericHook(originalFctName, unpack(arg) )
		end
		return hookDef
	end
	
	function Hook:AddPreHook(originalFctName, hookFct, priorityOrder)
		local hookDef = self.hookList[originalFctName]
		if (hookDef == nil) then
			hookDef = Hook:InitHook(originalFctName)
		end
		-- Avoid undefined priorityOrder
		if (priorityOrder == nil) then
			priorityOrder = 999999
		end
		-- Check if the hook is already recorded
		local hookCount = table.getn(hookDef.pre)
		local found = false
		for i=1, hookCount do
			if (hookDef.pre[i].fct == hookFct) then
				found = true
				hookDef.pre[i].order = priorityOrder
			end
		end
		if (found == false) then
			table.insert(hookDef.pre, {fct = hookFct, order = priorityOrder} )
		end
		-- Force a re-sorting of hooks to handle execution order
		Hook:SortHooks(hookDef.pre)
	end
	
	-- TODO
	function Hook:RemovePreHook(originalFctName, hookFct, priorityOrder)
		print("ERROR >> Hook:RemovePreHook() is not yet implemented !!")
	end
	
	function Hook:AddPostHook(originalFctName, hookFct, priorityOrder)
		local hookDef = self.hookList[originalFctName]
		if (hookDef == nil) then
			hookDef = Hook:InitHook(originalFctName)
		end
		-- Avoid undefined priorityOrder
		if (priorityOrder == nil) then
			priorityOrder = 999999
		end
		-- Check if the hook is already recorded
		local hookCount = table.getn(hookDef.post)
		local found = false
		for i=1, hookCount do
			if (hookDef.post[i].fct == hookFct) then
				found = true
				hookDef.post[i].order = priorityOrder
			end
		end
		if (found == false) then
			table.insert(hookDef.post, {fct = hookFct, order = priorityOrder} )
		end
		-- Force a re-sorting of hooks to handle execution order
		Hook:SortHooks(hookDef.post)
	end
	
	
	-- TODO
	function Hook:RemovePostHook(originalFctName, hookFct, priorityOrder)
		print("ERROR >> Hook:RemovePostHook() is not yet implemented !!")
	end
	
	function Hook:DisableHooks(originalFctName)
		local hookDef = self.hookList[originalFctName]
		if (hookDef ~= nil) then
			hookDef.enabled = false
		end
	end
	
	function Hook:EnableHooks(originalFctName)
		local hookDef = self.hookList[originalFctName]
		if (hookDef ~= nil) then
			hookDef.enabled = true
		end
	end
	
	function Hook:ClearHooks(originalFctName)
		local hookDef = self.hookList[originalFctName]
		if (hookDef ~= nil) then
			hookDef.enabled = true
		end
		_G[originalFctName] = hookDef.original
		self.hookList[originalFctName] = nil
	end
	
	
	-- TODO
	function Hook:ClearAllHooks()
		--print("ERROR >> Hook:ClearAllHooks() is not yet implemented !!")
		for i,v in pairs(self.hookList) do
			Hook:ClearHooks(i)
		end
	end
	
	function Hook:DisableAllHooks()
		self.enabled = false
	end
	
	function Hook:EnableAllHooks()
		self.enabled = true
	end
	
	function Hook:LoadHookFile(filename)
		local split = 	function (str, delim, maxNb)
							-- Eliminate bad cases...
							if string.find(str, delim) == nil then
								return { str }
							end
							if maxNb == nil or maxNb < 1 then
								maxNb = 0    -- No limit
							end
							local result = {}
							local pat = "(.-)" .. delim .. "()"
							local nb = 0
							local lastPos
							for part, pos in string.gfind(str, pat) do
								nb = nb + 1
								result[nb] = part
								lastPos = pos
								if nb == maxNb then break end
							end
							-- Handle the last field
							if nb ~= maxNb then
								result[nb + 1] = string.sub(str, lastPos)
							end
							return result
						end
	
	
	
		file = assert(io.open(filename, "r"))
		for line in file:lines() do 
			lineData = split(line, "|",3)
			
			-- Make sure original function is defined
			if (_G[lineData[2]] ~= nil) then
				-- Make sure target function is defined
				if (_G[lineData[3]] ~= nil) then
					if (lineData[1] == "REPLACE") then
						Hook:AddReplacementHook(lineData[2], _G[lineData[3]])
					elseif (lineData[1] == "PRE") then
						Hook:AddPreHook(lineData[2], _G[lineData[3]], lineData[4])
					elseif (lineData[1] == "POST") then
						Hook:AddPostHook(lineData[2], _G[lineData[3]], lineData[4])
					else
						print("ERROR >> Hook:LoadHookFile() : Unrecongized type of hook ["..lineData[1].."] !!")
					end
				else
					print("ERROR >> Hook:LoadHookFile() : Function ["..lineData[3].."] is not defined !!")
				end
			else
				print("ERROR >> Hook:LoadHookFile() : Function ["..lineData[2].."] is not defined !!")
			end
		end
		io.close(file)
	end
	
	
	function Hook:SetHookPattern(pattern, hookType, hookFct, priority)
		-- make sure hook fct is defined
		if (hookFct == nil) then
			print("ERROR >> Hook:SetHookPattern() : Hook function is not defined ["..hookFct.."] !!")	
			return
		end
		-- Browse global def list
		for key, value in pairs(_G) do
			-- Filter to retrieve only functions
			if (type(value) == "function") then
				-- Check the global function toward the provided pattern
				if (string.find(key, pattern) ~= nil) then
					if (hookType == "REPLACE") then
						Hook:AddReplacementHook(key, hookFct)
					elseif (hookType == "PRE") then
						Hook:AddPreHook(key, hookFct, priority)
					elseif (hookType == "POST") then
						Hook:AddPostHook(key, hookFct, priority)
					else
						print("ERROR >> Hook:SetHookPattern() : Unrecongized type of hook ["..hookType.."] !!")
					end
				end
			end
		end
	end
		
	-- PRIVATE
	function Hook:SortHooks(hookList)
		local compareFct =	function (a,b)
								return a.order < b.order
							end
		table.sort(hookList, compareFct)
	end
end

Сохрани этот код в любой файл и подключи его до файла VIP.lua.

 

С помощью этой VIP-системы ты можешь добавлять и снимать VIP статус с/на персонажей, а так же проверять имеет ли персонаж VIP статус. Преимущества (команды чата, комбайн), который этот статус  будет давать, тебе уже нужно будет разрабатывать самому.