Hello guy?s
i?m a german hub owner.
i search a reg chat for my users i will be made an addition main.
sorry but my english is very terrible
--// Simple VipChat by NightLitch 2005-03-05
--// Fixed bug with some profile not recieving chat - Blondie? 15/10/2006
--// Added Leviathan support - Blondie? 19/10/2006
--// converted to reg chat - Blondie? 12/12/2006
RegChatName = "?Reg-Chat?"
function Main()
frmHub:RegBot(RegChatName)
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 == RegChatName then
if user.iProfile == 2 or user.iProfile == 3 or user.iProfile == 4 or user.iProfile == 5 or user.iProfile == 6 or user.bOperator then
RegChat(user,msg)
else
SendPmToNick(user.sName,RegChatName, "*** You don't have the privileges to talk in this chat.")
return 1
end
end
end
function RegChat(user,msg)
for _,profile in pairs(GetProfiles()) do
for _,users in pairs(GetUsersByProfile(profile)) do
if GetItemByName(users) then
if GetItemByName(users).iProfile == 2 or GetItemByName(users).iProfile == 3 or GetItemByName(users).iProfile == 4 or GetItemByName(users).iProfile == 5 GetItemByName(users).iProfile == 6 or GetItemByName(users).bOperator then
if GetItemByName(users).sName ~= user.sName then
GetItemByName(users):SendData("$To: "..GetItemByName(users).sName.." From: "..RegChatName.." $<"..user.sName.."> "..msg)
end
end
end
end
end
end
there you go :)
some error here
[03:35] Syntax ... and Settings\SWAGAT.JAGIRDAR\Desktop\Hub\terminator\scripts\regchat.lua:29: 'then' expected near 'GetItemByName'
Hate to say it, but looks like Terminator has been Terminated (http://forum.ptokax.org/index.php?topic=6854.0).
Snooze