Simple InternationalCHAT

[6Marilyn6Manson6]

New Script for All :)

--// Simple InternationalCHAT
--// Version 1.0
--// Made by 6Marilyn6Manson6 2005-10-02

TAG1 = "[IT]"
TAG2 = "[UK]"
TAG3 = "[HUN]"
TAG4 = "[CZ]"
TAG5 = "[PL]"

InterChatName1 = "-Owner1-Chat-"
InterChatName2 = "-Owner2-Chat-"
InterChatName3 = "-Owner3-Chat-"
InterChatName4 = "-Owner4-Chat-"
InterChatName5 = "-Owner5-Chat-"

function Main()
	frmHub:RegBot(InterChatName1)
	frmHub:RegBot(InterChatName2)
	frmHub:RegBot(InterChatName3)
	frmHub:RegBot(InterChatName4)
	frmHub:RegBot(InterChatName5)
end


function ToArrival(user,data)
	local s,e,to,from,msg = string.find(data,"%$To:%s+(%S+)%s+From:%s+(%S+)%s+%$%b<>%s+(.*)%|")
	if to == InterChatName1 then
		if user.sName == "..TAG1..[user.sName]" then
			InterChat1(user,msg)
		else
			SendPmToNick(user.sName,InterChatName1, "*** You don't have the privileges to talk in this chat.")
			return 1
		end
	end
	if to == InterChatName2 then
		if user.sName == "..TAG2..[user.sName]" then
			InterChat2(user,msg)
		else
			SendPmToNick(user.sName,InterChatName2, "*** You don't have the privileges to talk in this chat.")
			return 1
		end
	end
	if to == InterChatName3 then
		if user.sName == "..TAG3..[user.sName]" then
			InterChat3(user,msg)
		else
			SendPmToNick(user.sName,InterChatName3, "*** You don't have the privileges to talk in this chat.")
			return 1
		end
	end
	if to == InterChatName4 then
		if user.sName == "..TAG4..[user.sName]" then
			InterChat4(user,msg)
		else
			SendPmToNick(user.sName,InterChatName4, "*** You don't have the privileges to talk in this chat.")
			return 1
		end
	end
	if to == InterChatName5 then
		if user.sName == "..TAG5..[user.sName]" then
			InterChat5(user,msg)
		else
			SendPmToNick(user.sName,InterChatName5, "*** You don't have the privileges to talk in this chat.")
			return 1
		end
	end			
end



function InterChat1(user,msg)
	for _,profile in GetProfiles() do
		for _,users in GetUsersByProfile(profile) do
			if GetItemByName(users) then
				if GetItemByName(users).sName == "..TAG1..[user.sName]" then
					if GetItemByName(users).sName ~= user.sName then
						GetItemByName(users):SendData("$To: "..GetItemByName(users).sName.." From: "..InterChatName1.." $<"..user.sName.."> "..msg)
					end
				end
			end
		end
	end
end
function InterChat2(user,msg)
	for _,profile in GetProfiles() do
		for _,users in GetUsersByProfile(profile) do
			if GetItemByName(users) then
				if GetItemByName(users).sName == "..TAG2..[user.sName]" then
					if GetItemByName(users).sName ~= user.sName then
						GetItemByName(users):SendData("$To: "..GetItemByName(users).sName.." From: "..InterChatName2.." $<"..user.sName.."> "..msg)
					end
				end
			end
		end
	end
end
function InterChat3(user,msg)
	for _,profile in GetProfiles() do
		for _,users in GetUsersByProfile(profile) do
			if GetItemByName(users) then
				if GetItemByName(users).sName == "..TAG3..[user.sName]" then
					if GetItemByName(users).sName ~= user.sName then
						GetItemByName(users):SendData("$To: "..GetItemByName(users).sName.." From: "..InterChatName3.." $<"..user.sName.."> "..msg)
					end
				end
			end
		end
	end
end
function InterChat4(user,msg)
	for _,profile in GetProfiles() do
		for _,users in GetUsersByProfile(profile) do
			if GetItemByName(users) then
				if GetItemByName(users).sName == "..TAG4..[user.sName]" then
					if GetItemByName(users).sName ~= user.sName then
						GetItemByName(users):SendData("$To: "..GetItemByName(users).sName.." From: "..InterChatName4.." $<"..user.sName.."> "..msg)
					end
				end
			end
		end
	end
