Print

Please login or register.
1 Hour 1 Day 1 Week 1 Month Forever
Login with username, password and session length

[Nando]

it is just an update of uptime lua

Code: [Select]

--20-4-2009 by Nando
-- updated on 14-09-2009
--changed a view things

ScriptVersion = "1.01b"
ScriptName = "HubInfo"
ScriptDev = "Nando"
ScriptDate = "19-04-2009"

bot = "[HubInfo]"
sMenu = "Eximius"
ScriptStart = true
Interval = 145   ---   120
Sec = 1000
Min = 60 * Sec
Hour = 60 * Min
--------------------------------------------------
function GetTime()
dagen = {
["Monday"] = "Maandag",
["Tuesday"] = "Dinsdag",
["Wednesday"] = "Woensdag",
["Thursday"] = "Donderdag",
["Friday"] = "Vrijdag",
["Saturday"] = "Zaterdag",
["Sunday"] = "Zondag",
}
local Day = os.date("%A")
if dagen[Day] then
return os.date(dagen[Day].."-%d-%m-%y en de tijd is %H:%M:%S uur")
end
end
--------------------------------------------------------
function Main()
TimerID1 = Timer:NewTimer(Interval*Min)
Timer:Start(TimerID1)
if bot ~= frmHub:GetHubBotName() then HubBot:Reg(bot) end
if ScriptStart then
local msg = " "..ScriptName.." "..ScriptVersion.." by Nando has been started "
SendToOps(msg)
end
end

----------------------------------------------------------
OnTimer = function(ID)
if ID == TimerID1 then
local AvgSh = FmtSz(frmHub:GetHubShare() / frmHub:GetUserCount())
local Vote = "http://www.dchublist.com/?page=show&id=23848 " --put by vote and stem  you're vote adresses
local Stem = "http://www.publichublist.nl/index.php?page=Hinfo&hid=nandokeshub.no-ip.info:411"
local art = string.rep("_",80).."\r\n"
local sMsg = "\r\n\r\n\t"..art.."\r\n"..
"\t\t Het is "..GetTime().."\r\n"..
"\t"..art..
"\t\t• Hub Naam:\t\t"..frmHub:GetHubName().."\r\n"..
"\t\t• Hub Adres:\t\t"..frmHub:GetHubAddress()..":"..frmHub:GetHubPort().." \r\n"..
"\t\t• Online:\t\t\t"..frmHub:GetOnlineTime().."\r\n"..
"\t\t• Hub Topic:\t\t"..frmHub:GetHubTopic().."\r\n"..
"\t\t• Hub Owner:\t\t"..frmHub:GetHubOwner().."\r\n"..
"\t\t• Hub Soft:\t\t"..frmHub:GetHubVersion().."\r\n"..
"\t\t• Hub Share:\t\t"..FmtSz(frmHub:GetHubShare()).." ,(Gem. "..AvgSh.." per user)\r\n"..
"\t\t• Aantal Users:\t\t"..frmHub:GetUserCount().." van de "..(#GetRegisteredUsers()+1).." geregistreerde user(s) online.\r\n"..
"\t\t• Geheugen gebruik:\t"..Mem().."(Dit script) \r\n"..
"\t"..art..
"\t\t• Stem Adressen:\t"..Vote.." \r\n"..
"\t\t "..Stem.."\r\n"..
"\t\t\t\t  Bedankt namens het hele team\r\n"..
"\t"..art.."\r\n"
SendToAll("<"..bot..">"..sMsg)
Mem()
end
end

Mem = function()
collectgarbage("collect")
local i,u,x = collectgarbage("count"),{"K","M"},1
while i > 1024 do i,x = i/1024,x+1 end
return string.format("%.2f %sB.",i,u[x])
end

FmtSz = function(iShare)
local i,u,x=tonumber(iShare) or 0,{"","K","M","G","T","P"},1
while i > 1024 do i,x = i/1024,x+1 end return string.format("%.2f %sB.",i,u[x])
end

function ChatArrival(User,Data)
local ert = string.rep("=",10)
local irt = string.rep("=",40)
local _,_,cmd = string.find(Data,"%b<>%s+(%S+).*")
if (cmd == "!informatie") and (SendTo[User.iProfileNumber] and SendTo[User.iProfileNumber] == 1) then
local sMsg = "\r\n\r\n\t"..ert.." "..frmHub:GetHubName().." "..irt.."\r\n\r\n"..
"\t\t• Hub Adres:\t\t"..frmHub:GetHubAddress()..":"..frmHub:GetHubPort().." \r\n"..
"\t\t• Online:\t\t\t"..frmHub:GetOnlineTime().."\r\n"..
"\t\t• Hub Topic:\t\t"..frmHub:GetHubTopic().."\r\n"..
"\t\t• Hub Owner:\t\t"..frmHub:GetHubOwner().."\r\n"..
"\t\t• Hub Soft:\t\t"..frmHub:GetHubVersion().."\r\n"..
"\t\t• Hub Share:\t\t"..FmtSz(frmHub:GetHubShare()).."\r\n"..
"\t\t• Aantal Users:\t\t"..frmHub:GetUserCount().." van de "..(#GetRegisteredUsers()+1).." geregistreerde user(s) online.\r\n"..
"\t\t• Geheugen gebruik:\t"..Mem().."(Dit script) \r\n\r\n"..
"\t"..irt.." "..frmHub:GetHubName().." "..ert.."\r\n"
SendToNick(User.sName,"<"..bot..">"..sMsg)
Mem()
return 1
end
end

SendTo = {
   [0] = 1, --owner
   [1] = 1, --admin
   [2] = 1, --master
   [3] = 1, --sop
   [4] = 1, --op
   [5] = 1, --vip
   [6] = 1, --reg
   [7] = 0, --user
}

RC = ""
RC = RC .. "$UserCommand 1 3 ".. sMenu.."\\Actuele Hub Info$<%[mynick]> !informatie&#124;|"

function NewUserConnected(User)
if SendTo[User.iProfileNumber] and SendTo[User.iProfileNumber] == 1 then
User:SendData(RC)
end
end
OpConnected = NewUserConnected

OnExit = function()
local msg = " "..ScriptName.." "..ScriptVersion.." by Nando has been stopped "
SendToOps(msg)
end
Greetings Nando

[Kimbo]

Code: [Select]

Eximius_2_1_0_Lua_5_1\Scripts\HubInfo.lua:67: attempt to concatenate a nil value

[lUk3f1l3w4lK3R]

Nice script Nando. The script works fine here.