I want this request bot to be modified to show when command !read or !readfull is used to show in PM not in main .
Thanx very much ! :D
--Requested by D-J Valhala
--Made by nErBoS
Bot = "Toshi"
reltxt = "releases.txt" -- Wil be created in the script folder
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=="!write") then
AddRelease(user, data)
return 1
elseif (cmd=="!readfull") then
ShowRelease(user, data, "all")
return 1
elseif (cmd=="!read") then
ShowRelease(user, data, "last")
return 1
end
end
end
function AddRelease(user, data)
local s,e,rel,desc = strfind(data,"%b<>%s+%S+%s+(%S+)%s+(.*)")
local tmp = ""
if (rel == nil or rel == "" or desc == nil or desc == "") then
user:SendData(Bot, "Syntax Error, !write , must have a release name and description.")
else
if (readfrom(reltxt) == nil) then
writeto(reltxt)
write("\r\n"..rel.."$"..desc.."$"..user.sName.."$"..GetTime().."|")
writeto()
else
readfrom(reltxt)
while 1 do
local line = read()
if (line == "") then
tmp = tmp.."\r\n"..rel.."$"..desc.."$"..user.sName.."$"..GetTime().."|"
elseif(line == nil) then
break
else
tmp = tmp.."\r\n"..line
end
end
readfrom()
writeto(reltxt)
write(tmp)
writeto()
end
SendToAll(Bot, "New Release has been added by "..user.sName.."... Type !read to see the release list.")
user:SendData(Bot, "Your Release as been added to our list, thank you.")
end
end
function ShowRelease(user, data, type)
local tmp = ""
local tline = 0
if (type == "last") then
tmp = tmp.."Our List of teh last 30 Releases: \r\n\r\n"
else
tmp = tmp.."Our List of Releases: \r\n\r\n"
end
readfrom(reltxt)
while 1 do
local line = read()
if (type == "last") then
if (tline == 4) then
break
end
end
if (line == nil) then
break
else
local s,e,rel,desc,who,time = strfind(line, "(.*)$(.*)$(.*)$(.*)|")
if (rel ~= nil) then
tmp = tmp.."Release Name: "..rel.."\r\n"
tmp = tmp.."Description: "..desc.."\r\n"
tmp = tmp.."Posted by: "..who.."\r\n"
tmp = tmp.."Post Time: "..time.."\r\n\r\n"
tline = tline + 1
end
end
end
readfrom()
user:SendData(Bot, tmp)
end
function GetTime()
s = date("%S")
h = date("%H")
m = date("%M")
d = date("%d")
mm = date("%m")
y = date("%y")
Date = "Date: "..d.."/"..mm.."/20"..y.." Hour: "..h..":"..m..":"..s
return Date
end
--Requested by D-J Valhala
--Made by nErBoS
Bot = "Toshi"
reltxt = "releases.txt" -- Wil be created in the script folder
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=="!write") then
AddRelease(user, data)
return 1
elseif (cmd=="!readfull") then
ShowRelease(user, data, "all")
return 1
elseif (cmd=="!read") then
ShowRelease(user, data, "last")
return 1
end
end
end
function AddRelease(user, data)
local s,e,rel,desc = strfind(data,"%b<>%s+%S+%s+(%S+)%s+(.*)")
local tmp = ""
if (rel == nil or rel == "" or desc == nil or desc == "") then
user:SendData(Bot, "Syntax Error, !write , must have a release name and description.")
else
if (readfrom(reltxt) == nil) then
writeto(reltxt)
write("\r\n"..rel.."$"..desc.."$"..user.sName.."$"..GetTime().."|")
writeto()
else
readfrom(reltxt)
while 1 do
local line = read()
if (line == "") then
tmp = tmp.."\r\n"..rel.."$"..desc.."$"..user.sName.."$"..GetTime().."|"
elseif(line == nil) then
break
else
tmp = tmp.."\r\n"..line
end
end
readfrom()
writeto(reltxt)
write(tmp)
writeto()
end
SendToAll(Bot, "New Release has been added by "..user.sName.."... Type !read to see the release list.")
user:SendData(Bot, "Your Release as been added to our list, thank you.")
end
end
function ShowRelease(user, data, type)
local tmp = ""
local tline = 0
if (type == "last") then
tmp = tmp.."Our List of teh last 30 Releases: \r\n\r\n"
else
tmp = tmp.."Our List of Releases: \r\n\r\n"
end
readfrom(reltxt)
while 1 do
local line = read()
if (type == "last") then
if (tline == 4) then
break
end
end
if (line == nil) then
break
else
local s,e,rel,desc,who,time = strfind(line, "(.*)$(.*)$(.*)$(.*)|")
if (rel ~= nil) then
tmp = tmp.."Release Name: "..rel.."\r\n"
tmp = tmp.."Description: "..desc.."\r\n"
tmp = tmp.."Posted by: "..who.."\r\n"
tmp = tmp.."Post Time: "..time.."\r\n\r\n"
tline = tline + 1
end
end
end
readfrom()
user:SendPM(Bot, tmp) -- make it send to pm
end
function GetTime()
s = date("%S")
h = date("%H")
m = date("%M")
d = date("%d")
mm = date("%m")
y = date("%y")
Date = "Date: "..d.."/"..mm.."/20"..y.." Hour: "..h..":"..m..":"..s
return Date
end
10x for that quick response ..the bit works fine :D