end
function InterChat5(user,msg)
	for _,profile in GetProfiles() do
		for _,users in GetUsersByProfile(profile) do
			if GetItemByName(users) then
				if GetItemByName(users).sName == "..TAG5..[user.sName]" then
					if GetItemByName(users).sName ~= user.sName then
						GetItemByName(users):SendData("$To: "..GetItemByName(users).sName.." From: "..InterChatName5.." $<"..user.sName.."> "..msg)
					end
				end
			end
		end
	end
end
--// Made by 6Marilyn6Manson6 2005-10-02

I made it in 25minutes.... please post request or bug :). Thanks to all. c ya

[Typhoon]

do you also supply the users with special made clients ??

definition of user.sTag is :

user.sTag as string =  "<++ V:0.670,M:A,H:0/0/1,S:2>"

Typhoon?

[6Marilyn6Manson6]

Originally posted by Typhoon?
do you also supply the users with special made clients ??

definition of user.sTag is :

user.sTag as string =  "<++ V:0.670,M:A,H:0/0/1,S:2>"

Typhoon?

Ops sorry.. 2 minutes and I fixed it :P

[6Marilyn6Manson6]

now I things is ok.. don't have test it :P

[6Marilyn6Manson6]

New Version:

--// Simple InternationalCHAT
--// Version 1.1
--// Fixed bug with TAG, (thanks Typhoon?)
--// Made by 6Marilyn6Manson6 2005-10-02

tTag = {
	Tag1 = "[IT]",
	Tag2 = "[UK]",
	Tag3 = "[HUN]",
	Tag4 = "[CZ]",
	Tag5 = "[PL]",
}
tChatName = {
	Chat1 = "-Owner1-Chat-",
	Chat2 = "-Owner2-Chat-",
	Chat3 = "-Owner3-Chat-",
	Chat4 = "-Owner4-Chat-",
	Chat5 = "-Owner5-Chat-",
}

function Main()
	local sChat, Name
	for sChat, Name in pairs(tChatName) do
		frmHub:RegBot(tChatName[sChat])
	end	
end



function ToArrival(user,data)
	local s,e,to,from,msg = string.find(data,"%$To:%s+(%S+)%s+From:%s+(%S+)%s+%$%b<>%s+(.*)%|")
	local sChat, Name
	for sChat, Name in pairs(tChatName) do
		if to == tChatName[sChat] then
			for Tag,v in pairs(tTag) do
				if string.find(user.sName,Tag,1,1) then
					InterChat1(user,msg,tChatName[sChat])
			else
				SendPmToNick(user.sName,tChatName[sChat], "*** You don't have the privileges to talk in this chat.")
				end
			end
		end
	end
end



function InterChat1(user,msg,sChat)
				for _,profile in GetProfiles() do
				for _,users in GetUsersByProfile(profile) do
					if GetItemByName(users) then
					if GetItemByName(users).sName ~= user.sName then
	GetItemByName(users):SendData("$To: "..GetItemByName(users).sName.." From: "..sChat.." $<"..user.sName.."> "..msg)
				end
			end
		end
	end
end
--// Made by 6Marilyn6Manson6 2005-10-02

now work :P

please post request or bug :). Thanks to all in particular Typhoon?. c ya

[(-=TrIp-iN-SuN=-)]

:D good scripts tnx

[(-=TrIp-iN-SuN=-)]

[22:05] <[UK]']['rIp?iN??uN> dfhjdh
[22:05] <-Owner2-Chat-> *** You don't have the privileges to talk in this chat.
[22:05] <-Owner2-Chat-> *** You don't have the privileges to talk in this chat.
[22:05] <-Owner2-Chat-> *** You don't have the privileges to talk in this chat.
[22:05] <-Owner2-Chat-> *** You don't have the privileges to talk in this chat.
[22:05] <-Owner2-Chat-> *** You don't have the privileges to talk in this chat.

it's type me 5 time's and not work i try to talk in chats and nathing work y?

[(-=TrIp-iN-SuN=-)]

