chat room for anyone, no invite needed

[blackwings]

Hi, I wonder if anyone could make a script that is like the op chat, but everyone can chat in it and they don't need to get invited to chat there?

~blackwings

[[NL]ZeroX]

i think its imposible because:
if you send a message to that chat, everyone in the hub gets that message

but i'm sure not everyone want to chat in that chatroom
so there's need an invite (mayB an addme) command for entering that chatroom

[blackwings]

what I wanted it to do, isn't it lika the OP chat, but you allow all profiles to chat in it?

[TiMeTrAVelleR]

If  everyone   must  get in  why  dont  you use  the main chat  than ???

[plop]

Originally posted by [NL]ZeroX
i think its imposible because:
if you send a message to that chat, everyone in the hub gets that message

but i'm sure not everyone want to chat in that chatroom
so there's need an invite (mayB an addme) command for entering that chatroom

it is posible but not a good idea.
i had a room like that running in my hub for a couple day's.
it linked 2/3 hub's 2gether in a seperate chat window.
just it anoyed the hell out of everybody.
best 2 have the user decide by himself wheter he wants 2 join that chat or not.

plop

[Corayzon]

i wrote this chat room bot ages ago...could proberbly be fixed up a shitload now...but dont have time...so ere ya go....

list of commands

main commnads
+startchat
+joinchat
+chatrooms

chatroom commands
+userlist
+exit
+kill

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

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

--///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
--// Main function
--///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function Main()
	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+)")

	-- Chat Room Functions
	------------------------------------------
	if cmd == "+startchat" then
		user:SendPM(user.sName, "***Starting Chat Room v0.01 ...")
		iChatRoom[user.sName] = "qChatName"
		user:SendPM(user.sName, "***Please enter your ChatRoom Name: ")
		return 1

	elseif cmd == "+joinchat" then
		_,_,cmd,hubname = strfind(data, "%b<>%s+(%S+)%s+(%S+)")
		if iChatRoom[hubname] ~= nil then
			local host = iChatRoom[hubname]
			local hub = iChatRoom[host]
			tChatRoom[host]["userlist"][user.sName] = user.sName
			tChatRoom[host]["count"] = tChatRoom[host]["count"] + 1
			SendPmToNick(user.sName, hub, "***You have connected to "..hubname)
			SendPmToNick(hub, user.sName, "***"..user.sName.." has connected to the chatroom")
		else
			user:SendData(sBot, "***Unable to connected to chatroom "..hubname)
		end

	elseif cmd == "+chatrooms" then
		local sOut = "\r\n\r\n\tChat Room List\r\n\r\n"
		if tRoomList ~= nil then
			for roomname, e in tRoomList do
				sOut=sOut.."\t\t"..roomname.."\t"..tChatRoom[iChatRoom[roomname]]["count"]
			end
			user:SendData(sBot, sOut)
		end

	end

	-- ChatRoom chat
	if tChatRoom ~= nil then
		for haha, room in tChatRoom do
			if strfind(data, "$To: "..room["hubname"]) then
				if room["userlist"][user.sName] == user.sName then

					if cmd == "+userlist" then

						local sOut = "\r\n\r\n\tU s e r   L i s t\r\n\r\n"
						for users, e in room["userlist"] do
							sOut=sOut.."\t\t"..users.."\r\n"
						end
						SendPmToNick(user.sName, room["hubname"], sOut)

					elseif cmd == "+exit" then
						room["userlist"][user.sName] = nil
						room["count"] = room["count"] - 1
						SendPmToNick(user.sName, room["hubname"], "***You have disconnected from "..hubname)
						SendPmToNick(room["hubname"], user.sName, "***"..user.sName.." has disconnected to the chatroom")
						

					elseif cmd == "+kill" then
						if room["host"] == user.sName then
							
							iChatRoom[room["hubname"]] = nil
							iChatRoom[room["hubname"]] = nil
							tRoomList[room["hubname"]] = nil
							frmHub:UnregBot(room["hubname"])
							room = nil
							return 1
						end
					else
						for users, e in room["userlist"] do

							_,_,string = strfind(data, "%b<>%s+(.+)")
							if users ~= user.sName then
								SendPmToNick(users, room["hubname"], "["..user.sName.."] "..string)
								return 1
							end
						end
					end
				end
			end
		end
	end

	-- ChatRoom initailization
	if cmd ~= nil then
		if iChatRoom[user.sName] ~= nil then
			if strfind(data, "$To: "..user.sName) then
				if iChatRoom[user.sName] == "qChatName" then

					_,_,hubname = strfind(data, "%b<>%s+(.+)")
					tChatRoom[user.sName] = {}
					frmHub:RegBot(hubname)
					tChatRoom[user.sName]["host"] = user.sName
					tChatRoom[user.sName]["userlist"] = {}
					tChatRoom[user.sName]["userlist"][user.sName] = user.sName
					tChatRoom[user.sName]["hubname"] = hubname
					tChatRoom[user.sName]["count"] = 1
					iChatRoom[user.sName] = hubname
					iChatRoom[hubname] = user.sName
					tRoomList[hubname] = hubname
					SendPmToNick(user.sName, hubname, "***"..hubname.." has started")
					SendPmToNick(user.sName, hubname, "***You have connected to "..hubname)
					return 1
				
				--elseif tChatRoom[user.sName]["state"] == [	
				end
			end
		end
	end
end

[blackwings]

Why not use this code and also allow these profiles = Operators, VIP, Reg, User (with other words, all other default ptokax profiles)

--Requested by ?????k??
--Made by nErBoS

sBot = "Master-Chat"

info_chat = "$MyINFO $ALL "..sBot.."  Master-Chat  $ $Cable"..strchar( 1 ).."$$0$|" 

function OpConnected(user, data)
	if (user.iProfile == 0) then
		user:SendData( info_chat )
	end
end

function DataArrival(user, data)

	if (strsub(data,1,12) == "$GetNickList") then
		if (user.iProfile == 0) then
			user:SendData( info_chat )
		end
	end
	
	if (strsub(data,1,5+strlen(sBot)) == "$To: "..sBot) then
		if (user.iProfile == 0) then
			local aux,usr
			local s,e,talk = strfind(data, "$To:%s+%S+%s+From:%s+%S+%s+$%b<>%s+(.+)")
			for aux, usr in GetUsersByProfile("Master") do
				if (GetItemByName(usr) ~= nil and usr ~= user.sName) then
					SendToNick(usr, "$To: "..usr.." From: "..sBot.." $<"..user.sName.."> "..talk)
				end
			end
		end
	end
end

[Corayzon]

this is because this was a request for a masters chat from ?????k?? ;)

