Release Bot

[jiten]

As requested...

--## Release Bot Re-Written 
--## Removed some functions to MesCaLine 
--## Made by nErBoS 
--## Converted to LUA 5 by jiten
--## Commands: 
--##+add  - Will add a Release to the list 
--##+del - Will deleted a Relese from the list 
--##+rlsall- Will Show all the Releases 
--##+rls- Will Show the Lastest Releases 
--##+rlsfind - Will make a search for a Release 

sBot = "-NemO-" 

arrRelease = {} 
fDataRelease = "release.dat" 
fRelease = "release.work" 

--## Configuration ##-- 

iLastRelease = 30 -- Choose how many new release you want to show in +rls 

--## END ##-- 

function Main() 
	frmHub:RegBot(sBot) 
	LoadFromFile(fDataRelease) 
end 

function OnExit() 
	SaveToFile(fDataRelease , arrRelease , "arrRelease") 
end 

function ChatArrival(user, data) 
	data = string.sub(data,1,string.len(data)-1) 
	s,e,cmd = string.find(data, "%b<>%s+(%S+)") 
	if (cmd == "+add" and user.bOperator) then 
		LoadFromFile(fDataRelease) 
		AddRelease(user, data) 
		OnExit() 
		arrRelease = {} 
		return 1 
	elseif (cmd == "+rlsall") then 
		ShowAllRelease(user) 
		return 1 
	elseif (cmd == "+rls") then 
		ShowLastestReleases(user) 
		return 1 
	elseif (cmd == "+del" and user.bOperator) then 
		LoadFromFile(fDataRelease) 
		DeleteRelease(user, data) 
		OnExit() 
		arrRelease = {} 
		return 1 
	elseif (cmd == "+rlsfind") then 
		FindRelease(user, data) 
		return 1 
	end 
end

ToArrival = ChatArrival

function AddRelease(user, data) 
	local s,e,rel,style = string.find(data, "%b<>%s+%S+%s+(%S+)%s+(%S+)") 
	if (rel == nil or style == nil) then 
		user:SendData(sBot, "Syntax Error, +addrls