Text only | Text with Images

PtokaX forum

Archive => Archived 5.0 boards => Finished Scripts => Topic started by: 6Marilyn6Manson6 on 02 October, 2005, 14:11:16

Title: Simple InternationalCHAT
Post by: 6Marilyn6Manson6 on 02 October, 2005, 14:11:16
New Script for All :)

Code Select
--// 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
Title: about user.sTag ..
Post by: Typhoon on 02 October, 2005, 14:30:14
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?
Title:
Post by: 6Marilyn6Manson6 on 02 October, 2005, 14:57:47
QuoteOriginally 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
Title:
Post by: 6Marilyn6Manson6 on 02 October, 2005, 15:15:08
now I things is ok.. don't have test it :P
Title:
Post by: 6Marilyn6Manson6 on 02 October, 2005, 18:45:43
New Version:

Code Select
--// 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
Title:
Post by: (-=TrIp-iN-SuN=-) on 02 October, 2005, 20:59:44
:D good scripts tnx
Title:
Post by: (-=TrIp-iN-SuN=-) on 02 October, 2005, 21:08:54
[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?
Title:
Post by: (-=TrIp-iN-SuN=-) on 02 October, 2005, 21:09:44
i test with your tags not change and not work
Title:
Post by: 6Marilyn6Manson6 on 02 October, 2005, 21:25:46
I'm sorry.. but I can test it tomorrow and fisex :) c ya
Title: Same error
Post by: MDFP on 03 October, 2005, 04:27:02
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.
Title:
Post by: 6Marilyn6Manson6 on 03 October, 2005, 12:49:58
QuoteOriginally 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 ^_^
Title:
Post by: 6Marilyn6Manson6 on 03 October, 2005, 20:21:14
I have fixed all :). Thanks Typhoon? / bluebear / hugo_fra_tv2?

Code Select
--// 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
Title:
Post by: fichtenberg on 04 October, 2005, 02:38:52
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.
Title:
Post by: ??????Hawk?????? on 04 October, 2005, 02:58:01
if sPrefix == "it" or sPrefix == "pl" or sPrefix == "hun" then

add as many as you want
Title:
Post by: fichtenberg on 04 October, 2005, 03:02:14
Super, thanks a lot :))

without prefix is not possible?
Title:
Post by: ??????Hawk?????? on 04 October, 2005, 03:41:49
remove the RED lines to make room 1 accept all users

Code Select
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
Title:
Post by: fichtenberg on 04 October, 2005, 04:19:36
Merci again, works fine now
Title:
Post by: 6Marilyn6Manson6 on 04 October, 2005, 07:53:53
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 :)
Title:
Post by: 6Marilyn6Manson6 on 05 October, 2005, 00:53:01
New version and now script is very very good. thanks to all for help:


Code Select
--// 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
Title:
Post by: (-=TrIp-iN-SuN=-) on 05 October, 2005, 21:45:49
ok we check this
Title:
Post by: (-=TrIp-iN-SuN=-) on 05 October, 2005, 22:10:36
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
Title:
Post by: 6Marilyn6Manson6 on 07 October, 2005, 14:09:38
I don't understand error. I have tested all chat and work:

Code Select
[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
Code Select
[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
Title:
Post by: fichtenberg on 28 October, 2005, 18:44:42
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
Title:
Post by: Markitos on 28 October, 2005, 19:51:03
QuoteOriginally 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???
Title:
Post by: 6Marilyn6Manson6 on 28 October, 2005, 20:03:05
Try this: (tested)

Code Select
--// 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
Title:
Post by: fichtenberg on 29 October, 2005, 02:09:53
That did it! great
You are awesome
Thanks again
Title:
Post by: 6Marilyn6Manson6 on 29 October, 2005, 03:06:42
QuoteOriginally posted by fichtenberg
That did it! great
You are awesome
Thanks again

Welcome dude :D
Title:
Post by: 6Marilyn6Manson6 on 29 October, 2005, 12:34:55
Post update. Now is all ok :D
Title:
Post by: -TheOne- on 29 October, 2005, 12:47:07
Go Marilyn Go!  :D
Title:
Post by: 6Marilyn6Manson6 on 29 October, 2005, 16:34:28
QuoteOriginally posted by -TheOne-
Go Marilyn Go!  :D

Yeah sure :D
Title: Exit
Post by: Thor on 01 November, 2005, 19:48:01
hi Marilyn! Can you make that, that if somebody dont want to use the chat, he or she can exit from the chat? thx :)
Title:
Post by: Madman on 14 November, 2005, 19:30:42
Code Select
--// 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...
Title:
Post by: 6Marilyn6Manson6 on 15 November, 2005, 01:49:14
Good script Madman.. i work at new release now :D
Text only | Text with Images