PtokaX forum

Okay, so I got bored and now I waster my BW using a DC++ hub, but I don't know how to script it, and I had a most fabulous idea for a bot too.

A multi-room chatbot, that works through pm.

The chatbot sits in the main room, and you issue commands as a user that can work it:
#roomlist lists the current rooms that have users in them
#join allows you to join a room, if t exists
#make creates a room and autojoins it
 thats in the main console for plain users

the chat room operates off of the private messages, the bot keeps a record of what nick is in a room, and if someone sends a pm o the bot from that room, then the message will be forewarded to the rest of the users in that room.  if a user is inactive for too long, and doesnt have a special status like op or whatnot its dropped form the list and must join that room to chat there again

commands from the main room can also be pmed tpo the chatbot if theya re not in a room.

if a room becomes empty at any time for any reason, then it will be closed by taking it off the names list.

op commands can come later or arent neccessary.

permanent rooms are in a text file specified in the script, will be made if dont exist.

so
#makeroom whatever
...joining whatever
..talk talk talk...
#part
(cheks if empty (no? ok, yes? remove))
#join room
...joining room
#part


you get the point...

if you could make this id be so very thankful!!!

hey cbill =]

this is a scripts i wrote ages ago when i had the same idea...and it functions just as you would like, but it is old and can be optimized for better proformance...

but newayz...

-- Corayzon's Side-Bot Light 1.0 Beta

--// BotName
sBot = "-ChatRoom-Bot-"

tChatRoom = {}
iChatRoom = {}
tRoomList = {}

-- TO DO LIST
-------------
--
--

--///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
--// Main function
--///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function Main()
frmHub:EnableSearchData(1)
frmHub:EnableFullData(1)
frmHub:RegBot(sBot)
end

--///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
--// Data arrival from client on server
--///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function DataArrival(user, data)

data=strsub(data,1,strlen(data)-1)
_,_,cmd=strfind(data, "%b<>%s+(%S+)")
_,_,toChatRoom=strfind(data, "$To: (%S+)")
_,_,sMessage=strfind(data, "$<(.+)")

-- Hub ChatRoom Commands
if cmd == "+startchatroom" then
doStartChatRoom(user, data)
return 1

elseif cmd == "+joinchatroom" then
doJoinChatRoom(user, data)

elseif cmd == "+chatrooms" then
getChatRooms(user)
end

-- ChatRoom Initailisation Process
if toChatRoom ~= nil then
if toChatRoom == sBot then
if tChatRoom[toChatRoom]["status"] == "ChatRoomName" then

end
end
end

-- ChatRoom Commands
if toChatRoom ~= nil then
if tChatRoom ~= nil then
if tChatRoom[toChatRoom]["running"] ~= nil then

if cmd == "+leave" then
tChatRoom[toChatRoom]["userlist"][user.sName] = nil
tChatRoom[toChatRoom]["n"] = tChatRoom[toChatRoom]["n"] - 1
SendDataToChatRoom(toChatRoom, user.sName, "***"..user.sName.." has left the Chat Room")

elseif cmd == "+quit" then
if user.sName == tChatRoom[toChatRoom]["owner"] then
SendDataToChatRoom(toChatRoom, user.sName, "***"..user.sName.." has closed the Chat Room")
tChatRoom[toChatRoom] = nil
frmHub:UnregBot(toChatRoom)
SendToAll(sBot, "***"..user.sName.." has stopped the chatroom "..sRoomName..". Use +chatrooms to see the current chat rooms")
end

elseif cmd == "+userlist" then

local sOut = "\r\n\r\n\tC h a t   R o o m   U s e r L i s t\r\n\r\n"
for username, suspects in tChatRoom[toChatRoom]["userlist"] do
sOut=sOut.."\t\t"..username.."\r\n"
end
sOut=sOut.."\t\tCount: "..tChatRoom[toChatRoom]["n"].."\r\n\r\n"
SendPmToNick(user.sName, toChatRoom, sOut)
end
end
end
end

-- Send ChatRoom Message
if toChatRoom ~= nil then
if tChatRoom ~= nil then
if tChatRoom[toChatRoom]["running"] ~= nil then
if tChatRoom[toChatRoom]["userlist"][user.sName] ~= nil then
SendDataToChatRoom(toChatRoom, user.sName, "<"..sMessage)
return 1
end
end
end
end
end


function SendDataToChatRoom(sChatRoom, sUserName, sMessage)
for username, suspects in tChatRoom[sChatRoom]["userlist"] do
if user.sName ~= username then
SendPmToNick(username, sChatRoom, sMessage)
end
end
end

function doStartChatRoom(user, data)

_,_,cmd,sRoomName=strfind(data, "%b<>%s+(%S+)%s+(.+)")

if sRoomName ~= nil then

tChatRoom[sRoomName] = {}
tChatRoom[sRoomName]["userlist"] = {}
tRoomList[sRoomName] = sRoomName
frmHub:RegBot(sRoomName)

tChatRoom[sRoomName]["owner"] = user.sName
tChatRoom[sRoomName]["userlist"][user.sName] = user.sName
tChatRoom[sRoomName]["n"] = 1
tChatRoom[sRoomName]["running"] = "1"
SendToAll(sBot, "***"..user.sName.." has started the chatroom "..sRoomName..". User +joinchatroom "..sRoomName.." to join")

end
end

function doJoinChatRoom(user, data)

_,_,cmd,sRoomName=strfind(data, "%b<>%s+(%S+)%s+(.+)")

if sRoomName ~= nil then
if tChatRoom[sRoomName] ~= nil then
if tChatRoom[sRoomName]["running"] ~= nil then
if tChatRoom[sRoomName]["userlist"][user.sName] == nil then

tChatRoom[sRoomName]["userlist"][user.sName] = user.sName
tChatRoom[sRoomName]["n"] = tChatRoom[sRoomName]["n"] + 1
SendDataToChatRoom(sRoomName, user.sName, "***"..user.sName.." has just connected to the chat room")

end
end
end
end
end

function getChatRooms(user)
local sOut = "\r\n\r\n\tC h a t   R o o m s   L i s t\r\n\r\n"
for roomname, suspects in tRoomList do
sOut=sOut.."\t\t"..roomname.."\t"..tChatRoom[roomname]["n"].."\r\n"
end
SendPmToNick(user.sName, sBot, sOut)
end
there are quite a few memory leaks here, but if this is what your after, just tell me, and i guess ill quickly write up and optimized version for ya =]

hope it helps cbill =]

this is perfect! can you do the optimising thingy plz? thanks!

i can do that...ill post her here as soon as i do =]