i test with your tags not change and not work

[6Marilyn6Manson6]

I'm sorry.. but I can test it tomorrow and fisex :) c ya

[MDFP]

Hi ppl.
Even only with the country tag i can not use the script!
I've tried some kind of tags and change tag settings on script and nothing!
Still not Working.

[6Marilyn6Manson6]

Originally posted by MDFP
Hi ppl.
Even only with the country tag i can not use the script!
I've tried some kind of tags and change tag settings on script and nothing!
Still not Working.

I know error of my script. Today I test it and resolve error. C ya and thanks for support ^_^

[6Marilyn6Manson6]

I have fixed all :). Thanks Typhoon? / bluebear / hugo_fra_tv2?

--// Simple InternationalCHAT by 6Marilyn6Manson6 2005-10-02
--// Version 1.3
--// Fixed bug with TAG, (thanks Typhoon? / bluebear / hugo_fra_tv2?)

InterChatName1 = "-Owner1-Chat-"
InterChatName2 = "-Owner2-Chat-"
InterChatName3 = "-Owner3-Chat-"
InterChatName4 = "-Owner4-Chat-"
InterChatName5 = "-Owner5-Chat-"

function Main()
	frmHub:RegBot(InterChatName1)
	frmHub:RegBot(InterChatName2)
	frmHub:RegBot(InterChatName3)
	frmHub:RegBot(InterChatName4)
	frmHub:RegBot(InterChatName5)
end


function ToArrival(user,data)
	local s,e,to,from,msg = string.find(data,"%$To:%s+(%S+)%s+From:%s+(%S+)%s+%$%b<>%s+(.*)%|")
	if to == InterChatName1 then
		local _, _, sPrefix, sNick = string.find(string.lower(user.sName), "^%[(%S+)%](%S+)")
		if sPrefix == "it" then
			InterChat1(user,msg)			
		else
			SendPmToNick(user.sName,InterChatName1, "*** You don't have the privileges to talk in this chat.")
			return 1
		end
	end
	if to == InterChatName2 then
		local _, _, sPrefix, sNick = string.find(string.lower(user.sName), "^%[(%S+)%](%S+)")
		if sPrefix == "uk" then
			InterChat2(user,msg)			
		else
			SendPmToNick(user.sName,InterChatName2, "*** You don't have the privileges to talk in this chat.")
			return 1
		end
	end
	if to == InterChatName3 then
		local _, _, sPrefix, sNick = string.find(string.lower(user.sName), "^%[(%S+)%](%S+)")
		if sPrefix == "hun" then
			InterChat3(user,msg)			
		else
			SendPmToNick(user.sName,InterChatName3, "*** You don't have the privileges to talk in this chat.")
			return 1
		end
	end
	if to == InterChatName4 then
		local _, _, sPrefix, sNick = string.find(string.lower(user.sName), "^%[(%S+)%](%S+)")
		if sPrefix == "cz" then
			InterChat4(user,msg)			
		else
			SendPmToNick(user.sName,InterChatName4, "*** You don't have the privileges to talk in this chat.")
			return 1
		end
	end
	if to == InterChatName5 then
		local _, _, sPrefix, sNick = string.find(string.lower(user.sName), "^%[(%S+)%](%S+)")
		if sPrefix == "pl" then
			InterChat5(user,msg)			
		else
			SendPmToNick(user.sName,InterChatName5, "*** You don't have the privileges to talk in this chat.")
			return 1
		end
	end
end



function InterChat1(user,msg)
	for _,profile in GetProfiles() do
		for _,users in GetUsersByProfile(profile) do
			if GetItemByName(users) then
				if GetItemByName(users).sName ~= user.sName then
						GetItemByName(users):SendData("$To: "..GetItemByName(users).sName.." From: "..InterChatName1.." $<"..user.sName.."> "..msg)
				end
			end
		end
	end
end
function InterChat2(user,msg)
	for _,profile in GetProfiles() do
		for _,users in GetUsersByProfile(profile) do
			if GetItemByName(users) then
				if GetItemByName(users).sName ~= user.sName then
						GetItemByName(users):SendData("$To: "..GetItemByName(users).sName.." From: "..InterChatName2.." $<"..user.sName.."> "..msg)
				end
			end
		end
	end
