Uptime Script

[BrokenBrick]

This is a simple uptime script that I use, works in Td4 and IceCube.  It allows users to see the hubs running time (In days and hours) by typing +runtime.  I did not write this, but it works in both TD and IceCube as far as I know
_______________________________________

function DataArrival(USER,DATA)
if (strsub(DATA,1,1)=="<") then DATA=strsub(DATA,1,strlen(DATA)-1) s,e,CMD=strfind(DATA,".*%s+(%S+)")
if (strlower(CMD)=="+runtime") then local SC=clock()
USER:SendData("RUNTIME",floor(SC/86400).." days, "..floor(mod(SC/3600,24)).." hours, and "..floor(mod(SC/60,60)).." minutes.")
end
end
end

[OpiumVolage]

As far as i remember, comments where saying this part was extracted from retrobot.
Don't know who extracted it, i think it was skrollster.

[BrokenBrick]

Perhaps, I can't really remember, its been a while

[Skrollster]

i did it as far as i can remember... but i don't care, but write from where it was taken at least next time

[BrokenBrick]

I couldn't remember.  I was not claiming credit I can assure you of that.  I probably found it on the old forum as a response to someone problem and wanted to use it in my hub.  But that was months ago, and I have slept several times since then.  Sorry Skrollster

[[NL]trucker]

ok folks i had this one stll in my archive and thought it would serve some use.

it is a combined script with hub up time and hub info.

i just hope i put it in the right section.


-- Uptime by extracted from retrobot By Skrollster
-- Retrobot is made by Tezlo
-- Hiding of command from MainChat is added by JenZen?


BotName = "hubinfo"

sek = 1000
min = sek*60
hour = min*60
days = hour*24

time = 1*hour

function Main()
SetTimer(time)
StartTimer()
end


function DataArrival(user, data)
-- remove end pipe
data=strsub(data,1,strlen(data)-1)
--extract command
_,_,cmd=strfind(data, "%b<>%s+(%S+)")
if(cmd == "uptime") then
local sec = clock()
local days = floor(sec/86400)
local hrs = floor((sec-(days*86400))/3600)
local min = floor((sec-(days*86400)-(hrs*3600))/60)
sec = floor(sec-(days*86400)-(hrs*3600)-(min*60))
user:SendData("uptime", "*** "..days.." days, "..hrs.." hours "..min.."

minutes and "..sec.." seconds")
return 1;
end
end


function OnTimer()
local sec = clock()
local days = floor(sec/86400)
local hrs = floor((sec-(days*86400))/3600)
local min = floor((sec-(days*86400)-(hrs*3600))/60)
sec = floor(sec-(days*86400)-(hrs*3600)-(min*60))
SendToAll(BotName,

"?=============="..frmHub:GetHubName().."=================| ?| ::Hub

Owner: xxxxx | ::Hub Info: Min Share xxx Gb | ::Hub Rules: Type !rules

or !help | ::Hub Op's: xxxx xxxxx xxxxxx | ::Hub E-Mail: xxxxxxxxxxx |

::Hub Address: xxxxxx or xxxxxx | ::Hub Network: xxxxxxxxx| ::Uptime =

"..days.." days, "..hrs.." hours "..min.." minutes and "..sec.."

seconds = ?")
SendToAll(BotName, "?============="..frmHub:GetUsersCount().." of

"..frmHub:GetMaxUsers().." Users Connected==================")
end

[[NL]trucker]

and another one whit out hubinfo .

i,m just not sure if it works for td4.

if so could anybody make it so that it will show automaticlly on a specific time-schedule?


--------------------------------------------------------------------------------
-- Uptime by extracted from retrobot By Skrollster
-- Retrobot is made by Tezlo
-- Hiding of command from MainChat is added by JenZen?

function DataArrival(user, data)
   -- remove end pipe
   data=strsub(data,1,strlen(data)-1)
   --extract command
   _,_,cmd=strfind(data, "%b<>%s+(%S+)")
   if(cmd == "uptime") then
local sec = clock()
local days = floor(sec/86400)
local hrs = floor((sec-(days*86400))/3600)
local min = floor((sec-(days*86400)-(hrs*3600))/60)
sec = floor(sec-(days*86400)-(hrs*3600)-(min*60))
user:SendData("uptime", "*** "..days.." days, "..hrs.." hours "..min.." minutes and "..sec.." seconds")
return 1;
   end
end
--------------------------------------------------------------------------------