PtokaX forum

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

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

QuoteOriginally 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....

yesss ok, thanks :)

good job  (http://www.settlers.colt.lv/forum/smilies_mod/upload/06f108dc281985a79f81ad5db24d72db.gif)

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

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