Print Page - For new hub needed some scripts:

Title: For new hub needed some scripts:
Post by: Ferocious Beast on 05 October, 2004, 16:55:29

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

Title:
Post by: Typhoon on 05 October, 2004, 18:38:13

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?

Title:
Post by: bastya_elvtars on 05 October, 2004, 19:03:07

QuoteOriginally 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

Title:
Post by: Typhoon on 05 October, 2004, 22:58:03

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

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

lool

enjoy

Typhoon?

Title:
Post by: plop on 06 October, 2004, 01:18:33

QuoteOriginally 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

Title: onjoin
Post by: ConejoDelMal on 06 October, 2004, 03:18:44

QuoteBot = "-=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

Title:
Post by: ConejoDelMal on 06 October, 2004, 03:23:16

And i forgot, for the Vip Chat, try here (http://board.univ-angers.fr/thread.php?threadid=441&boardid=15&sid=eaa625eaa67f67f1053b0f526123db59)

Title:
Post by: Herodes on 06 October, 2004, 10:35:14

Code Select

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

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

Title:
Post by: ConejoDelMal on 07 October, 2004, 00:26:27

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

Title: Sentinel
Post by: Hemarr on 23 October, 2004, 17:11:56

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

PtokaX forum

Archive => Archived 4.0 boards => Request for Lua 4 scripts => Topic started by: Ferocious Beast on 05 October, 2004, 16:55:29