*** Simple VipChat ***

[NightLitch]

Here is the simplest way doing a VipChat for PtokaX:

--// Simple VipChat by NightLitch 2005-03-05

VipChatName = "-Vip-Chat-"

function Main()
	frmHub:RegBot(VipChatName)
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 == VipChatName then
		if user.iProfile == 2 or user.bOperator then
			VipChat(user,msg)
		else
			SendPmToNick(user.sName,VipChatName, "*** You don't have the privileges to talk in this chat.")
			return 1
		end
	end
end

function VipChat(user,msg)
	for _,profile in GetProfiles() do
		for _,users in GetUsersByProfile(profile) do
			if GetItemByName(users) then
				if GetItemByName(users).iProfile == 2 or GetItemByName(users).bOperator then
					if GetItemByName(users).sName ~= user.sName then
						GetItemByName(users):SendData("$To: "..GetItemByName(users).sName.." From: "..VipChatName.." $<"..user.sName.."> "..msg)
					end
				end
			end
		end
	end
end

Enjoy!

I really hope the code works.. Haven't tested it hehehe...

Cheers // NL

[Zigurds]

Hm, sript good, only please replication for not regged users - You're not a member here

[NightLitch]

Originally posted by Zigurds
Hm, sript good, only please replication for not regged users - You're not a member here

Above code is updated, message is sent to non VIP and non OPR.

Hope that is what you wanted....

[Zigurds]

yesss ok, thanks :)

[Settlers]

good job  

[Tw?sT?d-d?v]

what would i have to do to turn this into a reg-chat script?

[Tw?sT?d-d?v]

hehe    dont matter i done it (still learning)

--// Simple vipChat by NightLitch 2005-03-05
--// altered by (uk)jay for reg-chat

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 == 3 or user.bOperator then
			RegChat(user,msg)
		else
			SendPmToNick(user.sName,RegChatName, "*** This chat is for registered users only. Your message has not been sent.")
			return 1
		end
	end
end

function RegChat(user,msg)
	for _,profile in GetProfiles() do
		for _,users in GetUsersByProfile(profile) do
			if GetItemByName(users) then
				if GetItemByName(users).iProfile == 3 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