end
function InterChat3(user,msg)
	for _,profile in GetProfiles() do
		for _,users in GetUsersByProfile(profile) do
			if GetItemByName(users) then
				if GetItemByName(users).sName ~= user.sName then
						GetItemByName(users):SendData("$To: "..GetItemByName(users).sName.." From: "..InterChatName3.." $<"..user.sName.."> "..msg)
				end
			end
		end
	end
end
function InterChat4(user,msg)
	for _,profile in GetProfiles() do
		for _,users in GetUsersByProfile(profile) do
			if GetItemByName(users) then
				if GetItemByName(users).sName ~= user.sName then
						GetItemByName(users):SendData("$To: "..GetItemByName(users).sName.." From: "..InterChatName4.." $<"..user.sName.."> "..msg)
				end
			end
		end
	end
end
function InterChat5(user,msg)
	for _,profile in GetProfiles() do
		for _,users in GetUsersByProfile(profile) do
			if GetItemByName(users) then
				if GetItemByName(users).sName ~= user.sName then
						GetItemByName(users):SendData("$To: "..GetItemByName(users).sName.." From: "..InterChatName5.." $<"..user.sName.."> "..msg)
				end
			end
		end
	end
end
--// Made by 6Marilyn6Manson6 2005-10-02

if you bug or request post it here. c ya

[fichtenberg]

thanks for this cool script. :))

Have one (stupid) Question. How could i add more than one prefix in one chat room?

      if sPrefix == "it,?????,pl" then

or

      if sPrefix == "it/pl/hun" then

sorry, i don't know.?(

thanx in advance


EDIT:  and one room for all members (multi-lang.) , also users without prefixes.

[??????Hawk??????]

if sPrefix == "it" or sPrefix == "pl" or sPrefix == "hun" then

add as many as you want

[fichtenberg]

Super, thanks a lot :))

without prefix is not possible?

[??????Hawk??????]

remove the RED lines to make room 1 accept all users

if to == InterChatName1 then
		[COLOR=red]local _, _, sPrefix, sNick = string.find(string.lower(user.sName), "^%[(%S+)%](%S+)")
		if sPrefix == "it" then[/COLOR] 
			InterChat1(user,msg)			
[COLOR=red]		else
			SendPmToNick(user.sName,InterChatName1, "*** You don't have the privileges to talk in this chat.")
			return 1
		end[/COLOR]
	end

[fichtenberg]

Merci again, works fine now

[6Marilyn6Manson6]

Good HawK but really script is:  In Chat1 only it in Chat2 only uk in Chat3 only hub in Chat4 only cz and in Chat5 only pl. Different ChatRoom for different country :)

[6Marilyn6Manson6]

New version and now script is very very good. thanks to all for help:

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

InterChatName1 = "-Owner1-Chat-"
InterChatName2 = "-Owner2-Chat-"
InterChatName3 = "-Owner3-Chat-"
InterChatName4 = "-Owner4-Chat-"
InterChatName5 = "-Owner5-Chat-"

function Main()
	frmHub:RegBot(InterChatName1)
	frmHub:RegBot(InterChatName2)
	frmHub:RegBot(InterChatName3)
	frmHub:RegBot(InterChatName4)
	frmHub:RegBot(InterChatName5)
end


