PtokaX forum

Archive => Archived 5.0 boards => Request for scripts => Topic started by: (-=TrIp-iN-SuN=-) on 14 March, 2005, 18:06:37

Title: Any One Know How To Convert Lua4 To Lua5?
Post by: (-=TrIp-iN-SuN=-) on 14 March, 2005, 18:06:37
any one know how changed this script to lua5?




--## Release Bot Re-Written

--## Removed some functions to xxx

--## Made by xxx

--## 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

uLaterPtokax = 0-- Choose 0 if you are using Ptokax version 0.3.3.0 or higher

-- Choose 1 if you are using Ptokax version lower then 0.3.3.0



--## END ##--



function Main()

frmHub:RegBot(sBot)

LoadFromFile(fDataRelease)

end



function OnExit()

SaveToFile(fDataRelease , arrRelease , "arrRelease")

end



function DataArrival(user, data)

if (strsub(data,1,1) == "<" or strsub(data,1,5+strlen(sBot)) == "$To: Psychedelic~Dreams2"..sBot) then

data = strsub(data,1,strlen(data)-1)

s,e,cmd = strfind(data, "%b<>%s+(%S+)")

if (cmd == "+add" and user.bOperator) then

LoadFromFile(fDataRelease)

AddRelease(user, data)

if (uLaterPtokax == 0) then

OnExit()

end

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)

if (uLaterPtokax == 0) then

OnExit()

end

arrRelease = {}

return 1

elseif (cmd == "+rlsfind") then

FindRelease(user, data)

return 1

end

end

end



function AddRelease(user, data)

local s,e,rel,style = strfind(data, "%b<>%s+%S+%s+(%S+)%s+(%S+)")

if (rel == nil or style == nil) then

user:SendData(sBot, "Syntax Error, +addrls