[blackwings]

Originally posted by Corayzon
this is because this was a request for a masters chat from ?????k?? ;)

That wasn't any real answer to my problem :P Is it really so hard just to add all profiles to the code I posted ealier? which if it's done, everyone will be able to chat there.

[plop]

Originally posted by blackwings

Originally posted by Corayzon
this is because this was a request for a masters chat from ?????k?? ;)

That wasn't any real answer to my problem :P Is it really so hard just to add all profiles to the code I posted ealier? which if it's done, everyone will be able to chat there.

here you have a really lame chat room script.
so lame i didn't have the guts 2 try it.

-- really lame chat room bot
-- by plop

Bot = "Chat_room"

function Main()
   frmHub:RegBot(Bot)
end

function DataArrival(user, data)
   if(strsub(data, 1, 4) == "$To:") then
      local s,e,whoTo = strfind(data,"$To:%s+(%S+)")
      if whoTo == Bot then 
         data=strsub(data,1,strlen(data)-1) 
         local s,e,txt = strfind(data, "%$(%b<>.+)")
         if txt then
            SendPmToAll(Bot, txt.."|")
         end
      end
   end
end

plop

[Corayzon]

hmmm

[plop]

copyed 1 line 2 much. lol
was actualy a room for vips only.
but edited my post and it's now open 2 all levels.

plop

[blackwings]

