Hi....
This fine script do only works for OP?s, Masters...and up...and not for users...why? Can eny one fix it so users can use it?
-- FreshStuff v.3.0
-- original idea/script by chilla
-- completely rewriten by plop
-- Name the commands to what U like
-- This command adds stuff, syntax : !addstuff THESTUFF2ADD
cmd1 = "!addstuff"
-- This command shows the stuff, syntax : !stuff
cmd2 = "!stuff"
-- This command deletes an entry, syntax : !delalbum THESTUFF2DELETE
cmd3 = "!delstuff"
-- This command shows the latest stuff, syntax : !newalbums
cmd4 = "!newstuff"
-- This command reloads the txt file. syntax : !reloadstuff
-- (this command is needed if you manualy edit the text file)
cmd5 = "!reloadstuff"
-- Show latest stuff on entry 1=yes, 0=no
ShowOnEntry = 1
-- Max stuff shown on newalbums/entry
MaxNew = 20
-- The file storing the stuff
file = "txt/AlbumsAll.txt"
-- Name of the bot
Bot = "[Bot]?Fresh-Stuff?"
--------------------- don't change anything below here
AllStuff = {}
NewestStuff = {}
function Main()
frmHub:RegBot(Bot)
Reload()
end
function NewUserConnected(user)
if ShowOnEntry == 1 then
user:SendPM(Bot, MsgNew.."|")
end
end
function OpConnected(user)
if ShowOnEntry == 1 then
user:SendPM(Bot, MsgNew.."|")
end
end
function DataArrival(user,data)
if (strsub(data, 1, 1) == "<") then
data = strsub(data,1,strlen(data)-1)
s,e,cmd,tune = strfind(data, "%b<>%s+(%S+)%s*(.*)")
if cmd == cmd2 then
user:SendPM(Bot, MsgAll.."|")
return 1
elseif cmd == cmd4 then
user:SendPM(Bot, MsgNew.."|")
return 1
elseif user.bOperator then
if cmd == cmd3 then
if tune ~= "" then
DelStuff(user, tune)
else
user:SendData(Bot, "yea right, like i know what i got 2 delete when you don't tell me!|")
end
return 1
elseif cmd == cmd1 then
if tune ~= "" then
AddStuff(user, tune)
else
user:SendData(Bot, "yea right, like i know what you got 2 add when you don't tell me!|")
end
return 1
elseif cmd == cmd5 then
Reload()
user:SendData(Bot, "Stuff reloaded!|")
return 1
end
end
end
end
function OpenStuff()
AllStuff = nil
NewestStuff = nil
AllStuff = {}
NewestStuff = {}
Count = 0
Count2 = 0
readfrom(file)
while 1 do
local line = read()
if ( line == nil ) then
break
else
Count = Count +1
AllStuff[Count]=line
end
end
readfrom()
if Count > MaxNew then
local temp = Count - MaxNew + 1
for i=temp, Count do
Count2 = Count2 + 1
NewestStuff[Count2]=AllStuff
end
else
for i=1, Count do
Count2 = Count2 + 1
NewestStuff[Count2]=AllStuff
end
end
end
function SaveStuff()
writeto(file)
for i=1,Count do
if AllStuff then
write(AllStuff.."\n")
end
end
writeto()
end
function ShowAlbums(table)
Msg = "\r\n"
if table == NewestStuff then
if Count2 == 0 then
MsgNew = "\r\n\r\n".." --------- The Latest Stuff -------- \r\nNo Stuff on the list yet\r\n --------- The Latest Stuff -------- \r\n\r\n"
else
for i=1, Count2 do
Msg = Msg..NewestStuff.."\r\n"
end
MsgNew = "\r\n\r\n".." --------- The Latest Stuff -------- \r\n"..Msg.."\r\n --------- The Latest Stuff -------- \r\n\r\n"
end
else
if Count == 0 then
MsgAll = "\r\n\r\r\n".." --------- All The Stuff -------- \r\nNo Stuff on the list yet\r\n --------- All The Stuff -------- \r\n\r\n"
else
for i=1, Count do
Msg = Msg..AllStuff.."\r\n"
end
MsgAll = "\r\n\r\r\n".." --------- All The Stuff -------- \r\n"..Msg.."\r\n --------- All The Stuff -------- \r\n\r\n"
end
end
end
function AddStuff(user, what)
Count = Count + 1
AllStuff[Count]=what
user:SendData(Bot, what.." is added to the Stufflist|")
SaveStuff()
Reload()
end
function DelStuff(user, what)
Okie = nil
for a,b in AllStuff do
if b == what then
AllStuff[a]=nil
user:SendData(Bot, what.." is removed from the Stufflist|")
Okie = 1
break
end
end
if Okie then
SaveStuff()
Reload()
else
user:SendData(Bot, what.." wasn't found in the Stufflist|")
end
end
function Reload()
OpenStuff()
ShowAlbums(NewestStuff)
ShowAlbums(AllStuff)
end
//WickeD
So get...
[size=2]-- FreshStuff v.3.0
-- original idea/script by chilla
-- completely rewriten by plop
-- public/restricted mode switch added by ptaczek Jan 03, 2004
-- Name the commands to what U like
-- This command adds stuff, syntax : !addstuff THESTUFF2ADD
cmd1 = "!addstuff"
-- This command shows the stuff, syntax : !stuff
cmd2 = "!stuff"
-- This command deletes an entry, syntax : !delalbum THESTUFF2DELETE
cmd3 = "!delstuff"
-- This command shows the latest stuff, syntax : !newalbums
cmd4 = "!newstuff"
-- This command reloads the txt file. syntax : !reloadstuff
-- (this command is needed if you manualy edit the text file)
cmd5 = "!reloadstuff"
-- Show latest stuff on entry 1=yes, 0=no
ShowOnEntry = 1
-- Max stuff shown on newalbums/entry
MaxNew = 20
-- The file storing the stuff
file = "txt/AlbumsAll.txt"
-- Name of the bot
Bot = "[Bot]?Fresh-Stuff?"
[COLOR=orangered]-- Switch for restricted/public mode
-- nil for restricted mode, 1 or any other number for public mode
-- Ex.:
-- isPublic = nil will set the script to restricted mode
-- isPublic = 1 will set the script to public mode
isPublic = nil[/color]
--------------------- don't change anything below here
AllStuff = {}
NewestStuff = {}
function Main()
frmHub:RegBot(Bot)
Reload()
end
function NewUserConnected(user)
if ShowOnEntry == 1 then
user:SendPM(Bot, MsgNew.."|")
end
end
function OpConnected(user)
if ShowOnEntry == 1 then
user:SendPM(Bot, MsgNew.."|")
end
end
function DataArrival(user,data)
if (strsub(data, 1, 1) == "<") then
data = strsub(data,1,strlen(data)-1)
s,e,cmd,tune = strfind(data, "%b<>%s+(%S+)%s*(.*)")
if cmd == cmd2 then
user:SendPM(Bot, MsgAll.."|")
return 1
elseif cmd == cmd4 then
user:SendPM(Bot, MsgNew.."|")
return 1
elseif user.bOperator or isPublic then
if cmd == cmd3 then
if tune ~= "" then
DelStuff(user, tune)
else
user:SendData(Bot, "yea right, like i know what i got 2 delete when you don't tell me!|")
end
return 1
elseif cmd == cmd1 then
if tune ~= "" then
AddStuff(user, tune)
else
user:SendData(Bot, "yea right, like i know what you got 2 add when you don't tell me!|")
end
return 1
elseif cmd == cmd5 then
Reload()
user:SendData(Bot, "Stuff reloaded!|")
return 1
end
end
end
end
function OpenStuff()
AllStuff = nil
NewestStuff = nil
AllStuff = {}
NewestStuff = {}
Count = 0
Count2 = 0
readfrom(file)
while 1 do
local line = read()
if ( line == nil ) then
break
else
Count = Count +1
AllStuff[Count]=line
end
end
readfrom()
if Count > MaxNew then
local temp = Count - MaxNew + 1
for i=temp, Count do
Count2 = Count2 + 1
NewestStuff[Count2]=AllStuff[i]
end
else
for i=1, Count do
Count2 = Count2 + 1
NewestStuff[Count2]=AllStuff[i]
end
end
end
function SaveStuff()
writeto(file)
for i=1,Count do
if AllStuff[i] then
write(AllStuff[i].."\n")
end
end
writeto()
end
function ShowAlbums(table)
Msg = "\r\n"
if table == NewestStuff then
if Count2 == 0 then
MsgNew = "\r\n\r\n".." --------- The Latest Stuff -------- \r\nNo Stuff on the list yet\r\n --------- The Latest Stuff -------- \r\n\r\n"
else
for i=1, Count2 do
Msg = Msg..NewestStuff[i].."\r\n"
end
MsgNew = "\r\n\r\n".." --------- The Latest Stuff -------- \r\n"..Msg.."\r\n --------- The Latest Stuff -------- \r\n\r\n"
end
else
if Count == 0 then
MsgAll = "\r\n\r\r\n".." --------- All The Stuff -------- \r\nNo Stuff on the list yet\r\n --------- All The Stuff -------- \r\n\r\n"
else
for i=1, Count do
Msg = Msg..AllStuff[i].."\r\n"
end
MsgAll = "\r\n\r\r\n".." --------- All The Stuff -------- \r\n"..Msg.."\r\n --------- All The Stuff -------- \r\n\r\n"
end
end
end
function AddStuff(user, what)
Count = Count + 1
AllStuff[Count]=what
user:SendData(Bot, what.." is added to the Stufflist|")
SaveStuff()
Reload()
end
function DelStuff(user, what)
Okie = nil
for a,b in AllStuff do
if b == what then
AllStuff[a]=nil
user:SendData(Bot, what.." is removed from the Stufflist|")
Okie = 1
break
end
end
if Okie then
SaveStuff()
Reload()
else
user:SendData(Bot, what.." wasn't found in the Stufflist|")
end
end
function Reload()
OpenStuff()
ShowAlbums(NewestStuff)
ShowAlbums(AllStuff)
end[/size]
Thx m8.....!!!! =)
//WickeD