hi.
i want a simple releas bot.
only ops type +addrls then
a msg comms in main like this
========================================
has add to his share.
Type +rls to see the 30 newest rls.
========================================
hi. why don't u try this one. i think it is as simple as it can be! ;)
thx 2 nErBoS... here goes:
--Made by nErBoS
--Version 0.3
Bot = "ReleaseBot"
reltxt = "releases.txt" -- Will be created in the Script folder
prefix = "+" -- Commands Prefix
function Main()
frmHub:RegBot(Bot)
end
function DataArrival(user, data)
if (strsub(data,1,1)=="<") or (strsub(data,1,5+strlen(Bot))=="$To: "..Bot) then
data=strsub(data,1,strlen(data)-1)
s,e,cmd = strfind(data,"%b<>%s+(%S+)")
if (cmd==prefix.."add") then --## Adds a Release to the list
if (strlen(user.sName) > 20) then
user:SendData(Bot, "Your nick is too long, you can't post the release.")
else
AddRelease(user, data)
end
return 1
elseif (cmd==prefix.."all") then --## Show all releases
ShowRelease(user, data, "all")
return 1
elseif (cmd==prefix.."new") then --## Show the last 30 releases
ShowRelease(user, data, "last")
return 1
elseif (cmd==prefix.."del") then --## Erase a release
if (user.bOperator) then
DelRelease(user, data)
else
user:SendData(Bot, "You don?t have permission to use this command.")
end
return 1
elseif (cmd==prefix.."find") then --## Search for a Release
local s,e,findrel = strfind(data,"%b<>%s+%S+%s+(%S+)")
if (findrel == nil or findrel == "") then
user:SendData(Bot, "Syntax Error, "..prefix.."find , you must write a name.")
else
ShowRelease(user, data, "find", findrel)
end
return 1
end
end
end
function AddRelease(user, data)
local s,e,type,rel,desc = strfind(data,"%b<>%s+%S+%s+(%S+)%s+(%S+)%s+(.*)")
local tmp = ""
if (rel == nil or rel == "" or desc == nil or desc == "") then
user:SendData(Bot, "Syntax Error, "..prefix.."add .")
user:SendData(Bot, "Types Avaibale:\r\n\r\n\r\n\t- DnB - DnB, Jungle, RaggaJungle\r\n\t- Break - Breakbeatss\r\n\t- Users - Junglist users production and mixes .) \r\n\t- fav - f###in good shit \r\n\t- 0 - other \r\n\r\n")
elseif (strlen(rel) > 90) then
user:SendData(Bot, "The Release Name can't have more then 90 characters.")
elseif (strlen(desc) > 20) then
user:SendData(Bot, "The Description can't have more then 20 characters.")
else
if (readfrom(reltxt) == nil) then
writeto(reltxt)
write("\r\n"..rel.."$"..desc.."$"..user.sName.."$"..GetTime().."$"..strlower(type).."|")
writeto()
else
readfrom(reltxt)
while 1 do
local line = read()
if (line == "") then
tmp = tmp.."\r\n"..rel.."$"..desc.."$"..user.sName.."$"..GetTime().."$"..strlower(type).."|"
elseif(line == nil) then
break
else
tmp = tmp.."\r\n"..line
end
end
readfrom()
writeto(reltxt)
write(tmp)
writeto()
end
SendToAll(Bot, "A New Release has been added by "..user.sName.."... Write "..prefix.."all to see all Releases.")
user:SendData(Bot, "Your Release has been added, thank you.")
end
end
function ShowRelease(user, data, type, string)
local tline = 0
local tmp = ""
local dnb = ""
local breaks = ""
local fav = ""
local users = ""
local other = ""
if (type == "last") then
tmp = tmp.."\r\n\r\nThe Last 30 Releases: \r\n\r\n"
tmp = tmp.." Date\t\tPosted by\t\t\tDescription\t\tRelease Name\r\n"
elseif (type == "all") then
tmp = tmp.."\r\n\r\nAll Releases: \r\n\r\n"
tmp = tmp.." Date\t\tPosted by\t\t\tDescription\t\tRelease Name\r\n"
elseif (type == "find") then
local s,e,findrel = strfind(data,"%b<>%s+%S+%s+(%S+)")
tmp = tmp.."\r\n\r\nSearch Result: \r\n\r\n"
tmp = tmp.." Date\t\tPosted by\t\t\tDescription\t\tRelease Name\r\n"
end
readfrom(reltxt)
while 1 do
local line = read()
if (type == "last") then
if (tline == 30) then
break
end
end
if (line == nil) then
break
else
local s,e,rel,desc,who,time,tp = strfind(line, "(.*)%$(.*)%$(.*)%$(.*)%$(.*)%|")
if (type == "last" or type == "all") then
if (rel ~= nil) then
if (tp == "dnb") then
dnb = dnb.." "..time.."\t"..who..Coluns(who)..desc..Coluns(desc)..rel.."\r\n"
elseif (tp == "breaks") then
breaks = breaks.." "..time.."\t"..who..Coluns(who)..desc..Coluns(desc)..rel.."\r\n"
elseif (tp == "fav") then
fav = fav.." "..time.."\t"..who..Coluns(who)..desc..Coluns(desc)..rel.."\r\n"
elseif (tp == "users") then
users = users.." "..time.."\t"..who..Coluns(who)..desc..Coluns(desc)..rel.."\r\n"
else
other = other.." "..time.."\t"..who..Coluns(who)..desc..Coluns(desc)..rel.."\r\n"
end
tline = tline + 1
end
elseif (type == "find") then
if (rel ~= nil and rel == string) then
if (tp == "dnb") then
dnb = dnb.." "..time.."\t"..who..Coluns(who)..desc..Coluns(desc)..rel.."\r\n"
elseif (tp == "breaks") then
breaks = breaks.." "..time.."\t"..who..Coluns(who)..desc..Coluns(desc)..rel.."\r\n"
elseif (tp == "fav") then
fav = fav.." "..time.."\t"..who..Coluns(who)..desc..Coluns(desc)..rel.."\r\n"
elseif (tp == "users") then
users = users.." "..time.."\t"..who..Coluns(who)..desc..Coluns(desc)..rel.."\r\n"
else
other = other.." "..time.."\t"..who..Coluns(who)..desc..Coluns(desc)..rel.."\r\n"
end
end
end
end
end
readfrom()
if (dnb ~= "") then
tmp = tmp.."\r\n ==- DnB releasez\r\n -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------\r\n"
tmp = tmp..dnb
end
if (breaks ~= "") then
tmp = tmp.."\r\n -Breaks\r\n -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------\r\n"
tmp = tmp..breaks
end
if (fav ~= "") then
tmp = tmp.."\r\r\n -F###ing good shit \r\n-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------\r\n"
tmp = tmp..fav
end
if (users ~= "") then
tmp = tmp.."\r\r\n - Junglist Users Production and mixes\r\n -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------\r\n"
tmp = tmp..users
end
if (other ~= "") then
tmp = tmp.."\r\r\n Other Styles:\r\n -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------\r\n"
tmp = tmp..other
tmp = tmp.."\r\n ----------------------------------------------------------------------------------------------------------junglist.no-ip.com----------------------------------------------------------------------------------------------------------------------------\r\n"
end
user:SendPM(Bot, tmp)
end
function DelRelease(user, data)
local s,e,release = strfind(data,"%b<>%s+%S+%s+(%S+)")
local time = 0
local tmp = ""
if (release == nil or release == "") then
user:SendData(Bot, "Syntax Error, "..prefix.."del , you must write a name.")
else
readfrom(reltxt)
while 1 do
local line = read()
if (line == nil) then
break
else
local s,e,rel = strfind(line, "(.*)%$.*%$.*%$.*%$.*%|")
user:SendData(Bot, rel)
if (rel == nil or rel == "") then
tmp = tmp..line.."\r\n"
elseif (strlower(rel) == strlower(release)) then
time = 1
else
tmp = tmp..line.."\r\n"
end
end
end
readfrom()
writeto(reltxt)
write(tmp)
writeto()
end
if (time == 1) then
user:SendData(Bot, "The Release has been erased.")
else
user:SendData(Bot, "The Release was not found.")
end
end
function GetTime()
d = date("%d")
mm = date("%m")
y = date("%y")
Date = d.."/"..mm.."/"..y
return Date
end
function Coluns(string)
local tmp = ""
if (strlen(string) < 8) then
tmp = "\t\t\t"
elseif (strlen(string) < 16) then
tmp = "\t\t"
else
tmp = "\t"
end
return tmp
end
thx but i dont need a bot how says "a new relea has bin added" i need a bot how says has bin added