The chat room do as it should, but when I send messages with DC++ 0.401, I get =
Syntax Error: attempt to index local `nick' (a nil value)

But I don't get any error when I send messages with pDC++ 0.306 1.19b.


Another thing, is it possible to in the chat room to remove the botname before the usernames, or atleast be able to config your-self what it shold say?

Instead of this =
<*Chat Bot> Chatting etc....

it should be like this =
Chatting etc....
            or
<*CB> Chatting etc....


Is it also possible that in your own chat window, that you dont get a double message of your message, here is a example on how it is now =

Chatting....
<*Chat Bot> Chatting....

Instead you shall just see =

<*Chat Bot> Chatting....

I know that these similar examples are confusing, but I tried my best Anyway, I hope this is possible and that someone will help me.

[plop]

both requests done.

---------------------------------------
-- V 1
-- really lame chat room bot
----
-- V 2
-- doesn't repeat 2 the sender
-- doesn't show botname on the pm's
---------------------------------------
-- by plop        [URL]http://www.plop.nl[/URL] --
---------------------------------------

Bot = "Chat_room"

tUsers = {}

function Main()
   frmHub:RegBot(Bot)
end

function DataArrival(user, data)
   if tUsers[user.sName] == nil then
      tUsers[user.sName] = 1
   end
   if(strsub(data, 1, 4) == "$To:") then
      local s,e,whoTo = strfind(data,"$To:%s+(%S+)")
      if whoTo == Bot then 
         data=strsub(data,1,strlen(data)-1) 
         local s,e,txt = strfind(data, "%$(%b<>.+)")
         local usr
         if txt then
            for a,b in tUsers do
               if a ~= user.sName then
                  usr = GetItemByName(a)
                  if usr then
                     usr:SendData("$To: "..usr.sName.." From: "..Bot.." $"..txt.."|")
                  else
                     tUsers[a] = nil
                  end
               end
            end
         end
      end
   end
end

function OpConnected(user)
   if tUsers[user.sName] == nil then
      tUsers[user.sName] = 1
   end
end

NewUserConnected = OpConnected

function OpDisconnected(user)
   if tUsers[user.sName] then
      tUsers[user.sName] = nil
   end
end

UserDisconnected = OpDisconnected

the error you posted can't be from this chat script.
the vallue nick isn't used anywhere.

plop

[blackwings]

Originally posted by plop
the error you posted can't be from this chat script.
the vallue nick isn't used anywhere.

plop

That's strange, can it be channelbot 0.9g or Bad word combination script(the one with gag function, made by Nerbos)?

[bastya_elvtars]

i think tis sould work as:

1) a user opens a room

(eg. !openchat )

2) he/she invites peeps

OR

2) roombot notifiens peeps already there when a user enters/leaves

[blackwings]

Originally posted by bastya_elvtars
i think tis sould work as:

1) a user opens a room

(eg. !openchat )

2) he/she invites peeps

OR

2) roombot notifiens peeps already there when a user enters/leaves

that's sounds too complicated I think it nice as it is:)(but I haven't tested the new version yet )

EDIT: eh, well the function that it could give a user that enters, a messages that tells if there are other people there or not, is nice. But I don't know if it's possible

[plop]

Originally posted by bastya_elvtars
i think tis sould work as:

1) a user opens a room

(eg. !openchat )

2) he/she invites peeps

OR

2) roombot notifiens peeps already there when a user enters/leaves

i believe tezlo's chatroom bot works like that.

plop

[[FRDH]freestyler]

is there no script that see only ops and users[not all users only the users wo are in the room]and that as a user in the chatroom is that there is a message with
' the user freestyler is entering the chatroom'
and not al users see what he is asking only he and the OPS/masters/owners






=======================================
FRDH

//www.frdh.nl.tt
dchub://frdh.no-ip.info:410                  :)
dchub://frdh2.no-ip.info:412
=======================================

[plop]

Originally posted by [FRDH]freestyler
is there no script that see only ops and users[not all users only the users wo are in the room]and that as a user in the chatroom is that there is a message with
' the user freestyler is entering the chatroom'
and not al users see what he is asking only he and the OPS/masters/owners

that sounds a bit like an open opchat.
am i right??

plop