Simple InternationalCHAT

[fichtenberg]

That did it! great
You are awesome
Thanks again

[6Marilyn6Manson6]

Originally posted by fichtenberg
That did it! great
You are awesome
Thanks again

Welcome dude

[6Marilyn6Manson6]

Post update. Now is all ok

[-TheOne-]

Go Marilyn Go!  :D

[6Marilyn6Manson6]

Originally posted by -TheOne-
Go Marilyn Go!  

Yeah sure

[Thor]

hi Marilyn! Can you make that, that if somebody dont want to use the chat, he or she can exit from the chat? thx :)

[Madman]

--// Simple InternationalCHAT by 6Marilyn6Manson6 2005-10-02
--// Version 1.4
--// Fixed bug with TAG, (thanks Typhoon™ / bluebear / hugo_fra_tv2™ / ?˜”??•Hawk•??”˜? / Madman)

-- Rewrote ToArrival, remvoed repeting code
-- Changed to only one function for InterChat
-- Changed to a table setup
-- Sweared alot over the table
-- Fixed the ToArrival
-- Modded by Madman

Chat = {
	["it"] = "-IT-Chat-",
	["uk"] = "-UK-Chat",
	["hun"] = "-HUN-Chat-", 
	["cz"] = "-CZ-Chat-",
	["pl"] = "-PL-Chat-",
}

function Main()
	for Pre,Name in Chat do
		frmHub:RegBot(Name)
	end
end

function ToArrival(user,data)
	local s,e,to,msg = string.find(data,"%$To:%s+(%S+)%s+From:%s+%S+%s+%$%b<>%s+(.*)%|")
	local _, _, sPrefix, sNick = string.find(string.lower(user.sName), "^%[(%S+)%](%S+)")
	for Pre,Name in Chat do
		if sPrefix == Pre and to == Name then
			InterChat(user,msg,Pre,to) return 1
		else
			SendPmToNick(user.sName,to, "*** You don't have the privileges to talk in this chat.") return 1
		end
	end
end

function InterChat(user,msg,prefix,to)
	for _,users in frmHub:GetOnlineUsers() do
		if users.sName == user.sName then
		else
			if (string.find(string.lower(users.sName), prefix)) then
				users:SendData("$To: "..users.sName.." From: "..to.." $<"..user.sName.."> " ..msg)
			end
		end
	end
end
--// Made by 6Marilyn6Manson6 2005-10-02
--// Fixed by 6Marilyn6Manson6 2005-10-05

I got bored... more compact and less repeting functions...

[6Marilyn6Manson6]

Good script Madman.. i work at new release now