PtokaX forum

botname = "MHCBot"
opchatname = "MHCOpChat"


function Main()
frmHub:RegBot(opchatname)
end

function NewUserConnected(curUser)
-- curUser:SendPM(botname, "?")
end
function DataArrival(user, data)
if (strsub(data, 1, strlen(opchatname) + 5) == "$To: "..opchatname) then
-- remove end pipe
databis=strsub(data,1,strlen(data)-1)
_,_,messagebis = strfind(databis,"$%b<>%s+(.+)")
VIPChat(user,data)
SendToNick(botname, " ?" ..user.sName .."?" ..messagebis) -- ***REMOTE OPCHAT
end
-- ***PROCESSES DATA FROM REMOTE HUBS
if strfind(data, "$FW ",1,true) or strfind(data,"$FWOC ",1,true) or strfind(data, "$$Recive: ",1,true) then
if strfind(data,"$FW ", 1, true) then
remuser = strsub(data,4,strfind(data," ",6,false)-1)
lunnom = strlen (remuser)
remuser2 = strsub(remuser,3,(lunnom))
lunnom2 = strlen (remuser2)
remmsg = strsub(data,strfind(data," ",1,true)+1)
remmsgnew = strsub (data,(lunnom+4))
lunremmsg = strlen (remmsgnew)
remmsgnew2 = strsub(remmsgnew,2,(lunremmsg))

SendToAll(remuser, remmsgnew2)
end
if strfind (data,"$FWOC ",1,true) then
remuser = strsub(data,6,strfind(data," ",8,false))
lunnom = strlen (remuser)
remmsgnew = strsub (data,(lunnom+6))
SendPmToOps(opchatname, "<"..remuser.."> "..remmsgnew)
end
end

end


function VIPChat(user,data)
if 4 <= CheckUserLevel(user) then
if ENABLEVIPCHATBOT == 1 then

tempVar = strsub(data,18+strlen(VIPCHATBOTNAME)+strlen(user.sName)*2)
message = " ["..user.sName.."] "..tempVar

name,pass,level=nil,nil,nil
local temp={}
TextLoad("../RegisteredUsers.dat",temp)
for x=1,getn(temp) do s,e,name,pass,level=strfind(temp

• ,"(.-)\124(.-)\124(.+)")

if GetItemByName(name)~= nil then
lev = Getlevel(name)
if lev>= 5 then
if name == user.sName then
else
SendPmToNick(opchatname,message)
-- SendPmToNick(name,VIPCHATBOTNAME,message)
end
end
end
end
else
user:SendData(Bot,"Vip Chat is disabled.")
end
else
user:SendPM(VIPCHATBOTNAME,"You do not have sufficient rights to use this Chat Bot!")
end
end

function Getlevel(username)
local usernamelevel = nil
local allprofiles = GetProfiles()
local index, profile, index2, nick
for index, profile in allprofiles do
local users = GetUsersByProfile(profile)
for index2, nick in users do
if nick == username then
usernamelevel = index
end
end
end

if usernamelevel ~= nil then
if usernamelevel == 0 then usernamelevel = 8 -- Owner
elseif usernamelevel == 1 then usernamelevel = 5 -- Op
elseif usernamelevel == 2 then usernamelevel = 4 -- Vip
elseif usernamelevel == 3 then usernamelevel = 3 -- Reg
elseif usernamelevel == 4 then usernamelevel = 2 -- Newbie
elseif usernamelevel == 5 then usernamelevel = 6 -- Moderator
elseif usernamelevel == 6 then usernamelevel = 7 -- Admin
elseif usernamelevel == 7 then usernamelevel = 9 -- NetWork Found
end
else
usernamelevel = 1 -- User
end
return usernamelevel
end

function CheckUserLevel(user)
local userlevel = user.iProfile
if userlevel == 0 then return 8 -- Owner
elseif userlevel == 1 then return 5 -- Op
elseif userlevel == 2 then return 4 -- Vip
elseif userlevel == 3 then return 3 -- Reg
elseif userlevel == 4 then return 2 -- Newbie
elseif userlevel == 5 then return 6 -- Moderator
elseif userlevel == 6 then return 7 -- Admin
elseif userlevel == 7 then return 9 -- NetWork Found
else
return 1 -- User
end
end


I'm not seeing where the addresses are for interacting with other hubs.  The hub software says there are no errors in the script, so what to do with it now??????

Are you running a multihub? I think it might something with that to do...

well, kinda ya I suppose.  I found the multihub server, and am able to get the mainchat to multihub, but just having problems with the multihubbing of the opchat right now.

The script is for old verions of PtokaX (IceCube or smt.)

/shipis

heheh thats quite interesting, but as far as i know, the multi hub production has been stopped maybe canceled, so its pretty useless for now, unless the project is continues, but i dont think it can without a restart ;)

QuoteOriginally posted by servaks
The script is for old verions of PtokaX (IceCube or smt.)

/shipis

what!!! lol nah, looks like sumit out of star wars lol, no errm its got recive data for the multihub as far as i see, which aint far, jokinh i see fine :P

QuoteOriginally posted by servaks
The script is for old verions of PtokaX (IceCube or smt.)

/shipis

Dont think icecube had the feuters of levels or am I wrong??This is for a TD3 soft...I recognize it somehow but cant place it... ?(

QuoteOriginally posted by Snoris

QuoteOriginally posted by servaks
The script is for old verions of PtokaX (IceCube or smt.)

/shipis

Dont think icecube had the feuters of levels or am I wrong??This is for a TD3 soft...I recognize it somehow but cant place it... ?(

its got sumit todo with the multihub ;)

klownietlowniet got it first :P lol

so yep td's only i think, icecube IV at a push maybe

No comments  :]

I don't remer wich version..
But it was for old ver.

/shipis

QuoteOriginally posted by servaks
I don't remer wich version..
But it was for old ver.

/shipis

lol if its for multihub, cudnt be for old version, as multihub never did work as far as i can remember ;)

but to me looks as if it need another script, or sumnit to interact, way it looks :S, maybe a part of the multihub software

Quotelol if its for multihub, cudnt be for old version, as multihub never did work as far as i can remember ;)

well, something of multihub must work cause it is for me right now, only the main chat part for talking, but I have 2 hubs connected to the server and I can see the settings like the network settings and rules/ bots tab.  Doesnt look like the OpChat, multiban or network ops has been enabled in the multihub server though.  I just didnt know if that script could be minapulated to make the multihub Opchat work if there is no more work gonna be done on the MHC Server.

fo rthat script you have to find the MHC bot then it should work fine :) ohh btw thanks for the script i was serching for it :)