kb = 1024
mb = kb*kb
gb = kb*kb*kb
tb = kb*kb*kb*kb
function NewUserConnected(user)
Message(user)
end
function OpConnected(user)
Message(user)
end
--// Profile Counter
function ProfileCounter(profile)
local table, count = GetUsersByProfile(GetProfileName(profile)),0
for i,User in pairs(table) do
if GetItemByName(User) then
count = count + 1
end
end
return count
end
function Message(user)
if user.sMyInfoString then
local disp = ""
doGetProfile = GetProfileName(user.iProfile) or "Not registerd"
hubshare = string.format("%0.2f", frmHub:GetCurrentShareAmount()/(1024)/(1024)/(1024)/(1024))
local _,_,share = string.find(user.sMyInfoString, "^%$MyINFO %$ALL [^ ]+ [^$]*%$ $[^$]+[^$]%$[^$]*%$%s*(%d+)%$" )
if share then
minshare = string.format("%0.2f", tonumber(share)/gb).." GB"
else
minshare = "Corrupt"
end
end
function ProfileCounter(profile)
local table = {}
local count = 0
table = GetUsersByProfile(GetProfileName(profile))
for i,User in pairs(table) do
if GetItemByName(User) then
count = count + 1
end
end
return count
end
------------------------------------------------------------------------------------------------ ----// Loggin by TiMeTrAVelleR Fixed By Optimus //-------------[infected-System] ----------------------------- Converted to Lua 5 by jiten------------------------ ----// Mor status & edit by: ElecTronic??.Psycho! //---------------- ------------------------------------------------------------------------------------------------ ----// Set here your bot name sBotName = ".???iN-System???." kb = 1024 mb = kb*kb gb = kb*kb*kb tb = kb*kb*kb*kb function NewUserConnected(user) Message(user) end function OpConnected(user) Message(user) end --// Profile Counter function ProfileCounter(profile) local table, count = GetUsersByProfile(profile),0 for i,User in pairs(table) do if GetItemByName(User) then count = count + 1 end end return count end function Message(user) if user.sMyInfoString then local disp = "" doGetProfile = GetProfileName(user.iProfile) or "Not registerd" hubshare = string.format("%0.2f", frmHub:GetCurrentShareAmount()/(1024)/(1024)/(1024)/(1024)) local _,_,share = string.find(user.sMyInfoString, "^%$MyINFO %$ALL [^ ]+ [^$]*%$ $[^$]+[^$]%$[^$]*%$%s*(%d+)%$" ) if share then minshare = string.format("%0.2f", tonumber(share)/gb).." GB" else minshare = "Corrupt" end end border1 = "01" border2 = "02" disp = "\r\n\r\n"..border1.."\r\n" disp = disp.."03\r\n" disp = disp.."04\r\n" disp = disp.."05\r\n" disp = disp.."06\r\n" disp = disp.."07\r\n" disp = disp.."08\r\n" disp = disp.."09\r\n" disp = disp.."Welcome: "..user.sName.."\r\n" disp = disp.."Your Status is: "..doGetProfile .."\r\n" disp = disp.."Your IP is: "..user.sIP.."\r\n" disp = disp.."Your Share is: "..minshare.."\r\n" disp = disp.."Hub MinShare is: 20 ' GB!\r\n" disp = disp.."Hub MinSlots is: 3 ' oPen Slot's..\r\n" disp = disp.."Actual Share in the Hub is :. ".. hubshare.." TiB\r\n" disp = disp.."There are Now: "..frmHub: GetUsersCount().." of "..frmHub:GetMaxUsers().." users Online. .\r\n" disp = disp.."There are : "..ProfileCounter("Netfounder").." [Hub-oWner] - "..ProfileCounter("Master").." [Master's] - "..ProfileCounter ("Operator").." [oP's] - "..ProfileCounter("Moderator").." [-S-Vip's] - "..ProfileCounter("Vip").." [Vip's] - "..ProfileCounter("reg").." [reg's] online . . .\r\n" disp = disp.."Hub Share oNly!: "..frmHub: GetHubDescr().."\r\n" disp = disp.."10\r\n"..border2.."\r\n" user:SendData(sBotName, disp) end |
disp = disp.."There are : "..ProfileCounter("Netfounder").." [Hub-oWner] - "..ProfileCounter("Master").." [Master's] - "..ProfileCounter ("Operator").." [oP's] - "..ProfileCounter("Moderator").." [-S-Vip's] - "..ProfileCounter("Vip").." [Vip's] - "..ProfileCounter("reg").." [reg's] online . . .\r\n"