For new hub needed some scripts:

[Ferocious Beast]

hi.
i open new hub and i need some scripts:
1.i need script for: vip chat
2.i need something when a user conected be something like this:
Welcome [user name] to Th Hub.
Your Share is XXXX
Your Ip is XXXXXXXX

i am sorry my english very poor hehe
tnx for all

[Typhoon]

many scripts does that , both Sentinel? ,  LawMaker and THoR , and i believe that Robocop does that to ..
just try them out and make your dessicion, all can be found on this board ... for Sentinel it's in my description..
enjoy :)

Typhoon?

[bastya_elvtars]

Originally posted by Typhoon?
many scripts does that , both Sentinel? ,  LawMaker and THoR , and i believe that Robocop does that to ..
just try them out and make your dessicion, all can be found on this board ... for Sentinel it's in my description..
enjoy :)

Typhoon?

thx typhoon, but lawmaker has no vipchat, it only has invitation to opchat

[Typhoon]

well, i cant Quote you on what you said earlier today

" takes only 5 min , to fix that "  :o)

 lool


 enjoy

Typhoon?

[plop]

Originally posted by bastya_elvtars
thx typhoon, but lawmaker has no vipchat, it only has invitation to opchat

hint: microchatroom

goes for you 2 Ferocious Beast.

plop

[ConejoDelMal]

Bot = "-=RoboCop?=-"

LEVELSTOT = {["0"]=0, ["1"]=0, ["2"]=0, ["3"]=0}
LEVELS = {["0"]=0, ["1"]=0, ["2"]=0, ["3"]=0, ["-1"]=0}

commands = {["!addreguser"]=1, ["!delreguser"]=1}
-----
function Message(user)
   local s,e,share = strfind(user.sMyInfoString, "$(%d+)%$")
   if share ~= nil then
   share = format("%0.2f", ( share / (1024*1024*1024)))
   else
   share = 0
   end

   user:SendData(" ")
   user:SendData(Status: "..(GetProfileName(user.iProfile) or "Not Registered").." ")
   user:SendData("Your Share is: "..share.." GB")
   user:SendData("Your Ip is: "..user.sIP.."")
   user:SendData(" ")
   user:SendData(Bot, "Welcome "..user.sName.." to the Hub. ")
end

-----
ALLUSERS={}

function NewUserConnected(user)
   local s,e,usrshare = strfind(user.sMyInfoString, "%$%s*(%d+)%$")

   if ALLUSERS[user.sName]==nil then
      ALLUSERS[user.sName]=1
   end
   Message(user)
end
-----
OpConnected = NewUserConnected
-----
function DataArrival(user, data)
   if ALLUSERS[user.sName]==nil then
      ALLUSERS[user.sName]=1
   end
   s,e,cmd= strfind(data, "%b<>%s+(%S+)")
   if cmd ~= nil and commands[cmd] then
      SetTimer(5 * 1000)
      StartTimer()
   end
end
-----
function OnTimer()
   StopTimer()
   OpenRegisterdUsersFile()
end
-----
function Main()
   frmHub:RegBot(Bot)
   OpenRegisterdUsersFile()
end
-----
function OpenRegisterdUsersFile()
   readfrom("../RegisteredUsers.dat")
   for a,b in LEVELSTOT do
      LEVELSTOT[a]=0
   end
   while 1 do
      local line = read()
      local level
      if line == nil then
         readfrom()
         break
      end
      s,e,level = strfind(line,".+|.+|(.+)")
      if LEVELSTOT[level] then
         LEVELSTOT[level] = LEVELSTOT[level] +1
      end
   end  
end
-----
function Serialize(tTable, sTableName, hFile, sTab)
   assert(tTable, "tTable equals nil");
   assert(sTableName, "sTableName equals nil");
   assert(hFile, "hFile equals nil");

   assert(type(tTable) == "table", "tTable must be a table!");
   assert(type(sTableName) == "string", "sTableName must be a string!");

   sTab = sTab or "";

   write(hFile, sTab..sTableName.." = {\n" );

   for key, value in tTable do
      local sKey = (type(key) == "string") and format("[%q]",key) or format("[%d]",key);

      if(type(value) == "table") then
         Serialize(value, sKey, hFile, sTab.."\t");
      else
         local sValue = (type(value) == "string") and format("%q",value) or tostring(value);
         write(hFile, sTab.."\t"..sKey.." = "..sValue);
      end

      write(hFile, ",\n");
   end

   write(hFile, sTab.."}");
end

function SaveToFile(file , table , tablename)
   local hFile = openfile(file, "w");
   Serialize(table, tablename, hFile);
   closefile(hFile);
end

function LoadFromFile (file)
   assert(readfrom(file),"Making file, not to horry")
   dostring(read("*all"))
   readfrom()
end

hope it fits your needs, it just might be a mess, but works fine with me

[ConejoDelMal]

And i forgot, for the Vip Chat, try here

[Herodes]

yeah and u also forgot to post that script in a code format ...

try quoting this post to see how to do it ...

[ConejoDelMal]

sorry bout that, dont think its so important anyway, but thx for the tip..

[Hemarr]

Sorry dont know where to post this looking for Sentinel
right click commands or a Sentinel tread sorry and thanks