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