function ToArrival(user,data)
	local s,e,to,from,msg = string.find(data,"%$To:%s+(%S+)%s+From:%s+(%S+)%s+%$%b<>%s+(.*)%|")
	if to == InterChatName1 then
		local _, _, sPrefix, sNick = string.find(string.lower(user.sName), "^%[(%S+)%](%S+)")
		if sPrefix == "it" then
			InterChat1(user,msg)			
		else
			SendPmToNick(user.sName,InterChatName1, "*** You don't have the privileges to talk in this chat.")
			return 1
		end
	end
	if to == InterChatName2 then
		local _, _, sPrefix, sNick = string.find(string.lower(user.sName), "^%[(%S+)%](%S+)")
		if sPrefix == "uk" then
			InterChat2(user,msg)			
		else
			SendPmToNick(user.sName,InterChatName2, "*** You don't have the privileges to talk in this chat.")
			return 1
		end
	end
	if to == InterChatName3 then
		local _, _, sPrefix, sNick = string.find(string.lower(user.sName), "^%[(%S+)%](%S+)")
		if sPrefix == "hun" then
			InterChat3(user,msg)			
		else
			SendPmToNick(user.sName,InterChatName3, "*** You don't have the privileges to talk in this chat.")
			return 1
		end
	end
	if to == InterChatName4 then
		local _, _, sPrefix, sNick = string.find(string.lower(user.sName), "^%[(%S+)%](%S+)")
		if sPrefix == "cz" then
			InterChat4(user,msg)			
		else
			SendPmToNick(user.sName,InterChatName4, "*** You don't have the privileges to talk in this chat.")
			return 1
		end
	end
	if to == InterChatName5 then
		local _, _, sPrefix, sNick = string.find(string.lower(user.sName), "^%[(%S+)%](%S+)")
		if sPrefix == "pl" then
			InterChat5(user,msg)			
		else
			SendPmToNick(user.sName,InterChatName5, "*** You don't have the privileges to talk in this chat.")
			return 1
		end
	end
end



function InterChat1(user,msg)
	for _,users in frmHub:GetOnlineUsers() do
		if users.sName == user.sName then
		else
			if (string.find(string.lower(users.sName), "it")) then
				users:SendData("$To: "..users.sName.." From: "..InterChatName1.." $<"..user.sName.."> " ..msg)
			end
		end
	end
end
function InterChat2(user,msg)
	for _,users in frmHub:GetOnlineUsers() do
		if users.sName == user.sName then
		else
			if (string.find(string.lower(users.sName), "uk")) then
				users:SendData("$To: "..users.sName.." From: "..InterChatName2.." $<"..user.sName.."> " ..msg)
			end
		end
	end
end
function InterChat3(user,msg)
	for _,users in frmHub:GetOnlineUsers() do
		if users.sName == user.sName then
		else
			if (string.find(string.lower(users.sName), "hun")) then
				users:SendData("$To: "..users.sName.." From: "..InterChatName3.." $<"..user.sName.."> " ..msg)
			end
		end
	end
end
function InterChat4(user,msg)
	for _,users in frmHub:GetOnlineUsers() do
		if users.sName == user.sName then
		else
			if (string.find(string.lower(users.sName), "cz")) then
				users:SendData("$To: "..users.sName.." From: "..InterChatName4.." $<"..user.sName.."> " ..msg)
			end
		end
	end
end
function InterChat5(user,msg)
	for _,users in frmHub:GetOnlineUsers() do
		if users.sName == user.sName then
		else
			if (string.find(string.lower(users.sName), "pl")) then
				users:SendData("$To: "..users.sName.." From: "..InterChatName5.." $<"..user.sName.."> " ..msg)
			end
		end
	end
end
--// Made by 6Marilyn6Manson6 2005-10-02
--// Fixed by 6Marilyn6Manson6 2005-10-05

if you find bug or you have request post here ;). c ya

[(-=TrIp-iN-SuN=-)]

ok we check this

[(-=TrIp-iN-SuN=-)]

bro it's not work i try like that
[23:08] l;k
[23:08] kl;
[23:08] <-Owner2-Chat-> *** You don't have the privileges to talk in this chat.
[23:08] <-Owner2-Chat-> *** You don't have the privileges to talk in this chat.
[23:08] kl;
and i try like that
[23:08] <[uk]']['rIp?iN??uN> l;k
[23:08] <[uk]']['rIp?iN??uN> kl;
[23:08] <-Owner2-Chat-> *** You don't have the privileges to talk in this chat.
[23:08] <-Owner2-Chat-> *** You don't have the privileges to talk in this chat.
[23:08] <[uk]']['rIp?iN??uN> kl;

and i don't change nathing in your script i only test this and i get all time this

[6Marilyn6Manson6]

I don't understand error. I have tested all chat and work:

[13:59:53] <[PL]Mati> siema all
[13:59:57] <[PL]?????> Nie Ma Mnie Pozdro ???o?.??????[V]K-"]["??[V] ??>? ???"]["???????.?o??? 
[14:00:39] <#PL-ADM#-Ma?']['eR> siemka

[14:08:26] <[IT]6Marilyn6Manson6> BUUUUUUUUUUUU
[14:08:28] <[IT]?t??t?> Sono assente, rispondero' appena posso. 
[14:08:29] <[IT]Silvy> Non ci sono...lascia un mex...magari sei fortunato e ti rispondo...mi raccomando evita di lasciare minchiate scritte... 
[14:11:06] <[IT]'???M?N??R??????> mahuhauahha
[14:11:09] <[IT]'???M?N??R??????> |...::.:::..:.:::.:.:...::| ? [ Naruto Ending 6 - Ryuusei] ? |...::.:::..:.:::.:.:...::|
[14:11:10] <[IT]??????> we
[14:11:22] <[IT]??????> demone
[14:11:22] <[IT]??????> ciao
[14:11:29] <[IT]'???M?N??R??????> ave peppe
[14:11:36] <[IT]'???M?N??R??????> raga
[14:11:40] <[IT]'???M?N??R??????> chi va al Lucca Comics?
[14:11:40] <[IT]'???M?N??R??????> :D

but I want rewrite all code. C ya

[fichtenberg]

The script works fine, but i ve got problems with prefixes like (!REG) and (!ORG). What can i do? i ve tried some samples for my own, but it wont work.

if  sPrefix == "!ORG"  or sPrefix == "(!ORG)" or sPrefix == "org" then

[Markitos]

Originally posted by fichtenberg
The script works fine, but i ve got problems with prefixes like (!REG) and (!ORG). What can i do? i ve tried some samples for my own, but it wont work.

if  sPrefix == "!ORG"  or sPrefix == "(!ORG)" or sPrefix == "org" then

Why do u wanna put a prefix in parentesis???

[6Marilyn6Manson6]

Try this: (tested)

--// Simple InternationalCHAT by 6Marilyn6Manson6 2005-10-02
--// Version 0.1 (fichtenberg Version)
--// Fixed bug with TAG, (thanks Typhoon? / bluebear / hugo_fra_tv2? / ??????Hawk?????? / Madman)
--// Work with prefixes like (!REG) and (!ORG) Request by fichtenberg. Made by 6Marilyn6Manson6 2005-10-28

InterChatName1 = "-Owner1-Chat-"
InterChatName2 = "-Owner2-Chat-"

function Main()
	frmHub:RegBot(InterChatName1)
	frmHub:RegBot(InterChatName2)
end


function ToArrival(user,data)
	local s,e,to,sTag,from,msg = string.find(data,"%$To:%s+(%S+)%s+From:%s+(%S+)%s+%$%b<>%s+(.*)%|")
	if to == InterChatName1 then
		if sTag then
			if string.find(string.lower(sTag), "%p*r%p*e%p*g%p*") then
				InterChat1(user,msg)		
			else
				SendPmToNick(user.sName,InterChatName1, "*** You don't have the privileges to talk in this chat.")
				return 1
			end
		end
	end
	if to == InterChatName2 then
		if sTag then
			if string.find(string.lower(sTag), "%p*o%p*r%p*g%p*") then
				InterChat2(user,msg)		
			else
				SendPmToNick(user.sName,InterChatName2, "*** You don't have the privileges to talk in this chat.")
				return 1
			end
		end
	end
end



function InterChat1(user,msg)
	for _,users in frmHub:GetOnlineUsers() do
		if users.sName == user.sName then
		else
			if (string.find(string.lower(users.sName), "org")) then
				users:SendData("$To: "..users.sName.." From: "..InterChatName1.." $<"..user.sName.."> " ..msg)
			end
		end
	end
end
function InterChat2(user,msg)
	for _,users in frmHub:GetOnlineUsers() do
		if users.sName == user.sName then
		else
			if (string.find(string.lower(users.sName), "reg")) then
				users:SendData("$To: "..users.sName.." From: "..InterChatName2.." $<"..user.sName.."> " ..msg)
			end
		end
	end
end
--// Made by 6Marilyn6Manson6 2005-10-02
--// Fixed by 6Marilyn6Manson6 2005-10-05
--// Change system TAG by 6Marilyn6Manson6 2005-10-28

C ya